#NoEnv
#Persistent
#SingleInstance, Force
Process, Priority,, High
SetTitleMatchMode, 2
#MaxHotkeysPerInterval 2000
SetWinDelay, -1
SetKeyDelay, -1
SetMouseDelay, -1
SendMode Input
Critical 0

TableSel := 1

WheelUp::
MouseGetPos,,,tableID
WinGetTitle, tableIDclass, ahk_id %tableID%
if tableIDclass = PKR - let's play!
	{
	TableSel := TableSel - 1
	if TableSel < 1
		{
		TableSel := 4
		}
	gosub pressfkey
	}
else
	{
	Send {WheelUp}
	}
return

WheelDown::
MouseGetPos,,,tableID
WinGetTitle, tableIDclass, ahk_id %tableID%
if tableIDclass = PKR - let's play!
	{
	TableSel := TableSel + 1
	if TableSel > 4
		{
		TableSel := 1
		}
	gosub pressfkey
	}
else
	{
	Send {WheelDown}
	}
return

pressfkey:
if TableSel = 1
	{
	Send {F1}
	}
else if TableSel = 2
	{
	Send {F2}
	}
else if TableSel = 3
	{
	Send {F3}
	}
else if TableSel = 4
	{
	Send {F4}
	}
return