|
;By IVIaniac
Global $timer_1, $timer_2, $timer_3, $timer_4, $timer_5, $timer_6, $timer_7
Global $script_running=0
Global $sleep=100 ;how long of a delay between running the script (100 = 10x / second)
WinActivate("World of Warcraft");
Send("{shiftdown}4{shiftup}")
; Hotkeys
HotKeySet("{INSERT}", "start_script")
HotKeySet("{END}", "stop_script")
Func start_script()
Send("=")
Sleep($sleep)
Send("=")
Sleep($sleep)
Send("=")
Sleep($sleep)
Send("=")
Sleep($sleep)
Send("=")
Sleep($sleep)
Send("=")
Sleep($sleep)
Send("--")
Sleep($sleep)
Send("00")
Sleep($sleep)
Send("99")
Sleep($sleep)
Send("88")
Sleep($sleep)
Send("66")
Sleep($sleep)
Send("55")
Sleep($sleep)
Send("44")
Sleep($sleep)
Send("33")
Sleep($sleep)
Send("22")
Sleep($sleep)
$timer_1=TimerInit()
$timer_2=$timer_1
$timer_3=$timer_1
$timer_4=$timer_1
$timer_5=$timer_1
$timer_6=$timer_1
$timer_7=$timer_1
$script_running = 1
EndFunc
Func stop_script()
$script_running = 0
EndFunc
While 1
If $script_running Then
;do stuff here
If(TimerDiff($timer_1) >= 19*1000) Then
Send ("22") ; 20 sec
$timer_1=TimerInit()
ElseIf(TimerDiff($timer_2) >= 14*1000) Then
Send ("33") ; 15
$timer_2=TimerInit()
ElseIf(TimerDiff($timer_3) >= 13*1000) Then
Send ("44") ; 15
$timer_3=TimerInit()
ElseIf(TimerDiff($timer_5) >= 40.5*1000) Then
Send ("66") ; 40s CD
$timer_5=TimerInit()
ElseIf(TimerDiff($timer_4) >= 3*1000) Then
Send ("55") ; 5
$timer_4=TimerInit()
ElseIf(TimerDiff($timer_6) >= 2*60*1000) Then
Send ("88") ; 2min
$timer_6=TimerInit()
ElseIf(TimerDiff($timer_7) >= 1.5*60*1000) Then
Send ("00") ; 1.5min
$timer_7=TimerInit()
Else
Send ("1")
EndIf
EndIf
Sleep($sleep)
WEnd |
|