Sign in to follow this  
Followers 0
gosu

Poker bot

10 posts in this topic

#1 ·  Posted (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:

Posted Image

Have fun with it!

; ---------------------------------------------------------------------------------------
;
; 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

[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]

Share this post


Link to post
Share on other sites



Nice :lmao:


-jaenster

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

I wanna know if the script still working in Casino Euro. I donwload the software but script don't work for me :rolleyes:

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

Share this post


Link to post
Share on other sites

I wanna know if the script still working in Casino Euro. I donwload the software but script don't work for me :rolleyes:

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

Klaudioz, 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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Very nice... I suppose a lot of effort was put into this :rolleyes:

Share this post


Link to post
Share on other sites

i try it :rolleyes:

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0