I adapted this from my Party script for you. If you don't have
Autohotkey installed you'll need to install that. Save as WindowCounter.ahk and double click to run. I put an example of the kind of 'TableString' you need to enter to get your games recognized - delete the ones you don't want - if you need to add some it can be from anywhere in the title but must be exact. Edit your settings (position etc) in script. Keep it away from buttons even though it's transparent, might not be able to click. Gave it a quick test.
Code:
#Persistent
#SingleInstance, Force
#NoEnv
SetTitleMatchMode 2
TableString = [Turbo, 6-Max],Hold'em [6-Max],[Turbo, 10 Players]
,No Limit Hold'em,8-Game,Omaha Hi/Lo,Razz [Turbo]
;--build your game string with text from titles that isn't in the
;--lobby, the tournament lobby or popup windows - separate by
;--commas and don't use text that has comma's in it.
LobbyString = PokerStars Lobby ;---a string from the lobby's text
;-------------------------------------------------------------------------------
;For Full Tilt example - remove ; from start off lines and delete Pokerstars above
;TableString = (6 max), Sit & Go (Turbo),Guarantee,7-Game
;LobbyString = Full Tilt Poker - Logged In As
;-------------------------------------------------------------------------------
FontColor = Yellow ;---color of display
X_Position := 1000 ;---x position on screen
Y_Position := 500 ;---y position on screen
Font_Size := 100 ;---size of number to display
SetTimer, WindowCount, 2000 ;---2000 is 2 seconds, adjust as desired
Return
WindowCount:
Wincount =
Lobby_pid := WinExist(LobbyString)
Winget, Lobby_pid, PID, %LobbyString%
WinGet, WinList, List, ahk_pid %Lobby_pid%
Loop, %WinList%
{
id := WinList%a_index%
Wingettitle, Title, ahk_id %id%
Loop, Parse, TableString, `,
{
If (Instr(Title, a_loopfield))
{
Wincount++
Break
}
}
}
If (Wincount && ( !PreviousDisplay || Wincount != TablesLastRound))
WindowCount(Wincount)
Else If (PreviousDisplay && !Wincount)
{
Gui, Destroy
PreviousDisplay =
}
TablesLastRound := Wincount
Return
WindowCount(Count)
{
local CustomColor
CustomColor = EEAA99
If (PreviousDisplay)
Gui, Destroy
Gui, +LastFound +AlwaysOnTop -Caption +ToolWindow
Gui, Color, %CustomColor%
Gui, Font, s%Font_Size% c%FontColor%
Gui, Add, Text, c%ColorOpenTables%, %Count%
WinSet, TransColor, %CustomColor% 255
Gui, Show, x%X_Position% y%Y_Position% NoActivate
PreviousDisplay := 1
}
Return
Last edited by HighSteaks; 05-25-2010 at 02:56 AM.
Reason: Added Full Tilt example
