User:Cegaiel/Macros/SkillsTimer/Code

;Ctrl+Alt+W to start script
;Ctrl+P to pause script and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script
;Date: 3/06/2010


^r::reload
^p::Pause
^!w::

counter = 0

	Gui, +AlwaysOnTop +ToolWindow
	Gui, Add, Text,, # of Clicks to Stop?`n(Blank=Unlimited, don't stop):
	Gui, Add, Edit, vClicks wp number
	Gui, Add, Text,, Eating Grilled Food?`n(Automatically eat every 10 Teppy Min)
	Gui, Add, DropDownList, vEat Choose1, No|Yes

	Gui, Add, Button, gStart, Next
	Gui, Show
	return



Start:
Gui, Submit
Gui, Destroy

Msgbox, Hover mouse over a black letter, in skills tab (ie Endurance for digging)`n`nThe letter/skill you want to hover is the one that turns red when you get tired`n`nWhen you are hovering a black letter it will tell you in the tooltip.`n`nPress F2, when it tells you in tooltip, to set position.`n`nClick OK to proceed...

WinActivate, eGenesis Client
SetDefaultMouseSpeed, 0


loop
{
MouseGetPos, skillX, skillY
PixelGetColor, color, skillX, skillY, RGB

if color = 0x000000
{
ToolTip, Coordinates: %skillX%`, %skillY%`nColor: %color%`n`n* HOVERING BLACK *`n* Press F2 to set location *
} else {
ToolTip, Coordinates: %skillX%`, %skillY%`nColor: %color%
}


GetKeyState, state, F2
if state = D
{
MsgBox Skills text location recorded, now its time to record the click location.`n`nHover where you want to click and press F2.`n`nFor a dig (or other skills related tasks), pin up the Dig Hole menu and set the click to the word Dig.`n`nFor limestone/dirt set the click position on the icon.`n`nClick OK to proceed...
Tooltip
WinActivate, eGenesis Client
break
}
}


KeyWait, F2, D
if ErrorLevel = 0
{
MouseGetPos, ClickX, ClickY
Msgbox, Click location recorded!`n`nNote: you can hit Ctrl+P to PAUSE script anytime and Ctrl+P again to RESUME`n`nHit F2, while the script runs, to see how many clicks you've done so far.`n`nClick OK to continue...
}


	if (Eat == "Yes")
	{

Msgbox, One more step! You have selected that you will be eating grilled foods!`n`nPinup the Esc, Skills, Consume menu and set the click position of the "Eat Grilled food" menu by hovering and hitting F2.`n`nNote: When this macro begins, it will first eat (so don't manually eat first).`n`nThen every 10 Teppy Mins (11:00 real time), it will automatically click/eat the grilled food.`n`nClick OK, then hit F2 over the grilled food consume menu to set...

WinActivate, eGenesis Client


KeyWait, F2, D
if ErrorLevel = 0
{
MouseGetPos, EatX, EatY
Msgbox, Eat location recorded!`n`nClick OK to eat food and start the macro...
Click %EatX%, %EatY% 

	Gui, +AlwaysOnTop +ToolWindow
	Gui, Add, Text, vClickText, Preparing to start... Standby!`n`n
	Gui, Show
	GuiControl, Text, ClickText, Preparing to start... Standby!`n`n

	EatTimer = 660
	#Persistent 
	SetTimer, Eat, 1000
}


	;Else Eat = No
	} else {
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Add, Text, vClickText, Preparing to start... Standby!
	Gui, Show
	GuiControl, Text, ClickText, Preparing to start... Standby!
	}



;This just appends the "of #" or the "of Unlimited" text on GUI bar.
if (Clicks > 0)
{
Max := Clicks
} else {
Max := "Unlimited"
}



	loop
	{

WinActivate, eGenesis Client
PixelGetColor, color, skillX, skillY, RGB


if color = 0x000000
{
MouseGetPos, OldX, OldY
Click %ClickX%, %ClickY% 
MouseMove, %OldX%, %OldY%
Sleep 500
counter++

		if (Eat == "Yes")
		{
		GuiControl, Text, ClickText, Clicks: %counter% of %Max%`n`nAuto Eat: %EatTimer%s
		} else {
		GuiControl, Text, ClickText, Clicks: %counter% of %Max%
		}


if (counter = Clicks)
break

		}

	}
Msgbox, Done, executed %counter% clicks, Exiting...





	Eat: 
	EatTimer --
	GuiControl, Text, ClickText, Clicks: %counter% of %Max%`n`nAuto Eat: %EatTimer%s
	
	if EatTimer = 0
	{
	GuiControl, Text, ClickText, Eating grilled food...
	MouseGetPos, OldMX, OldMY
	;Click the Eat Grilled food menu
	Click, %EatX%, %EatY%			
	Sleep, 500
	MouseMove, %OldMX%, %OldMY%, 0			
	EatTimer = 660
	}
	return