<font class="small">Code:</font><hr /><pre> #NoEnv
#SingleInstance force
SendMode Input
SetWorkingDir %a_scriptDir%
SetBatchLines -1
; BetPot:
mbeess@gmail.com
; Reload + fixes:
TCEgor@gmail.com
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~
~MButton::
handlebetting(1/1, 1) ; pot, auto bet
return
~XButton1::
handlebetting(3/4, 1) ; pot, auto bet
return
~F6::
handlebetting(1/2, 1) ; pot, auto bet
return
!RButton::
reload()
return
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~
; VERSION 0.3
;#### reload
reload()
{
; rep1 := ","
; rep2 := "."
; bb := getbb(win)
; MsgBox, %bb%
; buyin := bb * amount
; stringreplace, buyin, buyin, %rep2% , %rep1%
; MsgBox, %buyin%
Wingetactivetitle, title
DetectHiddenText, Off
Ifinstring, title, Money
{
SitOut:
ControlClick Button7, %title%
Sleep 100
IfWinNotExist %title%, Click on SIT IN to be dealt in.
{
GoTo, SitOut
}
Cashier:
ControlClick Button10, %title%
Sleep 100
IfWinNotExist %title%, How much of your
{
GoTo, Cashier
}
; ControlClick RichEdit20W2, %title%
; ControlSetText, RichEdit20W2, , %title%
; SendPlay % buyin
; Sleep 100
SitIn:
ControlClick Button12, %title%
Sleep 100
IfWinNotExist %title%, Please wait to be dealt in
{
GoTo, SitIn
}
}
}
;#### handlebetting
handlebetting(size = 1, autobet = 0)
{
amount := fullamount(win) * size + callamount(win)
transform, amount, round, amount, 1
Wingetactivetitle, title
Ifinstring, title, Money
{
bet(win, amount, autobet)
}
}
;#### bet
bet(win, amount, autobet)
{
rep1 := ","
rep2 := "."
Wingetactivetitle, title
stringreplace, amount, amount, %rep2% , %rep1%
WinActivate
ControlClick, RichEdit20W3, %title%
ControlSetText, RichEdit20W3, , %title%
SendPlay % amount
Sleep 100
}
;#### get small blind
getsb(win) {
rep1 := ","
rep2 := "."
Wingetactivetitle, title
StringTrimLeft, title, title, InStr(title, "$", 0, 0)
StringLeft, sb, title, InStr(title, "-") - 1
stringreplace, sb, sb, %rep1% , %rep2%
return sb
}
;#### get big blind
getbb(win)
{
rep1 := ","
rep2 := "."
Wingetactivetitle, title
StringTrimLeft, title, title, InStr(title, "$", 0, 0)
StringLeft, bb, title, InStr(title, a_space) - 1
stringreplace, bb, bb, %rep1% , %rep2%
return bb
}
;#### get pot
getpot(win)
{
rep1 := ","
rep2 := "."
Wingetactivetitle, title
ControlGetText, pot, AfxWnd70u54, %title%
StringTrimLeft, pot, pot, InStr(pot, "$")
stringreplace, pot, pot, %rep1% , %rep2%
return pot
}
;#### get obet
getobet(win)
{
rep1 := ","
rep2 := "."
Wingetactivetitle, title
ControlGetText, obet, AfxWnd70u53, %title%
StringTrimLeft, obet, obet, InStr(obet, "$")
stringreplace, obet, obet, %rep1% , %rep2%
return obet
}
;#### get cost
getcost(win)
{
rep1 := ","
rep2 := "."
Wingetactivetitle, title
ControlGetText, cost, AfxWnd70u58, %title%
if (ErrorLevel)
{
cost := 0
return
}
StringTrimLeft, cost, cost, InStr(cost, "$")
stringreplace, cost, cost, %rep1% , %rep2%
return cost
}
;#### fullamount
fullamount(win)
{
Wingetactivetitle, title
pot := getpot(win)
tocall := callamount(win)
Setformat, float, 0.2
fullamount := pot + tocall
return fullamount
}
;#### callamount
callamount(win)
{
cost := getcost(win)
Setformat, float, 0.2
Wingetactivetitle, title
DetectHiddenText, Off
IfWinNotExist %title%, Cost:
{
callamount:=0
return callamount
}
callamount:=cost
return callamount
}
</pre><hr />
I used this while playing on ongame, worked perfect.
To bet full pot, click mouse3(the mwheel) and for 3/4 pot mouse4 (i have two extra buttons on the left side of my mouse)
If you want to reload make sure you have folded ur hand, otherwise it will hang in a loop. To reload hold alt and press your right mouse button.
PS: I cant remember who created this, but credits go to that guy [img]/images/graemlins/tongue.gif[/img]