#NoEnv
#SingleInstance force
BBs := 32   ;How many BBs to buy in for

WinGet, pid, PID, PokerStars Lobby
WinGet, id, list, ahk_pid%pid%, , PokerStars Lobby
SetTitleMatchMode, 2
If (pid)
{
	;MsgBox, % "Found Lobby"
}
Else
{
	MsgBox, % "Oops, PokerStars isn't open."
	Exit
}
Loop
{
	WinWait, Buy-in ahk_pid%pid% ahk_class #32770
	WinGet, id, ID
	ControlClick, Button1, ahk_class #32770 ahk_id %ID%
	ControlSetText, Static6,,ahk_class #32770 ahk_id %ID%
	ControlSetText, Button2,,ahk_class #32770 ahk_id %ID%
	ControlClick, Button3, ahk_class #32770 ahk_id %ID%

	ControlGetText, BuyStr, Static2, ahk_class #32770 ahk_id %ID%
	StringGetPos, pos, BuyStr, $
	pos += 1
	StringTrimLeft, MinBuy, BuyStr, %pos%
	BuyStr := MinBuy
	StringGetPos, pos, BuyStr, $
	pos += 1
	StringTrimLeft, MinBuy, BuyStr, %pos%

	buyin = 1
	buyin *= BBs * MinBuy

	ControlSetText, Edit1, %buyin%, ahk_class #32770 ahk_id %ID%
	Sleep 50
	ControlClick, Button4, ahk_class #32770 ahk_id %ID%
}