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!
AutoIt
; --------------------------------------------------------------------------------------- ; ; 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 by gosu, 05 October 2006 - 09:21 PM.
