Ongame AHK Scripts

[herbstl]

Anyone of you using a BetPot Script and Reload chips Script for Ongame - hate their f**** Software - every now and then there is a misclick or a sit out because of the crappy reload function. How do you deal with that ongamers ?

[ubeticall]

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