Table Counter AHK for PokerStars
09-17-2013
, 07:04 PM
09-22-2013
, 04:24 PM
09-23-2013
, 12:29 PM
10-03-2013
, 02:51 AM
Quote:
NP, this should do it, lmk if it doesn't:
gl hf
Code:
#SingleInstance, force
#NoTrayIcon
DetectHiddenWindows, On
SetTitleMatchMode, 2 ;1=start 2=contain 3=exact match
;======================================================= CONFIG SECTION =========================================================
SoundBust = C:\Program Files (x86)\PokerStars\snd\bust.wav ;sound if table closes
SoundAchieve = C:\Program Files (x86)\PokerStars\snd\ding.wav ;sound if TotalLimit reached
GuiPos = x5 y5 ;position of GUI on screen
;move the window where you want it to be, then use WindowSpy to grab its coords
LoopInterval = 100 ;counter update interval in msec (1000 = 1sec, default = 100)
Stake1 = $3.50+R ;eg. "$3.50+R"
Stake2 = $8.00 ;eg. "$8.00"
Stake3 = $15.00 ;eg. "$15.00"
Stake4 = Gtd ;eg. "Gtd"
Color1 = 00AAFF ;color for table counter - stake1
Color2 = FF66FF ;color for table counter - stake2
Color3 = 58FAAC ;color for table counter - stake3
Color4 = ffff00 ;color for table counter - stake4
CurrentLimit = 14 ;desired table limit (current)
TotalLimit = 100 ;desired table limit (session)
SoundInterval = 25 ;SoundAchieve replays after "TotalLimit" + N tables
SessionTimeLimit = 6:00 ;desired session time limit (h:mm)
MaxABI = 25 ;maximum desired ABI (session)
LimitColor = 33FF33 ;color of 'SessionTime' and 'TotalTables' counters after reaching their set limits
ClockColorBreak = FF0000 ;clock color indicating sync tourney break (CCCCCC to disable this option)
RebuyMulti = 3 ;stake multiplier for rebuy tourneys (ABI/Stake)
;!!!EDIT LINE 392!!!
;=========================================== CONFIG HOTKEYS AT BOTTOM OF THE SCRIPT =============================================
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;============================================================ GUI ===============================================================
Gui -MaximizeBox -Resize +AlwaysOnTop +ToolWindow -MinimizeBox
Gui, Show, %GuiPos%
Gui, Show, W194 H316, SessionMan 2.1.1
Gui, Color, 000000
;___________________________________________________________ TOTALS _____________________________________________________________
Gui, Font, s22 cCCCCCC, Verdana
Gui, Add, Text, x-8 y1 vTotalTables Center, 00000 / 00000
Gui, Font, s18 c555555, Verdana
Gui, Add, Text, x7 y14 Center, ____________
;___________________________________________________________ STAKE 1 ____________________________________________________________
Gui, Font, s8 c%Color1%, Verdana
Gui, Add, Text, x27 y45 vControl1 Center, 00000000000000000000
Gui, Font, s16 c%Color1%, Verdana
Gui, Add, Text, x20 y57 vStake1 Center, 00000 / 00000
;........................................................... STAKE 2 ............................................................
Gui, Font, s8 c%Color2%, Verdana
Gui, Add, Text, x27 y89 vControl2 Center, 00000000000000000000
Gui, Font, s16 c%Color2%, Verdana
Gui, Add, Text, x20 y101 vStake2 Center, 00000 / 00000
;........................................................... STAKE 3 ............................................................
Gui, Font, s8 c%Color3%, Verdana
Gui, Add, Text, x27 y133 vControl3 Center, 00000000000000000000
Gui, Font, s16 c%Color3%, Verdana
Gui, Add, Text, x20 y145 vStake3 Center, 00000 / 00000
;........................................................... STAKE 4 ............................................................
Gui, Font, s8 c%Color4%, Verdana
Gui, Add, Text, x27 y177 vControl4 Center, 00000000000000000000
Gui, Font, s16 c%Color4%, Verdana
Gui, Add, Text, x20 y189 vStake4 Center, 00000 / 00000
;____________________________________________________________ BUYIN _____________________________________________________________
Gui, Font, s18 c555555, Verdana
Gui, Add, Text, x7 y194 Center, ____________
;Gui, Font, s14 cCCCCCC, Verdana
;Gui, Add, Text, x-6 y272 vDollars Center, $0000.00 / $0000.00
Gui, Font, s14 c999999, Verdana
Gui, Add, Text, x51 y225 vTotalABI Center, $0000.00
;___________________________________________________________ CLOCK/TIME _________________________________________________________
Gui, Font, s18 c555555, Verdana
Gui, Add, Text, x7 y229 Center, ____________
Gui, Font, s20 cCCCCCC, Verdana
Gui, Add, Text, x41 y257 vClock Center, 000:000
Gui, Font, s12 c999999, Verdana
Gui, Font, Bold
Gui, Add, Text, x73 y292 vSessionTime Center, 00:00
;================================================================================================================================
GuiControl,, Control1, %Stake1%
GuiControl,, Control2, %Stake2%
GuiControl,, Control3, %Stake3%
GuiControl,, Control4, %Stake4%
;--------------------------------------------------------------------------------------------------------------------------------
Buyin_Total := 0.00
Buyin_Total_TournamentCounter := 0
H = 0
M1 = 0
M2 = -1
r0 = 0
r1 = 0
r2 = 0
r3 = 0
r4 = 0
t1 = 0
t2 = 0
t3 = 0
t4 = 0
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Loop
{
;------------------------------------------------------------ STAKE 1 -----------------------------------------------------------
v1 := 0
c1 := 0
WinGet, v1, count, %Stake1% ahk_class PokerStarsTableFrameClass
Loop, %v1%
{
c1 += 1
}
if (t1 = 0)
{
GuiControl,, Stake1, 0 / 0
r1 = 0
}
if (t1 < c1)
{
t1 := c1 - 1
}
if (c1 > r1)
{
t1++
GuiControl,, Stake1, %c1% / %t1%
r1 = %c1%
}
else, if (c1 < r1)
{
GuiControl,, Stake1, %c1% / %t1%
r1 = %c1%
}
;----------------------------------------------------------- STAKE 2 ------------------------------------------------------------
v2 := 0
c2 := 0
WinGet, v2, count, %Stake2% ahk_class PokerStarsTableFrameClass
Loop, %v2%
{
c2 += 1
}
if (t2 = 0)
{
GuiControl,, Stake2, 0 / 0
r2 = 0
}
if (t2 < c2)
{
t2 := c2 - 1
}
if (c2 > r2)
{
t2++
GuiControl,, Stake2, %c2% / %t2%
r2 = %c2%
}
else, if (c2 < r2)
{
GuiControl,, Stake2, %c2% / %t2%
r2 = %c2%
}
;----------------------------------------------------------- STAKE 3 ------------------------------------------------------------
v3 := 0
c3 := 0
WinGet, v3, count, %Stake3% ahk_class PokerStarsTableFrameClass
Loop, %v3%
{
c3 += 1
}
if (t3 = 0)
{
GuiControl,, Stake3, 0 / 0
r3 = 0
}
if (t3 < c3)
{
t3 := c3 - 1
}
if (c3 > r3)
{
t3++
GuiControl,, Stake3, %c3% / %t3%
r3 = %c3%
}
else, if (c3 < r3)
{
GuiControl,, Stake3, %c3% / %t3%
r3 = %c3%
}
;----------------------------------------------------------- STAKE 4 ------------------------------------------------------------
v4 := 0
c4 := 0
WinGet, v4,count, %Stake4% ahk_class PokerStarsTableFrameClass
Loop, %v4%
{
c4 += 1
}
if (t4 = 0)
{
GuiControl,, Stake4, 0 / 0
r4 = 0
}
if (t4 < c4)
{
t4 := c4 - 1
}
if (c4 > r4)
{
t4++
GuiControl,, Stake4, %c4% / %t4%
r4 = %c4%
}
else, if (c4 < r4)
{
GuiControl,, Stake4, %c4% / %t4%
r4 = %c4%
}
;----------------------------------------------------------- TOTALS -------------------------------------------------------------
c0 := c1 + c2 + c3 + c4
t0 := t1 + t2 + t3 + t4
GuiControl,, TotalTables, %c0% / %t0%
if (c0 < r0)
{
SoundPlay, %SoundBust%
}
r0 = %c0%
if (c0 < CurrentLimit)
{
Gui, Font, s22 cCCCCCC, Verdana
GuiControl, Font, TotalTables
}
else, if (c0 >= CurrentLimit)
{
Gui, Font, s22 c%LimitColor%, Verdana
GuiControl, Font, TotalTables
}
if (t0 = TotalLimit)
{
SoundPlay, %SoundAchieve%
TotalLimit := t0 + SoundInterval
}
;----------------------------------------------------------- BUYIN --------------------------------------------------------------
Buyin_Dollars:=0.00
Buyin_Dollars_TournamentCounter:=0
Buyin_Euro:=0.00
Buyin_Euro_TournamentCounter:=0
Buyin_Session:=0.00
Buyin_Session_TournamentCounter:=0
Winget,Ps_Hwnd_list,List,Ahk_Class PokerStarsTableFrameClass
Loop %Ps_Hwnd_List%
{
Hwnd:=Ps_Hwnd_List%A_index%
IF !(Buyin_%hwnd%)
{
WingetTitle,Title,Ahk_id%Hwnd%
IF Instr(Title,"Tournament")
{
IF Buyin_%Hwnd%:=GetBuyin(Title,Buyin_%Hwnd%_Currency)
{
BuyIn_hwnd_list:=BuyIn_hwnd_list ? BuyIn_hwnd_list "," Hwnd : Hwnd
Buyin_Total:=Round(Buyin_Total+Buyin_%Hwnd%,2)
Buyin_Total_TournamentCounter+=1
}
}
}
}
Loop,Parse,Buyin_Hwnd_List,`,,
{
Hwnd:=A_LoopField
IF WinExist("ahk_id" Hwnd)
{
Currency:=Buyin_%hwnd%_Currency
Buyin:=Round(Buyin_%hwnd%,2)
IF (Currency="$")
{
Buyin_Dollars:=Round(Buyin_Dollars+Buyin,2)
Buyin_Dollars_TournamentCounter+=1
}
Else IF (Currency="€")
{
Buyin_Euro:=Round(Buyin_Euro+Buyin,2)
Buyin_Euro_TournamentCounter+=1
}
Buyin_Session:=Round(Buyin_Session+Buyin,2)
Buyin_Session_TournamentCounter+=1
}
Else
{
Temp_list:="," Buyin_Hwnd_List ","
StringReplace,Temp_list,Temp_list,`,Hwnd`,,,
StringTrimLeft,Temp_list,Temp_list,1
StringTrimRight,Buyin_Hwnd_List,Temp_list,1
}
}
IF (BuyIn_Dollars_Save != BuyIn_Dollars) Or (BuyIn_Euro_Save != BuyIn_Euro)
{
BuyIn_Euro_Save:=BuyIn_Euro
BuyIn_Euro_Avg:= Round(BuyIn_Euro/BuyIn_Euro_TournamentCounter,2)
BuyIn_Dollars_Save:=BuyIn_Dollars
BuyIn_Dollars_Avg:=Round(BuyIn_Dollars/BuyIn_Dollars_TournamentCounter,2)
BuyIn_Session_Avg:=Round(BuyIn_Session/BuyIn_Session_TournamentCounter,2)
BuyIn_Total_Avg:=Round(BuyIn_Total/BuyIn_Total_TournamentCounter,2)
;GuiControl,,Dollars,% "$" Buyin_Dollars_Avg " / $" BuyIn_Dollars
GuiControl,,TotalABI,% "$" BuyIn_Total_Avg "" ;/ $" BuyIn_Total
}
GetBuyin(Title,byref currency="",Byref BuyinText="")
{
Static CurrencyList:="$,€"
Haystack:=Substr(Title, Instr(Title,"Sat:")+1) ;This is for satiliets
Loop,Parse,Currencylist,`,
{
IF ((StartPosBuyin := Instr(Haystack,A_loopField)) And (EndPosBuyin := Instr(Haystack,A_space,"",StartPosBuyin)))
{
BuyinText:=Substr(Haystack,StartPosBuyin ,(EndPosBuyin - StartPosBuyin))
Currency=%A_loopField%
Buyin:=BuyinText
StringReplace,Buyin,Buyin,%Currency%,,
IfInString, Buyin, +R
{
StringReplace,Buyin,Buyin,+R,,
RebuyMulti = 3
Buyin := Buyin * RebuyMulti
}
IF Buyin is not number
{
Buyin:=0
currency:=
buyinText:=
}
Break
}
}
Return Buyin
}
;----------------------------------------------------------- CLOCK --------------------------------------------------------------
FormatTime, Time, %A_Now%, H:mm
GuiControl,, Clock, %Time%
StringTrimLeft, TimeOnly, A_Now, 10
StringTrimRight, Minutes, TimeOnly, 2
IfGreaterOrEqual, Minutes, 55
{
Gui, Font, s20 c%ClockColorBreak%
Gui, Font, Bold
GuiControl, Font, Clock
}
else
{
Gui, Font, s20 cCCCCCC
Gui, Font, Bold
GuiControl, Font, Clock
}
;----------------------------------------------------------- TIME ---------------------------------------------------------------
If (Minutes != Var)
{
M2 += 1
GuiControl,, SessionTime, %H%:%M1%%M2%
Var := Minutes
}
If (M2 > 9)
{
M1 += 1
M2 = 0
GuiControl,, SessionTime, %H%:%M1%%M2%
}
If (M1 > 5)
{
H += 1
M1 = 0
M2 = 0
GuiControl,, SessionTime, %H%:%M1%%M2%
}
Limit = %H%:%M1%%M2%
If (Limit = SessionTimeLimit)
{
Gui, Font, s12 c%LimitColor%, Verdana
GuiControl, Font, SessionTime
}
;----------------------------------------------------------- LOOP ---------------------------------------------------------------
Sleep %LoopInterval%
}
return
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: HOTKEYS :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
^F9:: ;counter (SessionTime) reset
{
H = 0
M1 = 0
M2 = 0
Gui, Font, s12 c999999, Verdana
GuiControl, Font, SessionTime
GuiControl,, SessionTime, %H%:%M1%%M2%
}
return
;................................................................................................................................
^F10:: ;counter (SessionTime) + 1
Var = -1
return
;................................................................................................................................
^Q::ExitApp
;................................................................................................................................
GuiClose:
ExitApp
gl hf
I tryed to modify this^^^ my self but I get error after error because I don't have any clue what I modify. Would like to have different abi calculations for 180mans and guaranteed.
---------------
total tables current/total tables session
--------------
$2.50 180-man
current/session
$4.50 180-man
current/session
$8.00 180-man
current/session
$3.50 180-man(rebuy)
current/session
Guaranteed
current/session
------------------
180man ABI
Guaranteed ABI
Total ABI
------------
clock
session time
10-03-2013
, 11:27 AM
10-10-2013
, 11:13 AM
Spoiler:
Need some examples of the exact games/stakes you play (their exact window titles, that is).
10-11-2013
, 07:14 PM
11-01-2013
, 10:28 PM
11-06-2013
, 10:44 AM
Quote:
Originally Posted by gobby888
Hi,
If you could do the following cash games for me, that would be great, thanks.
Palisana CAP - $0.50/$1 - $20 Cap - USD - No Limit Hold'em
Nissen CAP - $1/2 - $40 Cap - USD - No Limit Hold'em
Eleonora II CAP - $2/4 - $80 Cap - USD - No Limit Hold'em
Pilcher II CAP - $3/6 - $120 Cap - USD - No Limit Hold'em
Turais IV CAP - $5/10 - $200 Cap - USD - No Limit Hold'em
5 different stake levels (6 max and 9max aren't defined in the title bar)
Cheers,
gobby
If you could do the following cash games for me, that would be great, thanks.
Palisana CAP - $0.50/$1 - $20 Cap - USD - No Limit Hold'em
Nissen CAP - $1/2 - $40 Cap - USD - No Limit Hold'em
Eleonora II CAP - $2/4 - $80 Cap - USD - No Limit Hold'em
Pilcher II CAP - $3/6 - $120 Cap - USD - No Limit Hold'em
Turais IV CAP - $5/10 - $200 Cap - USD - No Limit Hold'em
5 different stake levels (6 max and 9max aren't defined in the title bar)
Cheers,
gobby
I assume this should do it. Note that you can define stakes as either of the following:
$10/$20 - $400 Cap
$400 Cap
CAP - $10/$20
$10/$20 (will count all $10/$20 tables regardless of entrants/Cap)
$10/$20 USD (will count only regular $10/$20 games, including ZOOM, but regardless of entrants)
€5/€10 EUR (will count only regular €5/€10 games but regardless of entrants)
It is not possible to distinguish between 6max and 9max (nor between regular and ZOOM*) cashgame tables.
* Unless you include the ZOOM table name in the stake definition, that is.
This version comes with hotkeys (F1-F12) to move tables to different slots.
Spoiler:
This one was easy; now working on lowskill's version which will be a bit more complicated.
Last edited by Baobhan-Sith; 11-06-2013 at 11:11 AM.
11-06-2013
, 05:32 PM
OK lowskill, took me a while to find a reliable way to distinguish between regspeed and turbo but finally did it. What a PITA they randomly choose the number of blanks spaces between game type and blinds, ffs. I think it's obvious how I did work around that; should you ever notice games with more than 5 blanks you should be able to figure out what to do.
(VPP counter was off in that pic but is fixed in the code below)
No payment required. I'm glad I could help. HTH HF
(VPP counter was off in that pic but is fixed in the code below)
Spoiler:
No payment required. I'm glad I could help. HTH HF