Personal Beastlord Macro - Pet/Buff (References)

Drumstix42 · Post by **Drumstix42** » Mon May 17, 2004 11:10 pm

Here's a macro I just got done completely. I'm sure there lots of tweakin I could probably do. I've gotten it to work without any errors with many tries.

Much thanx ml2517 and others for SPELLCAST.inc which is widely used here

Running? -> Stop -> Start process
No Drog? -> Summon -> Continue process
Make sure mana is at least 85%
Load the buff spells
Pet out? -> Cast buffs, else first cast pet
Finish up with buffs, haste, ect
Load fight spells. Done.

Code: Select all

|-- getready.mac
|-- by Drumstix42
|-- 5-17-2004
|----------------------------------------------------
|-- Mount Drogmar
|-- Summon Pet
|-- Buff Pet and Self
|-- Pulls out fight spells

#include SPELLCAST.inc

Sub Main
   /echo Lets get ready for battle
   :MedLoop
   /if (${Me.PctMana}<85) {
       /echo Medding...
       /if (${Me.Standing}) /sit
       /delay 10s
       /goto :MedLoop
   }
   /if (!${Me.Standing} && !${Me.Mount.ID}>0) /stand
   /if (${Me.Moving}) {
       /keypress forward
       /keypress back
       /delay 8
   } else {
       /delay 4
   }
   /if (!${Me.Mount.ID}>0) {
       /itemnotify Ammo rightmouseup
       :WaitForCast
        /if (${Me.Casting.ID}) /goto :WaitForCast
       /echo Hello Drogster!
   } else {
       /echo Drogster is already out.
   }
   /delay 1s
|---------------------------------------------------------------
   /if (${Window[SpellBookWnd].Open}) /book
   /memspellset 6
   :SpellBookOpen
    /delay 5
    /if (${Window[SpellBookWnd].Open}) /goto :SpellBookOpen
   /delay 1s
|---------------------------------------------------------------
   /if (${Me.Pet.ID}>0) {
   /echo Pet is already out.
   } else {
   /memspellset 5
   :SpellBookTwo
    /delay 5
    /if (${Window[SpellBookWnd].Open}) /goto :SpellBookTwo
   /delay 1s
|---------------------------------------------------------------
   :Pet
    /delay 2s
    /if (!${Me.SpellReady["Spirit of Zehkes"]}) /goto :Pet
   /call cast "Spirit of Zehkes"
   /delay 1s
|---------------------------------------------------------------
   /memspellset 6
   :SpellBookThree
    /delay 5
    /if (${Window[SpellBookWnd].Open}) /goto :SpellBookThree
   /delay 1s
   }
|---------------------------------------------------------------
   /target ${Me.Name}'s warder
   /echo Pet buffs...
   /call cast "Deftness"
   /call cast "Health"
   /call cast "Shifting Shield"
   /call cast "Furious Strength"
   /call cast "Talisman of Tnarg"
   /call cast "Spirit of the Storm"
   /delay 1s
|---------------------------------------------------------------
   /target myself
   /echo Self buffs...
   /call cast "Deftness"
   /call cast "Health"
   /call cast "Shifting Shield"
   /call cast "Furious Strength"
   /call cast "Talisman of Tnarg"
   /delay 1s
|---------------------------------------------------------------
   /memspellset 1
   :SpellBookFour
    /delay 5
    /if (${Window[SpellBookWnd].Open}) /goto :SpellBookFour
   /delay 1s
|---------------------------------------------------------------
   /target ${Me.Name}'s warder
   /call cast "Spiritual Brawn" gem5
   /call cast "Spirit of Wolf" gem4
   /target myself
   /call cast "Spiritual Brawn" gem5
   /call cast "Spirit of Wolf" gem4
   /delay 1s
|---------------------------------------------------------------
   /target myself
   /call cast "Frenzy" gem4
   /memspellset 8
   :Chloroplast
    /delay 2s
    /if (!${Me.SpellReady["Chloroplast"]}) /goto :Chloroplast
   /call cast "Chloroplast"
   /target ${Me.Name}'s warder
   /call cast "Chloroplast"
   /delay 1s
|---------------------------------------------------------------
   /memspellset 1
   :SpellBookFive
    /delay 5
    /if (${Window[SpellBookWnd].Open}) /goto :SpellBookFive
   /delay 1s
|---------------------------------------------------------------
   /target ${Me.Name}'s warder
   /call cast "Omakin's Alacrity"
   /delay 1s
   /echo Done!
/return

Any tips, suggestions, fixes, flames, ect. are welcome.

Mrfo · Post by **Mrfo** » Mon May 17, 2004 11:50 pm

What spells need to be on each spellbook page for this to work?

Drumstix42 · Post by **Drumstix42** » Tue May 18, 2004 3:20 pm

Well the macro is based around a level 56.

If you just add gem# next to each of the spells, and take out the spells sets, it can probably just be done that way. I just like my way cause I was learning the different code, and it's doing exactly what I would, but automated :)

Mrfo · Post by **Mrfo** » Tue May 18, 2004 8:47 pm

Well I was mainly speaking of the /memspellset 1, 5, 6, 8. Like what you had on each page. Otherwise when I run it it constly mem's each spell one by one rather then loading form the spell book because mine saved books arn't the same as yours.