simple script for stars: help please
i need to fix a pretty simple script for stars.
when i right click a sngs, its suposed to enter 2.5x the bb in the raise box. and it stopped working.
will ship $5 if you can fix it. just the right click, everythin gelse stil works
====================================
;
; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: A.N.Other <myemail@nowhere.com>
;
; Script Function:
; Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
#NoEnv
#Persistent
#SingleInstance force
#Include %a_scriptDir%
#Include Functions.ahk
interval = 100 ; period between refreshes
Loop
{
AutoRegister()
NoMsgBox()
Sleep %interval%
}
F1::tile()
return
tile()
{SetTitleMatchMode, 1
WinWait, PokerStars Lobby
WinActivate, PokerStars Lobby
WinWaitActive, PokerStars Lobby
WinMenuSelectItem, PokerStars Lobby,,View,Tile
}
F2:: ;__Closes tournament lobbies
CloseTournamentLobby()
return
F3:: ;__Pushes all-in
NumpadMult::
MouseGetPos,,, curWin
ControlSetText, PokerStarsSliderEditorClass1, 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, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id%curWin%
}
return
Autoregister()
{SetTitleMatchMode 2
IfWinExist, Tournament Registration
{
WinActivate
Control, 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
}
|