Guilds/ZFree/Crematory Macro

Here is the AutoHotKey code for the crematory Macro. Hover the mouse over each of the buttons and press NumPad0 to save the location. Pressing numbers 1-7 on your keypad will now trigger the associated button. Keep in mind that 4-7 and 5-6 are linked. NumpadDot will reload the script

CoordMode, Mouse, Screen
CoordMode, Pixel, Screen
NumPad0::
WinGet, ATITDWIN, ID, A
WinGetPos,ATITD_X,ATITD_Y,,,ahk_id %ATITDWIN%
if (P5X and P5Y)
{
	P1X:=""
	P1Y:=""
	P2X:=""
	P2Y:=""
	P3X:=""
	P3Y:=""
	P4X:=""
	P4Y:=""
	P5X:=""
	P5Y:=""
	MouseGetPos,P1X,P1Y
	TrayTip, Crematory Macro Info, Cleared vars`nP1X%p1x% P1Y%p1y%
	return
}
if (P4X and P4Y)
{
	MouseGetPos,P5X,P5Y
	TrayTip, Crematory Macro Info, P5X%p5x% P5Y%p5y%
	return
}
if (P3X and P3Y)
{
	MouseGetPos,P4X,P4Y
	TrayTip, Crematory Macro Info, P4X%p4x% P4Y%p4y%
	return
}
if (P2X and P2Y)
{
	MouseGetPos,P3X,P3Y
	TrayTip, Crematory Macro Info, P3X%p3x% P3Y%p3y%
	return
}
if (P1X and P1Y)
{
	MouseGetPos,P2X,P2Y
	TrayTip, Crematory Macro Info, P2X%p2x% P2Y%p2y%
	return
}
if !(P1X and P1Y)
{
	MouseGetPos,P1X,P1Y
	TrayTip, Fire Macro Info, P1X%p1x% P1Y%p1y%
	return
}
NumPad1::
ControlClick , % "x" . P5X-ATITD_X . " y"  P5Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad2::
ControlClick , % "x" . P1X-ATITD_X . " y"  P1Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad3::
ControlClick , % "x" . P3X-ATITD_X . " y"  P3Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad4::
ControlClick , % "x" . P4X-ATITD_X . " y"  P4Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad5::
ControlClick , % "x" . P2X-ATITD_X . " y"  P2Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad6::
ControlClick , % "x" . P2X-ATITD_X . " y"  P2Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPad7::
ControlClick , % "x" . P4X-ATITD_X . " y"  P4Y-ATITD_Y, ahk_id %ATITDWIN%, , Left, 1, NA
return
NumPadDot:: Reload