MacroQuest64

Posted: **Thu Apr 29, 2004 9:20 pm**

Keep a pet , keep up a rune (uses AA rune if you have it) , and will keep track of when Tash wears of. Best if you have the MEz Mastery AA for WoM to be effective.

Ends if you loose pet or zone.

Code: Select all

| Target a wanna be pet, /mac charmit name_of_assist, will tash, charm 
| Will AEmez and retash then charm if tash wears off 
| Will send in pet if your assist has an NPC target 
| Requires Mez AA and Color Cloud to be effective 
| Uses the snippet spellcast.inc 
| 
| Added SimpleMynd_01 RuneCheck sub
| Macro ends when you zone or it dies .. no more pet 
| 
| charmit.mac 
| 5/29/04 PM 
| By Bob_the_builder 

#include spellcast.inc 
#event TashOff "Your Howl of Tashan spell has worn off." 
#event Zoned "You have entered#*#" 

Sub Main 
   /if (!${Target.ID}) /call EndCharm 
   /if (${Target.Type.Equal[PC]}) /call EndCharm 
   /if (${Target.Type.Equal[Corpse]}) /call EndCharm 
   /declare MyPet outer 
   /declare TashCounter outer 
   /varset MyPet ${Target.ID} 
   /varset TashCounter 0 

   :Loop 
   /if ((!${Me.Pet.ID}) && (${Me.Pet.ID[Target.Distance]}<=200)) /call CharmPet
   /doevents 
   /if (!${Me.Pet.ID}) /goto :Loop 
   /call CheckRune
   /goto :Loop 
/endmacro 

Sub CharmPet 
   /if ((!${Me.Mount.ID})&&(${Me.State.NotEqual[STAND]})) /stand 
   /target id ${MyPet}
   /face nolook 
   /if (${Target.Distance}<=30) {
      /target id ${MyPet}
      /call cast "Word of Morell"
   }
   /g ### Trying to control my pet.  Keep me alive ###
   /if (${TashCounter}==0) { 
      /target id ${MyPet}
      /call cast "Howl of Tashan"
      /varset TashCounter 1
   }
   /g ### Trying to charm >>> %t <<< Keep me alive ###
   /target id ${MyPet}
   /cast "Command of Druzzil"
| I didn't use the spellcast.inc incase this gets interupted means you probably need to re ae mez/stun 
   /if ((!${Me.Pet.ID}) && (${Target.Distance}<=30)) /call cast AEStun 
/return 

Sub CheckRune 
   /if (${Me.Buff[Arcane Rune].Duration}<20) { 
      /if (${Me.Buff[Eldritch Rune].Duration}<20) { 
         /if ((!${Me.Mount.ID})&&(${Me.State.NotEqual[STAND]})) /stand 
            /if (${Me.AltAbilityReady[Eldritch Rune]}) { 
               /alt activate 173 
            } Else { 
               /call Cast "Arcane Rune" 
            } 
         /return 
      } 
   } 
/return  

Sub EndCharm 
   /echo Macro Ended 
   /endmacro 
/return 

Sub event_TashOff 
   /varset TashCounter 0 
/return 

Sub event_Zoned 
   /echo Zoning ... 
   /call EndCharm 
/return

Bob

Posted: **Sat May 29, 2004 12:32 am**

Great macro... any way to have the macro /assisting a specified person and then auto sending the charmed pet in to attack the assisted mob? would be a great add in.

Posted: **Sat May 29, 2004 10:38 am**

-- scrapped the /assist crap

Just didn't work right. Maybe later.

Bob

Posted: **Sat May 29, 2004 6:11 pm**

I used to use a timer for my Runes and this works sooooo much better.

Code: Select all

Sub CheckRune
    /if (${Me.Buff[Arcane Rune].Duration}<20) {
        /if (${Me.Buff[Eldritch Rune].Duration}<20) {
            /if (${Me.State.Equal[SIT]}) /stand
            /if (${Me.AltAbilityReady[Eldritch Rune]}) {
                /alt activate 173
            } Else {
                /call Cast "Arcane Rune"
                /delay 1s
            }
            /return 
        }
    }
/return

-SimpleMynd

Posted: **Wed Sep 29, 2004 1:25 pm**

Great macro! Love it for it's simplicity.. Changed it to new OoW Mez, no problem, but i punched in the new rune, Ethereal Rune, and it says it can't find that spell... I dunno whats going on.. My mychant macro is doing the same thing with Ethereal Rune. Some hidden mispelling?

Posted: **Wed Sep 29, 2004 2:10 pm**

Sounds like you have the spell in gem9 and don't have the fix. I was getting the same behavior.

Posted: **Wed Sep 29, 2004 8:37 pm**

it's in spell gem 7

Posted: **Wed Sep 29, 2004 8:48 pm**

Oddly, I cahnged it from spell slot 7 to 6 just to see what would happen.. and whammo, it works. Somethin funky!!

Posted: **Thu Sep 30, 2004 4:09 pm**

I use "#include spellcast.inc"

You could check for an updated code or use the spell_routines.inc

Bob

Posted: **Thu Oct 21, 2004 3:22 pm**

I run this program and at first it ran great. i am not that high of a level so i changed the spells to fit my lower level spells, entrance, tashani, beguile.

2 small gripes that i have . While using this macro you can't sit, have to stay standing. 2nd, and this is the reason why i stopped using it. when charm breaks it targets, casts tashani then goes into an endless loop casting mez over and over again. i have to manually click charm and then after its charmed it continues to try and mez. (even if it is already mezz'd)

Anyone know why this is?

MacroQuest64

Charm pet /w tash and assist support with rune support

Charm pet /w tash and assist support with rune support

any way to do this?

CheckRune sub