View Single Post
  #2  
Old 12-04-2006, 11:18 AM
K䲰䮥n K䲰䮥n is offline
Senior Member
 
Join Date: May 2006
Posts: 3,616
Default Re: Fix for party auto timebank script?

I got it! This works now.



#Persistent
#SingleInstance Ignore
#NoEnv

checkfield = AfxWnd42u37 ; AfxWnd42u37 is timebank control
LobbyWindowTitle = Poker Lobby ; identify poker lobby substring
TableWindowTitle = Buy-in. ; identify pokertable substring
interval = 1000 ; period between refreshes

Loop
{
TableIDList(LobbyId())
Sleep %interval%
}

LobbyId()
{
local rid
SetTitleMatchMode 2
WinGet, rid, ID, %LobbyWindowTitle%
return rid
}

TableIDList(lobbyID)
{
local pid,rlist,this_id,name,result
SetTitleMatchMode 2
WinGet, pid, PID, ahk_id%lobbyID%
WinGet, rlist, LIST, %TableWindowTitle% ahk_pid%pid%
Loop %rlist%
{
this_id := rlist%a_index%
If this_id != %lobbyID%
{
WinGetTitle, name, ahk_id%this_id%
ControlGet, result, Visible, , %checkfield%, ahk_id%this_id%
if (result)
{
ControlClick %checkfield%, ahk_id%this_id% ;Click timebank
}
}
}
return
}
Reply With Quote