sleeppause = 100
	closeplayernotes = 1
return

^lbutton::
	ifwinexist, ahk_class PokerStarsTableFrameClass
	{
		hpokerstars := winexist()
		original_titlematchmode := a_titlematchmode
		original_setbatchlines := a_batchlines
		
		setbatchlines, -1
		settitlematchmode, slow
		mousegetpos, , , mousewin
		if (winexist("ahk_class PokerStarsTableHelperFrameClass") and mousewin = hpokerstars)
		{
			
			mouseclick, , , , 2
			sleep % sleeppause
			mousegetpos, mousex, mousey
			if closeplayernotes
			{
				controlgetpos, controlx, controly, controlw, controlh, PokerStarsTableHelperButtonClass5
				blockinput, on
				mousemove, controlx + controlw // 2, controly + controlh // 2, 0
				controlclick, PokerStarsTableHelperButtonClass5
				mousemove, mousex, mousey, 0
				blockinput, off
			}
			playernametoclipboard()
		}
		else
		{
			winget, controllist, controllist
			returntype = 
			loop, parse, controllist, `n
			{
				controlget, hwnd, hwnd, , % a_loopfield
				if instr(a_loopfield, "PokerStarsChatClass") and dllcall("IsWindowVisible", int, hwnd)
						returntype = 1
				else if instr(a_loopfield, "PokerStarsNoteSelectorClass") and dllcall("IsWindowVisible", int, hwnd)
						returntype = 2
				else if instr(a_loopfield, "PokerStarsInfoClass") and dllcall("IsWindowVisible", int, hwnd)
				{
					if (a_loopfield = "PokerStarsInfoClass1")
						returntype = 3
					else
						returntype = 4
				}
				if returntype
				{
					mouseclick, , , , 2
					wingetpos, winx, winy, winw, winh
					controlgetpos, edit1x, edit1y, edit1w, edit1h, Edit1
					varsetcapacity(point, 64, 0)
					dllcall("ClientToScreen", int, winexist(), int, &point)
					postmessage, 0x201, 0x1, (edit1x + winx - numget(point)) + (edit1w / 4) * (returntype - 1 / 2) | ((edit1y + winy - numget(point, 4))- edit1h // 2 << 16) ; WM_LBUTTONDOWN
					postmessage, 0x202, , edit1x + (edit1w / 4) * (returntype - 1 / 2) // 1 | (edit1y - edit1h // 2 << 16) ; WM_LBUTTONDOWN
					sleep % sleeppause
					break
				}
			}
			playernametoclipboard()
		}
		
		; Cleanup
		settitlematchmode, % original_titlematchmode
		setbatchlines, % original_batchlines
	}
return

playernametoclipboard()
{
	wingettext, text
	clipboard := substr(text, 1, instr(text, "`r") - 1)
}