User:Asnath/Timer

// This macro has been written for AC Tools
// It is not dependent on screen resolution or view.

// Timer Macro
// This simple macro will click on same position, a given number of time
// for a given duration
//--------------------------------------------------------------------------
// If the macro needs to click on a window menu, please pin window before start 
// In anycase, input data in the macro window which will appear TEHN position mouse.
// Input : click interval in seconds (eg : your timer delay)
// Input : Time while doing it
// If you have to pin a window, make sure you pin it out of the way to avoid 
// overlapping with window message for out of timer if it appears.
//--------------------------------------------------------------------------

constants
  StartX = 0
  StartY = 0
  Interval = 0
  Duration = 0
  DurationStop = 0
  Nbclick = 0
  I = 1
end

SetActiveWindow eGenesis Client

Form Timer, Settings
  ed1=Editbox:Interval between clicks in seconds:10
  ed2=Editbox:How long should it be running for in minutes:1
END

FormLoad Timer, Plan.frm
// Get mouse coord for window

if ShowForm Timer
  Delay 3000
  Setconst startX = {mouseX}
  Setconst starty = {mouseY}
  Set Interval = Timer[ed1]
  Set Duration = Timer[ed2]
  Setconst startX = {mouseX}
  Setconst starty = {mouseY}
else
  stop
end

FormSave Timer, Timer.frm

Compute NbClick = $Duration*60/$Interval 
Compute Interval = $Interval*1000

While $I < $NbClick
	Mousepos $startX,$StartY
	Delay 20
	Leftclick
	Delay 20
	Delay $Interval
	Inc I
End