Code: Select all
Sub Do_dance
:Do_a_Little_Dance
/if n $char(mana,pct)>=50 /if n $char(hp,pct)<=75 { /cast 1
/goto :Do_a_Little_danceloop
}else{
/returnModerator: MacroQuest Developers
Code: Select all
Sub Do_dance
:Do_a_Little_Dance
/if n $char(mana,pct)>=50 /if n $char(hp,pct)<=75 { /cast 1
/goto :Do_a_Little_danceloop
}else{
/returnCode: Select all
Sub Do_dance
:Do_a_Little_Dance
/if n $char(mana,pct)<=50 /if n $char(hp,pct)>=75 {
/cast 1
/goto :Do_a_Little_danceloop
}
/return

Code: Select all
#event Fizzle "Your spell fizzles!"
#event Interrupt "Your spell is interrupted."
#event Recover "You haven't recovered yet..."
#event Standing "You must be standing to cast a spell"
Code: Select all
Sub Do_dance
:Do_a_Little_Dance
/declare CastTimer timer
/if n $char(mana,pct)<=50 /if n $char(hp,pct)>=75 {
/cast 1
/varset CastTimer $int($spell("$char(gem,1)",casttime)*10+$spell("$char(gem,1)",recoverytime)*10)
:Casting
/doevents
/if n @CastStatus==0 /goto :Do_a_Little_danceloop
/if n @CastTimer>0 /goto :Casting
/goto :Do_a_Little_danceloop
}
/returnCode: Select all
Sub Event_Fizzle
/varset CastStatus 0
/return
Sub Event_Interrupt
/varset CastStatus 0
/return
Sub Event_Recover
/varset CastStatus 0
/delay 5
/return
Sub Event_Standing
/varset CastStatus 0
/stand
/return