Scinner Posted March 6, 2007 Share Posted March 6, 2007 Hi Im new at autoIT (and programming in general)and I cant seem to start this script I found in this forum.I paste the code in to SciTE Script Editor and then I try to execute by hiting F5 (Go) but nothing happends?Can you please tell me what Im doing wrong, I'd really like to try it out. ; ---------------------------------------------------------------------------------------;; AutoIt version: v3.1.0; GUI language: English; Code language: German / English; Author: Gosu <Ducksteina@gmx.net>;; Description:; Program which fetches the cards from the CasinoEuro Pokerroom; and displays the current combination.; A good start for a Poker bot - you don't have to reinvent the wheel all the time.; This will only work for the EuroCasino Pokerroom, but if you change all the coordinates,; checksums and colors, it will work for every other Pokerroom too. Have fun with that -; getting all the checksums for 52 cards can take quiet a while... ;-);; Requirements:; - CasinoEuro Poker client; (Download @ http://casinoeuro.com/en/poker/logininfo.j...p;parent=poker); - CasinoEuro Poker account; (Create it at @ http://casinoeuro.com/en/register.jsp?page=register); (You don't have to tell them your real adress, names etc., only a valid email; is required);; Used settings in Poker client:; - Show Avatars: turned off; - Big Card Symbols: turned off;; Credits:; I don't know who wrote the function _StringCount(), so I can't tell you any names,; but I used it in this script and wanted to thank the author for that.; I used Koda FormDesigner to do the GUI. Thanks to LazyCat, LookFar, Josbe and the; other guys from the crew.; Everything else (~1500 lines of code) was written by me with spending endless hours; on it, so it would be nice if you give me credit if you use this code or parts of it.;; --------------------------------------------------------------------------------------; --------------------------------------------------------------------------------------; Includes; --------------------------------------------------------------------------------------#include <GUIConstants.au3>; --------------------------------------------------------------------------------------; Options; --------------------------------------------------------------------------------------$log = 0 ; turns card log on (1) or off (0)$logfile = "poker.log" ; where card log is saved$debug = 0 ; turns debug log on (1) or off (0)$debugfile = "debug.log" ; where debug log is saved$window = "Play money" ; window name; --------------------------------------------------------------------------------------; Variables; --------------------------------------------------------------------------------------$flop1set = 0$flop2set = 0$flop3set = 0$turnset = 0$riverset = 0$holecard1set = 0$holecard2set = 0$holecard1 = ""$holecard2 = ""$flop1 = ""$flop2 = ""$flop3 = ""$turn = ""$river = ""Global $logfile, $debugfile, $window, $log, $flop1set, $flop2set, $flop3set, $turnset, $riverset, $holecard1set, $holecard2set; --------------------------------------------------------------------------------------; GUI; --------------------------------------------------------------------------------------$gui = GUICreate("PokerHelper", 138, 155, 0, 0)GUICtrlCreateLabel("Hole Cards:", 8, 8, 59, 17)$gui_hole_card_1 = GUICtrlCreateInput("", 72, 4, 25, 21)$gui_hole_card_2 = GUICtrlCreateInput("", 104, 4, 25, 21)$gui_progress_check = GUICtrlCreateProgress(0, 140, 137, 13)GUICtrlCreateLabel("Flop:", 8, 40, 27, 17)$gui_flop_card_1 = GUICtrlCreateInput("", 40, 36, 25, 21)$gui_flop_card_2 = GUICtrlCreateInput("", 72, 36, 25, 21)$gui_flop_card_3 = GUICtrlCreateInput("", 104, 36, 25, 21)GUICtrlCreateLabel("Turn:", 72, 68, 29, 17)$gui_turn_card = GUICtrlCreateInput("", 104, 64, 25, 21)GUICtrlCreateLabel("River:", 72, 96, 32, 17)$gui_river_card = GUICtrlCreateInput("", 104, 92, 25, 21)$gui_card_combination = GUICtrlCreateLabel("", 8, 120, 123, 17, $SS_CENTER); --------------------------------------------------------------------------------------; Script; --------------------------------------------------------------------------------------opt("PixelCoordMode", 0)opt("WinTitleMatchMode", 2)WinMinimizeAll()GUISetState(@SW_SHOW)WinSetOnTop("PokerHelper", "", 1)While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect If WinActive("PokerHelper") Then WinActivate($window) EndIf If StringInStr(WinGetTitle(""), $window) <> 0 Then If $holecard1set = 0 Then $player = WelcherSpieler() If $player <> 0 Then $holecard1 = Karte("p" & $player & ",1") If $holecard1 <> "-" And $holecard1set = 0 Then GUICtrlSetData($gui_hole_card_1, $holecard1) GUICtrlSetData($gui_progress_check, 5) $holecard1set = 1 EndIf EndIf EndIf If $holecard2set = 0 Then $holecard2 = Karte("p" & $player & ",2") If $holecard2 <> "-" And $holecard2set = 0 Then GUICtrlSetData($gui_hole_card_2, $holecard2) GUICtrlSetData($gui_progress_check, 10) $holecard2set = 1 _Log("Hole Cards: " & $holecard1 & " " & $holecard2) GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river)) EndIf EndIf $flop1 = Karte("flop1") If $flop1 <> "-" And $flop1set = 0 Then GUICtrlSetData($gui_flop_card_1, $flop1) GUICtrlSetData($gui_progress_check, 20) $flop1set = 1 ElseIf $flop1 = "-" And $flop1set = 1 Then GUICtrlSetData($gui_card_combination, "") GUICtrlSetData($gui_flop_card_1, "") GUICtrlSetData($gui_flop_card_2, "") GUICtrlSetData($gui_flop_card_3, "") GUICtrlSetData($gui_turn_card, "") GUICtrlSetData($gui_river_card, "") GUICtrlSetData($gui_hole_card_1, "") GUICtrlSetData($gui_hole_card_2, "") $flop1set = 0 $flop2set = 0 $flop3set = 0 $turnset = 0 $riverset = 0 $holecard1set = 0 $holecard2set = 0 $flop1 = "" $flop2 = "" $flop3 = "" $holecard1 = "" $holecard2 = "" $river = "" $turn = "" GUICtrlSetData($gui_progress_check, 0) EndIf If $flop2set = 0 And $flop1set = 1 Then $flop2 = Karte("flop2") If $flop2 <> "-" And $flop2set = 0 Then GUICtrlSetData($gui_flop_card_2, $flop2) GUICtrlSetData($gui_progress_check, 40) $flop2set = 1 EndIf EndIf If $flop3set = 0 And $flop2set = 1 Then $flop3 = Karte("flop3") If $flop3 <> "-" And $flop3set = 0 Then GUICtrlSetData($gui_flop_card_3, $flop3) GUICtrlSetData($gui_progress_check, 60) $flop3set = 1 _Log("Flop: " & $flop1 & " " & $flop2 & " " & $flop3) If $holecard2set = 1 Then GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river)) EndIf EndIf EndIf If $turnset = 0 And $flop3set = 1 Then $turn = Karte("turn") If $turn <> "-" And $turnset = 0 Then GUICtrlSetData($gui_turn_card, $turn) GUICtrlSetData($gui_progress_check, 80) $turnset = 1 _Log("Turn: " & $turn) If $holecard2set = 1 Then GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river)) EndIf EndIf EndIf If $riverset = 0 And $turnset = 1 Then $river = Karte("river") If $river <> "-" And $riverset = 0 Then GUICtrlSetData($gui_river_card, $river) GUICtrlSetData($gui_progress_check, 100) $riverset = 1 _Log("River: " & $river) EndIf If $holecard2set = 1 Then $kombination = CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river) _Log("--> " & $kombination) GUICtrlSetData($gui_card_combination, $kombination) EndIf EndIf EndIf Sleep(50)WEnd; --------------------------------------------------------------------------------------; Functions; --------------------------------------------------------------------------------------Func CheckSummeKarte($welchekarte) Select ; Flop 1 Case $welchekarte = "flop1" $x1 = 272 $x2 = 283 $y1 = 240 $y2 = 252 ; Flop 2 Case $welchekarte = "flop2" $x1 = 272 + 56 $x2 = 283 + 56 $y1 = 240 $y2 = 252 ; Flop 3 Case $welchekarte = "flop3" $x1 = 272 + 56 + 56 $x2 = 283 + 56 + 56 $y1 = 240 $y2 = 252 ; Turn Case $welchekarte = "turn" $x1 = 272 + 56 + 56 + 56 $x2 = 283 + 56 + 56 + 56 $y1 = 240 $y2 = 252 ; River Case $welchekarte = "river" $x1 = 272 + 56 + 56 + 56 + 56 $x2 = 283 + 56 + 56 + 56 + 56 $y1 = 240 $y2 = 252 ; Spieler 1 Case $welchekarte = "p1,1" $x1 = 56 $y1 = 154 $x2 = 67 $y2 = 166 Case $welchekarte = "p1,2" $x1 = 56 + 17 $y1 = 154 + 4 $x2 = 67 + 17 $y2 = 166 + 4 ; Spieler 2 Case $welchekarte = "p2,1" $x1 = 206 $y1 = 112 $x2 = 217 $y2 = 124 Case $welchekarte = "p2,2" $x1 = 206 + 17 $y1 = 112 + 4 $x2 = 217 + 17 $y2 = 124 + 4 ;Spieler 3 Case $welchekarte = "p3,1" $x1 = 372 $y1 = 112 $x2 = 383 $y2 = 124 Case $welchekarte = "p3,2" $x1 = 372 + 17 $y1 = 112 + 4 $x2 = 383 + 17 $y2 = 124 + 4 ;Spieler 4 Case $welchekarte = "p4,1" $x1 = 536 $y1 = 112 $x2 = 547 $y2 = 124 Case $welchekarte = "p4,2" $x1 = 536 + 17 $y1 = 112 + 4 $x2 = 547 + 17 $y2 = 124 + 4 ;Spieler 5 Case $welchekarte = "p5,1" $x1 = 704 $y1 = 154 $x2 = 715 $y2 = 166 Case $welchekarte = "p5,2" $x1 = 704 + 17 $y1 = 154 + 4 $x2 = 715 + 17 $y2 = 166 + 4 ;Spieler 6 Case $welchekarte = "p6,1" $x1 = 704 $y1 = 336 $x2 = 715 $y2 = 348 Case $welchekarte = "p6,2" $x1 = 704 + 17 $y1 = 336 + 4 $x2 = 715 + 17 $y2 = 348 + 4 ;Spieler 7 Case $welchekarte = "p7,1" $x1 = 534 $y1 = 371 $x2 = 545 $y2 = 383 Case $welchekarte = "p7,2" $x1 = 534 + 17 $y1 = 371 + 4 $x2 = 545 + 17 $y2 = 383 + 4 ;Spieler 8 Case $welchekarte = "p8,1" $x1 = 375 $y1 = 371 $x2 = 386 $y2 = 383 Case $welchekarte = "p8,2" $x1 = 375 + 17 $y1 = 371 + 4 $x2 = 386 + 17 $y2 = 383 + 4 ;Spieler 9 Case $welchekarte = "p9,1" $x1 = 202 $y1 = 371 $x2 = 213 $y2 = 383 Case $welchekarte = "p9,2" $x1 = 202 + 17 $y1 = 371 + 4 $x2 = 213 + 17 $y2 = 383 + 4 ;Spieler 10 Case $welchekarte = "p10,1" $x1 = 44 $y1 = 336 $x2 = 55 $y2 = 348 Case $welchekarte = "p10,2" $x1 = 44 + 17 $y1 = 336 + 4 $x2 = 55 + 17 $y2 = 348 + 4 Case Else Return 0 EndSelect WinActivate($window) $checksumme = PixelChecksum($x1, $y1, $x2, $y2) _DebugLog("CheckSummeKarte('" & $welchekarte & "') = " & $checksumme) Return $checksummeEndFunc ;==>CheckSummeKarteFunc KartenBezeichnung($checksumme) Select Case $checksumme = 2669422110 $kartenbezeichnung = "2h" Case $checksumme = 1552361776 $kartenbezeichnung = "3h" Case $checksumme = 3371642844 $kartenbezeichnung = "4h" Case $checksumme = 1174613402 $kartenbezeichnung = "5h" Case $checksumme = 3972082994 $kartenbezeichnung = "6h" Case $checksumme = 387138944 $kartenbezeichnung = "7h" Case $checksumme = 3729140216 $kartenbezeichnung = "8h" Case $checksumme = 4056953776 $kartenbezeichnung = "9h" Case $checksumme = 1557799946 $kartenbezeichnung = "10h" Case $checksumme = 3544066538 $kartenbezeichnung = "Jh" Case $checksumme = 1176642072 $kartenbezeichnung = "Qh" Case $checksumme = 884089738 $kartenbezeichnung = "Kh" Case $checksumme = 1875583680 $kartenbezeichnung = "Ah" Case $checksumme = 1670209122 $kartenbezeichnung = "2d" Case $checksumme = 883253646 $kartenbezeichnung = "3d" Case $checksumme = 2738907164 $kartenbezeichnung = "4d" Case $checksumme = 956720646 $kartenbezeichnung = "5d" Case $checksumme = 3669058976 $kartenbezeichnung = "6d" Case $checksumme = 3509484990 $kartenbezeichnung = "7d" Case $checksumme = 3282985566 $kartenbezeichnung = "8d" Case $checksumme = 3173936134 $kartenbezeichnung = "9d" Case $checksumme = 3435617308 $kartenbezeichnung = "10d" Case $checksumme = 2929025618 $kartenbezeichnung = "Jd" Case $checksumme = 248011346 $kartenbezeichnung = "Qd" Case $checksumme = 4137573322 $kartenbezeichnung = "Kd" Case $checksumme = 1444961060 $kartenbezeichnung = "Ad" Case $checksumme = 2508657026 $kartenbezeichnung = "2s" Case $checksumme = 925701727 $kartenbezeichnung = "3s" Case $checksumme = 2951880771 $kartenbezeichnung = "4s" Case $checksumme = 4168817855 $kartenbezeichnung = "5s" Case $checksumme = 2015435769 $kartenbezeichnung = "6s" Case $checksumme = 2205302882 $kartenbezeichnung = "7s" Case $checksumme = 2503153382 $kartenbezeichnung = "8s" Case $checksumme = 812262730 $kartenbezeichnung = "9s" Case $checksumme = 544804251 $kartenbezeichnung = "10s" Case $checksumme = 1852315510 $kartenbezeichnung = "Js" Case $checksumme = 4059761622 $kartenbezeichnung = "Qs" Case $checksumme = 1017450009 $kartenbezeichnung = "Ks" Case $checksumme = 721292528 $kartenbezeichnung = "As" Case $checksumme = 1953634565 $kartenbezeichnung = "2c" Case $checksumme = 4238286207 $kartenbezeichnung = "3c" Case $checksumme = 1876567883 $kartenbezeichnung = "4c" Case $checksumme = 885400534 $kartenbezeichnung = "5c" Case $checksumme = 1091380065 $kartenbezeichnung = "6c" Case $checksumme = 1357399920 $kartenbezeichnung = "7c" Case $checksumme = 1366433445 $kartenbezeichnung = "8c" Case $checksumme = 303967449 $kartenbezeichnung = "9c" Case $checksumme = 1414403397 $kartenbezeichnung = "10c" Case $checksumme = 254680810 $kartenbezeichnung = "Jc" Case $checksumme = 1199968945 $kartenbezeichnung = "Qc" Case $checksumme = 2379158718 $kartenbezeichnung = "Kc" Case $checksumme = 3692303232 $kartenbezeichnung = "Ac" Case Else $kartenbezeichnung = "-" EndSelect _DebugLog("KartenBezeichnung('" & $checksumme & "') = " & $kartenbezeichnung) Return $kartenbezeichnungEndFunc ;==>KartenBezeichnungFunc Karte($welchekarte) $return = KartenBezeichnung(CheckSummeKarte($welchekarte)) _DebugLog("Karte('" & $welchekarte & "') = " & $return) Return $returnEndFunc ;==>KarteFunc WelcherSpieler() If PixelGetColor(77, 163) <> 0x632F0C Then $return = 1 ElseIf PixelGetColor(217, 112) <> 0x56290A Then $return = 2 ElseIf PixelGetColor(383, 114) <> 0x76390F Then $return = 3 ElseIf PixelGetColor(549, 114) <> 0x793A0F Then $return = 4 ElseIf PixelGetColor(710, 190) <> 0x6A070F Then $return = 5 ElseIf PixelGetColor(702, 369) <> 0x270205 Then $return = 6 ElseIf PixelGetColor(552, 408) <> 0x151314 Then $return = 7 ElseIf PixelGetColor(381, 405) <> 0x040404 Then $return = 8 ElseIf PixelGetColor(221, 383) <> 0x272520 Then $return = 9 ElseIf PixelGetColor(51, 355) <> 0x010000 Then $return = 10 Else $return = 0 EndIf _DebugLog("WelcherSpieler() = " & $return) Return $returnEndFunc ;==>WelcherSpielerFunc CheckKombination($hole1, $hole2, $flop1, $flop2, $flop3, $turn = 0, $river = 0) $alles = $hole1 & $hole2 & $flop1 & $flop2 & $flop3 & $turn & $river $flush = IstFlush($alles) $strasse = IstStrasse($alles) $fullhouse = IstFullHouse($alles) $drilling = IstDrilling($alles) $highcard = Highcard($alles) $twopairs = IstTwoPairs($alles) $onepair = IstPaar($alles) $vierling = IstVierling($alles) $return = "High Card " & $highcard If $onepair <> "0" Then $return = "Couple of " & $onepair EndIf If $twopairs <> "0" Then $return = "2 Pairs" EndIf If $drilling <> "0" Then $return = "3 " & $drilling EndIf If $strasse <> "0" Then $return = "Straight " & $strasse & " High" EndIf If $flush <> "0" Then $return = "Flush " & $flush & " High" EndIf If $fullhouse <> "0" Then $return = $fullhouse EndIf If $vierling <> "0" Then $return = "4 " & $vierling EndIf If $flush <> "0" And $strasse <> "0" And $strasse <> "Ace" Then $return = "Straight Flush " & $strasse & " High" EndIf If $flush <> "0" And $strasse = "Ace" Then $return = "Royal Flush" EndIf _DebugLog("CheckKombination('" & $alles & "') = " & $return) Return $returnEndFunc ;==>CheckKombinationFunc KartenEigenschaft($wert, $string) $tempwert = _StringCount($string, $wert) Return $tempwertEndFunc ;==>KartenEigenschaftFunc Highcard($string) If StringInStr($string, "A") Then $return = "Ace" ElseIf StringInStr($string, "K") Then $return = "King" ElseIf StringInStr($string, "Q") Then $return = "Queen" ElseIf StringInStr($string, "J") Then $return = "Jack" ElseIf StringInStr($string, 10) Then $return = "Ten" ElseIf StringInStr($string, 9) Then $return = "Nine" ElseIf StringInStr($string, 8) Then $return = "Eight" ElseIf StringInStr($string, 7) Then $return = "Seven" ElseIf StringInStr($string, 6) Then $return = "Six" ElseIf StringInStr($string, 5) Then $return = "Five" ElseIf StringInStr($string, 4) Then $return = "Four" ElseIf StringInStr($string, 3) Then $return = "Three" ElseIf StringInStr($string, 2) Then $return = "Two" EndIf _DebugLog("Highcard('" & $string & "') = " & $return) Return $returnEndFunc ;==>HighcardFunc IstVierling($string) $wert2 = KartenEigenschaft("2", $string) $wert3 = KartenEigenschaft("3", $string) $wert4 = KartenEigenschaft("4", $string) $wert5 = KartenEigenschaft("5", $string) $wert6 = KartenEigenschaft("6", $string) $wert7 = KartenEigenschaft("7", $string) $wert8 = KartenEigenschaft("8", $string) $wert9 = KartenEigenschaft("9", $string) $wert10 = KartenEigenschaft("10", $string) $wertJ = KartenEigenschaft("J", $string) $wertQ = KartenEigenschaft("Q", $string) $wertK = KartenEigenschaft("K", $string) $wertA = KartenEigenschaft("A", $string) $return = "0" If $wert2 = 4 Then $return = "Twos" EndIf If $wert3 = 4 Then $return = "Threes" EndIf If $wert4 = 4 Then $return = "Fours" EndIf If $wert5 = 4 Then $return = "Fives" EndIf If $wert6 = 4 Then $return = "Sixes" EndIf If $wert7 = 4 Then $return = "Sevens" EndIf If $wert8 = 4 Then $return = "Eights" EndIf If $wert9 = 4 Then $return = "Nines" EndIf If $wert10 = 4 Then $return = "Tens" EndIf If $wertJ = 4 Then $return = "Jacks" EndIf If $wertQ = 4 Then $return = "Queens" EndIf If $wertK = 4 Then $return = "Kings" EndIf If $wertA = 4 Then $return = "Aces" EndIf _DebugLog("IstVierling('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstVierlingFunc IstStrasse($string) If StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") And StringInStr($string, "K") And StringInStr($string, "A") Then $return = "Ace" ElseIf StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") And StringInStr($string, "K") Then $return = "King" ElseIf StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") Then $return = "Queen" ElseIf StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") Then $return = "Jack" ElseIf StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") Then $return = "Ten" ElseIf StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") Then $return = "Nine" ElseIf StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") Then $return = "Eight" ElseIf StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") Then $return = "Seven" ElseIf StringInStr($string, "2") And StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") Then $return = "Six" ElseIf StringInStr($string, "A") And StringInStr($string, "2") And StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") Then $return = "Five" Else $return = "0" EndIf _DebugLog("IstStrasse('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstStrasseFunc IstFlush($string) $karo = KartenEigenschaft("d", $string) $kreuz = KartenEigenschaft("c", $string) $herz = KartenEigenschaft("h", $string) $pik = KartenEigenschaft("s", $string) If $karo >= 5 Then If KartenEigenschaft("Ad", $string) <> 0 Then $return = "Ace" ElseIf KartenEigenschaft("Kd", $string) <> 0 Then $return = "King" ElseIf KartenEigenschaft("Qd", $string) <> 0 Then $return = "Queen" ElseIf KartenEigenschaft("Jd", $string) <> 0 Then $return = "Jack" ElseIf KartenEigenschaft("10d", $string) <> 0 Then $return = "Ten" ElseIf KartenEigenschaft("9d", $string) <> 0 Then $return = "Nine" ElseIf KartenEigenschaft("8d", $string) <> 0 Then $return = "Eight" ElseIf KartenEigenschaft("7d", $string) <> 0 Then $return = "Seven" ElseIf KartenEigenschaft("6d", $string) <> 0 Then $return = "Six" Else $return = "0" EndIf ElseIf $kreuz >= 5 Then If KartenEigenschaft("Ac", $string) <> 0 Then $return = "Ace" ElseIf KartenEigenschaft("Kc", $string) <> 0 Then $return = "King" ElseIf KartenEigenschaft("Qc", $string) <> 0 Then $return = "Queen" ElseIf KartenEigenschaft("Jc", $string) <> 0 Then $return = "Jack" ElseIf KartenEigenschaft("10c", $string) <> 0 Then $return = "Ten" ElseIf KartenEigenschaft("9c", $string) <> 0 Then $return = "Nine" ElseIf KartenEigenschaft("8c", $string) <> 0 Then $return = "Eight" ElseIf KartenEigenschaft("7c", $string) <> 0 Then $return = "Seven" ElseIf KartenEigenschaft("6c", $string) <> 0 Then $return = "Six" Else $return = "0" EndIf ElseIf $herz >= 5 Then If KartenEigenschaft("Ah", $string) <> 0 Then $return = "Ace" ElseIf KartenEigenschaft("Kh", $string) <> 0 Then $return = "King" ElseIf KartenEigenschaft("Qh", $string) <> 0 Then $return = "Queen" ElseIf KartenEigenschaft("Jh", $string) <> 0 Then $return = "Jack" ElseIf KartenEigenschaft("10h", $string) <> 0 Then $return = "Ten" ElseIf KartenEigenschaft("9h", $string) <> 0 Then $return = "Nine" ElseIf KartenEigenschaft("8h", $string) <> 0 Then $return = "Eight" ElseIf KartenEigenschaft("7h", $string) <> 0 Then $return = "Seven" ElseIf KartenEigenschaft("6h", $string) <> 0 Then $return = "Six" Else $return = "0" EndIf ElseIf $pik >= 5 Then If KartenEigenschaft("As", $string) <> 0 Then $return = "Ace" ElseIf KartenEigenschaft("Ks", $string) <> 0 Then $return = "King" ElseIf KartenEigenschaft("Qs", $string) <> 0 Then $return = "Queen" ElseIf KartenEigenschaft("Js", $string) <> 0 Then $return = "Jack" ElseIf KartenEigenschaft("10s", $string) <> 0 Then $return = "Ten" ElseIf KartenEigenschaft("9s", $string) <> 0 Then $return = "Nine" ElseIf KartenEigenschaft("8s", $string) <> 0 Then $return = "Eight" ElseIf KartenEigenschaft("7s", $string) <> 0 Then $return = "Seven" ElseIf KartenEigenschaft("6s", $string) <> 0 Then $return = "Six" Else $return = "0" EndIf Else $return = "0" EndIf _DebugLog("IstFlush('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstFlushFunc IstTwoPairs($string) If KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then $return = 1 ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then $return = 1 Else $return = "0" EndIf _DebugLog("IstTwoPairs('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstTwoPairsFunc IstPaar($string) If KartenEigenschaft("A", $string) = 2 Then $return = "Aces" ElseIf KartenEigenschaft("K", $string) = 2 Then $return = "Kings" ElseIf KartenEigenschaft("Q", $string) = 2 Then $return = "Queens" ElseIf KartenEigenschaft("J", $string) = 2 Then $return = "Jacks" ElseIf KartenEigenschaft("10", $string) = 2 Then $return = "Tens" ElseIf KartenEigenschaft("9", $string) = 2 Then $return = "Nines" ElseIf KartenEigenschaft("8", $string) = 2 Then $return = "Eights" ElseIf KartenEigenschaft("7", $string) = 2 Then $return = "Sevens" ElseIf KartenEigenschaft("6", $string) = 2 Then $return = "Sixes" ElseIf KartenEigenschaft("5", $string) = 2 Then $return = "Fives" ElseIf KartenEigenschaft("4", $string) = 2 Then $return = "Fours" ElseIf KartenEigenschaft("3", $string) = 2 Then $return = "Threes" ElseIf KartenEigenschaft("2", $string) = 2 Then $return = "Twos" Else $return = "0" EndIf _DebugLog("IstPaar('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstPaarFunc IstDrilling($string) If KartenEigenschaft("A", $string) = 3 Then $return = "Aces" ElseIf KartenEigenschaft("K", $string) = 3 Then $return = "Kings" ElseIf KartenEigenschaft("Q", $string) = 3 Then $return = "Queens" ElseIf KartenEigenschaft("J", $string) = 3 Then $return = "Jacks" ElseIf KartenEigenschaft("10", $string) = 3 Then $return = "Tens" ElseIf KartenEigenschaft("9", $string) = 3 Then $return = "Nines" ElseIf KartenEigenschaft("8", $string) = 3 Then $return = "Eights" ElseIf KartenEigenschaft("7", $string) = 3 Then $return = "Sevens" ElseIf KartenEigenschaft("6", $string) = 3 Then $return = "Sixes" ElseIf KartenEigenschaft("5", $string) = 3 Then $return = "Fives" ElseIf KartenEigenschaft("4", $string) = 3 Then $return = "Fours" ElseIf KartenEigenschaft("3", $string) = 3 Then $return = "Threes" ElseIf KartenEigenschaft("2", $string) = 3 Then $return = "Twos" Else $return = "0" EndIf _DebugLog("IstDrilling('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstDrillingFunc IstFullHouse($string) If IstPaar($string) Then If KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Aces full of Kings" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Aces full of Queens" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Aces full of Jacks" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Aces full of Tens" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Aces full of Nines" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Aces full of Eigths" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Aces full of Sevens" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Aces full of Sixes" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Aces full of Fives" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Aces full of Fours" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Aces full of Threes" ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Aces full of Twos" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Kings full of Aces" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Kings full of Queens" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Kings full of Jacks" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Kings full of Tens" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Kings full of Nines" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Kings full of Eigths" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Kings full of Sevens" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Kings full of Sixes" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Kings full of Fives" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Kings full of Fours" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Kings full of Threes" ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Kings full of Twos" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Queens full of Aces" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Queens full of Kings" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Queens full of Jacks" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Queens full of Tens" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Queens full of Nines" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Queens full of Eigths" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Queens full of Sevens" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Queens full of Sixes" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Queens full of Fives" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Queens full of Fours" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Queens full of Threes" ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Queens full of Twos" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Jacks full of Aces" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Jacks full of Kings" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Jacks full of Queens" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Jacks full of Tens" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Jacks full of Nines" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Jacks full of Eigths" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Jacks full of Sevens" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Jacks full of Sixes" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Jacks full of Fives" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Jacks full of Fours" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Jacks full of Threes" ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Jacks full of Twos" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Tens full of Aces" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Tens full of Kings" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Tens full of Queens" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Tens full of Jacks" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Tens full of Nines" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Tens full of Eigths" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Tens full of Sevens" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Tens full of Sixes" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Tens full of Fives" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Tens full of Fours" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Tens full of Threes" ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Tens full of Twos" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Nines full of Aces" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Nines full of Kings" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Nines full of Queens" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Nines full of Jacks" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Nines full of Tens" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Nines full of Eigths" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Nines full of Sevens" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Nines full of Sixes" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Nines full of Fives" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Nines full of Fours" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Nines full of Threes" ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Nines full of Twos" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Eigths full of Aces" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Eigths full of Kings" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Eigths full of Queens" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Eigths full of Jacks" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Eigths full of Tens" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Eigths full of Nines" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Eigths full of Sevens" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Eigths full of Sixes" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Eigths full of Fives" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Eigths full of Fours" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Eigths full of Threes" ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Eigths full of Twos" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Sevens full of Aces" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Sevens full of Kings" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Sevens full of Queens" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Sevens full of Jacks" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Sevens full of Tens" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Sevens full of Nines" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Sevens full of Eigths" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Sevens full of Sixes" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Sevens full of Fives" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Sevens full of Fours" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Sevens full of Threes" ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Sevens full of Twos" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Sixes full of Aces" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Sixes full of Kings" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Sixes full of Queens" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Sixes full of Jacks" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Sixes full of Tens" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Sixes full of Nines" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Sixes full of Eigths" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Sixes full of Sevens" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Sixes full of Fives" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Sixes full of Fours" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Sixes full of Threes" ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Sixes full of Twos" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Fives full of Aces" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Fives full of Kings" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Fives full of Queens" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Fives full of Jacks" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Fives full of Tens" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Fives full of Nines" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Fives full of Eigths" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Fives full of Sevens" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Fives full of Sixes" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Fives full of Fours" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Fives full of Threes" ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Fives full of Twos" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Fours full of Aces" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Fours full of Kings" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Fours full of Queens" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Fours full of Jacks" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Fours full of Tens" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Fours full of Nines" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Fours full of Eigths" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Fours full of Sevens" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Fours full of Sixes" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Fours full of Fives" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Fours full of Threes" ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Fours full of Twos" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Threes full of Aces" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Threes full of Kings" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Threes full of Queens" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Threes full of Jacks" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Threes full of Tens" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Threes full of Nines" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Threes full of Eigths" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Threes full of Sevens" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Threes full of Sixes" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Threes full of Fives" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Threes full of Fours" ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then $return = "Threes full of Twos" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then $return = "Twos full of Aces" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then $return = "Twos full of Kings" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then $return = "Twos full of Queens" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then $return = "Twos full of Jacks" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then $return = "Twos full of Tens" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then $return = "Twos full of Nines" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then $return = "Twos full of Eigths" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then $return = "Twos full of Sevens" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then $return = "Twos full of Sixes" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then $return = "Twos full of Fives" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then $return = "Twos full of Fours" ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then $return = "Twos full of Threes" Else $return = "0" EndIf Else $return = "0" EndIf _DebugLog("IstFullHouse('" & $string & "') = " & $return) Return $returnEndFunc ;==>IstFullHouseFunc _Log($tolog) If $log = 1 Then FileWriteLine($logfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $tolog) EndIfEndFunc ;==>_LogFunc _DebugLog($tolog) If $debug = 1 Then FileWriteLine($debugfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $tolog) EndIfEndFunc ;==>_DebugLogFunc _StringCount($sString, $vDelimeter, $iEntireString = 1) If Not StringInStr($sString, $vDelimeter) Then SetError(1) Return 0 EndIf Return UBound(StringSplit($sString, $vDelimeter, $iEntireString)) - 2EndFunc ;==>_StringCountThank you for a great forum and what seems to be a great program, Ive allready done my first script that lets me watch as it logs in to my internetbank with the simple MouseClick and Send -commands Link to comment Share on other sites More sharing options...
MrCreatoR Posted March 6, 2007 Share Posted March 6, 2007 Are you sure that you copy all text from the post? And also, the console (at the buttom of SciTe editor) was shown something?  Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1  AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ==================================================    AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
Scinner Posted March 6, 2007 Author Share Posted March 6, 2007 Are you sure that you copy all text from the post? And also, the console (at the buttom of SciTe editor) was shown something?Yes Ive copied all 1492 lines but the console dont show annything? Link to comment Share on other sites More sharing options...
MrCreatoR Posted March 6, 2007 Share Posted March 6, 2007 but the console dont show annything?Are you asking me? Try this example, are the Gui window shown? GUICreate("Test", 300, 200) GUISetState() While GUIGetMsg() <> -3 Sleep(10) WEnd  Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1  AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ==================================================    AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
Scinner Posted March 6, 2007 Author Share Posted March 6, 2007 Are you asking me? Try this example, are the Gui window shown? GUICreate("Test", 300, 200) GUISetState() While GUIGetMsg() <> -3 Sleep(10) WEnd Im not to good at this it seems. If I paste your code in a "New" sheet I cant get annything to happend. And if try saving the code it wont become a .au3 file even. Link to comment Share on other sites More sharing options...
saldous Posted March 6, 2007 Share Posted March 6, 2007 This was a problem I first noticed when I started using AutoIT a few weeks back. If you start a new project and paste code in, until you save it you can't run it. And it you save and don't type in filename.AU3 and just type filename then it also doesn't work as SciTe doesn't automatically put a file extension on it. Link to comment Share on other sites More sharing options...
Bert Posted March 6, 2007 Share Posted March 6, 2007 Saving a file in SciTe - If you want the file to run, you must save it as a .au3. Otherwise it won't run. And no, you can't change the settings in SciTe to do this automatically. It would involve some major coding, and I know it will be refused to be done if you ask. (Others have asked already, and it was refused due to the editor is used to code in other languages) If you take a look at this thread, you will find a tool that can be helpful to you. I will be putting this tool into the new Scite Toolbar. The ETA on the Toolbar 2.0 toolbar will not be until early MAy due to personal scheduling issues. http://www.autoitscript.com/forum/index.ph...060&hl=temp The Vollatran project  My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Scinner Posted March 6, 2007 Author Share Posted March 6, 2007 Saving a file in SciTe - If you want the file to run, you must save it as a .au3. Otherwise it won't run. And no, you can't change the settings in SciTe to do this automatically. It would involve some major coding, and I know it will be refused to be done if you ask. (Others have asked already, and it was refused due to the editor is used to code in other languages) If you take a look at this thread, you will find a tool that can be helpful to you. I will be putting this tool into the new Scite Toolbar. The ETA on the Toolbar 2.0 toolbar will not be until early MAy due to personal scheduling issues. http://www.autoitscript.com/forum/index.ph...060&hl=tempCool down man you allmost sound upset? I haven't requested some new feature in SciTE. I have no problem typing the extra .au3, I just didn't know I had to do it.Jeeese Link to comment Share on other sites More sharing options...
Scinner Posted March 6, 2007 Author Share Posted March 6, 2007 Well saving the file to .au3 made it work, so thank you. Mod can lock or delete, I got the answer. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now