Sign in to follow this  
Followers 0
Scinner

Quick question?

9 posts in this topic

Hi Im new at autoIT (and programming in general)and I cant seem to start this script I found in this forum.

I paste the code in to SciTE Script Editor and then I try to execute by hiting F5 (Go) but

nothing happends?

Can you please tell me what Im doing wrong, I'd really like to try it out.

; ---------------------------------------------------------------------------------------;; AutoIt version:  v3.1.0; GUI language:    English; Code language:   German / English; Author:          Gosu <Ducksteina@gmx.net>;; Description:;    Program which fetches the cards from the CasinoEuro Pokerroom;    and displays the current combination.;   A good start for a Poker bot - you don't have to reinvent the wheel all the time.;   This will only work for the EuroCasino Pokerroom, but if you change all the coordinates,;   checksums and colors, it will work for every other Pokerroom too. Have fun with that -;   getting all the checksums for 52 cards can take quiet a while... ;-);; Requirements:;  - CasinoEuro Poker client;    (Download @ http://casinoeuro.com/en/poker/logininfo.j...p;parent=poker);  - CasinoEuro Poker account;    (Create it at @ http://casinoeuro.com/en/register.jsp?page=register);    (You don't have to tell them your real adress, names etc., only a valid email;     is required);; Used settings in Poker client:;  - Show Avatars: turned off;  - Big Card Symbols: turned off;; Credits:;   I don't know who wrote the function _StringCount(), so I can't tell you any names,;   but I used it in this script and wanted to thank the author for that.;   I used Koda FormDesigner to do the GUI. Thanks to LazyCat, LookFar, Josbe and the;   other guys from the crew.;   Everything else (~1500 lines of code) was written by me with spending endless hours;   on it, so it would be nice if you give me credit if you use this code or parts of it.;; --------------------------------------------------------------------------------------; --------------------------------------------------------------------------------------; Includes; --------------------------------------------------------------------------------------#include <GUIConstants.au3>; --------------------------------------------------------------------------------------; Options; --------------------------------------------------------------------------------------$log = 0  ; turns card log on (1) or off (0)$logfile = "poker.log"   ; where card log is saved$debug = 0               ; turns debug log on (1) or off (0)$debugfile = "debug.log" ; where debug log is saved$window = "Play money"   ; window name; --------------------------------------------------------------------------------------; Variables; --------------------------------------------------------------------------------------$flop1set = 0$flop2set = 0$flop3set = 0$turnset = 0$riverset = 0$holecard1set = 0$holecard2set = 0$holecard1 = ""$holecard2 = ""$flop1 = ""$flop2 = ""$flop3 = ""$turn = ""$river = ""Global $logfile, $debugfile, $window, $log, $flop1set, $flop2set, $flop3set, $turnset, $riverset, $holecard1set, $holecard2set; --------------------------------------------------------------------------------------; GUI; --------------------------------------------------------------------------------------$gui = GUICreate("PokerHelper", 138, 155, 0, 0)GUICtrlCreateLabel("Hole Cards:", 8, 8, 59, 17)$gui_hole_card_1 = GUICtrlCreateInput("", 72, 4, 25, 21)$gui_hole_card_2 = GUICtrlCreateInput("", 104, 4, 25, 21)$gui_progress_check = GUICtrlCreateProgress(0, 140, 137, 13)GUICtrlCreateLabel("Flop:", 8, 40, 27, 17)$gui_flop_card_1 = GUICtrlCreateInput("", 40, 36, 25, 21)$gui_flop_card_2 = GUICtrlCreateInput("", 72, 36, 25, 21)$gui_flop_card_3 = GUICtrlCreateInput("", 104, 36, 25, 21)GUICtrlCreateLabel("Turn:", 72, 68, 29, 17)$gui_turn_card = GUICtrlCreateInput("", 104, 64, 25, 21)GUICtrlCreateLabel("River:", 72, 96, 32, 17)$gui_river_card = GUICtrlCreateInput("", 104, 92, 25, 21)$gui_card_combination = GUICtrlCreateLabel("", 8, 120, 123, 17, $SS_CENTER); --------------------------------------------------------------------------------------; Script; --------------------------------------------------------------------------------------opt("PixelCoordMode", 0)opt("WinTitleMatchMode", 2)WinMinimizeAll()GUISetState(@SW_SHOW)WinSetOnTop("PokerHelper", "", 1)While 1   $msg = GUIGetMsg()   Select      Case $msg = $GUI_EVENT_CLOSE         ExitLoop   EndSelect   If WinActive("PokerHelper") Then      WinActivate($window)   EndIf   If StringInStr(WinGetTitle(""), $window) <> 0 Then      If $holecard1set = 0 Then         $player = WelcherSpieler()         If $player <> 0 Then            $holecard1 = Karte("p" & $player & ",1")            If $holecard1 <> "-" And $holecard1set = 0 Then               GUICtrlSetData($gui_hole_card_1, $holecard1)               GUICtrlSetData($gui_progress_check, 5)               $holecard1set = 1            EndIf         EndIf      EndIf      If $holecard2set = 0 Then         $holecard2 = Karte("p" & $player & ",2")         If $holecard2 <> "-" And $holecard2set = 0 Then            GUICtrlSetData($gui_hole_card_2, $holecard2)            GUICtrlSetData($gui_progress_check, 10)            $holecard2set = 1            _Log("Hole Cards: " & $holecard1 & " " & $holecard2)            GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river))         EndIf      EndIf      $flop1 = Karte("flop1")      If $flop1 <> "-" And $flop1set = 0 Then         GUICtrlSetData($gui_flop_card_1, $flop1)         GUICtrlSetData($gui_progress_check, 20)         $flop1set = 1      ElseIf $flop1 = "-" And $flop1set = 1 Then         GUICtrlSetData($gui_card_combination, "")         GUICtrlSetData($gui_flop_card_1, "")         GUICtrlSetData($gui_flop_card_2, "")         GUICtrlSetData($gui_flop_card_3, "")         GUICtrlSetData($gui_turn_card, "")         GUICtrlSetData($gui_river_card, "")         GUICtrlSetData($gui_hole_card_1, "")         GUICtrlSetData($gui_hole_card_2, "")         $flop1set = 0         $flop2set = 0         $flop3set = 0         $turnset = 0         $riverset = 0         $holecard1set = 0         $holecard2set = 0         $flop1 = ""         $flop2 = ""         $flop3 = ""         $holecard1 = ""         $holecard2 = ""         $river = ""         $turn = ""         GUICtrlSetData($gui_progress_check, 0)      EndIf      If $flop2set = 0 And $flop1set = 1 Then         $flop2 = Karte("flop2")         If $flop2 <> "-" And $flop2set = 0 Then            GUICtrlSetData($gui_flop_card_2, $flop2)            GUICtrlSetData($gui_progress_check, 40)            $flop2set = 1         EndIf      EndIf      If $flop3set = 0 And $flop2set = 1 Then         $flop3 = Karte("flop3")         If $flop3 <> "-" And $flop3set = 0 Then            GUICtrlSetData($gui_flop_card_3, $flop3)            GUICtrlSetData($gui_progress_check, 60)            $flop3set = 1            _Log("Flop: " & $flop1 & " " & $flop2 & " " & $flop3)            If $holecard2set = 1 Then               GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river))            EndIf         EndIf      EndIf      If $turnset = 0 And $flop3set = 1 Then         $turn = Karte("turn")         If $turn <> "-" And $turnset = 0 Then            GUICtrlSetData($gui_turn_card, $turn)            GUICtrlSetData($gui_progress_check, 80)            $turnset = 1            _Log("Turn: " & $turn)            If $holecard2set = 1 Then               GUICtrlSetData($gui_card_combination, CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river))            EndIf         EndIf      EndIf      If $riverset = 0 And $turnset = 1 Then         $river = Karte("river")         If $river <> "-" And $riverset = 0 Then            GUICtrlSetData($gui_river_card, $river)            GUICtrlSetData($gui_progress_check, 100)            $riverset = 1            _Log("River: " & $river)         EndIf         If $holecard2set = 1 Then            $kombination = CheckKombination($holecard1, $holecard2, $flop1, $flop2, $flop3, $turn, $river)            _Log("--> " & $kombination)            GUICtrlSetData($gui_card_combination, $kombination)         EndIf      EndIf   EndIf   Sleep(50)WEnd; --------------------------------------------------------------------------------------; Functions; --------------------------------------------------------------------------------------Func CheckSummeKarte($welchekarte)   Select      ; Flop 1      Case $welchekarte = "flop1"         $x1 = 272         $x2 = 283         $y1 = 240         $y2 = 252         ; Flop 2      Case $welchekarte = "flop2"         $x1 = 272 + 56         $x2 = 283 + 56         $y1 = 240         $y2 = 252         ; Flop 3      Case $welchekarte = "flop3"         $x1 = 272 + 56 + 56         $x2 = 283 + 56 + 56         $y1 = 240         $y2 = 252         ; Turn      Case $welchekarte = "turn"         $x1 = 272 + 56 + 56 + 56         $x2 = 283 + 56 + 56 + 56         $y1 = 240         $y2 = 252         ; River      Case $welchekarte = "river"         $x1 = 272 + 56 + 56 + 56 + 56         $x2 = 283 + 56 + 56 + 56 + 56         $y1 = 240         $y2 = 252         ; Spieler 1      Case $welchekarte = "p1,1"         $x1 = 56         $y1 = 154         $x2 = 67         $y2 = 166      Case $welchekarte = "p1,2"         $x1 = 56 + 17         $y1 = 154 + 4         $x2 = 67 + 17         $y2 = 166 + 4         ; Spieler 2      Case $welchekarte = "p2,1"         $x1 = 206         $y1 = 112         $x2 = 217         $y2 = 124      Case $welchekarte = "p2,2"         $x1 = 206 + 17         $y1 = 112 + 4         $x2 = 217 + 17         $y2 = 124 + 4         ;Spieler 3      Case $welchekarte = "p3,1"         $x1 = 372         $y1 = 112         $x2 = 383         $y2 = 124      Case $welchekarte = "p3,2"         $x1 = 372 + 17         $y1 = 112 + 4         $x2 = 383 + 17         $y2 = 124 + 4         ;Spieler 4      Case $welchekarte = "p4,1"         $x1 = 536         $y1 = 112         $x2 = 547         $y2 = 124      Case $welchekarte = "p4,2"         $x1 = 536 + 17         $y1 = 112 + 4         $x2 = 547 + 17         $y2 = 124 + 4         ;Spieler 5      Case $welchekarte = "p5,1"         $x1 = 704         $y1 = 154         $x2 = 715         $y2 = 166      Case $welchekarte = "p5,2"         $x1 = 704 + 17         $y1 = 154 + 4         $x2 = 715 + 17         $y2 = 166 + 4         ;Spieler 6      Case $welchekarte = "p6,1"         $x1 = 704         $y1 = 336         $x2 = 715         $y2 = 348      Case $welchekarte = "p6,2"         $x1 = 704 + 17         $y1 = 336 + 4         $x2 = 715 + 17         $y2 = 348 + 4         ;Spieler 7      Case $welchekarte = "p7,1"         $x1 = 534         $y1 = 371         $x2 = 545         $y2 = 383      Case $welchekarte = "p7,2"         $x1 = 534 + 17         $y1 = 371 + 4         $x2 = 545 + 17         $y2 = 383 + 4         ;Spieler 8      Case $welchekarte = "p8,1"         $x1 = 375         $y1 = 371         $x2 = 386         $y2 = 383      Case $welchekarte = "p8,2"         $x1 = 375 + 17         $y1 = 371 + 4         $x2 = 386 + 17         $y2 = 383 + 4         ;Spieler 9      Case $welchekarte = "p9,1"         $x1 = 202         $y1 = 371         $x2 = 213         $y2 = 383      Case $welchekarte = "p9,2"         $x1 = 202 + 17         $y1 = 371 + 4         $x2 = 213 + 17         $y2 = 383 + 4         ;Spieler 10      Case $welchekarte = "p10,1"         $x1 = 44         $y1 = 336         $x2 = 55         $y2 = 348      Case $welchekarte = "p10,2"         $x1 = 44 + 17         $y1 = 336 + 4         $x2 = 55 + 17         $y2 = 348 + 4      Case Else         Return 0   EndSelect   WinActivate($window)   $checksumme = PixelChecksum($x1, $y1, $x2, $y2)   _DebugLog("CheckSummeKarte('" & $welchekarte & "') = " & $checksumme)   Return $checksummeEndFunc   ;==>CheckSummeKarteFunc KartenBezeichnung($checksumme)   Select      Case $checksumme = 2669422110         $kartenbezeichnung = "2h"      Case $checksumme = 1552361776         $kartenbezeichnung = "3h"      Case $checksumme = 3371642844         $kartenbezeichnung = "4h"      Case $checksumme = 1174613402         $kartenbezeichnung = "5h"      Case $checksumme = 3972082994         $kartenbezeichnung = "6h"      Case $checksumme = 387138944         $kartenbezeichnung = "7h"      Case $checksumme = 3729140216         $kartenbezeichnung = "8h"      Case $checksumme = 4056953776         $kartenbezeichnung = "9h"      Case $checksumme = 1557799946         $kartenbezeichnung = "10h"      Case $checksumme = 3544066538         $kartenbezeichnung = "Jh"      Case $checksumme = 1176642072         $kartenbezeichnung = "Qh"      Case $checksumme = 884089738         $kartenbezeichnung = "Kh"      Case $checksumme = 1875583680         $kartenbezeichnung = "Ah"      Case $checksumme = 1670209122         $kartenbezeichnung = "2d"      Case $checksumme = 883253646         $kartenbezeichnung = "3d"      Case $checksumme = 2738907164         $kartenbezeichnung = "4d"      Case $checksumme = 956720646         $kartenbezeichnung = "5d"      Case $checksumme = 3669058976         $kartenbezeichnung = "6d"      Case $checksumme = 3509484990         $kartenbezeichnung = "7d"      Case $checksumme = 3282985566         $kartenbezeichnung = "8d"      Case $checksumme = 3173936134         $kartenbezeichnung = "9d"      Case $checksumme = 3435617308         $kartenbezeichnung = "10d"      Case $checksumme = 2929025618         $kartenbezeichnung = "Jd"      Case $checksumme = 248011346         $kartenbezeichnung = "Qd"      Case $checksumme = 4137573322         $kartenbezeichnung = "Kd"      Case $checksumme = 1444961060         $kartenbezeichnung = "Ad"      Case $checksumme = 2508657026         $kartenbezeichnung = "2s"      Case $checksumme = 925701727         $kartenbezeichnung = "3s"      Case $checksumme = 2951880771         $kartenbezeichnung = "4s"      Case $checksumme = 4168817855         $kartenbezeichnung = "5s"      Case $checksumme = 2015435769         $kartenbezeichnung = "6s"      Case $checksumme = 2205302882         $kartenbezeichnung = "7s"      Case $checksumme = 2503153382         $kartenbezeichnung = "8s"      Case $checksumme = 812262730         $kartenbezeichnung = "9s"      Case $checksumme = 544804251         $kartenbezeichnung = "10s"      Case $checksumme = 1852315510         $kartenbezeichnung = "Js"      Case $checksumme = 4059761622         $kartenbezeichnung = "Qs"      Case $checksumme = 1017450009         $kartenbezeichnung = "Ks"      Case $checksumme = 721292528         $kartenbezeichnung = "As"      Case $checksumme = 1953634565         $kartenbezeichnung = "2c"      Case $checksumme = 4238286207         $kartenbezeichnung = "3c"      Case $checksumme = 1876567883         $kartenbezeichnung = "4c"      Case $checksumme = 885400534         $kartenbezeichnung = "5c"      Case $checksumme = 1091380065         $kartenbezeichnung = "6c"      Case $checksumme = 1357399920         $kartenbezeichnung = "7c"      Case $checksumme = 1366433445         $kartenbezeichnung = "8c"      Case $checksumme = 303967449         $kartenbezeichnung = "9c"      Case $checksumme = 1414403397         $kartenbezeichnung = "10c"      Case $checksumme = 254680810         $kartenbezeichnung = "Jc"      Case $checksumme = 1199968945         $kartenbezeichnung = "Qc"      Case $checksumme = 2379158718         $kartenbezeichnung = "Kc"      Case $checksumme = 3692303232         $kartenbezeichnung = "Ac"      Case Else         $kartenbezeichnung = "-"   EndSelect   _DebugLog("KartenBezeichnung('" & $checksumme & "') = " & $kartenbezeichnung)   Return $kartenbezeichnungEndFunc   ;==>KartenBezeichnungFunc Karte($welchekarte)   $return = KartenBezeichnung(CheckSummeKarte($welchekarte))   _DebugLog("Karte('" & $welchekarte & "') = " & $return)   Return $returnEndFunc   ;==>KarteFunc WelcherSpieler()   If PixelGetColor(77, 163) <> 0x632F0C Then      $return = 1   ElseIf PixelGetColor(217, 112) <> 0x56290A Then      $return = 2   ElseIf PixelGetColor(383, 114) <> 0x76390F Then      $return = 3   ElseIf PixelGetColor(549, 114) <> 0x793A0F Then      $return = 4   ElseIf PixelGetColor(710, 190) <> 0x6A070F Then      $return = 5   ElseIf PixelGetColor(702, 369) <> 0x270205 Then      $return = 6   ElseIf PixelGetColor(552, 408) <> 0x151314 Then      $return = 7   ElseIf PixelGetColor(381, 405) <> 0x040404 Then      $return = 8   ElseIf PixelGetColor(221, 383) <> 0x272520 Then      $return = 9   ElseIf PixelGetColor(51, 355) <> 0x010000 Then      $return = 10   Else      $return = 0   EndIf   _DebugLog("WelcherSpieler() = " & $return)   Return $returnEndFunc   ;==>WelcherSpielerFunc CheckKombination($hole1, $hole2, $flop1, $flop2, $flop3, $turn = 0, $river = 0)   $alles = $hole1 & $hole2 & $flop1 & $flop2 & $flop3 & $turn & $river      $flush = IstFlush($alles)   $strasse = IstStrasse($alles)   $fullhouse = IstFullHouse($alles)   $drilling = IstDrilling($alles)   $highcard = Highcard($alles)   $twopairs = IstTwoPairs($alles)   $onepair = IstPaar($alles)   $vierling = IstVierling($alles)      $return = "High Card " & $highcard      If $onepair <> "0" Then      $return = "Couple of " & $onepair   EndIf   If $twopairs <> "0" Then      $return = "2 Pairs"   EndIf   If $drilling <> "0" Then      $return = "3 " & $drilling   EndIf   If $strasse <> "0" Then      $return = "Straight " & $strasse & " High"   EndIf   If $flush <> "0" Then      $return = "Flush " & $flush & " High"   EndIf   If $fullhouse <> "0" Then      $return = $fullhouse   EndIf   If $vierling <> "0" Then      $return = "4 " & $vierling   EndIf   If $flush <> "0" And $strasse <> "0" And $strasse <> "Ace" Then      $return = "Straight Flush " & $strasse & " High"   EndIf   If $flush <> "0" And $strasse = "Ace" Then      $return = "Royal Flush"   EndIf   _DebugLog("CheckKombination('" & $alles & "') = " & $return)   Return $returnEndFunc   ;==>CheckKombinationFunc KartenEigenschaft($wert, $string)   $tempwert = _StringCount($string, $wert)   Return $tempwertEndFunc   ;==>KartenEigenschaftFunc Highcard($string)   If StringInStr($string, "A") Then      $return = "Ace"   ElseIf StringInStr($string, "K") Then      $return = "King"   ElseIf StringInStr($string, "Q") Then      $return = "Queen"   ElseIf StringInStr($string, "J") Then      $return = "Jack"   ElseIf StringInStr($string, 10) Then      $return = "Ten"   ElseIf StringInStr($string, 9) Then      $return = "Nine"   ElseIf StringInStr($string, 8) Then      $return = "Eight"   ElseIf StringInStr($string, 7) Then      $return = "Seven"   ElseIf StringInStr($string, 6) Then      $return = "Six"   ElseIf StringInStr($string, 5) Then      $return = "Five"   ElseIf StringInStr($string, 4) Then      $return = "Four"   ElseIf StringInStr($string, 3) Then      $return = "Three"   ElseIf StringInStr($string, 2) Then      $return = "Two"   EndIf   _DebugLog("Highcard('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>HighcardFunc IstVierling($string)   $wert2 = KartenEigenschaft("2", $string)   $wert3 = KartenEigenschaft("3", $string)   $wert4 = KartenEigenschaft("4", $string)   $wert5 = KartenEigenschaft("5", $string)   $wert6 = KartenEigenschaft("6", $string)   $wert7 = KartenEigenschaft("7", $string)   $wert8 = KartenEigenschaft("8", $string)   $wert9 = KartenEigenschaft("9", $string)   $wert10 = KartenEigenschaft("10", $string)   $wertJ = KartenEigenschaft("J", $string)   $wertQ = KartenEigenschaft("Q", $string)   $wertK = KartenEigenschaft("K", $string)   $wertA = KartenEigenschaft("A", $string)   $return = "0"   If $wert2 = 4 Then      $return = "Twos"   EndIf   If $wert3 = 4 Then      $return = "Threes"   EndIf   If $wert4 = 4 Then      $return = "Fours"   EndIf   If $wert5 = 4 Then      $return = "Fives"   EndIf   If $wert6 = 4 Then      $return = "Sixes"   EndIf   If $wert7 = 4 Then      $return = "Sevens"   EndIf   If $wert8 = 4 Then      $return = "Eights"   EndIf   If $wert9 = 4 Then      $return = "Nines"   EndIf   If $wert10 = 4 Then      $return = "Tens"   EndIf   If $wertJ = 4 Then      $return = "Jacks"   EndIf   If $wertQ = 4 Then      $return = "Queens"   EndIf   If $wertK = 4 Then      $return = "Kings"   EndIf   If $wertA = 4 Then      $return = "Aces"   EndIf   _DebugLog("IstVierling('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstVierlingFunc IstStrasse($string)   If StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") And StringInStr($string, "K") And StringInStr($string, "A") Then      $return = "Ace"   ElseIf StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") And StringInStr($string, "K") Then      $return = "King"   ElseIf StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") And StringInStr($string, "Q") Then      $return = "Queen"   ElseIf StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") And StringInStr($string, "J") Then      $return = "Jack"   ElseIf StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") And StringInStr($string, "10") Then      $return = "Ten"   ElseIf StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") And StringInStr($string, "9") Then      $return = "Nine"   ElseIf StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") And StringInStr($string, "8") Then      $return = "Eight"   ElseIf StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") And StringInStr($string, "7") Then      $return = "Seven"   ElseIf StringInStr($string, "2") And StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") And StringInStr($string, "6") Then      $return = "Six"   ElseIf StringInStr($string, "A") And StringInStr($string, "2") And StringInStr($string, "3") And StringInStr($string, "4") And StringInStr($string, "5") Then      $return = "Five"   Else      $return = "0"   EndIf   _DebugLog("IstStrasse('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstStrasseFunc IstFlush($string)   $karo = KartenEigenschaft("d", $string)   $kreuz = KartenEigenschaft("c", $string)   $herz = KartenEigenschaft("h", $string)   $pik = KartenEigenschaft("s", $string)   If $karo >= 5 Then      If KartenEigenschaft("Ad", $string) <> 0 Then         $return = "Ace"      ElseIf KartenEigenschaft("Kd", $string) <> 0 Then         $return = "King"      ElseIf KartenEigenschaft("Qd", $string) <> 0 Then         $return = "Queen"      ElseIf KartenEigenschaft("Jd", $string) <> 0 Then         $return = "Jack"      ElseIf KartenEigenschaft("10d", $string) <> 0 Then         $return = "Ten"      ElseIf KartenEigenschaft("9d", $string) <> 0 Then         $return = "Nine"      ElseIf KartenEigenschaft("8d", $string) <> 0 Then         $return = "Eight"      ElseIf KartenEigenschaft("7d", $string) <> 0 Then         $return = "Seven"      ElseIf KartenEigenschaft("6d", $string) <> 0 Then         $return = "Six"      Else         $return = "0"      EndIf   ElseIf $kreuz >= 5 Then      If KartenEigenschaft("Ac", $string) <> 0 Then         $return = "Ace"      ElseIf KartenEigenschaft("Kc", $string) <> 0 Then         $return = "King"      ElseIf KartenEigenschaft("Qc", $string) <> 0 Then         $return = "Queen"      ElseIf KartenEigenschaft("Jc", $string) <> 0 Then         $return = "Jack"      ElseIf KartenEigenschaft("10c", $string) <> 0 Then         $return = "Ten"      ElseIf KartenEigenschaft("9c", $string) <> 0 Then         $return = "Nine"      ElseIf KartenEigenschaft("8c", $string) <> 0 Then         $return = "Eight"      ElseIf KartenEigenschaft("7c", $string) <> 0 Then         $return = "Seven"      ElseIf KartenEigenschaft("6c", $string) <> 0 Then         $return = "Six"      Else         $return = "0"      EndIf   ElseIf $herz >= 5 Then      If KartenEigenschaft("Ah", $string) <> 0 Then         $return = "Ace"      ElseIf KartenEigenschaft("Kh", $string) <> 0 Then         $return = "King"      ElseIf KartenEigenschaft("Qh", $string) <> 0 Then         $return = "Queen"      ElseIf KartenEigenschaft("Jh", $string) <> 0 Then         $return = "Jack"      ElseIf KartenEigenschaft("10h", $string) <> 0 Then         $return = "Ten"      ElseIf KartenEigenschaft("9h", $string) <> 0 Then         $return = "Nine"      ElseIf KartenEigenschaft("8h", $string) <> 0 Then         $return = "Eight"      ElseIf KartenEigenschaft("7h", $string) <> 0 Then         $return = "Seven"      ElseIf KartenEigenschaft("6h", $string) <> 0 Then         $return = "Six"      Else         $return = "0"      EndIf   ElseIf $pik >= 5 Then      If KartenEigenschaft("As", $string) <> 0 Then         $return = "Ace"      ElseIf KartenEigenschaft("Ks", $string) <> 0 Then         $return = "King"      ElseIf KartenEigenschaft("Qs", $string) <> 0 Then         $return = "Queen"      ElseIf KartenEigenschaft("Js", $string) <> 0 Then         $return = "Jack"      ElseIf KartenEigenschaft("10s", $string) <> 0 Then         $return = "Ten"      ElseIf KartenEigenschaft("9s", $string) <> 0 Then         $return = "Nine"      ElseIf KartenEigenschaft("8s", $string) <> 0 Then         $return = "Eight"      ElseIf KartenEigenschaft("7s", $string) <> 0 Then         $return = "Seven"      ElseIf KartenEigenschaft("6s", $string) <> 0 Then         $return = "Six"      Else         $return = "0"      EndIf   Else      $return = "0"   EndIf   _DebugLog("IstFlush('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstFlushFunc IstTwoPairs($string)   If KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("A", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("K", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("Q", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("J", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("10", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("9", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("8", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("7", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("6", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("5", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("4", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("3", $string) = 2 And KartenEigenschaft("2", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("A", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("K", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("Q", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("J", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("10", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("9", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("8", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("7", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("6", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("5", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("4", $string) = 2 Then      $return = 1   ElseIf KartenEigenschaft("2", $string) = 2 And KartenEigenschaft("3", $string) = 2 Then      $return = 1   Else      $return = "0"   EndIf   _DebugLog("IstTwoPairs('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstTwoPairsFunc IstPaar($string)   If KartenEigenschaft("A", $string) = 2 Then      $return = "Aces"   ElseIf KartenEigenschaft("K", $string) = 2 Then      $return = "Kings"   ElseIf KartenEigenschaft("Q", $string) = 2 Then      $return = "Queens"   ElseIf KartenEigenschaft("J", $string) = 2 Then      $return = "Jacks"   ElseIf KartenEigenschaft("10", $string) = 2 Then      $return = "Tens"   ElseIf KartenEigenschaft("9", $string) = 2 Then      $return = "Nines"   ElseIf KartenEigenschaft("8", $string) = 2 Then      $return = "Eights"   ElseIf KartenEigenschaft("7", $string) = 2 Then      $return = "Sevens"   ElseIf KartenEigenschaft("6", $string) = 2 Then      $return = "Sixes"   ElseIf KartenEigenschaft("5", $string) = 2 Then      $return = "Fives"   ElseIf KartenEigenschaft("4", $string) = 2 Then      $return = "Fours"   ElseIf KartenEigenschaft("3", $string) = 2 Then      $return = "Threes"   ElseIf KartenEigenschaft("2", $string) = 2 Then      $return = "Twos"   Else      $return = "0"   EndIf   _DebugLog("IstPaar('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstPaarFunc IstDrilling($string)   If KartenEigenschaft("A", $string) = 3 Then      $return = "Aces"   ElseIf KartenEigenschaft("K", $string) = 3 Then      $return = "Kings"   ElseIf KartenEigenschaft("Q", $string) = 3 Then      $return = "Queens"   ElseIf KartenEigenschaft("J", $string) = 3 Then      $return = "Jacks"   ElseIf KartenEigenschaft("10", $string) = 3 Then      $return = "Tens"   ElseIf KartenEigenschaft("9", $string) = 3 Then      $return = "Nines"   ElseIf KartenEigenschaft("8", $string) = 3 Then      $return = "Eights"   ElseIf KartenEigenschaft("7", $string) = 3 Then      $return = "Sevens"   ElseIf KartenEigenschaft("6", $string) = 3 Then      $return = "Sixes"   ElseIf KartenEigenschaft("5", $string) = 3 Then      $return = "Fives"   ElseIf KartenEigenschaft("4", $string) = 3 Then      $return = "Fours"   ElseIf KartenEigenschaft("3", $string) = 3 Then      $return = "Threes"   ElseIf KartenEigenschaft("2", $string) = 3 Then      $return = "Twos"   Else      $return = "0"   EndIf   _DebugLog("IstDrilling('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstDrillingFunc IstFullHouse($string)   If IstPaar($string) Then      If KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Aces full of Kings"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Aces full of Queens"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Aces full of Jacks"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Aces full of Tens"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Aces full of Nines"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Aces full of Eigths"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Aces full of Sevens"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Aces full of Sixes"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Aces full of Fives"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Aces full of Fours"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Aces full of Threes"      ElseIf KartenEigenschaft("A", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Aces full of Twos"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Kings full of Aces"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Kings full of Queens"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Kings full of Jacks"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Kings full of Tens"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Kings full of Nines"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Kings full of Eigths"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Kings full of Sevens"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Kings full of Sixes"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Kings full of Fives"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Kings full of Fours"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Kings full of Threes"      ElseIf KartenEigenschaft("K", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Kings full of Twos"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Queens full of Aces"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Queens full of Kings"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Queens full of Jacks"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Queens full of Tens"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Queens full of Nines"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Queens full of Eigths"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Queens full of Sevens"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Queens full of Sixes"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Queens full of Fives"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Queens full of Fours"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Queens full of Threes"      ElseIf KartenEigenschaft("Q", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Queens full of Twos"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Jacks full of Aces"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Jacks full of Kings"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Jacks full of Queens"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Jacks full of Tens"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Jacks full of Nines"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Jacks full of Eigths"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Jacks full of Sevens"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Jacks full of Sixes"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Jacks full of Fives"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Jacks full of Fours"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Jacks full of Threes"      ElseIf KartenEigenschaft("J", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Jacks full of Twos"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Tens full of Aces"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Tens full of Kings"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Tens full of Queens"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Tens full of Jacks"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Tens full of Nines"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Tens full of Eigths"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Tens full of Sevens"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Tens full of Sixes"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Tens full of Fives"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Tens full of Fours"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Tens full of Threes"      ElseIf KartenEigenschaft("10", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Tens full of Twos"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Nines full of Aces"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Nines full of Kings"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Nines full of Queens"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Nines full of Jacks"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Nines full of Tens"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Nines full of Eigths"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Nines full of Sevens"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Nines full of Sixes"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Nines full of Fives"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Nines full of Fours"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Nines full of Threes"      ElseIf KartenEigenschaft("9", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Nines full of Twos"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Eigths full of Aces"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Eigths full of Kings"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Eigths full of Queens"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Eigths full of Jacks"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Eigths full of Tens"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Eigths full of Nines"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Eigths full of Sevens"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Eigths full of Sixes"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Eigths full of Fives"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Eigths full of Fours"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Eigths full of Threes"      ElseIf KartenEigenschaft("8", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Eigths full of Twos"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Sevens full of Aces"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Sevens full of Kings"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Sevens full of Queens"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Sevens full of Jacks"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Sevens full of Tens"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Sevens full of Nines"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Sevens full of Eigths"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Sevens full of Sixes"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Sevens full of Fives"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Sevens full of Fours"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Sevens full of Threes"      ElseIf KartenEigenschaft("7", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Sevens full of Twos"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Sixes full of Aces"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Sixes full of Kings"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Sixes full of Queens"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Sixes full of Jacks"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Sixes full of Tens"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Sixes full of Nines"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Sixes full of Eigths"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Sixes full of Sevens"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Sixes full of Fives"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Sixes full of Fours"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Sixes full of Threes"      ElseIf KartenEigenschaft("6", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Sixes full of Twos"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Fives full of Aces"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Fives full of Kings"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Fives full of Queens"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Fives full of Jacks"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Fives full of Tens"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Fives full of Nines"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Fives full of Eigths"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Fives full of Sevens"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Fives full of Sixes"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Fives full of Fours"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Fives full of Threes"      ElseIf KartenEigenschaft("5", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Fives full of Twos"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Fours full of Aces"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Fours full of Kings"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Fours full of Queens"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Fours full of Jacks"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Fours full of Tens"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Fours full of Nines"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Fours full of Eigths"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Fours full of Sevens"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Fours full of Sixes"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Fours full of Fives"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Fours full of Threes"      ElseIf KartenEigenschaft("4", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Fours full of Twos"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Threes full of Aces"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Threes full of Kings"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Threes full of Queens"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Threes full of Jacks"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Threes full of Tens"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Threes full of Nines"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Threes full of Eigths"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Threes full of Sevens"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Threes full of Sixes"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Threes full of Fives"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Threes full of Fours"      ElseIf KartenEigenschaft("3", $string) = 3 And KartenEigenschaft("2", $string) = 2 Then         $return = "Threes full of Twos"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("A", $string) = 2 Then         $return = "Twos full of Aces"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("K", $string) = 2 Then         $return = "Twos full of Kings"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("Q", $string) = 2 Then         $return = "Twos full of Queens"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("J", $string) = 2 Then         $return = "Twos full of Jacks"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("10", $string) = 2 Then         $return = "Twos full of Tens"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("9", $string) = 2 Then         $return = "Twos full of Nines"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("8", $string) = 2 Then         $return = "Twos full of Eigths"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("7", $string) = 2 Then         $return = "Twos full of Sevens"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("6", $string) = 2 Then         $return = "Twos full of Sixes"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("5", $string) = 2 Then         $return = "Twos full of Fives"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("4", $string) = 2 Then         $return = "Twos full of Fours"      ElseIf KartenEigenschaft("2", $string) = 3 And KartenEigenschaft("3", $string) = 2 Then         $return = "Twos full of Threes"      Else         $return = "0"      EndIf   Else      $return = "0"   EndIf   _DebugLog("IstFullHouse('" & $string & "') = " & $return)   Return $returnEndFunc   ;==>IstFullHouseFunc _Log($tolog)   If $log = 1 Then      FileWriteLine($logfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "]  " & $tolog)   EndIfEndFunc   ;==>_LogFunc _DebugLog($tolog)   If $debug = 1 Then      FileWriteLine($debugfile, "[" & @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC & "]  " & $tolog)   EndIfEndFunc   ;==>_DebugLogFunc _StringCount($sString, $vDelimeter, $iEntireString = 1)   If Not StringInStr($sString, $vDelimeter) Then      SetError(1)      Return 0   EndIf   Return UBound(StringSplit($sString, $vDelimeter, $iEntireString)) - 2EndFunc   ;==>_StringCount

