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

[Roland]

[ QUOTE ]
; Based on an original script by "illunious" at 2+2, posted 8/18/2004.

[/ QUOTE ]

I was wondering what was up with this. [img]/images/graemlins/smile.gif[/img] Guess I know now.

I'm a bit confused though - that script is for mouseless poker, correct? The code above, otoh, assumes you're using a mouse (how else are you gonna scroll?).
What are you trying to do?

[pfkaok]

[ QUOTE ]

I quite like it. Better than pfkaok for instance. (No offence pfkoak).

[/ QUOTE ]

No, none taken... i'm aware that my screenname is quite lame.

thanks again for the help. i'm excited to try out the new code. sounds like it should be much more convenient.

[photojake]

I was planning on getting a Belkin Nostromo n50 or n52 ( http://www.amazon.com/gp/product/B00...e&n=172282 ) . They both have a scroll wheel on it. I could also map it to a button like the "+" or "-" button on my ten key. Please, if you could help me you would be a AHK God. Thanks.

Jacob

[bort411]

All,

I'm sure this is very simple, but I can't figure it out. How would I get this most recent scroll wheel script to move in increments of double the big blind, rather than half?

Thanks in advance.

Edit: Disregard. I am super leet and figured it out.

[photojake]

Roland, any help on my earlier question. Please. Thanks.

Jacob

[Roland]

Photojake,

I don't know what the problem is. The illunious script uses the window under the mouse, and so does mine. Could you post some code?

[photojake]

Sure, I will post my code when I get home. It is basically the code from the www.onlinepokerfaq.com website on mouseless poker, but modified by some if statements to determine what poker site you are on. Here is the code from onlinepokerfaq.com

; Fold
1::
;MouseClick, left, 240, 474
;Sleep, 100
MouseClick, left, 240, 474
Sleep, 100
return

; Check/Call
2::
;MouseClick, left, 385, 474
;Sleep, 100
MouseClick, left, 385, 474
Sleep, 100
return

; Bet/Raise
3::
;MouseClick, left, 550, 474
;Sleep, 100
MouseClick, left, 550, 474
Sleep, 100
return

; AutoPost
4::
MouseClick, left, 14, 533
Sleep, 100
return

; SitOut
5::
MouseClick, left, 14, 568
Sleep, 100
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Define keys for relative motion to the right, to the left, etc.
; For example, "Numpad6" goes one window to the right.
; This depends on where the mouse starts.

; WindowLeft
Numpad4::
CoordMode, Mouse, Relative
MouseMove,-400,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowDown
Numpad2::
CoordMode, Mouse, Relative
MouseMove,400,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowRight
Numpad6::
CoordMode, Mouse, Relative
MouseMove,1200,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowUp
Numpad8::
CoordMode, Mouse, Relative
MouseMove,400,-300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Define keys for absolute mouse motion to a particular window.
; For example, "Numpad7" always goes to the upper-left window.
; This does not depend on where the mouse starts.

; WindowNW
Numpad7::
CoordMode, Mouse, Screen
MouseMove,400,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowNE
Numpad9::
CoordMode, Mouse, Screen
MouseMove,1200,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowSW
Numpad1::
CoordMode, Mouse, Screen
MouseMove,400,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowSE
Numpad3::
CoordMode, Mouse, Screen
MouseMove,1200,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return


Thanks for your help. I really don't even know where to put your code into this code. I tried putting after the SitOut command. Is this not the right location? Please help

Jacob

[Roland]

Okay, I added Paradise support so I'll post the code again. Just stick it onto the end of your code and you should be fine.

~WheelUp::
MouseGetPos,,,id
SetText(id,"up")
return

~WheelDown::
MouseGetPos,,,id
SetText(id,"down")
return

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
WinGetClass, class, ahk_id%win%

If title not contains good luck,logged in as,(connected from
return
If class not in #32770,Afx:400000:28:10011:0:1982047d,FTC_TableVie wFull
return

If (InStr(title, "Logged In as") AND class <> "FTC_TableViewFull")
{
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
}
edit_num = 6
}
else If (class = "FTC_TableViewFull")
{
ControlGet, is_vis, Visible,, Edit1, ahk_id%win%
If is_vis <> 1
return
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}

else If (InStr(title, "Good Luck") <> 0 AND class = "#32770")
{
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, "-","", 0) + 2, InStr(title, ".") - InStr(title,"-", "", 0) - 4 ;___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%
IfNotInString, text, Blinds-Antes
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
else
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, "-","",InStr(text, "/")) - InStr(text, "/") - 1
}
edit_num = 2
}
else If (InStr(title, "(connected from") <> 0 AND class = "#32770")
{
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0)
{
IfNotInString, title, Play money
{
StringMid, bb, title, 2, InStr(title, a_space) - 2
bb := bb/100
}
else
StringMid, bb, title,InStr(title, "/") + 1, InStr(title, a_space, "",InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}
else If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0)
{
ControlGetText, t, Static34, ahk_id%win%
StringMid, bb, t, InStr(t, "/") + 1, InStr(t, ")") - InStr(t, "/") - 1
edit_num = 1
}
else
return
}




StringReplace,bb,bb,$,,1
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
}

If bb = .25
sb := .10
else if bb = 15
sb = 10
else if bb = 0.05
sb = 0.02
else
sb := bb/2

ControlGetText, t, Edit%edit_num%, %title% ;___retrieve the text from the edir next to the slider
If t is space
t = %bb%

If dir = up
t := t + sb/2
else
t := t - sb/2
If t >= 0
ControlSetText, Edit%edit_num%, %t%, %title%
}

[pfkaok]

The 1/2 SB increments works now, but the 1/2 pot and pot sized bets don't seem to be working. for me it does + 1/2 SB for up and left, and - 1/2 SB for down and right. is there an option or config that i need to change for it to work properly?

[photojake]

Roland, thanks a lot. It is working pretty good. Thanks for all the help and coding. If anyone is interested in a very simple multi-table AHK code that works with Party, Stars, Paradise, and FullTilt, let me know. It works for Limit and NL (thanks to Rolands code). It is not perfect, but it is workable. If you multi table on different poker sites at the same time (i.e. two party tables and two Full tilt tables) then this will let you play on all of them. Please post if there is any interested. Thanks.

Jacob