A pretty short AHK script I made - Fastest NL script i've tried

[DCWGaming]

Most people seem to have been remapping keyboard keys to navigate windows and play...this creates a problem any time you want to browse/chat/AIM/etc etc. So I just modified my mouse and my numpad and i'm moving faster than ever...

Overview:
Fold - Right Click
Checkfold - Xbutton2 (5th mouse key...i never really use it)
Fold to any - Arrow key right
Check/call - Xbuton1 (4th mouse key...preflop call)
Bet/raise - Numpad Enter - After typing in the bet amount on the numpad, just hit enter and it makes the bet for you.
Autopost - Arrow key down
Sit out - Numpad +

If anybody notices any tweaks or anything you could do to improve it, feel free to pitch in.


; Fold to any
~Right::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 505
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Fold
RButton::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 240, 470
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Check/Fold
~XButton2::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 240, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Check/Call
XButton1::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 385, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Bet/Raise
~NumpadEnter::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 550, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; AutoPost
~Down::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 533
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; SitOut
~NumpadAdd::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 568
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

I just move my mouse around right clicking and folding all of those hands, its ridiculously fast...I usually go into system manager thing and set AHK on high priority so it doesnt lag, because sometimes it will bug and the mouse will get stuck for a second.

[DCWGaming]

A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot. If anybody would know how to do this...or even to get the pot size of the hand in the current window (i have no idea) throw some advice this way.

[smoore]

that is a GREAT idea.

[TheIrishThug]

[ QUOTE ]
A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot.

[/ QUOTE ]

That's probly the best idea i've heard for automating nl betting. I HATE reaching for the keyboard.

[Roland]

[ QUOTE ]
A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot. If anybody would know how to do this...or even to get the pot size of the hand in the current window (i have no idea) throw some advice this way.


[/ QUOTE ]

Here's some mouse-wheel code... see the TableNavigator code on how to grab the pot size.
Just don't test this on 50/100 play money (those tables have no info in their title for some reason...).

SetTitleMatchMode 2
casino_name = PartyPlayMoney ;___change this to "Party" for real money

If (casino_name = "Party")
game_id = $
else if (casino_name = "PartyPlayMoney")
game_id = - ;___play money tables have no $-sign obviously, so we use this instead
return

#IfWinActive Good Luck
WheelUp::
WinGetTitle, title, A
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0) ;___if "NL" is in the title but "Buy-in" isn't...
StringMid, bb, title, InStr(title, game_id ,false, 0) + 1, InStr(title, ".") - InStr(title, game_id, false, 0) - 3 ;___retrieve the big blind
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0) ;___else this is a tourney
{
ControlGetText, text, Static5, %title%
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
}
If bb is space ;___this is for .25/.50 or .50/1 tables; "space" means whitespace (spaces, tabs, linefeeds..)
{
IfInString, title, 50.
bb = .50
else
bb = .25
}
ControlGetText, t, Edit2, %title% ;___retrieve the text from the edir next to the slider
t := t + bb
ControlSetText, Edit2, %t%, %title%
return

WheelDown::
WinGetTitle, title, A
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0)
StringMid, bb, title, InStr(title, game_id, false, 0) + 1, InStr(title, ".") - InStr(title, game_id, false, 0) - 3
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0)
{
ControlGetText, text, Static5, %title%
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1
}
If bb is space
{
IfInString, title, 50.
bb = .50
else
bb = .25
}
ControlGetText, t, Edit2, %title%
t := t - bb ;___(now we decrease it)
;___no point in making it negative; however it can still get smaller than the smallest allowed bet; I might be able to fix that at a later point...
If t >= 0
ControlSetText, Edit2, %t%, %title%
return

[TheIrishThug]

Any thought on how to get this to work for Stars or Absolute?
I attempted to convert it, but WindowSpy doesn't show any controls.

[Roland]

[ QUOTE ]
Any thought on how to get this to work for Stars or Absolute?
I attempted to convert it, but WindowSpy doesn't show any controls.

[/ QUOTE ]

This should work for Stars (both play money and real money); I haven't tested every limit/tourney type though.

SetTitleMatchMode 2
return

#IfWinActive Logged In as
WheelUp::
WinGet, id,, A
SetText(id, "up")
return

WheelDown::
WinGet, id,, A
SetText(id, "down")
return

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0) ;___if "NL" is in the title but "Tournament" isn't...
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1 ;___retrieve the big blind
else if (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0) ;___else this is a tourney
{
StringMid, bb, title, InStr(title, "/", "", InStr(title, "Blinds")) + 1
, InStr(title, a_space, "", InStr(title, "Blinds") + 8) - InStr(title, "/", "", InStr(title, "Blinds")) - 1 ;___so we retrieve the big blind instead
}
StringReplace, bb, bb, $,,1
ControlGetText, t, Edit6, %title% ;___retrieve the text from the edir next to the slider
If dir = up
t := t + bb
else
t := t - bb
If t >= 0
ControlSetText, Edit6, %t%, %title%
}

[deviouz]

[ QUOTE ]
[ QUOTE ]
Here's some mouse-wheel code... see the TableNavigator code on how to grab the pot size.
Just don't test this on 50/100 play money (those tables have no info in their title for some reason...).


[/ QUOTE ]

Could you please be kind to post a complete working script for party, I really want the scrolling bet function and I don't understand how to grab the potsize [img]/images/graemlins/confused.gif[/img]

[Roland]

[ QUOTE ]
Could you please be kind to post a complete working script for party, I really want the scrolling bet function and I don't understand how to grab the potsize


[/ QUOTE ]

You don't need the pot size stuff for the mouse wheel stuff [img]/images/graemlins/wink.gif[/img]

The script above (the first one) is a working script for Party. Please try it (on play money first). Note that the target table has to be active.

As for a really complete script with pot size and all... I guess we can add this to TableNavigator....

[pfkaok]

[ QUOTE ]
As for a really complete script with pot size and all... I guess we can add this to TableNavigator....

[/ QUOTE ]

is there an easy way to use this all with a joypad analog stick instead of the mouse scroll thing for betsize? so that it can be used with TN, and you can play NL without having to use the mouse or keyboard?