Don't pounce me for bad scripting grammar :/
Code: Select all
#define maxiskill v1
Sub Main
/varcalc maxiskill $char(level)*5+5
:Begin
/if n $char(skill,alteration)<$maxiskill /cast 1
/if n $char(skill,alteration)<$maxiskill /delay 35
/if n $char(skill,evocation)<$maxiskill /cast 2
/if n $char(skill,evocation)<$maxiskill /delay 50
/if n $char(skill,conjuration)<$maxiskill /cast 3
/if n $char(skill,conjuration)<$maxiskill /delay 42
/if n $char(skill,divination)<$maxiskill /cast 4
/if n $char(skill,divination)<$maxiskill /delay 38
/if n $char(skill,abjuration)<$maxiskill /cast 5
/if n $char(skill,abjuration)<$maxiskill /delay 55
/if $gm==TRUE /call Crap
/if $target(name)!~"Warder" /call Warder
/if n $char(mana,pct)<25 /cast 6 /delay 75
/if n $char(mana,pct)<10 /sit
/if n $char(mana,pct)<10 /call meditate
/if n $char(skill,alteration)<$maxiskill /goto :begin
/if n $char(skill,evocation)<$maxiskill /goto :begin
/if n $char(skill,conjuration)<$maxiskill /goto :begin
/if n $char(skill,divination)<$maxiskill /goto :begin
/if n $char(skill,abjuration)<$maxiskill /goto :begin
Sub Crap
/cleanup
/reply 1 sec.. laggy
/sit
/mqlog
/delay 80
/q
/sit
/camp
/return
Sub Warder
/press 4
/delay 180
/target pet
/delay 10
/return
Sub meditate
:rest
/delay 10
/if n $char(mana,pct)<100 /goto :rest
/stand
/return 

