----------------------------------------------------------------
; #### StarsAssistant ####

; AHK version: 1.0.46.05
; date: January 05,2008
  version := "0.88"
; author: Chris228 @ 2p2 forums
; thx to _dave_, JBOPoker, Roland, JukofYork & pusteblume

; based on

; #### StarsUrgentTable ####

; AHK version: 1.0.46.03
; date: May 24,2007
; version: 0.75a
; author: _dave_ @ 2p2 forums
; revised by: JBOPoker @ earthlink.net
; thx to Roland & JukofYork for some of the functions


;=====================================================================
;=================== Settings ========================================
;=====================================================================

; Hotkeys see below

; Border of the "Highlighter"
border_colour := "ffff00"
border_size := 8
trans := 255

; Timings for the "Time Bank Clicker" [fast/turbo 8/17; normal 20/35; both 8/35] (10/13 old settings)
timebank_min := 10
timebank_max := 13

; Beep on urgent table
beep := 0

; Position of the mouse in perc of the table window
x_mouse := 0.50
y_mouse := 0.75

; Don't edit below unless you know what you do (except Hotkeys)

; Gui Settings
settings() {
  global
  ini:="StarsAssistant.ini"
  iniRead, AutoOn, %ini%, Prefs, AutoOn, 1
  iniRead, Slider, %ini%, Prefs, Slider, 1 ;brad
  iniRead, Highlight, %ini%, Prefs, Highlight, 1
  iniRead, MoveMouse, %ini%, Prefs, MoveMouse, 1
  iniRead, TimeBankClicker, %ini%, Prefs, TimeBankClicker, 1
  iniRead, AlternateDetection, %ini%, Prefs, AlternateDetection, 0
  iniRead, ActivateUrgent, %ini%, Prefs, ActivateUrgent, 0
  iniRead, KillPopups, %ini%, Prefs, KillPopups, 0
  iniRead, SafeReg, %ini%, Prefs, SafeReg, 1
  iniRead, AutoTakeSeat, %ini%, Prefs, AutoTakeSeat, 0
}

; Intervalls for sub execution
RefreshQueue_timer := 333
RefreshLobby_timer := 1000
PopUpWatcher_timer := 200
TableColor_timer := 500

;=====================================================================
;=================== Autoexec ========================================
;=====================================================================

#NoEnv
#SingleInstance, Force
#Include %a_scriptDir%
SendMode Input

SetTitleMatchMode, 2

SetWorkingDir %a_scriptDir%
OnExit exitSub

settings()
TrayMenu()
BuildGui()

Suspend, On

SysGet, border, 32
SysGet, caption, 4

if ( AutoOn = 1 ) {
  Gosub, ButtonOn
}

return


;=====================================================================
;=================== Hotkeys =========================================
;=====================================================================

^a::
  ToggleCheckbox("MoveMouse")
return

^w::
  ToggleCheckbox("AlternateDetection")
return

^s::
  MaxMinLobby(LobbyID)
return

^d::
  MinMaxStarsAssistant()
return

^z::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

^e::
  CloseTournamentLobby(LobbyID, LobbyPID)
return

MButton::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

;=====================================================================
;=================== Gui =============================================
;=====================================================================

trayMenu() {
  global
  Menu, Tray, Standard
  Menu, Tray, Add, &Show, Show
  Menu, Tray, default, &Show
  Menu, Tray, Add
  Menu, Tray, Add, &About, About
  Menu, Tray, Add, &Help, Help
  Menu, Tray, Add
  Menu, Tray, Add, E&xit, Exit
  Menu, Tray, Tip, StarsAssistant v%version%
}

buildGui() {
  global
  Gui 1:Default
  Gui, +toolwindow +AlwaysOnTop
  Gui, Margin, 5, 5
  Gui, Font,, Verdena
  Gui, Add, Button, vOn section w56 h20 center, &On
  Gui, Add, Button, vOff disabled w56 h20 ys xs+56 center, &Off
  Gui, Add, Checkbox, checked%AutoOn% vAutoOn gSubmit xs+2, &Auto on
  Gui, Add, Text, section x7 0x1000 w110 h2
  Gui, Add, Checkbox, checked%Slider% vSlider gSubmit xs, &Slider ;brad
  Gui, Add, Checkbox, checked%Highlight% vHighlight gSubmit xs, &Highlight table
  Gui, Add, Checkbox, checked%MoveMouse% vMoveMouse gSubmit xs, &Move mouse
  Gui, Add, Checkbox, checked%TimeBankClicker% vTimeBankClicker gSubmit xs, &Click time bank
  Gui, Add, Checkbox, checked%AlternateDetection% vAlternateDetection gSubmit xs, &Detect All-in/Fixed l.
  Gui, Add, Checkbox, checked%ActivateUrgent% vActivateUrgent gSubmit xs, &Activate urgent table
  Gui, Add, Checkbox, checked%KillPopups% vKillPopups gSubmit xs, &Kill popups
  Gui, Add, Checkbox, checked%SafeReg% vSafeReg gSubmit xs, &Safe SNG regist.
  Gui, Add, Checkbox, checked%AutoTakeSeat% vAutoTakeSeat gSubmit xs, &Auto take seat  
  IniRead, x, % ini, Gui, x, center
  IniRead, y, % ini, Gui, y, center
  Gui, Show, x%x% y%y% w124, StarsAssistant
}

Show:
  Gui, 1:Show
return

About:
  Msgbox,, StarsAssistant, StarsAssistant v%version% `nAuthor: Chris228 @ 2+2 formus`nE-Mail: chris228@gmx.de`nSee file for further credits`n`nIf you like my program I would be happy about a donation.`nMy screenname on PokerStars is 'mr.cray'.`nThank you!
return

Help:
  Run % web() "http://overcards.com/wiki/moin.cgi/StarsAssistant"
return

web() { ; by Titan, modified by Roland
  regRead, p, HKCR, HTTP\shell\open\command
  return SubStr(p, 1, InStr(p, ".exe")+4)
}

Exit:
exitApp

GuiClose:
  Gui 1:Cancel 
return

Submit:
  Gui, 1:Submit, NoHide
return

exitSub:
  Gui 1:Default
  Gui, Submit
  Gui +lastfound
  WinGetPos, x, y
  IniWrite, % x, % ini, Gui, x
  IniWrite, % y, % ini, Gui, y
  IniWrite, % AutoOn, % ini, Prefs, AutoOn
  IniWrite, % Slider, % ini, Prefs, Slider ;brad
  IniWrite, % Highlight, % ini, Prefs, Highlight
  IniWrite, % MoveMouse, % ini, Prefs, MoveMouse
  IniWrite, % TimeBankClicker, % ini, Prefs, TimeBankClicker
  IniWrite, % AlternateDetection, % ini, Prefs, AlternateDetection
  IniWrite, % ActivateUrgent, % ini, Prefs, ActivateUrgent
  IniWrite, % KillPopups, % ini, Prefs, KillPopups
  IniWrite, % SafeReg, % ini, Prefs, SafeReg
  IniWrite, % AutoTakeSeat, % ini, Prefs, AutoTakeSeat  
exitApp

MinMaxStarsAssistant() {
  WinGetActiveTitle, title
  If ( title = "StarsAssistant" )
    Gui 1:Cancel 
  else
    Gui, 1:Show
}

ToggleCheckbox(box) {
  Gui 1:Default
  GuiControlGet, state, , %box%
  if ( state = 1 )
    GuiControl, , %box%, 0
  if ( state = 0 )
    GuiControl, , %box%, 1
  Gui, 1:Submit, NoHide
}

;=====================================================================
;=================== Buttons =========================================
;=====================================================================

ButtonOn:
  tablecolor:= ""
  last_table_id := ""
  tablequeue := ""
  most_urgent_table := ""
  GoSub, RefreshLobby
  GoSub, TableColor
  SetTimer, RefreshQueue, %RefreshQueue_timer%
  SetTimer, PopUpWatcher, %PopUpWatcher_timer%
  SetTimer, RefreshLobby, %RefreshLobby_timer%
  Suspend, Off
  GuiControl, 1:Disable, On
  GuiControl, 1:Enable, Off
return
  
ButtonOff:
  SetTimer, RefreshQueue, Off
  SetTimer, PopUpWatcher, Off
  SetTimer, RefreshLobby, Off
  SetTimer, TableColor, Off
  Gui, 2: Cancel
  Gui, 3: Cancel
  Gui, 4: Cancel
  Gui, 5: Cancel
  tablecolor:=""
  Suspend, On
  GuiControl, 1:Disable, Off
  GuiControl, 1:Enable, On
return


;=====================================================================
;=================== Urgent Table Functions ==========================
;=====================================================================

RefreshQueue:
  ids := TableIDListStars(LobbyPID)
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, this_id, A_LoopField, InStr(A_LoopField, "_")
    if (!InStr(ids, this_id))
    {
      StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
    }
  }
  Loop, Parse, ids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v = 1 )
    {  
      if (!InStr(tablequeue, A_LoopField))
      {
        DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
        tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
      }
    }
    else
    {
      if ( AlternateDetection = 1 ) {
        color:=TableColor(A_LoopField)
        if ( color != tablecolor && tablecolor != "" ) {
          if (!InStr(tablequeue, A_LoopField))
          {
            DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
            tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
          }
        }
        else {        
          if (InStr(tablequeue, A_LoopField))
          {
            StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
          }
        } 
      } 
      else {
        if (InStr(tablequeue, A_LoopField))
        {
          StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
        }
      }
    }
  }
  tmp := ""
  Loop, Parse, tablequeue, `,
  {
    if (InStr(A_LoopField, "0x"))
    {
      tmp := tmp . "," . A_LoopField 
    }
  }
  Sort, tmp, N D`,
  tablequeue := CleanList(tmp)
  most_urgent_table := ""
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, most_urgent_table, A_LoopField, InStr(A_LoopField, "_")
    break
  }
  if ( TimeBankClicker = 1 ) {
    tc := A_TickCount
    Loop, Parse, tablequeue, `,
    {
      StringTrimLeft, waiting_time, A_LoopField, InStr(A_LoopField, "-")
      StringTrimRight, waiting_time, waiting_time, ( StrLen(waiting_time) - (InStr(waiting_time, "_")-1) )
      waiting_time := (tc - waiting_time) / 1000
      if (waiting_time > timebank_min && waiting_time < timebank_max)
      {
        StringTrimLeft, waiting_table, A_LoopField, InStr(A_LoopField, "_")
        timebank_x := 560  ; lastmax 565
        timebank_y := 430  ; lastmax 430 +/-10 too much
        relStarsClientPoint(waiting_table, timebank_x, timebank_y)
        PostLeftClick(timebank_x, timebank_y, waiting_table, 0)
      }  

if (waiting_time > timebank_max+5) ;18)
    {

      SoundPlay, timebankclick.wav ;brad
    }
    
    }
  }
  if ( ActivateUrgent = 1 ) {
    WinActivate, ahk_id%most_urgent_table%
    if ( AlternateDetection = 1 ) {
      color:=TableColor(most_urgent_table)
      if ( color != tablecolor ) {
        if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
        makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
      }
    }
    else {
      if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
      makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
    }
  }
  else {
    if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
    makegui(most_urgent_table,Slider,  Highlight, MoveMouse, beep, x_mouse, y_mouse)
  }
return



