Frenzy and Head Strike

[Sdksnowboy]

First off this is just a modified version of the warrior bash / taunt macro. Been working on this currently using /doability "74" for frenzy because it hasnt been implemented into the usual distributed MQ compile yet. I was trying to get it to do checks on disarm and frenzy instead of just spamming and trying every .5 seconds, but it doesnt seem to be picking up either. Could use some help there. and also have stun events in so you dont get spammed while stunned. Not sure quite how to get those working either. Take a look tell me what im messing up.

Code: Select all

|Frenzy.mac -- 1/30/2004 
| 
|Presses frenzy, Head Strike and disarm so you don't have to.


#Event Stun "You are stunned!"
#Event Unstunned "You are unstunned." 


Sub Main 
/echo Frenzy.mac Started....
/declare HeadStrikeTimer timer
/if $defined(Param0)==TRUE /if n @Param0==1 { 
   /echo Frenzy ON
   /echo Stun ON 
   /goto :LoopBoth 
} else {
   /echo Frenzy ON 
   /echo Stun OFF 
   /goto :LoopFrenzy 
} 
:LoopFrenzy
/if $combat=="TRUE" {
   /if n $target(distance)<18 {
     /doability "74"
   } 
}
/if $combat=="TRUE" {
   /if n $target(distance)<10 {
     /doability "disarm"
   } 
}

/delay .5s 
/goto :LoopFrenzy 

:LoopBoth 
/if $combat=="TRUE" {
   /if n $target(distance)<18 {
     /doability "74" 
   } 
/if n $target(distance)<18 { 
   /if n @HeadStrikeTimer<=0 { 
      /disc Head Strike
      /varset HeadStrikeTimer 12s 
    } 
  }
}
/if $combat=="TRUE" {
   /if n $target(distance)<10 {
       /doability "disarm"
   } 
}
/delay .5s
/goto :LoopBoth 

[daerck]

$char(ability,"74") works to check if the Frenzy is up or not.
$char(ability,"Disarm") should work for Disarm.
Additional info in TFM.

About the stunned stuff, You could do something like this

Code: Select all

#Event Stunned "You are stunned!"
#Event Unstunned "You are unstunned."

Sub Main
/declare Stunned global
...
/if n @Stunned!=1 {
[i]do something[/i]
}
... 
/return

Sub Event_Stunned
   /varset Stunned 1
/return

Sub Event_Unstunned
   /varset Stunned 0
/return