View Single Post
  #124  
Old 05-02-2007, 04:18 AM
wickss wickss is offline
Senior Member
 
Join Date: Mar 2005
Location: Pwning PLO on UB
Posts: 351
Default Re: My Pokerewards AHK script

F1 - Cascade windows, but doesn't seem to work
F2 - Closes Tournament Lobbies
Middle button on mouse or "*" on keypad - All in
Right button on mouse or "F4" - Sets bet amount to 2.5xBB

[ QUOTE ]

#NoEnv
#Persistent
#SingleInstance force
#Include %a_scriptDir%
#Include Functions.ahk

interval = 100 ; period between refreshes

Loop
{
AutoRegister()
NoMsgBox()
Sleep %interval%
}

F1:: ;__Cascades tables
PostStarsClick(450, 60, ExFromList(tablesStars()))
SendPlay c
return

F2:: ;__Closes tournament lobbies
CloseTournamentLobby()
return

~MButton:: ;__Pushes all-in
NumpadMult::
MouseGetPos,,, curWin
ControlSetText, Edit7, 999999, ahk_id%curWin%
return

~RButton::
F4::
WinGet,id,,A
WinGetTitle, title, ahk_id%id%

IfInString, title, No Limit Hold'em
{
Slash := Instr(title, "/") + 2
Space := Instr(title, " ", false, Slash)
BBLength := Space - Slash
StringMid, Bigblind, title, Slash, BBLength
Transform, RaiseAmount, Round, Bigblind * 2.5

MouseGetPos,,, curWin
ControlSetText, Edit7, %RaiseAmount%, ahk_id%curWin%
}
return


Autoregister()
{SetTitleMatchMode 2
IfWinExist, Tournament Registration
{
WinActivateControl, Check
ControlClick, OK
Sendraw keys {Space}
}
}
CloseTournamentLobby()
{
Loop {
SetTitleMatchMode 2
IfWinExist, Lobby,, PokerStars Lobby
WinClose
else
break
}
}

NoMsgBox()
{
IfWinExist, PokerStars, OK
WinClose
IfWinExist, PokerStars, Internal
Sleep 500
WinClose, PokerStars, Internal

IfWinExist, PokerStars, Check
{
ControlClick, Check
Sendraw keys {Space}
}

return
}


[/ QUOTE ]
Reply With Quote