;makegui(id="", Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {
makegui(id="", Slider =1, Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {   ;brad
  global last_table_id
  global border_colour
  global border_size
  global trans
  global Xcoord ;brad
  global Ycoord ;brad
  global RestoreID ; brad
  global ActiveWindow ;brad
  if (id != last_table_id)
  {
       if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      ;WinRestore , ahk_id %RestoreID% ;brad
      ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
      ;WinMaximize , ahk_id %RestoreID% ;brad
      PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad
      Sleep, 0 ; brad
      WinMove, ahk_id %RestoreID%,, Xcoord, Ycoord,  ; brad
      WinShow, ahk_id %RestoreID% ;brad
      WinActivate, ahk_id %ActiveWindow% ;brad
      RestoreID :=0
DetectHiddenWindows, off ;brad
UGLY:
    last_table_id := id
    
    if(!id) ; if (id=0 or id="") 
    {
      Gui, 2: Cancel
      Gui, 3: Cancel
      Gui, 4: Cancel
      Gui, 5: Cancel
      return
    }
  
    WinGetPos, x, y, w, h, ahk_id%id%
    if (Slider = 1)	;brad
      {			;brad
    	Xcoord :=x ;brad
    	Ycoord :=y ;brad
    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad	
    	;WinMaximize , ahk_id %id% ;brad
    	PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad
    	Sleep, 0 ; brad
    	;WinShow, ahk_id %id% ;brad
	WinGet, ActiveWindow, ID, A ;brad
    	WinActivate, ahk_id %id% ;brad
	DetectHiddenWindows, off ; brad
      }	;brad

    WinGetPos, x, y, w, h, ahk_id%id% 	
    global border
    global caption
    x := x + border
    y := y + border + caption
    w := w - (2*border)
    h := h - (2*border) - caption
    

    ;Makes Border around urgent table
    if ( Highlight = 1 ) {
    ;if ( Highlight = 999 ) { ; brad
      ;top
      guinum := 2
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y% NoActivate  
      
      ;left
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%border_size% h%h% x%x% y%y% NoActivate  
      
      ;bottom
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      y2 := y + h - border_size
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y2% NoActivate  
      
      ;right
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      x2 := x + w - border_size
      Gui, %guinum%: Show, w%border_size% h%h% x%x2% y%y% NoActivate
    
    }
        
    ;Puts mouse pointer nearer the bet buttons
    if ( MoveMouse = 1) {
      x3 := x + (w * x_mouse)
      y3 := y + (h * y_mouse)
      Coordmode, Mouse, Screen
      MouseMove, x3, y3, 0
    }
    
    ;Beeps on urgent table
    if ( beep = 1 )
      SoundBeep, 750, 100
      ;SoundPlay, timebankclick.wav ;brad
  }
}

;removes empty items (and trailing delimiters)
CleanList(list, del="") {
  del := del="" ? "," : del
  Loop {
    StringReplace, list, list, %del%%del%, %del%, UseErrorLevel
    If ! ErrorLevel
     break
   }
  If InStr(list, del) = 1
   StringTrimLeft, list, list, 1
  If InStr(list, del,0,0) = StrLen(list)
   StringTrimRight, list, list, 1
  return list
}


PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
}

relStarsClientPoint(id, ByRef x, ByRef y)
{
  global border
  global caption
  rw := 792
  rh := 546
  WinGetPos, , , w, h, ahk_id%id%
  w := w - (2*border)
  h := h - (2*border) - caption
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
}

TableColor(id) {
  CoordMode, Pixel, Screen
  WinGetPos, x, y, w, h, ahk_id%id%
  rw := 800
  rh := 578
  x := x+475
  y := y+555
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
  PixelGetColor, color, %x%, %y%, RGB
  return color
}

TableColor:
  tableids := TableIDListStars(LobbyPID)
  Loop, Parse, tableids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v != 1 ) {
      WinActivate, ahk_id%a_loopfield%
      sleep, 500
      tablecolor:=TableColor(a_loopfield)
      break
    }      
  }
  if ( tablecolor != "" )
    SetTimer, TableColor, Off
  else
    SetTimer, TableColor, %TableColor_timer%
return


;=====================================================================
;=================== SNG Registration Functions ======================
;=====================================================================

RegSNG(id) {
  if ( SafeReg = 1 ) {
    IfWinActive, ahk_id%id%
      RegSNGexec(id)
  }
  else {
    RegSNGexec(id)
  }
}

RegSNGexec(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass6, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass6, ahk_id%id%
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id
      ControlFocus, Button1, ahk_id%regid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%regid%
      sleep, 10
      ControlFocus, Button2, ahk_id%regid%
      Sleep, -1
      ControlSend, Button2, {SPACE}, ahk_id%regid%  
    }
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id           
      ControlGetText, ctext, Button1, ahk_id%regid%
      if ( cText = "OK" ) {
        ControlFocus, Button1, ahk_id%regid%
        Sleep, -1
        ControlSend, Button1, {SPACE}, ahk_id%regid%
      }        
    }
  }
}


CloseTournamentLobby(id, pid) {
  Loop {
    IfWinExist, Lobby ahk_pid%pid%,, PokerStars Lobby
      WinClose
    else
      break
  }
  Sleep, 100
  WinGet, state, MinMax, ahk_id%id%
  if ( state = 1 || state = 0 )
    WinMinimize, ahk_id%id%
}


;=====================================================================
;=================== Join Cashgame Functions =========================
;=====================================================================


OpenJoinUnJoinTable(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass3, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass3, ahk_id%id%
    WinWait, Waiting List ahk_class #32770, , 10
    {
      WinGet, joinid, id
      ControlFocus, Button1, ahk_id%joinid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%joinid%
    }
  }
  else {
    ControlGet, v, Visible, , PokerStarsButtonClass2, ahk_id%id%
    if ( v = 1 ) {
      ControlClick, PokerStarsButtonClass2, ahk_id%id%
    }
    else {
      ControlGet, v, Visible, , PokerStarsButtonClass8, ahk_id%id%
      if ( v = 1 ) {
        ControlClick, PokerStarsButtonClass8, ahk_id%id%
      } 
    }
  }
}


;=====================================================================
;=================== Popup Functions =================================
;=====================================================================

PopUpWatcher:
  If ( KillPopups = 1 )
    KillPopUps(LobbyPID)
  if ( AutoTakeSeat = 1 )
    TakeSeat(LobbyPID)
return

KillPopUps(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list1, list, PokerStars ahk_class #32770 ahk_pid%pid%, , Lobby
    Loop, %list1%
    {
      This_id := list1%A_Index%
      WinGet, list2, ControlList, ahk_id%this_id%
      if (InStr(list2, "Button2"))  {
        continue
      }
      else {
        Loop, 20
        {
          ControlFocus, Button1, ahk_id%this_id%
          Sleep, -1
          ControlSend, Button1, {SPACE}, ahk_id%this_id%
          Sleep, 100
          IfWinNotExist, ahk_id%this_id%
          {
            break
          }
        }
      }
    }
  }
}

TakeSeat(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list, list, Seat Available ahk_class #32770 ahk_pid%pid%
    Loop, %list%
    {
      This_id := list%A_Index%
      ControlFocus, Button1, ahk_id%this_id%
       Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%this_id%
    }
  }
}


;=====================================================================
;=================== Lobby & Tables Functions ========================
;=====================================================================

RefreshLobby:
  WinGet, LobbyID, id, PokerStars Lobby
  WinGet, LobbyPID, PID, ahk_id%LobbyID%
return

MaxMinLobby(id) {
  WinGetActiveTitle, title
  IfInString, title, PokerStars Lobby
  {
    WinMinimize,ahk_id%id%
  }
  else {
    WinActivate, ahk_id%id%
  }
} 

TableIDListStars(pid)
{
  WinGet, list, list, / ahk_pid%pid%, , Lobby
  Loop %list%
  {
    this_id := list%a_index%
    If (this_id != id)
    {
      ids = %ids%,%this_id%
    }
  }
  StringTrimLeft, ids, ids, 1
  return ids
}

Like this!!!!

; #### StarsAssistant ####

; AHK version: 1.0.46.05
; date: January 05,2008
  version := "0.88"
; author: Chris228 @ 2p2 forums
; thx to _dave_, JBOPoker, Roland, JukofYork & pusteblume

; based on

; #### StarsUrgentTable ####

; AHK version: 1.0.46.03
; date: May 24,2007
; version: 0.75a
; author: _dave_ @ 2p2 forums
; revised by: JBOPoker @ earthlink.net
; thx to Roland & JukofYork for some of the functions


;=====================================================================
;=================== Settings ========================================
;=====================================================================

; Hotkeys see below

; Border of the "Highlighter"
border_colour := "ffff00"
border_size := 8
trans := 255

; Timings for the "Time Bank Clicker" [fast/turbo 8/17; normal 20/35; both 8/35] (10/13 old settings)
timebank_min := 10
timebank_max := 13

; Beep on urgent table
beep := 0

; Position of the mouse in perc of the table window
x_mouse := 0.50
y_mouse := 0.75

; Don't edit below unless you know what you do (except Hotkeys)

; Gui Settings
settings() {
  global
  ini:="StarsAssistant.ini"
  iniRead, AutoOn, %ini%, Prefs, AutoOn, 1
  iniRead, Slider, %ini%, Prefs, Slider, 1 ;brad
  iniRead, Highlight, %ini%, Prefs, Highlight, 1
  iniRead, MoveMouse, %ini%, Prefs, MoveMouse, 1
  iniRead, TimeBankClicker, %ini%, Prefs, TimeBankClicker, 1
  iniRead, AlternateDetection, %ini%, Prefs, AlternateDetection, 0
  iniRead, ActivateUrgent, %ini%, Prefs, ActivateUrgent, 0
  iniRead, KillPopups, %ini%, Prefs, KillPopups, 0
  iniRead, SafeReg, %ini%, Prefs, SafeReg, 1
  iniRead, AutoTakeSeat, %ini%, Prefs, AutoTakeSeat, 0
}

; Intervalls for sub execution
RefreshQueue_timer := 333
RefreshLobby_timer := 1000
PopUpWatcher_timer := 200
TableColor_timer := 500

;=====================================================================
;=================== Autoexec ========================================
;=====================================================================

#NoEnv
#SingleInstance, Force
#Include %a_scriptDir%
SendMode Input

SetTitleMatchMode, 2

SetWorkingDir %a_scriptDir%
OnExit exitSub

settings()
TrayMenu()
BuildGui()

Suspend, On

SysGet, border, 32
SysGet, caption, 4

if ( AutoOn = 1 ) {
  Gosub, ButtonOn
}

return


;=====================================================================
;=================== Hotkeys =========================================
;=====================================================================

^a::
  ToggleCheckbox("MoveMouse")
return

^w::
  ToggleCheckbox("AlternateDetection")
return

^s::
  MaxMinLobby(LobbyID)
return

^d::
  MinMaxStarsAssistant()
return

^z::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

^e::
  CloseTournamentLobby(LobbyID, LobbyPID)
return

MButton::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

;=====================================================================
;=================== Gui =============================================
;=====================================================================

trayMenu() {
  global
  Menu, Tray, Standard
  Menu, Tray, Add, &Show, Show
  Menu, Tray, default, &Show
  Menu, Tray, Add
  Menu, Tray, Add, &About, About
  Menu, Tray, Add, &Help, Help
  Menu, Tray, Add
  Menu, Tray, Add, E&xit, Exit
  Menu, Tray, Tip, StarsAssistant v%version%
}

buildGui() {
  global
  Gui 1:Default
  Gui, +toolwindow +AlwaysOnTop
  Gui, Margin, 5, 5
  Gui, Font,, Verdena
  Gui, Add, Button, vOn section w56 h20 center, &On
  Gui, Add, Button, vOff disabled w56 h20 ys xs+56 center, &Off
  Gui, Add, Checkbox, checked%AutoOn% vAutoOn gSubmit xs+2, &Auto on
  Gui, Add, Text, section x7 0x1000 w110 h2
  Gui, Add, Checkbox, checked%Slider% vSlider gSubmit xs, &Slider ;brad
  Gui, Add, Checkbox, checked%Highlight% vHighlight gSubmit xs, &Highlight table
  Gui, Add, Checkbox, checked%MoveMouse% vMoveMouse gSubmit xs, &Move mouse
  Gui, Add, Checkbox, checked%TimeBankClicker% vTimeBankClicker gSubmit xs, &Click time bank
  Gui, Add, Checkbox, checked%AlternateDetection% vAlternateDetection gSubmit xs, &Detect All-in/Fixed l.
  Gui, Add, Checkbox, checked%ActivateUrgent% vActivateUrgent gSubmit xs, &Activate urgent table
  Gui, Add, Checkbox, checked%KillPopups% vKillPopups gSubmit xs, &Kill popups
  Gui, Add, Checkbox, checked%SafeReg% vSafeReg gSubmit xs, &Safe SNG regist.
  Gui, Add, Checkbox, checked%AutoTakeSeat% vAutoTakeSeat gSubmit xs, &Auto take seat  
  IniRead, x, % ini, Gui, x, center
  IniRead, y, % ini, Gui, y, center
  Gui, Show, x%x% y%y% w124, StarsAssistant
}

Show:
  Gui, 1:Show
return

