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

[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%
}