Code:
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
$delay = 2
$seal = 10
sleep(1000)
$delay = InputBox("K1","Delay Between key presses. IMO bets time is 2 sec Press cancel to exit","2")
if @Error =1 Then Exit
$seal = InputBox("K1","Delay For totem or seal. Put your totem/seal on DOWN key Press cancel to exit","10")
if @Error =1 Then Exit
$delay *= 1000
$seal *= 60000
$memseal = $seal
While 1
sleep($delay)
ToolTip("UP",0,0)
sleep(100)
ControlSend("wow1", "", "", "{UP}")
ControlSend("wow2", "", "", "{UP}")
ControlSend("wow3", "", "", "{UP}")
ControlSend("wow4", "", "", "{UP}")
ControlSend("wow5", "", "", "{UP}")
ControlSend("wow6", "", "", "{UP}")
ControlSend("", "", "", "");Clear
sleep($delay)
ToolTip("Left",0,0)
sleep(100)
ControlSend("wow1", "", "", "{LEFT}")
ControlSend("wow2", "", "", "{LEFT}")
ControlSend("wow3", "", "", "{LEFT}")
ControlSend("wow4", "", "", "{LEFT}")
ControlSend("wow5", "", "", "{LEFT}")
ControlSend("wow6", "", "", "{LEFT}")
ControlSend("", "", "", "");Clear
sleep($delay)
ToolTip("RIGHT",0,0)
sleep(100)
ControlSend("wow1", "", "", "{RIGHT}")
ControlSend("wow2", "", "", "{RIGHT}")
ControlSend("wow3", "", "", "{RIGHT}")
ControlSend("wow4", "", "", "{RIGHT}")
ControlSend("wow5", "", "", "{RIGHT}")
ControlSend("wow6", "", "", "{RIGHT}")
ControlSend("", "", "", "");Clear
$seal -= $delay*3
$seal -= 300
ToolTip($seal/100,0,0)
if $seal < 0 then
sleep(1000)
ControlSend("wow1", "", "", "{DOWN}")
ControlSend("wow2", "", "", "{DOWN}")
ControlSend("wow3", "", "", "{DOWN}")
$seal = $memseal
EndIf
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('HonorFarm is Paused',0,0)
WEnd
ToolTip("")
EndFunc