About:
  Msgbox,, StarsAssistant, StarsAssistant v%version% `nAuthor: Chris228 @ 2+2 formus`nE-Mail: chris228@gmx.de`nSee file for further credits`n`nIf you like my program I would be happy about a donation.`nMy screenname on PokerStars is 'mr.cray'.`nThank you!
return

Help:
  Run % web() "http://overcards.com/wiki/moin.cgi/StarsAssistant"
return

web() { ; by Titan, modified by Roland
  regRead, p, HKCR, HTTP\shell\open\command
  return SubStr(p, 1, InStr(p, ".exe")+4)
}

Exit:
exitApp

GuiClose:
  Gui 1:Cancel 
return

Submit:
  Gui, 1:Submit, NoHide
return

exitSub:
  Gui 1:Default
  Gui, Submit
  Gui +lastfound
  WinGetPos, x, y
  IniWrite, % x, % ini, Gui, x
  IniWrite, % y, % ini, Gui, y
  IniWrite, % AutoOn, % ini, Prefs, AutoOn
  IniWrite, % Slider, % ini, Prefs, Slider ;brad
  IniWrite, % Highlight, % ini, Prefs, Highlight
  IniWrite, % MoveMouse, % ini, Prefs, MoveMouse
  IniWrite, % TimeBankClicker, % ini, Prefs, TimeBankClicker
  IniWrite, % AlternateDetection, % ini, Prefs, AlternateDetection
  IniWrite, % ActivateUrgent, % ini, Prefs, ActivateUrgent
  IniWrite, % KillPopups, % ini, Prefs, KillPopups
  IniWrite, % SafeReg, % ini, Prefs, SafeReg
  IniWrite, % AutoTakeSeat, % ini, Prefs, AutoTakeSeat  
exitApp

MinMaxStarsAssistant() {
  WinGetActiveTitle, title
  If ( title = "StarsAssistant" )
    Gui 1:Cancel 
  else
    Gui, 1:Show
}

ToggleCheckbox(box) {
  Gui 1:Default
  GuiControlGet, state, , %box%
  if ( state = 1 )
    GuiControl, , %box%, 0
  if ( state = 0 )
    GuiControl, , %box%, 1
  Gui, 1:Submit, NoHide
}

;=====================================================================
;=================== Buttons =========================================
;=====================================================================

ButtonOn:
  tablecolor:= ""
  last_table_id := ""
  tablequeue := ""
  most_urgent_table := ""
  GoSub, RefreshLobby
  GoSub, TableColor
  SetTimer, RefreshQueue, %RefreshQueue_timer%
  SetTimer, PopUpWatcher, %PopUpWatcher_timer%
  SetTimer, RefreshLobby, %RefreshLobby_timer%
  Suspend, Off
  GuiControl, 1:Disable, On
  GuiControl, 1:Enable, Off
return
  
ButtonOff:
  SetTimer, RefreshQueue, Off
  SetTimer, PopUpWatcher, Off
  SetTimer, RefreshLobby, Off
  SetTimer, TableColor, Off
  Gui, 2: Cancel
  Gui, 3: Cancel
  Gui, 4: Cancel
  Gui, 5: Cancel
  tablecolor:=""
  Suspend, On
  GuiControl, 1:Disable, Off
  GuiControl, 1:Enable, On
return


;=====================================================================
;=================== Urgent Table Functions ==========================
;=====================================================================

RefreshQueue:
  ids := TableIDListStars(LobbyPID)
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, this_id, A_LoopField, InStr(A_LoopField, "_")
    if (!InStr(ids, this_id))
    {
      StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
    }
  }
  Loop, Parse, ids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v = 1 )
    {  
      if (!InStr(tablequeue, A_LoopField))
      {
        DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
        tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
      }
    }
    else
    {
      if ( AlternateDetection = 1 ) {
        color:=TableColor(A_LoopField)
        if ( color != tablecolor && tablecolor != "" ) {
          if (!InStr(tablequeue, A_LoopField))
          {
            DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
            tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
          }
        }
        else {        
          if (InStr(tablequeue, A_LoopField))
          {
            StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
          }
        } 
      } 
      else {
        if (InStr(tablequeue, A_LoopField))
        {
          StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
        }
      }
    }
  }
  tmp := ""
  Loop, Parse, tablequeue, `,
  {
    if (InStr(A_LoopField, "0x"))
    {
      tmp := tmp . "," . A_LoopField 
    }
  }
  Sort, tmp, N D`,
  tablequeue := CleanList(tmp)
  most_urgent_table := ""
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, most_urgent_table, A_LoopField, InStr(A_LoopField, "_")
    break
  }
  if ( TimeBankClicker = 1 ) {
    tc := A_TickCount
    Loop, Parse, tablequeue, `,
    {
      StringTrimLeft, waiting_time, A_LoopField, InStr(A_LoopField, "-")
      StringTrimRight, waiting_time, waiting_time, ( StrLen(waiting_time) - (InStr(waiting_time, "_")-1) )
      waiting_time := (tc - waiting_time) / 1000
      if (waiting_time > timebank_min && waiting_time < timebank_max)
      {
        StringTrimLeft, waiting_table, A_LoopField, InStr(A_LoopField, "_")
        timebank_x := 560  ; lastmax 565
        timebank_y := 430  ; lastmax 430 +/-10 too much
        relStarsClientPoint(waiting_table, timebank_x, timebank_y)
        PostLeftClick(timebank_x, timebank_y, waiting_table, 0)
      }  

if (waiting_time > timebank_max+5) ;18)
    {

      SoundPlay, timebankclick.wav ;brad
    }
    
    }
  }
  if ( ActivateUrgent = 1 ) {
    WinActivate, ahk_id%most_urgent_table%
    if ( AlternateDetection = 1 ) {
      color:=TableColor(most_urgent_table)
      if ( color != tablecolor ) {
        if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
        makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
      }
    }
    else {
      if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
      makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
    }
  }
  else {
    if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
    makegui(most_urgent_table,Slider,  Highlight, MoveMouse, beep, x_mouse, y_mouse)
  }
return



;makegui(id="", Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {
makegui(id="", Slider =1, Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {   ;brad
  global last_table_id
  global border_colour
  global border_size
  global trans
  global Xcoord ;brad
  global Ycoord ;brad
  global RestoreID ; brad
  global ActiveWindow ;brad
  if (id != last_table_id)
  {
       if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      ;WinRestore , ahk_id %RestoreID% ;brad
      ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
      ;WinMaximize , ahk_id %RestoreID% ;brad
      ;;PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad
      Sleep, 0 ; brad
      WinMove, ahk_id %RestoreID%,, Xcoord, Ycoord,  ; brad
      WinShow, ahk_id %RestoreID% ;brad
      ;;WinActivate, ahk_id %ActiveWindow% ;brad
      RestoreID :=0
DetectHiddenWindows, off ;brad
UGLY:
    last_table_id := id
    
    if(!id) ; if (id=0 or id="") 
    {
      Gui, 2: Cancel
      Gui, 3: Cancel
      Gui, 4: Cancel
      Gui, 5: Cancel
      return
    }
  
    WinGetPos, x, y, w, h, ahk_id%id%
    if (Slider = 1)	;brad
      {			;brad
    	Xcoord :=x ;brad
    	Ycoord :=y ;brad
    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad	
    	;WinMaximize , ahk_id %id% ;brad
    	;;PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad
    	Sleep, 0 ; brad
    	;
WinShow, ahk_id %id% ;brad
	;;WinGet, ActiveWindow, ID, A ;brad
    	WinActivate, ahk_id %id% ;brad
	DetectHiddenWindows, off ; brad
      }	;brad

    WinGetPos, x, y, w, h, ahk_id%id% 	
    global border
    global caption
    x := x + border
    y := y + border + caption
    w := w - (2*border)
    h := h - (2*border) - caption
    

    ;Makes Border around urgent table
    if ( Highlight = 1 ) {
    ;if ( Highlight = 999 ) { ; brad
      ;top
      guinum := 2
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y% NoActivate  
      
      ;left
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%border_size% h%h% x%x% y%y% NoActivate  
      
      ;bottom
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      y2 := y + h - border_size
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y2% NoActivate  
      
      ;right
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      x2 := x + w - border_size
      Gui, %guinum%: Show, w%border_size% h%h% x%x2% y%y% NoActivate
    
    }
        
    ;Puts mouse pointer nearer the bet buttons
    if ( MoveMouse = 1) {
      x3 := x + (w * x_mouse)
      y3 := y + (h * y_mouse)
      Coordmode, Mouse, Screen
      MouseMove, x3, y3, 0
    }
    
    ;Beeps on urgent table
    if ( beep = 1 )
      SoundBeep, 750, 100
      ;SoundPlay, timebankclick.wav ;brad
  }
}

;removes empty items (and trailing delimiters)
CleanList(list, del="") {
  del := del="" ? "," : del
  Loop {
    StringReplace, list, list, %del%%del%, %del%, UseErrorLevel
    If ! ErrorLevel
     break
   }
  If InStr(list, del) = 1
   StringTrimLeft, list, list, 1
  If InStr(list, del,0,0) = StrLen(list)
   StringTrimRight, list, list, 1
  return list
}


PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
}

relStarsClientPoint(id, ByRef x, ByRef y)
{
  global border
  global caption
  rw := 792
  rh := 546
  WinGetPos, , , w, h, ahk_id%id%
  w := w - (2*border)
  h := h - (2*border) - caption
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
}

TableColor(id) {
  CoordMode, Pixel, Screen
  WinGetPos, x, y, w, h, ahk_id%id%
  rw := 800
;rh := 578
;
rh := 573 ; brad
  ;x := x+475
  ;y := y+555
  ;x := Floor( (x / rw ) * w )
  ;y := Floor( (y / rh) * h  )

x := Floor( x + ( (475* w) / rw )   ) ;brad
y := Floor( y + ( (555* h) / rh )   ) ;brad

  PixelGetColor, color, %x%, %y%, RGB
  ;tooltip %x% %y% %color%
  return color
}

TableColor:
  tableids := TableIDListStars(LobbyPID)
  Loop, Parse, tableids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v != 1 ) {
      WinActivate, ahk_id%a_loopfield%
      sleep, 500
      tablecolor:=TableColor(a_loopfield)
      break
    }      
  }
;Msgbox, %tablecolor%
  if ( tablecolor != "" )
    SetTimer, TableColor, Off
  else
    SetTimer, TableColor, %TableColor_timer%
return


;=====================================================================
;=================== SNG Registration Functions ======================
;=====================================================================

RegSNG(id) {
  if ( SafeReg = 1 ) {
    IfWinActive, ahk_id%id%
      RegSNGexec(id)
  }
  else {
    RegSNGexec(id)
  }
}

RegSNGexec(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass6, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass6, ahk_id%id%
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id
      ControlFocus, Button1, ahk_id%regid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%regid%
      sleep, 10
      ControlFocus, Button2, ahk_id%regid%
      Sleep, -1
      ControlSend, Button2, {SPACE}, ahk_id%regid%  
    }
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id           
      ControlGetText, ctext, Button1, ahk_id%regid%
      if ( cText = "OK" ) {
        ControlFocus, Button1, ahk_id%regid%
        Sleep, -1
        ControlSend, Button1, {SPACE}, ahk_id%regid%
      }        
    }
  }
}


CloseTournamentLobby(id, pid) {
  Loop {
    IfWinExist, Lobby ahk_pid%pid%,, PokerStars Lobby
      WinClose
    else
      break
  }
  Sleep, 100
  WinGet, state, MinMax, ahk_id%id%
  if ( state = 1 || state = 0 )
    WinMinimize, ahk_id%id%
}


;=====================================================================
;=================== Join Cashgame Functions =========================
;=====================================================================


OpenJoinUnJoinTable(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass3, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass3, ahk_id%id%
    WinWait, Waiting List ahk_class #32770, , 10
    {
      WinGet, joinid, id
      ControlFocus, Button1, ahk_id%joinid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%joinid%
    }
  }
  else {
    ControlGet, v, Visible, , PokerStarsButtonClass2, ahk_id%id%
    if ( v = 1 ) {
      ControlClick, PokerStarsButtonClass2, ahk_id%id%
    }
    else {
      ControlGet, v, Visible, , PokerStarsButtonClass8, ahk_id%id%
      if ( v = 1 ) {
        ControlClick, PokerStarsButtonClass8, ahk_id%id%
      } 
    }
  }
}


;=====================================================================
;=================== Popup Functions =================================
;=====================================================================

PopUpWatcher:
  If ( KillPopups = 1 )
    KillPopUps(LobbyPID)
  if ( AutoTakeSeat = 1 )
    TakeSeat(LobbyPID)
return

KillPopUps(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list1, list, PokerStars ahk_class #32770 ahk_pid%pid%, , Lobby
    Loop, %list1%
    {
      This_id := list1%A_Index%
      WinGet, list2, ControlList, ahk_id%this_id%
      if (InStr(list2, "Button2"))  {
        continue
      }
      else {
        Loop, 20
        {
          ControlFocus, Button1, ahk_id%this_id%
          Sleep, -1
          ControlSend, Button1, {SPACE}, ahk_id%this_id%
          Sleep, 100
          IfWinNotExist, ahk_id%this_id%
          {
            break
          }
        }
      }
    }
  }
}

TakeSeat(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list, list, Seat Available ahk_class #32770 ahk_pid%pid%
    Loop, %list%
    {
      This_id := list%A_Index%
      ControlFocus, Button1, ahk_id%this_id%
       Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%this_id%
    }
  }
}


;=====================================================================
;=================== Lobby & Tables Functions ========================
;=====================================================================

RefreshLobby:
  WinGet, LobbyID, id, PokerStars Lobby
  WinGet, LobbyPID, PID, ahk_id%LobbyID%
return

MaxMinLobby(id) {
  WinGetActiveTitle, title
  IfInString, title, PokerStars Lobby
  {
    WinMinimize,ahk_id%id%
  }
  else {
    WinActivate, ahk_id%id%
  }
} 

TableIDListStars(pid)
{
  WinGet, list, list, / ahk_pid%pid%, , Lobby
  Loop %list%
  {
    this_id := list%a_index%
    If (this_id != id)
    {
      ids = %ids%,%this_id%
    }
  }
  StringTrimLeft, ids, ids, 1
  return ids
}

; #### StarsAssistant ####

; AHK version: 1.0.46.05
; date: January 05,2008
  version := "0.88"
; author: Chris228 @ 2p2 forums
; thx to _dave_, JBOPoker, Roland, JukofYork & pusteblume

; based on

; #### StarsUrgentTable ####

; AHK version: 1.0.46.03
; date: May 24,2007
; version: 0.75a
; author: _dave_ @ 2p2 forums
; revised by: JBOPoker @ earthlink.net
; thx to Roland & JukofYork for some of the functions


;=====================================================================
;=================== Settings ========================================
;=====================================================================

