Need a little help with this Macro

Need some help with that macro you're working on or aren't quite sure how to get your macro to do something? Ask here!

Moderator: MacroQuest Developers

Tuffy
a lesser mummy
a lesser mummy
Posts: 33
Joined: Thu Oct 02, 2003 9:20 am

Need a little help with this Macro

Post by Tuffy » Wed Dec 10, 2003 10:48 am

For some reason this joker will not stop. What am I doing wronge?

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{
/return

ml2517
a grimling bloodguard
a grimling bloodguard
Posts: 1216
Joined: Wed Nov 12, 2003 1:12 am

Post by ml2517 » Wed Dec 10, 2003 11:05 am

I could be wrong but I'm assuming you wanted to do something like this. Looks like your mana and hp evaluations were reversed. Come to think of it.. you wouldn't even need the else.

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 
    }
/return

Drunkensloth
a lesser mummy
a lesser mummy
Posts: 67
Joined: Sat Oct 18, 2003 2:54 am

Post by Drunkensloth » Wed Dec 10, 2003 5:28 pm

manadancing? :)
And here I was clicking like a sucker!

ml2517
a grimling bloodguard
a grimling bloodguard
Posts: 1216
Joined: Wed Nov 12, 2003 1:12 am

Post by ml2517 » Wed Dec 10, 2003 5:48 pm

I'm sure /cast 1 has cannabalize of some sort memmed to it heh.

Furor
a lesser mummy
a lesser mummy
Posts: 44
Joined: Sun Nov 30, 2003 8:25 pm

Post by Furor » Fri Dec 12, 2003 3:23 am

not at my EQ come now but try this :-)

just add these things to your macro:

Events to add

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" 
Your updated Canni dance sub

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 
      } 
/return
Your event subs

Code: 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