Code: Select all
#define CastTimer t0
#define CurSpell v10
Sub Main
/varset a(0,1) 1
/varset CurSpell 1
/varset t0 0
:loop
/if n $CastTimer<=0 /call Sing $int($a(0,1))
/goto :loop
/return
Sub Sing
/stopsong
/varset CastTimer 35
/cast $p0
/Call Switch
/return
Sub Switch
/if $CurSpell==1 {
/varset a(0,1) 1
/varset CurSpell 2
}
/if $CurSpell==2 /if n $char(hp,pct)>=90 {
/varset CurSpell 1
/varset a(0,1) 2
}
/if $CurSpell==2 /if n $char(hp,pct)<90 {
/varset CurSpell 1
/varset a(0,1) 3
}
/return
thx if you rply