; Hotkeys see below

; Border of the "Highlighter"
border_colour := "ffff00"
border_size := 8
trans := 255

; Timings for the "Time Bank Clicker" [fast/turbo 8/17; normal 20/35; both 8/35] (10/13 old settings)
timebank_min := 10
timebank_max := 13

; Beep on urgent table
beep := 0

; Position of the mouse in perc of the table window
x_mouse := 0.50
y_mouse := 0.75

; Don't edit below unless you know what you do (except Hotkeys)

; Gui Settings
settings() {
  global
  ini:="StarsAssistant.ini"
  iniRead, AutoOn, %ini%, Prefs, AutoOn, 1
  iniRead, Slider, %ini%, Prefs, Slider, 1 ;brad
  iniRead, Highlight, %ini%, Prefs, Highlight, 1
  iniRead, MoveMouse, %ini%, Prefs, MoveMouse, 1
  iniRead, TimeBankClicker, %ini%, Prefs, TimeBankClicker, 1
  iniRead, AlternateDetection, %ini%, Prefs, AlternateDetection, 0
  iniRead, ActivateUrgent, %ini%, Prefs, ActivateUrgent, 0
  iniRead, KillPopups, %ini%, Prefs, KillPopups, 0
  iniRead, SafeReg, %ini%, Prefs, SafeReg, 1
  iniRead, AutoTakeSeat, %ini%, Prefs, AutoTakeSeat, 0
}

; Intervalls for sub execution
RefreshQueue_timer := 333
RefreshLobby_timer := 1000
PopUpWatcher_timer := 200
TableColor_timer := 500

;=====================================================================
;=================== Autoexec ========================================
;=====================================================================

#NoEnv
#SingleInstance, Force
#Include %a_scriptDir%
SendMode Input

SetTitleMatchMode, 2

SetWorkingDir %a_scriptDir%
OnExit exitSub

settings()
TrayMenu()
BuildGui()

Suspend, On

SysGet, border, 32
SysGet, caption, 4

if ( AutoOn = 1 ) {
  Gosub, ButtonOn
}

return


;=====================================================================
;=================== Hotkeys =========================================
;=====================================================================

^a::
  ToggleCheckbox("MoveMouse")
return

^w::
  ToggleCheckbox("AlternateDetection")
return

^s::
  MaxMinLobby(LobbyID)
return

^d::
  MinMaxStarsAssistant()
return

^z::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

^e::
  CloseTournamentLobby(LobbyID, LobbyPID)
return

MButton::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

;=====================================================================
;=================== Gui =============================================
;=====================================================================

trayMenu() {
  global
  Menu, Tray, Standard
  Menu, Tray, Add, &Show, Show
  Menu, Tray, default, &Show
  Menu, Tray, Add
  Menu, Tray, Add, &About, About
  Menu, Tray, Add, &Help, Help
  Menu, Tray, Add
  Menu, Tray, Add, E&xit, Exit
  Menu, Tray, Tip, StarsAssistant v%version%
}

buildGui() {
  global
  Gui 1:Default
  Gui, +toolwindow +AlwaysOnTop
  Gui, Margin, 5, 5
  Gui, Font,, Verdena
  Gui, Add, Button, vOn section w56 h20 center, &On
  Gui, Add, Button, vOff disabled w56 h20 ys xs+56 center, &Off
  Gui, Add, Checkbox, checked%AutoOn% vAutoOn gSubmit xs+2, &Auto on
  Gui, Add, Text, section x7 0x1000 w110 h2
  Gui, Add, Checkbox, checked%Slider% vSlider gSubmit xs, &Slider ;brad
  Gui, Add, Checkbox, checked%Highlight% vHighlight gSubmit xs, &Highlight table
  Gui, Add, Checkbox, checked%MoveMouse% vMoveMouse gSubmit xs, &Move mouse
  Gui, Add, Checkbox, checked%TimeBankClicker% vTimeBankClicker gSubmit xs, &Click time bank
  Gui, Add, Checkbox, checked%AlternateDetection% vAlternateDetection gSubmit xs, &Detect All-in/Fixed l.
  Gui, Add, Checkbox, checked%ActivateUrgent% vActivateUrgent gSubmit xs, &Activate urgent table
  Gui, Add, Checkbox, checked%KillPopups% vKillPopups gSubmit xs, &Kill popups
  Gui, Add, Checkbox, checked%SafeReg% vSafeReg gSubmit xs, &Safe SNG regist.
  Gui, Add, Checkbox, checked%AutoTakeSeat% vAutoTakeSeat gSubmit xs, &Auto take seat  
  IniRead, x, % ini, Gui, x, center
  IniRead, y, % ini, Gui, y, center
  Gui, Show, x%x% y%y% w124, StarsAssistant
}

Show:
  Gui, 1:Show
return

About:
  Msgbox,, StarsAssistant, StarsAssistant v%version% `nAuthor: Chris228 @ 2+2 formus`nE-Mail: chris228@gmx.de`nSee file for further credits`n`nIf you like my program I would be happy about a donation.`nMy screenname on PokerStars is 'mr.cray'.`nThank you!
return

Help:
  Run % web() "http://overcards.com/wiki/moin.cgi/StarsAssistant"
return

web() { ; by Titan, modified by Roland
  regRead, p, HKCR, HTTP\shell\open\command
  return SubStr(p, 1, InStr(p, ".exe")+4)
}

Exit:
exitApp

GuiClose:
  Gui 1:Cancel 
return

Submit:
  Gui, 1:Submit, NoHide
return

exitSub:
  Gui 1:Default
  Gui, Submit
  Gui +lastfound
  WinGetPos, x, y
  IniWrite, % x, % ini, Gui, x
  IniWrite, % y, % ini, Gui, y
  IniWrite, % AutoOn, % ini, Prefs, AutoOn
  IniWrite, % Slider, % ini, Prefs, Slider ;brad
  IniWrite, % Highlight, % ini, Prefs, Highlight
  IniWrite, % MoveMouse, % ini, Prefs, MoveMouse
  IniWrite, % TimeBankClicker, % ini, Prefs, TimeBankClicker
  IniWrite, % AlternateDetection, % ini, Prefs, AlternateDetection
  IniWrite, % ActivateUrgent, % ini, Prefs, ActivateUrgent
  IniWrite, % KillPopups, % ini, Prefs, KillPopups
  IniWrite, % SafeReg, % ini, Prefs, SafeReg
  IniWrite, % AutoTakeSeat, % ini, Prefs, AutoTakeSeat  
exitApp

MinMaxStarsAssistant() {
  WinGetActiveTitle, title
  If ( title = "StarsAssistant" )
    Gui 1:Cancel 
  else
    Gui, 1:Show
}

ToggleCheckbox(box) {
  Gui 1:Default
  GuiControlGet, state, , %box%
  if ( state = 1 )
    GuiControl, , %box%, 0
  if ( state = 0 )
    GuiControl, , %box%, 1
  Gui, 1:Submit, NoHide
}

;=====================================================================
;=================== Buttons =========================================
;=====================================================================

ButtonOn:
  tablecolor:= ""
  last_table_id := ""
  tablequeue := ""
  most_urgent_table := ""
  GoSub, RefreshLobby
  GoSub, TableColor
  SetTimer, RefreshQueue, %RefreshQueue_timer%
  SetTimer, PopUpWatcher, %PopUpWatcher_timer%
  SetTimer, RefreshLobby, %RefreshLobby_timer%
  Suspend, Off
  GuiControl, 1:Disable, On
  GuiControl, 1:Enable, Off
return
  
ButtonOff:
  SetTimer, RefreshQueue, Off
  SetTimer, PopUpWatcher, Off
  SetTimer, RefreshLobby, Off
  SetTimer, TableColor, Off
  Gui, 2: Cancel
  Gui, 3: Cancel
  Gui, 4: Cancel
  Gui, 5: Cancel
  tablecolor:=""
  Suspend, On
  GuiControl, 1:Disable, Off
  GuiControl, 1:Enable, On
return


;=====================================================================
;=================== Urgent Table Functions ==========================
;=====================================================================

RefreshQueue:
  ids := TableIDListStars(LobbyPID)
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, this_id, A_LoopField, InStr(A_LoopField, "_")
    if (!InStr(ids, this_id))
    {
      StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
    }
  }
  Loop, Parse, ids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v = 1 )
    {  
      if (!InStr(tablequeue, A_LoopField))
      {
        DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
        tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
      }
    }
    else
    {
      if ( AlternateDetection = 1 ) {
        color:=TableColor(A_LoopField)
        if ( color != tablecolor && tablecolor != "" ) {
          if (!InStr(tablequeue, A_LoopField))
          {
            DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
            tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
          }
        }
        else {        
          if (InStr(tablequeue, A_LoopField))
          {
            StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
          }
        } 
      } 
      else {
        if (InStr(tablequeue, A_LoopField))
        {
          StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
        }
      }
    }
  }
  tmp := ""
  Loop, Parse, tablequeue, `,
  {
    if (InStr(A_LoopField, "0x"))
    {
      tmp := tmp . "," . A_LoopField 
    }
  }
  Sort, tmp, N D`,
  tablequeue := CleanList(tmp)
  most_urgent_table := ""
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, most_urgent_table, A_LoopField, InStr(A_LoopField, "_")
    break
  }
  if ( TimeBankClicker = 1 ) {
    tc := A_TickCount
    Loop, Parse, tablequeue, `,
    {
      StringTrimLeft, waiting_time, A_LoopField, InStr(A_LoopField, "-")
      StringTrimRight, waiting_time, waiting_time, ( StrLen(waiting_time) - (InStr(waiting_time, "_")-1) )
      waiting_time := (tc - waiting_time) / 1000
      if (waiting_time > timebank_min && waiting_time < timebank_max)
      {
        StringTrimLeft, waiting_table, A_LoopField, InStr(A_LoopField, "_")
        timebank_x := 560  ; lastmax 565
        timebank_y := 430  ; lastmax 430 +/-10 too much
        relStarsClientPoint(waiting_table, timebank_x, timebank_y)
        PostLeftClick(timebank_x, timebank_y, waiting_table, 0)
      }  

if (waiting_time > timebank_max+5) ;18)
    {

      SoundPlay, timebankclick.wav ;brad
    }
    
    }
  }
  if ( ActivateUrgent = 1 ) {
    WinActivate, ahk_id%most_urgent_table%
    if ( AlternateDetection = 1 ) {
      color:=TableColor(most_urgent_table)
      if ( color != tablecolor ) {
        if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
        makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
      }
    }
    else {
      if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
      makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
    }
  }
  else {
    if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
    makegui(most_urgent_table,Slider,  Highlight, MoveMouse, beep, x_mouse, y_mouse)
  }
return



