Sign in to follow this  
Followers 0
Guest chex

poker bot

5 posts in this topic

Hi i have been trying to get this script to work for a while i know there are three errors in it and i think i had them fixed since when i tried to run it. it didn't give me an error anymore but instead it only stayed in the taskbar saying script paused. any help would be apreciated thank you.

; Pre-initialization : Set Name of Table
Global $tablename = "PUT TABLE NAME HERE"
; Initialize Buttons
; These are the button names you might have to change these for different poker clients
$FoldButton = "AfxWnd42s14"
$CheckButton = "AfxWnd42s15"
$CallButton = "AfxWnd42s15"
$BetButton = "AfxWnd42s16"
$RaiseButton = "AfxWnd42s16"
; Set Coordinate mode to relative to window
AutoItSetOption ( "PixelCoordMode", 0 )
; 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
;Sleep(Random(0, 2000));
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
;Sleep(Random(0, 2000));
ControlClick($tablename, "", $RaiseButton);
endif
endif
WEnd
; Poker Inspector Actions
Func GetAction()
WinActivate ("Connected to """ & $tablename);
; red - fold
$color = PixelGetColor (338, 55);
if $color = 255 then
WinActivate($tablename);
return 1;
endif
;yellow
$color = PixelGetColor (338, 67);
if $color = 65535 then
WinActivate($tablename);
return 2;
endif
; blue
$color = PixelGetColor (338, 79);
if $color = 16776960 then
; sometimes bet or just call 50% of the time
WinActivate($tablename);
return 3;
endif
; green
$color = PixelGetColor (338, 88);
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
WinActivate($tablename);
return 1;
EndFunc
; Checks how many empty seats there are
Func OccupiedSeats()
Local $Count = 0
Local $SeatOpenColor = 3246765
;Seat 1
If (PixelGetColor(517, 96) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
;Seat 2
If (PixelGetColor(665, 133) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
;Seat 3
If (PixelGetColor(735, 251) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 4
If (PixelGetColor(660, 378) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 5
If (PixelGetColor(493, 413) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 6
If (PixelGetColor(262, 413) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 7
If (PixelGetColor(108, 378) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 8
If (PixelGetColor(53, 247) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 9
If (PixelGetColor(126, 133) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
; Seat 10
If (PixelGetColor(264, 96) == $SeatOpenColor) Then
$Count = $Count + 1;
EndIf
return $Count;
EndFunc

Share this post


Link to post
Share on other sites



Check the forum help / search, this a pokerbo-pro script. There have been many replies to this.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

tried searching multiple things all i could find was something about poker academy. any help would be appreciated thanks.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

tried searching multiple things all i could find was something about poker academy. any help would be appreciated thanks.

<{POST_SNAPBACK}>

Try this link I found in search, he asked quite a bit on this subject: Poker Bot

Good Luck

Edited by ronsrules

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

Try this link I found in search, he asked quite a bit on this subject:  Poker Bot

Good Luck

<{POST_SNAPBACK}>

Hehe.....why am I not surprised.

:(


Lofting the cyberwinds on teknoleather wings, I am...The Blue Drache

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