;***************************************************************************************
; BET POT - Microgaming
; By Sheetah @ 2+2
; July 2012.
;
; Big thanks to Dave, Juk, probably some other 2+2 coders and Autohotkey.forums folks
; for not minding me stealing some snippets here and there to make this work
;***************************************************************************************



;***************************************************************************************
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
CoordMode, Pixel, Relative



;***************************************************************************************
;***************************************************************************************
; ******************************* PARAMETERS *****************************************
; If you want something to edit/fine tune this is where you should look.
; All coordintaes are 'percentage' coords based on client (not ahk native window)
; width/height - if you don't know what it means better don't touch anything.
; Don't forget to backup before changing the code (easy to forget).

; RB-right mouse button; 
; MB-middle button;
; TB-text box (where you type amount to bet - used to determine if it's
; our turn to act)

MouseOverPop := false ; if true => table will be put to front if mouse over
xRB := 0.4
yRB := 0.97
xMB := 0.47
yMB := 0.97
xTB := 0.69
yTB := 0.93

;***************************************************************************************
;***************************************************************************************
;***************************************************************************************



;******************************* GLOBAL VARIABLES **********************************

w_client := 0
h_client := 0


if(MouseOverPop == true)
	SetTimer, WatchCursor, 100



; ******************************* TEH HOTKEYS **************************************

~RButton::
	MouseGetPos,,,hwnd
	if(ValidateTableAction(hwnd) != true)
		return
	ClientClick(hwnd,xRB,yRB)
return


~MButton::
	MouseGetPos,,,hwnd
	if(ValidateTableAction(hwnd) != true)
		return
	ClientClick(hwnd,xMB,yMB)
return



; ****************************** MY FUNCTIONS ***************************************

ClientClick(hwnd,x,y){
	global w_client,h_client
	xc := Round(x*w_client)
	yc := Round(y*h_client)
	PostLeftClick(xc,yc,hwnd) 
}

ValidateTable(hwnd){
	WinGetTitle,wtitle,ahk_id%hwnd%
	WinGetClass,wclass,ahk_id%hwnd% 
	IfNotInString, wtitle, Real Money
		return false
	if(wclass == "GFX_INT_DLG_WINDOW_GAME")
		return true
	else
		return false
}

ValidateTableAction(hwnd){
	global w_client,h_client,xTB,yTB
	if(ValidateTable(hwnd) != true)
		return false
	GetClientSize(hwnd,w_client,h_client)
	xp := Round(xTB*w_client)
	yp := Round(yTB*h_client)
	ClientToWin(hwnd,xp,yp)
	PixelGetColor,pxlclr,xp,yp
	if(pxlclr == 0xFFFFFF)
		return true
	return false
}

WatchCursor:
    OnMM()
return


OnMM()
{
	MouseGetPos,,,hwnd
	if(ValidateTable(hwnd) == true)
	WinActivate,ahk_id%hwnd%
}


; *********************** RANDOM USEFUL FUNCTIONS (shamelessly stolen) **************

;Juks rocks
PostLeftClick(x, y, table_id, activate=1) {
; ### 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), , ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%table_id%
}

GetClientSize(hwnd, ByRef w, ByRef h)
{
    VarSetCapacity(rc, 16)
    DllCall("GetClientRect", "uint", hwnd, "uint", &rc)
    w := NumGet(rc, 8, "int")
    h := NumGet(rc, 12, "int")
}


ClientToWin(hwnd, ByRef x, ByRef y)
{
    VarSetCapacity(pt, 8)
    NumPut(x, pt, 0)
    NumPut(y, pt, 4)
    DllCall("ClientToScreen", "uint", hwnd, "uint", &pt)
    WinGetPos, wx, wy,,, ahk_id %hwnd%
    x := NumGet(pt, 0, "int") - wx
    y := NumGet(pt, 4, "int") - wy
}

#NoEnv  
#SingleInstance force
#MaxHotkeysPerInterval 300|
SetTitleMatchMode, 2