;makegui(id="", Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {
makegui(id="", Slider =1, Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {   ;brad
  global last_table_id
  global border_colour
  global border_size
  global trans
  global Xcoord ;brad
  global Ycoord ;brad
  global RestoreID ; brad
  global ActiveWindow ;brad
  if (id != last_table_id)
  {
       if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      ;WinRestore , ahk_id %RestoreID% ;brad
      ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
      ;WinMaximize , ahk_id %RestoreID% ;brad
      ;;PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad
      Sleep, 0 ; brad
      WinMove, ahk_id %RestoreID%,, Xcoord, Ycoord,  ; brad
      WinShow, ahk_id %RestoreID% ;brad
      ;;WinActivate, ahk_id %ActiveWindow% ;brad
      RestoreID :=0
DetectHiddenWindows, off ;brad
UGLY:
    last_table_id := id
    
    if(!id) ; if (id=0 or id="") 
    {
      Gui, 2: Cancel
      Gui, 3: Cancel
      Gui, 4: Cancel
      Gui, 5: Cancel
      return
    }
  
    

    WinGetPos, x, y, w, h, ahk_id%id% 	
    global border
    global caption
    x := x + border
    y := y + border + caption
    w := w - (2*border)
    h := h - (2*border) - caption
    

    ;Makes Border around urgent table
    if ( Highlight = 1 ) {
    ;if ( Highlight = 999 ) { ; brad
      ;top
      guinum := 2
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y% NoActivate  
      
      ;left
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%border_size% h%h% x%x% y%y% NoActivate  
      
      ;bottom
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      y2 := y + h - border_size
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y2% NoActivate  
      
      ;right
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      x2 := x + w - border_size
      Gui, %guinum%: Show, w%border_size% h%h% x%x2% y%y% NoActivate
    
    }

WinGetPos, x, y, w, h, ahk_id%id%
    if (Slider = 1)	;brad
      {			;brad
    	Xcoord :=x ;brad
    	Ycoord :=y ;brad
    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad	
    	;WinMaximize , ahk_id %id% ;brad
    	;;PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad
    	Sleep, 0 ; brad
    	;
WinShow, ahk_id %id% ;brad
	;;WinGet, ActiveWindow, ID, A ;brad
    	WinActivate, ahk_id %id% ;brad
	DetectHiddenWindows, off ; brad
      }	;brad
        
    ;Puts mouse pointer nearer the bet buttons
    if ( MoveMouse = 1) {
      x3 := x + (w * x_mouse)
      y3 := y + (h * y_mouse)
      Coordmode, Mouse, Screen
      MouseMove, x3, y3, 0
    }
    
    ;Beeps on urgent table
    if ( beep = 1 )
      SoundBeep, 750, 100
      ;SoundPlay, timebankclick.wav ;brad
  }
}

;removes empty items (and trailing delimiters)
CleanList(list, del="") {
  del := del="" ? "," : del
  Loop {
    StringReplace, list, list, %del%%del%, %del%, UseErrorLevel
    If ! ErrorLevel
     break
   }
  If InStr(list, del) = 1
   StringTrimLeft, list, list, 1
  If InStr(list, del,0,0) = StrLen(list)
   StringTrimRight, list, list, 1
  return list
}


PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
}

relStarsClientPoint(id, ByRef x, ByRef y)
{
  global border
  global caption
  rw := 792
  rh := 546
  WinGetPos, , , w, h, ahk_id%id%
  w := w - (2*border)
  h := h - (2*border) - caption
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
}

TableColor(id) {
  CoordMode, Pixel, Screen
  WinGetPos, x, y, w, h, ahk_id%id%
  rw := 800
;rh := 578
;
rh := 573 ; brad
  ;x := x+475
  ;y := y+555
  ;x := Floor( (x / rw ) * w )
  ;y := Floor( (y / rh) * h  )

x := Floor( x + ( (475* w) / rw )   ) ;brad
y := Floor( y + ( (555* h) / rh )   ) ;brad

  PixelGetColor, color, %x%, %y%, RGB
  ;tooltip %x% %y% %color%
  return color
}

TableColor:
  tableids := TableIDListStars(LobbyPID)
  Loop, Parse, tableids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v != 1 ) {
      WinActivate, ahk_id%a_loopfield%
      sleep, 500
      tablecolor:=TableColor(a_loopfield)
      break
    }      
  }
;Msgbox, %tablecolor%
  if ( tablecolor != "" )
    SetTimer, TableColor, Off
  else
    SetTimer, TableColor, %TableColor_timer%
return


;=====================================================================
;=================== SNG Registration Functions ======================
;=====================================================================

RegSNG(id) {
  if ( SafeReg = 1 ) {
    IfWinActive, ahk_id%id%
      RegSNGexec(id)
  }
  else {
    RegSNGexec(id)
  }
}

RegSNGexec(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass6, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass6, ahk_id%id%
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id
      ControlFocus, Button1, ahk_id%regid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%regid%
      sleep, 10
      ControlFocus, Button2, ahk_id%regid%
      Sleep, -1
      ControlSend, Button2, {SPACE}, ahk_id%regid%  
    }
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id           
      ControlGetText, ctext, Button1, ahk_id%regid%
      if ( cText = "OK" ) {
        ControlFocus, Button1, ahk_id%regid%
        Sleep, -1
        ControlSend, Button1, {SPACE}, ahk_id%regid%
      }        
    }
  }
}


CloseTournamentLobby(id, pid) {
  Loop {
    IfWinExist, Lobby ahk_pid%pid%,, PokerStars Lobby
      WinClose
    else
      break
  }
  Sleep, 100
  WinGet, state, MinMax, ahk_id%id%
  if ( state = 1 || state = 0 )
    WinMinimize, ahk_id%id%
}


;=====================================================================
;=================== Join Cashgame Functions =========================
;=====================================================================


OpenJoinUnJoinTable(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass3, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass3, ahk_id%id%
    WinWait, Waiting List ahk_class #32770, , 10
    {
      WinGet, joinid, id
      ControlFocus, Button1, ahk_id%joinid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%joinid%
    }
  }
  else {
    ControlGet, v, Visible, , PokerStarsButtonClass2, ahk_id%id%
    if ( v = 1 ) {
      ControlClick, PokerStarsButtonClass2, ahk_id%id%
    }
    else {
      ControlGet, v, Visible, , PokerStarsButtonClass8, ahk_id%id%
      if ( v = 1 ) {
        ControlClick, PokerStarsButtonClass8, ahk_id%id%
      } 
    }
  }
}


;=====================================================================
;=================== Popup Functions =================================
;=====================================================================

PopUpWatcher:
  If ( KillPopups = 1 )
    KillPopUps(LobbyPID)
  if ( AutoTakeSeat = 1 )
    TakeSeat(LobbyPID)
return

KillPopUps(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list1, list, PokerStars ahk_class #32770 ahk_pid%pid%, , Lobby
    Loop, %list1%
    {
      This_id := list1%A_Index%
      WinGet, list2, ControlList, ahk_id%this_id%
      if (InStr(list2, "Button2"))  {
        continue
      }
      else {
        Loop, 20
        {
          ControlFocus, Button1, ahk_id%this_id%
          Sleep, -1
          ControlSend, Button1, {SPACE}, ahk_id%this_id%
          Sleep, 100
          IfWinNotExist, ahk_id%this_id%
          {
            break
          }
        }
      }
    }
  }
}

TakeSeat(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list, list, Seat Available ahk_class #32770 ahk_pid%pid%
    Loop, %list%
    {
      This_id := list%A_Index%
      ControlFocus, Button1, ahk_id%this_id%
       Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%this_id%
    }
  }
}


;=====================================================================
;=================== Lobby & Tables Functions ========================
;=====================================================================

RefreshLobby:
  WinGet, LobbyID, id, PokerStars Lobby
  WinGet, LobbyPID, PID, ahk_id%LobbyID%
return

MaxMinLobby(id) {
  WinGetActiveTitle, title
  IfInString, title, PokerStars Lobby
  {
    WinMinimize,ahk_id%id%
  }
  else {
    WinActivate, ahk_id%id%
  }
} 

TableIDListStars(pid)
{
  WinGet, list, list, / ahk_pid%pid%, , Lobby
  Loop %list%
  {
    this_id := list%a_index%
    If (this_id != id)
    {
      ids = %ids%,%this_id%
    }
  }
  StringTrimLeft, ids, ids, 1
  return ids
}

if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      ;WinRestore , ahk_id %RestoreID% ;brad
      ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
      ;WinMaximize , ahk_id %RestoreID% ;brad
      ;;PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad

    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad	
    	;WinMaximize , ahk_id %id% ;brad
    	;;PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad

global border
        global caption
	xi := 222                           ;click  info for tourneys
	yi := 440
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)

        ;global border
        ;global caption
	xi := 222                           ;click  refresh for tourneys
	yi := 465
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)

; #### StarsAssistant ####

; AHK version: 1.0.46.05
; date: January 05,2008
  version := "0.88"
; author: Chris228 @ 2p2 forums
; thx to _dave_, JBOPoker, Roland, JukofYork & pusteblume

; based on

; #### StarsUrgentTable ####

; AHK version: 1.0.46.03
; date: May 24,2007
; version: 0.75a
; author: _dave_ @ 2p2 forums
; revised by: JBOPoker @ earthlink.net
; thx to Roland & JukofYork for some of the functions


;=====================================================================
;=================== Settings ========================================
;=====================================================================

; Hotkeys see below

; Border of the "Highlighter"
border_colour := "ffff00"
border_size := 8
trans := 255

; Timings for the "Time Bank Clicker" [fast/turbo 8/17; normal 20/35; both 8/35] (10/13 old settings)
timebank_min := 10
timebank_max := 13

; Beep on urgent table
beep := 0

; Position of the mouse in perc of the table window
x_mouse := 0.50
y_mouse := 0.75

; Don't edit below unless you know what you do (except Hotkeys)

; Gui Settings
settings() {
  global
  ini:="StarsAssistant.ini"
  iniRead, AutoOn, %ini%, Prefs, AutoOn, 1
  iniRead, Slider, %ini%, Prefs, Slider, 1 ;brad
  iniRead, Highlight, %ini%, Prefs, Highlight, 1
  iniRead, MoveMouse, %ini%, Prefs, MoveMouse, 1
  iniRead, TimeBankClicker, %ini%, Prefs, TimeBankClicker, 1
  iniRead, AlternateDetection, %ini%, Prefs, AlternateDetection, 0
  iniRead, ActivateUrgent, %ini%, Prefs, ActivateUrgent, 0
  iniRead, KillPopups, %ini%, Prefs, KillPopups, 0
  iniRead, SafeReg, %ini%, Prefs, SafeReg, 1
  iniRead, AutoTakeSeat, %ini%, Prefs, AutoTakeSeat, 0
}

; Intervalls for sub execution
RefreshQueue_timer := 333
RefreshLobby_timer := 1000
PopUpWatcher_timer := 200
TableColor_timer := 500

;=====================================================================
;=================== Autoexec ========================================
;=====================================================================

#NoEnv
#SingleInstance, Force
#Include %a_scriptDir%
SendMode Input

SetTitleMatchMode, 2

SetWorkingDir %a_scriptDir%
OnExit exitSub

settings()
TrayMenu()
BuildGui()

Suspend, On

SysGet, border, 32
SysGet, caption, 4

if ( AutoOn = 1 ) {
  Gosub, ButtonOn
}

return


;=====================================================================
;=================== Hotkeys =========================================
;=====================================================================

^a::
  ToggleCheckbox("MoveMouse")
return

^w::
  ToggleCheckbox("AlternateDetection")
return

^s::
  MaxMinLobby(LobbyID)
return

^d::
  MinMaxStarsAssistant()
return

^z::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

^e::
  CloseTournamentLobby(LobbyID, LobbyPID)
return

MButton::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

;=====================================================================
;=================== Gui =============================================
;=====================================================================

trayMenu() {
  global
  Menu, Tray, Standard
  Menu, Tray, Add, &Show, Show
  Menu, Tray, default, &Show
  Menu, Tray, Add
  Menu, Tray, Add, &About, About
  Menu, Tray, Add, &Help, Help
  Menu, Tray, Add
  Menu, Tray, Add, E&xit, Exit
  Menu, Tray, Tip, StarsAssistant v%version%
}

buildGui() {
  global
  Gui 1:Default
  Gui, +toolwindow +AlwaysOnTop
  Gui, Margin, 5, 5
  Gui, Font,, Verdena
  Gui, Add, Button, vOn section w56 h20 center, &On
  Gui, Add, Button, vOff disabled w56 h20 ys xs+56 center, &Off
  Gui, Add, Checkbox, checked%AutoOn% vAutoOn gSubmit xs+2, &Auto on
  Gui, Add, Text, section x7 0x1000 w110 h2
  Gui, Add, Checkbox, checked%Slider% vSlider gSubmit xs, &Slider ;brad
  Gui, Add, Checkbox, checked%Highlight% vHighlight gSubmit xs, &Highlight table
  Gui, Add, Checkbox, checked%MoveMouse% vMoveMouse gSubmit xs, &Move mouse
  Gui, Add, Checkbox, checked%TimeBankClicker% vTimeBankClicker gSubmit xs, &Click time bank
  Gui, Add, Checkbox, checked%AlternateDetection% vAlternateDetection gSubmit xs, &Detect All-in/Fixed l.
  Gui, Add, Checkbox, checked%ActivateUrgent% vActivateUrgent gSubmit xs, &Activate urgent table
  Gui, Add, Checkbox, checked%KillPopups% vKillPopups gSubmit xs, &Kill popups
  Gui, Add, Checkbox, checked%SafeReg% vSafeReg gSubmit xs, &Safe SNG regist.
  Gui, Add, Checkbox, checked%AutoTakeSeat% vAutoTakeSeat gSubmit xs, &Auto take seat  
  IniRead, x, % ini, Gui, x, center
  IniRead, y, % ini, Gui, y, center
  Gui, Show, x%x% y%y% w124, StarsAssistant
}

Show:
  Gui, 1:Show
return