Thank you for a great forum and what seems to be a great program, Ive allready done my

first script that lets me watch as it logs in to my internetbank with the simple MouseClick and Send -commands :whistle:

Share this post


Link to post
Share on other sites



Are you sure that you copy all text from the post?

And also, the console (at the buttom of SciTe editor) was shown something?


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

Are you sure that you copy all text from the post?

And also, the console (at the buttom of SciTe editor) was shown something?

Yes Ive copied all 1492 lines but the console dont show annything?

Share this post


Link to post
Share on other sites

but the console dont show annything?

Are you asking me? :whistle:

Try this example, are the Gui window shown?

GUICreate("Test", 300, 200)

GUISetState()

While GUIGetMsg() <> -3
    Sleep(10)
WEnd

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

Are you asking me? :whistle:

Try this example, are the Gui window shown?

GUICreate("Test", 300, 200)

GUISetState()

While GUIGetMsg() <> -3
    Sleep(10)
WEnd
Im not to good at this it seems. If I paste your code in a "New" sheet I cant get annything to happend. And if try saving the code

it wont become a .au3 file even.

Share this post


Link to post
Share on other sites

This was a problem I first noticed when I started using AutoIT a few weeks back. If you start a new project and paste code in, until you save it you can't run it. And it you save and don't type in filename.AU3 and just type filename then it also doesn't work as SciTe doesn't automatically put a file extension on it.