BS_OnActiveTable=0
BS_moveMouse=1

#if (MouseIsOver("NL  Hold ahk_exe PartyGaming.exe"))
~WheelUp::AlterAmount(getid(),"up")
~WheelDown::AlterAmount(getid(),"down")

~^WheelUp::AlterAmount(getid(),"up", "1", "sb")
^~WheelDown::AlterAmount(getid(),"down", "1", "sb")
  
~LButton & ~WheelDown::AlterAmount(getid(),"up", "0.5", "pot")
~LButton & ~WheelUp::AlterAmount(getid(),"up", "0.66", "pot")
  
~RButton & ~WheelDown::AlterAmount(getid(),"up", "0.75", "pot")
~RButton & ~WheelUp::AlterAmount(getid(),"up", "1", "pot")
  
return

AlterAmount(id, dir="", frac=1, unit="")
{ global party_uses_commas_for_decimals, BS_moveMouse
  IfWinExist, ahk_id%id% 
  { WinGetTitle, title, ahk_id%id%
    if InStr(title, "/")
      StringTrimLeft, bb, title, InStr(title, "/", true, 1)
    
    if InStr(bb, ",")
    {  StringReplace, bb, bb, `,,., All 
       party_uses_commas_for_decimals:=1
    }  else party_uses_commas_for_decimals:=0

    StringReplace,bb,bb,$,,1
    sb := sb(bb) 
  } else {
    Send {%A_ThisHotkey%}
    return
  }
  If (unit = "" or unit = "bb")
    unit := bb
  else if (unit = "sb")
    unit := sb
  else if (unit = "pot")
  { pot := 0
    call := 0
    hero_bet := 0
    street := "pre"
    hero_position := ""
    open := 0
    max := 10000000
    IfWinExist, ahk_id%id% 
    { ControlGetText, pot, Static16, ahk_id %id%
      StringReplace,pot,pot,$,,1
      StringTrimLeft, pot, pot, % InStr(pot,": ")
      if (party_uses_commas_for_decimals)
        StringReplace, pot, pot, `,,., All   
      unit:=pot
    }
  }

  amount:=unit*frac 
  if (unit = pot)
    amount-=bb
  ;traytip,,  % "Pot: " . pot . "`r`n" . "frac: " . frac . "`r`n" . "unit: " . unit  . "`r`n" . "amount: " . amount
  if (dir="down")
    amount:=amount-(2*amount)
  
  IfWinExist, ahk_id%id% 
  { ControlGetText, t, Edit2, ahk_id%id%
    if (party_uses_commas_for_decimals)
      StringReplace, t, t, `,,., All
    else StringReplace, t, t, `,,, All
      
    t+=amount
    if (t < 0)
      t := 0
    transform, t, Round, t, 2
    
    if (party_uses_commas_for_decimals)
      StringReplace, t, t, .,`,, All
  
    ControlSetText, Edit2, %t%, ahk_id%id%
    if (BS_moveMouse)
    { ControlGet, vis, visible, , AfxWnd90u19, ahk_id%id% 
      if (vis)
      { IfWinNotActive, ahk_id%id%
          WinActivate, ahk_id%id% 
        WinWaitActive, ahk_id%id% ,,3
        If ErrorLevel
          return
        ControlGetPos, x, y, , , AfxWnd90u19, ahk_id%id%
        MouseMove, x + 15, y + 10
      }
    }
  }
}

sb(bb) 
{ If bb = .25
    sb := .10
  else if bb = 15
    sb = 10
  else if bb = 0.05
    sb = 0.02
  else
    sb := bb/2
  if (sb > 1)
    sb := Round(sb, 0)
  else sb := Round(sb, 2)
  return sb
}

getid()
{ global BS_OnActiveTable
  id:= ""
  if (BS_OnActiveTable = 1) 
    WinGet,id,,A
  else MouseGetPos, , , id
  return id
}
MouseIsOver(WinTitle) 
{ MouseGetPos,,, id
  return WinExist(WinTitle . " ahk_id " . id)
}