About:
  Msgbox,, StarsAssistant, StarsAssistant v%version% `nAuthor: Chris228 @ 2+2 formus`nE-Mail: chris228@gmx.de`nSee file for further credits`n`nIf you like my program I would be happy about a donation.`nMy screenname on PokerStars is 'mr.cray'.`nThank you!
return

Help:
  Run % web() "http://overcards.com/wiki/moin.cgi/StarsAssistant"
return

web() { ; by Titan, modified by Roland
  regRead, p, HKCR, HTTP\shell\open\command
  return SubStr(p, 1, InStr(p, ".exe")+4)
}

Exit:
exitApp

GuiClose:
  Gui 1:Cancel 
return

Submit:
  Gui, 1:Submit, NoHide
return

exitSub:
  Gui 1:Default
  Gui, Submit
  Gui +lastfound
  WinGetPos, x, y
  IniWrite, % x, % ini, Gui, x
  IniWrite, % y, % ini, Gui, y
  IniWrite, % AutoOn, % ini, Prefs, AutoOn
  IniWrite, % Slider, % ini, Prefs, Slider ;brad
  IniWrite, % Highlight, % ini, Prefs, Highlight
  IniWrite, % MoveMouse, % ini, Prefs, MoveMouse
  IniWrite, % TimeBankClicker, % ini, Prefs, TimeBankClicker
  IniWrite, % AlternateDetection, % ini, Prefs, AlternateDetection
  IniWrite, % ActivateUrgent, % ini, Prefs, ActivateUrgent
  IniWrite, % KillPopups, % ini, Prefs, KillPopups
  IniWrite, % SafeReg, % ini, Prefs, SafeReg
  IniWrite, % AutoTakeSeat, % ini, Prefs, AutoTakeSeat  
exitApp

MinMaxStarsAssistant() {
  WinGetActiveTitle, title
  If ( title = "StarsAssistant" )
    Gui 1:Cancel 
  else
    Gui, 1:Show
}

ToggleCheckbox(box) {
  Gui 1:Default
  GuiControlGet, state, , %box%
  if ( state = 1 )
    GuiControl, , %box%, 0
  if ( state = 0 )
    GuiControl, , %box%, 1
  Gui, 1:Submit, NoHide
}

;=====================================================================
;=================== Buttons =========================================
;=====================================================================

ButtonOn:
  tablecolor:= ""
  last_table_id := ""
  tablequeue := ""
  most_urgent_table := ""
  GoSub, RefreshLobby
  GoSub, TableColor
  SetTimer, RefreshQueue, %RefreshQueue_timer%
  SetTimer, PopUpWatcher, %PopUpWatcher_timer%
  SetTimer, RefreshLobby, %RefreshLobby_timer%
  Suspend, Off
  GuiControl, 1:Disable, On
  GuiControl, 1:Enable, Off
return
  
ButtonOff:
  SetTimer, RefreshQueue, Off
  SetTimer, PopUpWatcher, Off
  SetTimer, RefreshLobby, Off
  SetTimer, TableColor, Off
  Gui, 2: Cancel
  Gui, 3: Cancel
  Gui, 4: Cancel
  Gui, 5: Cancel
  tablecolor:=""
  Suspend, On
  GuiControl, 1:Disable, Off
  GuiControl, 1:Enable, On
return


;=====================================================================
;=================== Urgent Table Functions ==========================
;=====================================================================

RefreshQueue:
  ids := TableIDListStars(LobbyPID)
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, this_id, A_LoopField, InStr(A_LoopField, "_")
    if (!InStr(ids, this_id))
    {
      StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
    }
  }
  Loop, Parse, ids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v = 1 )
    {  
      if (!InStr(tablequeue, A_LoopField))
      {
        DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
        tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
      }
    }
    else
    {
      if ( AlternateDetection = 1 ) {
        color:=TableColor(A_LoopField)
        if ( color != tablecolor && tablecolor != "" ) {
          if (!InStr(tablequeue, A_LoopField))
          {
            DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
            tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
          }
        }
        else {        
          if (InStr(tablequeue, A_LoopField))
          {
            StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
          }
        } 
      } 
      else {
        if (InStr(tablequeue, A_LoopField))
        {
          StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
        }
      }
    }
  }
  tmp := ""
  Loop, Parse, tablequeue, `,
  {
    if (InStr(A_LoopField, "0x"))
    {
      tmp := tmp . "," . A_LoopField 
    }
  }
  Sort, tmp, N D`,
  tablequeue := CleanList(tmp)
  most_urgent_table := ""
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, most_urgent_table, A_LoopField, InStr(A_LoopField, "_")
    break
  }
  if ( TimeBankClicker = 1 ) {
    tc := A_TickCount
    Loop, Parse, tablequeue, `,
    {
      StringTrimLeft, waiting_time, A_LoopField, InStr(A_LoopField, "-")
      StringTrimRight, waiting_time, waiting_time, ( StrLen(waiting_time) - (InStr(waiting_time, "_")-1) )
      waiting_time := (tc - waiting_time) / 1000
      if (waiting_time > timebank_min && waiting_time < timebank_max)
      {
        StringTrimLeft, waiting_table, A_LoopField, InStr(A_LoopField, "_")
        timebank_x := 560  ; lastmax 565
        timebank_y := 430  ; lastmax 430 +/-10 too much
        relStarsClientPoint(waiting_table, timebank_x, timebank_y)
        PostLeftClick(timebank_x, timebank_y, waiting_table, 0)
      }  

if (waiting_time > timebank_max+5) ;18)
    {

      SoundPlay, timebankclick.wav ;brad
    }
    
    }
  }
  if ( ActivateUrgent = 1 ) {
    WinActivate, ahk_id%most_urgent_table%
    if ( AlternateDetection = 1 ) {
      color:=TableColor(most_urgent_table)
      if ( color != tablecolor ) {
        if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
        makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
      }
    }
    else {
      if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
      makegui(most_urgent_table, Slider, Highlight, MoveMouse, beep, x_mouse, y_mouse)
    }
  }
  else {
    if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
    makegui(most_urgent_table,Slider,  Highlight, MoveMouse, beep, x_mouse, y_mouse)
  }
return



;makegui(id="", Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {
makegui(id="", Slider =1, Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {   ;brad
  global last_table_id
  global border_colour
  global border_size
  global trans
  global Xcoord ;brad
  global Ycoord ;brad
  global RestoreID ; brad
  global ActiveWindow ;brad
  global xi
  global yi
  
  if (id != last_table_id)
  {
       if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      ;WinRestore , ahk_id %RestoreID% ;brad
      ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
      ;WinMaximize , ahk_id %RestoreID% ;brad
      ;;PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad
      Sleep, 0 ; brad
      WinMove, ahk_id %RestoreID%,, Xcoord, Ycoord,  ; brad
      WinShow, ahk_id %RestoreID% ;brad
      ;;WinActivate, ahk_id %ActiveWindow% ;brad
      RestoreID :=0
DetectHiddenWindows, off ;brad
UGLY:
    last_table_id := id
    
    if(!id) ; if (id=0 or id="") 
    {
      Gui, 2: Cancel
      Gui, 3: Cancel
      Gui, 4: Cancel
      Gui, 5: Cancel
      return
    }
    
        global border
        global caption
	xi := 222                           ;click  info for tourneys
	yi := 440
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)

        ;global border
        ;global caption
	xi := 222                           ;click  refresh for tourneys
	yi := 465
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)

    WinGetPos, x, y, w, h, ahk_id%id% 	
    ;global border
    ;global caption
    x := x + border
    y := y + border + caption
    w := w - (2*border)
    h := h - (2*border) - caption
    

    ;Makes Border around urgent table
    if ( Highlight = 1 ) {
    ;if ( Highlight = 999 ) { ; brad
      ;top
      guinum := 2
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y% NoActivate  
      
      ;left
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%border_size% h%h% x%x% y%y% NoActivate  
      
      ;bottom
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      y2 := y + h - border_size
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y2% NoActivate  
      
      ;right
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      x2 := x + w - border_size
      Gui, %guinum%: Show, w%border_size% h%h% x%x2% y%y% NoActivate
    
    }

WinGetPos, x, y, w, h, ahk_id%id%
    if (Slider = 1)	;brad
      {			;brad
    	Xcoord :=x ;brad
    	Ycoord :=y ;brad
    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad	
    	;WinMaximize , ahk_id %id% ;brad
    	;;PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad
    	Sleep, 0 ; brad
    	;
WinShow, ahk_id %id% ;brad
	;;WinGet, ActiveWindow, ID, A ;brad
    	WinActivate, ahk_id %id% ;brad
	DetectHiddenWindows, off ; brad
      }	;brad
        
    ;Puts mouse pointer nearer the bet buttons
    if ( MoveMouse = 1) {
      x3 := x + (w * x_mouse)
      y3 := y + (h * y_mouse)
      Coordmode, Mouse, Screen
      MouseMove, x3, y3, 0
    }
    
    ;Beeps on urgent table
    if ( beep = 1 )
      SoundBeep, 750, 100
      ;SoundPlay, timebankclick.wav ;brad
  }
}

;removes empty items (and trailing delimiters)
CleanList(list, del="") {
  del := del="" ? "," : del
  Loop {
    StringReplace, list, list, %del%%del%, %del%, UseErrorLevel
    If ! ErrorLevel
     break
   }
  If InStr(list, del) = 1
   StringTrimLeft, list, list, 1
  If InStr(list, del,0,0) = StrLen(list)
   StringTrimRight, list, list, 1
  return list
}


PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
}

relStarsClientPoint(id, ByRef x, ByRef y)
{
  global border
  global caption
  rw := 792
  rh := 546
  WinGetPos, , , w, h, ahk_id%id%
  w := w - (2*border)
  h := h - (2*border) - caption
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
}

TableColor(id) {
  CoordMode, Pixel, Screen
  WinGetPos, x, y, w, h, ahk_id%id%
  rw := 800
;rh := 578
;
rh := 573 ; brad
  ;x := x+475
  ;y := y+555
  ;x := Floor( (x / rw ) * w )
  ;y := Floor( (y / rh) * h  )

x := Floor( x + ( (475* w) / rw )   ) ;brad
y := Floor( y + ( (555* h) / rh )   ) ;brad

  PixelGetColor, color, %x%, %y%, RGB
  ;tooltip %x% %y% %color%
  return color
}

TableColor:
  tableids := TableIDListStars(LobbyPID)
  Loop, Parse, tableids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v != 1 ) {
      WinActivate, ahk_id%a_loopfield%
      sleep, 500
      tablecolor:=TableColor(a_loopfield)
      break
    }      
  }
;Msgbox, %tablecolor%
  if ( tablecolor != "" )
    SetTimer, TableColor, Off
  else
    SetTimer, TableColor, %TableColor_timer%
return


;=====================================================================
;=================== SNG Registration Functions ======================
;=====================================================================

RegSNG(id) {
  if ( SafeReg = 1 ) {
    IfWinActive, ahk_id%id%
      RegSNGexec(id)
  }
  else {
    RegSNGexec(id)
  }
}

RegSNGexec(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass6, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass6, ahk_id%id%
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id
      ControlFocus, Button1, ahk_id%regid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%regid%
      sleep, 10
      ControlFocus, Button2, ahk_id%regid%
      Sleep, -1
      ControlSend, Button2, {SPACE}, ahk_id%regid%  
    }
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id           
      ControlGetText, ctext, Button1, ahk_id%regid%
      if ( cText = "OK" ) {
        ControlFocus, Button1, ahk_id%regid%
        Sleep, -1
        ControlSend, Button1, {SPACE}, ahk_id%regid%
      }        
    }
  }
}


CloseTournamentLobby(id, pid) {
  Loop {
    IfWinExist, Lobby ahk_pid%pid%,, PokerStars Lobby
      WinClose
    else
      break
  }
  Sleep, 100
  WinGet, state, MinMax, ahk_id%id%
  if ( state = 1 || state = 0 )
    WinMinimize, ahk_id%id%
}


;=====================================================================
;=================== Join Cashgame Functions =========================
;=====================================================================


OpenJoinUnJoinTable(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass3, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass3, ahk_id%id%
    WinWait, Waiting List ahk_class #32770, , 10
    {
      WinGet, joinid, id
      ControlFocus, Button1, ahk_id%joinid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%joinid%
    }
  }
  else {
    ControlGet, v, Visible, , PokerStarsButtonClass2, ahk_id%id%
    if ( v = 1 ) {
      ControlClick, PokerStarsButtonClass2, ahk_id%id%
    }
    else {
      ControlGet, v, Visible, , PokerStarsButtonClass8, ahk_id%id%
      if ( v = 1 ) {
        ControlClick, PokerStarsButtonClass8, ahk_id%id%
      } 
    }
  }
}


;=====================================================================
;=================== Popup Functions =================================
;=====================================================================

PopUpWatcher:
  If ( KillPopups = 1 )
    KillPopUps(LobbyPID)
  if ( AutoTakeSeat = 1 )
    TakeSeat(LobbyPID)
return

KillPopUps(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list1, list, PokerStars ahk_class #32770 ahk_pid%pid%, , Lobby
    Loop, %list1%
    {
      This_id := list1%A_Index%
      WinGet, list2, ControlList, ahk_id%this_id%
      if (InStr(list2, "Button2"))  {
        continue
      }
      else {
        Loop, 20
        {
          ControlFocus, Button1, ahk_id%this_id%
          Sleep, -1
          ControlSend, Button1, {SPACE}, ahk_id%this_id%
          Sleep, 100
          IfWinNotExist, ahk_id%this_id%
          {
            break
          }
        }
      }
    }
  }
}

TakeSeat(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list, list, Seat Available ahk_class #32770 ahk_pid%pid%
    Loop, %list%
    {
      This_id := list%A_Index%
      ControlFocus, Button1, ahk_id%this_id%
       Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%this_id%
    }
  }
}


;=====================================================================
;=================== Lobby & Tables Functions ========================
;=====================================================================

RefreshLobby:
  WinGet, LobbyID, id, PokerStars Lobby
  WinGet, LobbyPID, PID, ahk_id%LobbyID%
return

MaxMinLobby(id) {
  WinGetActiveTitle, title
  IfInString, title, PokerStars Lobby
  {
    WinMinimize,ahk_id%id%
  }
  else {
    WinActivate, ahk_id%id%
  }
} 

TableIDListStars(pid)
{
  WinGet, list, list, / ahk_pid%pid%, , Lobby
  Loop %list%
  {
    this_id := list%a_index%
    If (this_id != id)
    {
      ids = %ids%,%this_id%
    }
  }
  StringTrimLeft, ids, ids, 1
  return ids
}