Share this post


Link to post
Share on other sites

Saving a file in SciTe - If you want the file to run, you must save it as a .au3. Otherwise it won't run.

And no, you can't change the settings in SciTe to do this automatically. It would involve some major coding, and I know it will be refused to be done if you ask. (Others have asked already, and it was refused due to the editor is used to code in other languages)

If you take a look at this thread, you will find a tool that can be helpful to you. I will be putting this tool into the new Scite Toolbar. The ETA on the Toolbar 2.0 toolbar will not be until early MAy due to personal scheduling issues.

http://www.autoitscript.com/forum/index.ph...060&hl=temp

Share this post


Link to post
Share on other sites

Saving a file in SciTe - If you want the file to run, you must save it as a .au3. Otherwise it won't run.

And no, you can't change the settings in SciTe to do this automatically. It would involve some major coding, and I know it will be refused to be done if you ask. (Others have asked already, and it was refused due to the editor is used to code in other languages)

If you take a look at this thread, you will find a tool that can be helpful to you. I will be putting this tool into the new Scite Toolbar. The ETA on the Toolbar 2.0 toolbar will not be until early MAy due to personal scheduling issues.

http://www.autoitscript.com/forum/index.ph...060&hl=temp

Cool down man you allmost sound upset? I haven't requested some new feature in SciTE. I have no problem typing

the extra .au3, I just didn't know I had to do it.

Jeeese

Share this post


Link to post
Share on other sites

Well saving the file to .au3 made it work, so thank you.

Mod can lock or delete, I got the answer.

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