settitlematchmode,2
#Persistent
#SingleInstance force


tables:=25 ;block of tables
scrolls:=4 ;number of blocks to open before returning to the first table in the list
sleeptabletime:=1 ;pause time between tables, sec
sleepblocktime:=70 ;pause time between blocks, sec


joingroup(tables,scrolls,sleeptabletime,sleepblocktime*1000)
return

f1::
pause,toggle
return

f2::
reload
return

joingroup(tables,scrolls,tabletime,blocktime)
{
winget,id,id,PokerStars Lobby - ahk_class #32770
{
joinbutton=PokerStarsButtonClass10
list=PokerStarsListClass1
controlfocus,PokerStarsListClass1,,ahk_id%id%
sleep,-1
controlsend,PokerStarsListClass1,{PgUp 60},ahk_id%id%
loop
{
loop %scrolls%
{
loop %tables%
{
SetControlDelay,-1
controlfocus,%joinbutton%,,ahk_id%id%
sleep,-1
PostLeftClick(50,25,id,0,joinbutton)
controlfocus,PokerStarsListClass1,,ahk_id%id%
sleep,-1
controlsend,PokerStarsListClass1,{Down},ahk_id%id%
winwait,PokerStars ahk_class #32770,,%tabletime%,PokerStars Lobby -
if !errorlevel
{
winget,ctrls,controllist,
if ctrls=Button1
winclose
Gui, 99:Add, Text,,Table limit riched, script was paused
Gui, 99:+ToolWindow
Gui, 99:Show, w200 h40
Sleep, 2500
Gui, 99:Destroy
pause
}
}
sleep, %blocktime%
}
controlfocus,PokerStarsListClass1,,ahk_id%id%
sleep,-1
controlsend,PokerStarsListClass1,{PgUp 60},ahk_id%id%
}
}
}
return

PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
; window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
WinActivate, ahk_id%table_id%
critical,6
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
critical,off
sleep,-1
}
return