;get active window
;restore size then return old active window if necessary
;if same active window return (it's already been slid)
;if active window maximized return
;if title doesn't make it poker window then return 
;save coords and ID of new active window
;move active window to wherever
;maximize
;return

#Persistent
#SingleInstance Ignore
#NoEnv

interval := 333         ; period between refreshes
SetTitleMatchMode 2 ; can be substring
DetectHiddenWindows, on

Loop 
{
  Check()
  Sleep %interval%  
}

Check()
{
;;;;;;;;;; USER VARIABLES ;;;;;;;;;;;;;;;;;;;;;;
  substring = - Logged In as 				; needed text in title for in title
  substring2 = Lobby 					; excluded text in title
  xt := 0						; where to move
  yt := 0						; where to move
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  static ID_old := 0  					; window that lost focus that needs to go back 
  static xo := 0      					; return x coords
  static yo := 0      					; return y coords

  WinGet, active_id, ID, A  				; get active window
  if (active_id = ID_old)   				; if active window is same active window as last time then return
    {
      return
    }
    
  if (ID_old != 0) 					; if we have a window we need to move back
  {
    WinHide, ahk_id %ID_old% 				; so you don't have to watch window restore
    PostMessage, 0x112, 0xF030,,, ahk_id %ID_old%,    	; winmaximize which restores for pokerstars
    ;PostMessage, 0x112, 0xF120,,, ahk_id %ID_old%,   	; normal winrestore for others
    Sleep, 0  						; gets the postmessage processed
    WinMove, ahk_id%ID_old%,, xo , yo , 		; send window back to normal
    WinShow, ahk_id %ID_old%
    ID_old := 0  
  }

  WinGet, mm, MinMax, ahk_id %active_id% 		; 1 means maximized, if active window is max then ignore
  if ( mm = 1 ) 
    {
      return
    }

  WinGetTitle, title, ahk_id %active_id% 		; get our active windows title

  IfNotInString, title, %substring% 			; needs substring in there else ignore(make sure poker table)
   {	
     return
   }
  IfInString, title, %substring2%   			; if substring2 in there then ignore (ignore lobby)
   {
     return
   }

  WinGetPos, x, y,w,h, ahk_id%active_id% 		; get coords of our active window
  xo := x
  yo := y               				; save these to send it back once it is no longer active
  ID_old := active_id
  
  WinHide, ahk_id %active_id% 				; so you don't have to watch window maximize 
  WinMove, ahk_id%active_id%,, xt ,yt  ,  		; move active window where you want it
  PostMessage, 0x112, 0xF030,,, ahk_id %active_id%, 	; maximize
  Sleep, 0 						; gets the postmessage processed
  WinShow, ahk_id %active_id%
  WinActivate, ahk_id %active_id%  			; keep it active otherwise it will auto move back
}

; #### StarsAssistant ####

; AHK version: 1.0.46.05
; date: January 05,2008
  version := "0.88"
; author: Chris228 @ 2p2 forums
; thx to _dave_, JBOPoker, Roland, JukofYork & pusteblume

; based on

; #### StarsUrgentTable ####

; AHK version: 1.0.46.03
; date: May 24,2007
; version: 0.75a
; author: _dave_ @ 2p2 forums
; revised by: JBOPoker @ earthlink.net
; thx to Roland & JukofYork for some of the functions


;=====================================================================
;=================== Settings ========================================
;=====================================================================

; Hotkeys see below

; Border of the "Highlighter"
border_colour := "ffff00"
border_size := 8
trans := 255

; Timings for the "Time Bank Clicker" [fast/turbo 8/17; normal 20/35; both 8/35] (10/13 old settings)
timebank_min := 10
timebank_max := 13

; Beep on urgent table
beep := 0

; Position of the mouse in perc of the table window
x_mouse := 0.50
y_mouse := 0.75

; Don't edit below unless you know what you do (except Hotkeys)

; Gui Settings
settings() {
  global
  ini:="StarsAssistant.ini"
  iniRead, AutoOn, %ini%, Prefs, AutoOn, 1
  iniRead, Slider, %ini%, Prefs, Slider, 0 ;brad
  iniRead, SliderMax, %ini%, Prefs, SliderMax, 0 ;brad
  iniRead, InfoRefresh, %ini%, Prefs, InfoRefresh, 0 ;brad
  iniRead, Highlight, %ini%, Prefs, Highlight, 1
  iniRead, MoveMouse, %ini%, Prefs, MoveMouse, 0
  iniRead, TimeBankClicker, %ini%, Prefs, TimeBankClicker, 0
  iniRead, AlternateDetection, %ini%, Prefs, AlternateDetection, 1
  iniRead, ActivateUrgent, %ini%, Prefs, ActivateUrgent, 0
  iniRead, KillPopups, %ini%, Prefs, KillPopups, 1
  iniRead, SafeReg, %ini%, Prefs, SafeReg, 1
  iniRead, AutoTakeSeat, %ini%, Prefs, AutoTakeSeat, 0
}

; Intervalls for sub execution
RefreshQueue_timer := 333
RefreshLobby_timer := 1000
PopUpWatcher_timer := 200
TableColor_timer := 500

;=====================================================================
;=================== Autoexec ========================================
;=====================================================================

#NoEnv
#SingleInstance, Force
#Include %a_scriptDir%
SendMode Input

SetTitleMatchMode, 2

SetWorkingDir %a_scriptDir%
OnExit exitSub

settings()
TrayMenu()
BuildGui()

Suspend, On

SysGet, border, 32
SysGet, caption, 4

if ( AutoOn = 1 ) {
  Gosub, ButtonOn
}

return


;=====================================================================
;=================== Hotkeys =========================================
;=====================================================================

^a::
  ToggleCheckbox("MoveMouse")
return

^w::
  ToggleCheckbox("AlternateDetection")
return

^s::
  MaxMinLobby(LobbyID)
return

^d::
  MinMaxStarsAssistant()
return

^z::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

^e::
  CloseTournamentLobby(LobbyID, LobbyPID)
return

MButton::
  RegSNG(LobbyID)
  OpenJoinUnJoinTable(LobbyID)
return

;=====================================================================
;=================== Gui =============================================
;=====================================================================

trayMenu() {
  global
  Menu, Tray, Standard
  Menu, Tray, Add, &Show, Show
  Menu, Tray, default, &Show
  Menu, Tray, Add
  Menu, Tray, Add, &About, About
  Menu, Tray, Add, &Help, Help
  Menu, Tray, Add
  Menu, Tray, Add, E&xit, Exit
  Menu, Tray, Tip, StarsAssistant v%version%
}

buildGui() {
  global
  Gui 1:Default
  Gui, +toolwindow +AlwaysOnTop
  Gui, Margin, 5, 5
  Gui, Font,, Verdena
  Gui, Add, Button, vOn section w56 h20 center, &On
  Gui, Add, Button, vOff disabled w56 h20 ys xs+56 center, &Off
  Gui, Add, Checkbox, checked%AutoOn% vAutoOn gSubmit xs+2, &Auto on
  Gui, Add, Text, section x7 0x1000 w110 h2
  Gui, Add, Checkbox, checked%Slider% vSlider gSubmit xs, &Slider ;brad
  Gui, Add, Checkbox, checked%SliderMax% vSliderMax gSubmit xs, &SliderMax ;brad
  Gui, Add, Checkbox, checked%InfoRefresh% vInfoRefresh gSubmit xs, &InfoRefresh ;brad
  Gui, Add, Checkbox, checked%Highlight% vHighlight gSubmit xs, &Highlight table
  Gui, Add, Checkbox, checked%MoveMouse% vMoveMouse gSubmit xs, &Move mouse
  Gui, Add, Checkbox, checked%TimeBankClicker% vTimeBankClicker gSubmit xs, &Click time bank
  Gui, Add, Checkbox, checked%AlternateDetection% vAlternateDetection gSubmit xs, &Detect All-in/Fixed l.
  Gui, Add, Checkbox, checked%ActivateUrgent% vActivateUrgent gSubmit xs, &Activate urgent table
  Gui, Add, Checkbox, checked%KillPopups% vKillPopups gSubmit xs, &Kill popups
  Gui, Add, Checkbox, checked%SafeReg% vSafeReg gSubmit xs, &Safe SNG regist.
  Gui, Add, Checkbox, checked%AutoTakeSeat% vAutoTakeSeat gSubmit xs, &Auto take seat  
  IniRead, x, % ini, Gui, x, center
  IniRead, y, % ini, Gui, y, center
  Gui, Show, x%x% y%y% w124, StarsAssistant
}

Show:
  Gui, 1:Show
return

About:
  Msgbox,, StarsAssistant, StarsAssistant v%version% `nAuthor: Chris228 @ 2+2 formus`nE-Mail: chris228@gmx.de`nSee file for further credits`n`nIf you like my program I would be happy about a donation.`nMy screenname on PokerStars is 'mr.cray'.`nThank you!
return

Help:
  Run % web() "http://overcards.com/wiki/moin.cgi/StarsAssistant"
return

web() { ; by Titan, modified by Roland
  regRead, p, HKCR, HTTP\shell\open\command
  return SubStr(p, 1, InStr(p, ".exe")+4)
}

Exit:
exitApp

GuiClose:
  Gui 1:Cancel 
return

Submit:
  Gui, 1:Submit, NoHide
return

exitSub:
  Gui 1:Default
  Gui, Submit
  Gui +lastfound
  WinGetPos, x, y
  IniWrite, % x, % ini, Gui, x
  IniWrite, % y, % ini, Gui, y
  IniWrite, % AutoOn, % ini, Prefs, AutoOn
  IniWrite, % Slider, % ini, Prefs, Slider ;brad
  IniWrite, % SliderMax, % ini, Prefs, SliderMax ;brad
  IniWrite, % InfoRefresh, % ini, Prefs, InfoRefresh ;brad
  IniWrite, % Highlight, % ini, Prefs, Highlight
  IniWrite, % MoveMouse, % ini, Prefs, MoveMouse
  IniWrite, % TimeBankClicker, % ini, Prefs, TimeBankClicker
  IniWrite, % AlternateDetection, % ini, Prefs, AlternateDetection
  IniWrite, % ActivateUrgent, % ini, Prefs, ActivateUrgent
  IniWrite, % KillPopups, % ini, Prefs, KillPopups
  IniWrite, % SafeReg, % ini, Prefs, SafeReg
  IniWrite, % AutoTakeSeat, % ini, Prefs, AutoTakeSeat  
exitApp

MinMaxStarsAssistant() {
  WinGetActiveTitle, title
  If ( title = "StarsAssistant" )
    Gui 1:Cancel 
  else
    Gui, 1:Show
}

ToggleCheckbox(box) {
  Gui 1:Default
  GuiControlGet, state, , %box%
  if ( state = 1 )
    GuiControl, , %box%, 0
  if ( state = 0 )
    GuiControl, , %box%, 1
  Gui, 1:Submit, NoHide
}

;=====================================================================
;=================== Buttons =========================================
;=====================================================================

ButtonOn:
  tablecolor:= ""
  last_table_id := ""
  tablequeue := ""
  most_urgent_table := ""
  GoSub, RefreshLobby
  GoSub, TableColor
  SetTimer, RefreshQueue, %RefreshQueue_timer%
  SetTimer, PopUpWatcher, %PopUpWatcher_timer%
  SetTimer, RefreshLobby, %RefreshLobby_timer%
  Suspend, Off
  GuiControl, 1:Disable, On
  GuiControl, 1:Enable, Off
return
  
ButtonOff:
  SetTimer, RefreshQueue, Off
  SetTimer, PopUpWatcher, Off
  SetTimer, RefreshLobby, Off
  SetTimer, TableColor, Off
  Gui, 2: Cancel
  Gui, 3: Cancel
  Gui, 4: Cancel
  Gui, 5: Cancel
  tablecolor:=""
  Suspend, On
  GuiControl, 1:Disable, Off
  GuiControl, 1:Enable, On
return


;=====================================================================
;=================== Urgent Table Functions ==========================
;=====================================================================

RefreshQueue:
  ids := TableIDListStars(LobbyPID)
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, this_id, A_LoopField, InStr(A_LoopField, "_")
    if (!InStr(ids, this_id))
    {
      StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
    }
  }
  Loop, Parse, ids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v = 1 )
    {  
      if (!InStr(tablequeue, A_LoopField))
      {
        DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
        tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
      }
    }
    else
    {
      if ( AlternateDetection = 1 ) {
        color:=TableColor(A_LoopField)
        if ( color != tablecolor && tablecolor != "" ) {
          if (!InStr(tablequeue, A_LoopField))
          {
            DllCall("QueryPerformanceCounter", "Int64 *", CurrentQPC)
            tablequeue := tablequeue . "," . CurrentQPC . "-" . A_TickCount . "_" . A_LoopField
          }
        }
        else {        
          if (InStr(tablequeue, A_LoopField))
          {
            StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
          }
        } 
      } 
      else {
        if (InStr(tablequeue, A_LoopField))
        {
          StringReplace, tablequeue, tablequeue, %A_LoopField%, , All
        }
      }
    }
  }
  tmp := ""
  Loop, Parse, tablequeue, `,
  {
    if (InStr(A_LoopField, "0x"))
    {
      tmp := tmp . "," . A_LoopField 
    }
  }
  Sort, tmp, N D`,
  tablequeue := CleanList(tmp)
  most_urgent_table := ""
  Loop, Parse, tablequeue, `,
  {
    StringTrimLeft, most_urgent_table, A_LoopField, InStr(A_LoopField, "_")
    break
  }
  if ( TimeBankClicker = 1 ) {
    tc := A_TickCount
    Loop, Parse, tablequeue, `,
    {
      StringTrimLeft, waiting_time, A_LoopField, InStr(A_LoopField, "-")
      StringTrimRight, waiting_time, waiting_time, ( StrLen(waiting_time) - (InStr(waiting_time, "_")-1) )
      waiting_time := (tc - waiting_time) / 1000
      if (waiting_time > timebank_min && waiting_time < timebank_max)
      {
        StringTrimLeft, waiting_table, A_LoopField, InStr(A_LoopField, "_")
        timebank_x := 560  ; lastmax 565
        timebank_y := 430  ; lastmax 430 +/-10 too much
        relStarsClientPoint(waiting_table, timebank_x, timebank_y)
        PostLeftClick(timebank_x, timebank_y, waiting_table, 0)
      }  

if (waiting_time > timebank_max+5) ;18)
    {

      SoundPlay, timebankclick.wav ;brad
    }
    
    }
  }
  if ( ActivateUrgent = 1 ) {
    WinActivate, ahk_id%most_urgent_table%
    if ( AlternateDetection = 1 ) {
      color:=TableColor(most_urgent_table)
      if ( color != tablecolor ) {
        if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
        makegui(most_urgent_table, Slider,SliderMax,InfoRefresh, Highlight, MoveMouse, beep, x_mouse, y_mouse)
      }
    }
    else {
      if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
      makegui(most_urgent_table, Slider,SliderMax,InfoRefresh, Highlight, MoveMouse, beep, x_mouse, y_mouse)
    }
  }
  else {
    if ( Slider = 1 || Highlight = 1 || MoveMouse = 1)
    makegui(most_urgent_table,Slider,SliderMax,InfoRefresh,  Highlight, MoveMouse, beep, x_mouse, y_mouse)
  }
return



;makegui(id="", Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {
makegui(id="", Slider =1, SliderMax =1,InfoRefresh=1, Highlight=1, MoveMouse=1, beep=0, x_mouse=0.75, y_mouse=0.75 ) {   ;brad
  global last_table_id
  global border_colour
  global border_size
  global trans
  global Xcoord ;brad
  global Ycoord ;brad
  global Mcoord ;brad
  global RestoreID ; brad
  global ActiveWindow ;brad
  global xi
  global yi

  if (id != last_table_id)
  {
       if (!RestoreID)   	;brad
           { 			;brad
               goto UGLY 	;brad
           }			;brad
DetectHiddenWindows, on ;brad
      WinHide, ahk_id %RestoreID% ;brad
      if ( Mcoord = 1 ) 
        {
          ;WinRestore , ahk_id %RestoreID% ;brad
          ;PostMessage, 0x112, 0xF120,,, ahk_id %RestoreID%, ;brad
          ;WinMaximize , ahk_id %RestoreID% ;brad
          PostMessage, 0x112, 0xF030,,, ahk_id %RestoreID%, ;brad
         }
      Sleep, 0 ; brad
      WinMove, ahk_id %RestoreID%,, Xcoord, Ycoord,  ; brad
      WinShow, ahk_id %RestoreID% ;brad
      ;;WinActivate, ahk_id %ActiveWindow% ;brad
      RestoreID :=0
      Mcoord := 0
DetectHiddenWindows, off ;brad
UGLY:
    last_table_id := id
    
    if(!id) ; if (id=0 or id="") 
    {
      Gui, 2: Cancel
      Gui, 3: Cancel
      Gui, 4: Cancel
      Gui, 5: Cancel
      return
    }
    
    global border
    global caption
    if (InfoRefresh = 1)
      {
	xi := 222                           ;click  info for tourneys
	yi := 440
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)

        ;global border
        ;global caption
	xi := 222                           ;click  refresh for tourneys
	yi := 465
	xi := xi  -( border/2 )                         
	yi := yi -( border+caption )
        relStarsClientPoint(id, xi, yi)
        PostLeftClick(xi, yi, id, 0)
      }

    WinGetPos, x, y, w, h, ahk_id%id% 	
    ;global border
    ;global caption
    x := x + border
    y := y + border + caption
    w := w - (2*border)
    h := h - (2*border) - caption
    

    ;Makes Border around urgent table
    if ( Highlight = 1 ) {
    ;if ( Highlight = 999 ) { ; brad
      ;top
      guinum := 2
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y% NoActivate  
      
      ;left
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      Gui, %guinum%: Show, w%border_size% h%h% x%x% y%y% NoActivate  
      
      ;bottom
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      y2 := y + h - border_size
      Gui, %guinum%: Show, w%w% h%border_size% x%x% y%y2% NoActivate  
      
      ;right
      guinum++
      Gui, %guinum%: +Alwaysontop +Lastfound +Owner
      Gui, %guinum%: Color, %border_colour%
      WinSet, Transparent, %trans%
      Gui, %guinum%: -Caption
      x2 := x + w - border_size
      Gui, %guinum%: Show, w%border_size% h%h% x%x2% y%y% NoActivate
    
    }

WinGetPos, x, y, w, h, ahk_id%id%
    if (Slider = 1)	;brad
      {			;brad
    	Xcoord :=x ;brad
    	Ycoord :=y ;brad
    	RestoreID := id ;brad  
    	x :=0 ;brad	
    	y :=0 ;brad	
	DetectHiddenWindows, on ; brad
    	WinHide, ahk_id %id% ;brad
    	WinMove,ahk_id %id%,, x, y ;brad
        if(SliderMax = 1)	
    	  {
            ;WinMaximize , ahk_id %id% ;brad
    	    PostMessage, 0x112, 0xF030,,, ahk_id %id%, ;brad
            Mcoord := 1
          }
    	Sleep, 0 ; brad
    	WinShow, ahk_id %id% ;brad
	;;WinGet, ActiveWindow, ID, A ;brad
    	WinActivate, ahk_id %id% ;brad
	DetectHiddenWindows, off ; brad
      }	;brad
        
    ;Puts mouse pointer nearer the bet buttons
    if ( MoveMouse = 1) {
      x3 := x + (w * x_mouse)
      y3 := y + (h * y_mouse)
      Coordmode, Mouse, Screen
      MouseMove, x3, y3, 0
    }
    
    ;Beeps on urgent table
    if ( beep = 1 )
      SoundBeep, 750, 100
      ;SoundPlay, timebankclick.wav ;brad
  }
}

;removes empty items (and trailing delimiters)
CleanList(list, del="") {
  del := del="" ? "," : del
  Loop {
    StringReplace, list, list, %del%%del%, %del%, UseErrorLevel
    If ! ErrorLevel
     break
   }
  If InStr(list, del) = 1
   StringTrimLeft, list, list, 1
  If InStr(list, del,0,0) = StrLen(list)
   StringTrimRight, list, list, 1
  return list
}


PostLeftClick(x, y, table_id, activate=1, control_class="") {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), %control_class%, ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), %control_class%, ahk_id%table_id%
}

relStarsClientPoint(id, ByRef x, ByRef y)
{
  global border
  global caption
  rw := 792
  rh := 546
  WinGetPos, , , w, h, ahk_id%id%
  w := w - (2*border)
  h := h - (2*border) - caption
  x := Floor( (x / rw ) * w )
  y := Floor( (y / rh) * h  )
}

TableColor(id) {
  CoordMode, Pixel, Screen
  WinGetPos, x, y, w, h, ahk_id%id%
  rw := 800
;rh := 578
;
rh := 573 ; brad
  ;x := x+475
  ;y := y+555
  ;x := Floor( (x / rw ) * w )
  ;y := Floor( (y / rh) * h  )

x := Floor( x + ( (475* w) / rw )   ) ;brad
y := Floor( y + ( (555* h) / rh )   ) ;brad

  PixelGetColor, color, %x%, %y%, RGB
  ;tooltip %x% %y% %color%
  return color
}

TableColor:
  tableids := TableIDListStars(LobbyPID)
  Loop, Parse, tableids, `,
  {
    ControlGet, v, Visible, , PokerStarsSliderEditorClass1, ahk_id%A_LoopField%
    if ( v != 1 ) {
      WinActivate, ahk_id%a_loopfield%
      sleep, 500
      tablecolor:=TableColor(a_loopfield)
      break
    }      
  }
;Msgbox, %tablecolor%
  if ( tablecolor != "" )
    SetTimer, TableColor, Off
  else
    SetTimer, TableColor, %TableColor_timer%
return


;=====================================================================
;=================== SNG Registration Functions ======================
;=====================================================================

RegSNG(id) {
  if ( SafeReg = 1 ) {
    IfWinActive, ahk_id%id%
      RegSNGexec(id)
  }
  else {
    RegSNGexec(id)
  }
}

RegSNGexec(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass6, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass6, ahk_id%id%
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id
      ControlFocus, Button1, ahk_id%regid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%regid%
      sleep, 10
      ControlFocus, Button2, ahk_id%regid%
      Sleep, -1
      ControlSend, Button2, {SPACE}, ahk_id%regid%  
    }
    WinWait, Tournament Registration ahk_class #32770, , 10
    {
      WinGet, regid, id           
      ControlGetText, ctext, Button1, ahk_id%regid%
      if ( cText = "OK" ) {
        ControlFocus, Button1, ahk_id%regid%
        Sleep, -1
        ControlSend, Button1, {SPACE}, ahk_id%regid%
      }        
    }
  }
}


