gosu Posted October 5, 2006 Share Posted October 5, 2006 (edited) Hey guys.I wanted to create a poker bot, but after seeing how much work it is, I stopped. It'd be quiet sad to throw the whole code I created away, so I want to share it.Maybe someone of you wants to script a poker bot - this could help.What the script does so far: 'only' detects all the cards and the combination of them - this is nearly 1500 lines of code. If you're new to Texas Hold'em, this script might actually help you (if you can't see the combinations by yourself), but if you're not, this is just to learn and copy from.It looks like this:Have fun with it!expandcollapse popup; --------------------------------------------------------------------------------------- ; ; 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.jsp?page=poker&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 $checksumme EndFunc ;==>CheckSummeKarte Func 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 $kartenbezeichnung EndFunc ;==>KartenBezeichnung Func Karte($welchekarte) $return = KartenBezeichnung(CheckSummeKarte($welchekarte)) _DebugLog("Karte('" & $welchekarte & "') = " & $return) Return $return EndFunc ;==>Karte Func 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 $return EndFunc ;==>WelcherSpieler Func 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 $return EndFunc ;==>CheckKombination Func KartenEigenschaft($wert, $string) $tempwert = _StringCount($string, $wert) Return $tempwert EndFunc ;==>KartenEigenschaft Func 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 $return EndFunc ;==>Highcard Func 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 $return EndFunc ;==>IstVierling Func 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 $return EndFunc ;==>IstStrasse Func 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 $return EndFunc ;==>IstFlush Func 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 $return EndFunc ;==>IstTwoPairs Func 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 $return EndFunc ;==>IstPaar Func 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 $return EndFunc ;==>IstDrilling Func 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 $return EndFunc ;==>IstFullHouse Func _Log($tolog) If $log = 1 Then FileWriteLine($logfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $tolog) EndIf EndFunc ;==>_Log Func _DebugLog($tolog) If $debug = 1 Then FileWriteLine($debugfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $tolog) EndIf EndFunc ;==>_DebugLog Func _StringCount($sString, $vDelimeter, $iEntireString = 1) If Not StringInStr($sString, $vDelimeter) Then SetError(1) Return 0 EndIf Return UBound(StringSplit($sString, $vDelimeter, $iEntireString)) - 2 EndFunc ;==>_StringCount Edited October 5, 2006 by gosu [quote name='d2hacker88' date='Jan 6 2005, 05:10 PM']Can someone please help me out with autoit like gimme a link on how to use it cause i have no experience with computer languages and i'd like to make a program with autoit in order to empress my computer teacher.[right][snapback]52215[/snapback][/right][/quote] Link to comment Share on other sites More sharing options...
jaenster Posted October 9, 2006 Share Posted October 9, 2006 Nice -jaenster Link to comment Share on other sites More sharing options...
jvanegmond Posted October 9, 2006 Share Posted October 9, 2006 I cannot imagine that you would require 1500 lines to write something like this.. Other then the complexity of this program. It's pretty good. github.com/jvanegmond Link to comment Share on other sites More sharing options...
gosu Posted October 9, 2006 Author Share Posted October 9, 2006 I cannot imagine that you would require 1500 lines to write something like this.. Other then the complexity of this program. It's pretty good.Yeah, I know, the program could be about 500 lines if written correctly - probably even less. The reason it is that big: I've written scripts that generate parts of the final script. The huge if-statement-blocks for the combinations were generated by simple for-loops. I'm too lazy to script it by hand.The if-statements themself weren't much work (because I didn't need to write them), but the checksums were. Awww... [quote name='d2hacker88' date='Jan 6 2005, 05:10 PM']Can someone please help me out with autoit like gimme a link on how to use it cause i have no experience with computer languages and i'd like to make a program with autoit in order to empress my computer teacher.[right][snapback]52215[/snapback][/right][/quote] Link to comment Share on other sites More sharing options...
Scinner Posted March 6, 2007 Share Posted March 6, 2007 Hi Im a newbie who wants to try out this script but I cant seem to get it going? I put it in to the SciTE editor but when I hit the F5 (Go) nothing happends? Can someone please tell me what to do? Id really appreciate the help! Thank you! Link to comment Share on other sites More sharing options...
Klaudioz Posted June 26, 2007 Share Posted June 26, 2007 I wanna know if the script still working in Casino Euro. I donwload the software but script don't work for me i look the code and this have a lot of coordinate so I guess that script only works if the window is in a specific coordinate somebody can help me ?. i wanna use this script for modificate it and use in other casinos thank you Link to comment Share on other sites More sharing options...
jvanegmond Posted June 26, 2007 Share Posted June 26, 2007 I wanna know if the script still working in Casino Euro. I donwload the software but script don't work for me i look the code and this have a lot of coordinate so I guess that script only works if the window is in a specific coordinatesomebody can help me ?. i wanna use this script for modificate it and use in other casinosthank youKlaudioz, I have no clue how 1337 you are but, you will have a lot more fun doing this from scratch yourself.It will probably be easier too, as this script is merely an example, and not meant as a base to work from. Should you want to study it, just read through the code. github.com/jvanegmond Link to comment Share on other sites More sharing options...
Mast3rpyr0 Posted June 26, 2007 Share Posted June 26, 2007 Hi Im a newbie who wants to try out this script but I cant seem to get it going? I put it in to the SciTE editor but when I hit the F5 (Go) nothing happends? Can someone please tell me what to do?Id really appreciate the help! Thank you!Remember this is only part of the code. im not sure how far he got on it but it sounds like its not in an operational state. My UDF's : _INetUpdateCheck() My Programs : GameLauncher vAlpha, InfoCrypt, WindowDesigner, ScreenCap, DailyRemindersPick3GeneratorBackupUtility! Other : Bored? Click Here! Link to comment Share on other sites More sharing options...
zatorg Posted June 27, 2007 Share Posted June 27, 2007 Very nice... I suppose a lot of effort was put into this Link to comment Share on other sites More sharing options...
Klaudioz Posted June 27, 2007 Share Posted June 27, 2007 i try it 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