Pokerbot script
Hej!
Behöver hjälp med att fixa mitt script till pokerboten, det som inte fungerar är att den foldar när den kan checka! vad ska jag ändra så de blir rätt?
; Play Party Poker
; Pre-initialization : Set Name of Table
Global $tablename = "Play money 4071811"
Global $inspector = "Connected to """ & $tablename
; Initialize Buttons
; These are the button names you might have to change these for different poker clients
$FoldButton = "AfxWnd42u17";
$CheckButton = "AfxWnd42u25";
$CallButton = "AfxWnd42u25";
$BetButton = "AfxWnd42u19";
$RaiseButton = "AfxWnd42u19";
; Set Coordinate mode to relative to window client area
AutoItSetOption ( "PixelCoordMode", 2 )
; Wait for the window of table to become active
WinWaitActive($tablename)
; Main Loop
While WinExists($tablename)
Sleep(300);
$FoldVisible = ControlCommand($tablename, "", $FoldButton, "IsVisible", "");
$RaiseVisible = ControlCommand($tablename, "", $RaiseButton, "IsVisible", "");
if $FoldVisible = 1 then
Sleep(Random(1500, 2500))
$action = GetAction();
if $action = 1 then
; Fold/Check
; if we can check for free, then do that instead of folding
if StringInStr(ControlGetText($tablename, "", $CheckButton), "Check") = 1 then
ControlClick($tablename, "", $CheckButton);
else
ControlClick($tablename, "", $FoldButton);
endif
elseif $action = 2 then
; Check/Call
ControlClick($tablename, "", $CallButton);
elseif $action = 3 then
; Call/Bet
; if we can call then call otherwise bet
if StringInStr(ControlGetText($tablename, "", $CallButton), "Call") = 1 then
ControlClick($tablename, "", $CallButton);
else
ControlClick($tablename, "", $BetButton);
endif
elseif $action = 4 then
; Bet/Raise or Call
if $RaiseVisible = 1 then ; Cannot raise if its capped already -- so just call in that case
ControlClick($tablename, "", $RaiseButton);
else
ControlClick($tablename, "", $CallButton);
endif
endif
endif
WEnd
; Poker Inspector Actions
Func GetAction()
WinActivate ($inspector);
; Make sure we at least have hold cards - if not then do nothing for now
if GotHoleCards() = 0 then
return 0;
endif
;yellow
$color = PixelGetColor (335, 45);
if $color = 16776960 then
WinActivate($tablename);
return 2;
endif
; blue
$color = PixelGetColor (335, 56);
if $color = 65535 then
; sometimes bet or just call 50% of the time
WinActivate($tablename);
return 3;
endif
; green
$color = PixelGetColor (335, 66);
if $color = 65280 then
; If we've got the nuts or close to then sometimes just check 20% of the time
; otherwise raise or reraise
WinActivate($tablename);
return 4;
endif
; red - fold
WinActivate($tablename);
return 1;
EndFunc
; Returns yes=1, no=0
Func GotHoleCards()
$hole1 = PixelGetColor(9,35)
$hole2 = PixelGetColor(50,35)
if ($hole1 = 16777215) and ($hole2 = 16777215) then
return 1
endif
return 0
EndFunc