CloseTournamentLobby(id, pid) {
  Loop {
    IfWinExist, Lobby ahk_pid%pid%,, PokerStars Lobby
      WinClose
    else
      break
  }
  Sleep, 100
  WinGet, state, MinMax, ahk_id%id%
  if ( state = 1 || state = 0 )
    WinMinimize, ahk_id%id%
}


;=====================================================================
;=================== Join Cashgame Functions =========================
;=====================================================================


OpenJoinUnJoinTable(id) {
  ControlGet, v, Visible, , PokerStarsButtonClass3, ahk_id%id%
  if ( v = 1 ) {
    ControlClick, PokerStarsButtonClass3, ahk_id%id%
    WinWait, Waiting List ahk_class #32770, , 10
    {
      WinGet, joinid, id
      ControlFocus, Button1, ahk_id%joinid%
      Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%joinid%
    }
  }
  else {
    ControlGet, v, Visible, , PokerStarsButtonClass2, ahk_id%id%
    if ( v = 1 ) {
      ControlClick, PokerStarsButtonClass2, ahk_id%id%
    }
    else {
      ControlGet, v, Visible, , PokerStarsButtonClass8, ahk_id%id%
      if ( v = 1 ) {
        ControlClick, PokerStarsButtonClass8, ahk_id%id%
      } 
    }
  }
}


;=====================================================================
;=================== Popup Functions =================================
;=====================================================================

PopUpWatcher:
  If ( KillPopups = 1 )
    KillPopUps(LobbyPID)
  if ( AutoTakeSeat = 1 )
    TakeSeat(LobbyPID)
return

KillPopUps(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list1, list, PokerStars ahk_class #32770 ahk_pid%pid%, , Lobby
    Loop, %list1%
    {
      This_id := list1%A_Index%
      WinGet, list2, ControlList, ahk_id%this_id%
      if (InStr(list2, "Button2"))  {
        continue
      }
      else {
        Loop, 20
        {
          ControlFocus, Button1, ahk_id%this_id%
          Sleep, -1
          ControlSend, Button1, {SPACE}, ahk_id%this_id%
          Sleep, 100
          IfWinNotExist, ahk_id%this_id%
          {
            break
          }
        }
      }
    }
  }
}

TakeSeat(pid) {
  IfWinExist, PokerStars ahk_class #32770 ahk_pid%pid%
  {
    WinGet, list, list, Seat Available ahk_class #32770 ahk_pid%pid%
    Loop, %list%
    {
      This_id := list%A_Index%
      ControlFocus, Button1, ahk_id%this_id%
       Sleep, -1
      ControlSend, Button1, {SPACE}, ahk_id%this_id%
    }
  }
}


;=====================================================================
;=================== Lobby & Tables Functions ========================
;=====================================================================

RefreshLobby:
  WinGet, LobbyID, id, PokerStars Lobby
  WinGet, LobbyPID, PID, ahk_id%LobbyID%
return

MaxMinLobby(id) {
  WinGetActiveTitle, title
  IfInString, title, PokerStars Lobby
  {
    WinMinimize,ahk_id%id%
  }
  else {
    WinActivate, ahk_id%id%
  }
} 

TableIDListStars(pid)
{
  WinGet, list, list, / ahk_pid%pid%, , Lobby
  Loop %list%
  {
    this_id := list%a_index%
    If (this_id != id)
    {
      ids = %ids%,%this_id%
    }
  }
  StringTrimLeft, ids, ids, 1
  return ids
}