This is what I use for my level 13 drood. Of course you'll need to adjust for whatever character you use. It is something I patched together myself from code posted here. Removes spam, recasts on fizzle, stops casting whatever discipline once it is maxed. Kudos to everyone whose code I "borrowed". I just couldn't find anything here that did the whole lot.
NB. You will also need to use spellsub.mac
Code: Select all
| Casting.mac
| --Casting Practice Macro --
| Put your 5 smallest spells for each discipline in slots 1-5 in the following order Divination,
| Evocation,Conjuration,Abjuration,Alteration
| Find a nice lonely place where you can just hang out and practice casting your spells
| Don't go AFK while using this macro, you have been warned
#include SpellSub.mac
#Event MedTime "Insufficient Mana to cast this spell"
#define maxiskill v55
Sub Main
/filter name add you begin
/filter name add you feel
/filter name add your skin
/filter name add part of your
/filter name add your image
/varcalc maxiskill $char(level)*5+5
/target myself
:Loop
/if n $char(skill,divination)<$maxiskill /call Divination
/if n $char(skill,evocation)<$maxiskill /call Evocation
/if n $char(skill,conjuration)<$maxiskill /call Conjuration
/if n $char(skill,abjuration)<$maxiskill /call Abjuration
/if n $char(skill,alteration)<$maxiskill /call Alteration
/doability 1 /doability 1
/doability 2 /doability 2
/doability 3
/doevents
/goto :Loop
/return
Sub Divination
/call SpellSub 1 5s
/return
Sub Evocation
/call SpellSub 2 4s
/return
Sub Conjuration
/call SpellSub 3 4s
/if "$cursor(name)"=="Summoned: Globe of Stars" /click left destroy
/return
Sub Abjuration
/call SpellSub 4 5s
/return
Sub Alteration
/call SpellSub 5 4s
/return
Sub Event_MedTime
/sit
:GetMana
/if n $char(mana,pct)<95 /goto :GetMana
/sit off
/return