spellsub.mac - Sample spell skill gain macro

Arioch · Post by **Arioch** » Sun Jun 23, 2002 6:01 pm

Just downloaded prog today so no flaming please but if you see ways I can improve them please let me know

| - SpellSub.mac -
| Spell Casting Sub routine - Usage "/call SpellSub <gem> <delay *actual cast time plus recast*>"
| Will return $v99 = 999 if you go oom.
|

Sub SpellSub
   /varset v98 $p0
   /varset v99 $p1
   :ReCast
   /varset v1 0
   /cast $v98
   /delay 1s
   /doevents
   /if n $v1>1 /goto :ReCast
   /if n $v1==0 /goto :SpellSubGetMana
/return

:SpellSubGetMana
   /varset v99 999
   /delay 5
/return

Sub Event_SkillUp
   /varset v1 1
/return

Sub Event_CastStart
   /varset v1 1
   /delay $v99s
/return

Sub Event_CastFizzle
   /varset v1 2
/return

Sub Event_CastInterrupt
   /varset v1 3 
/return

Sub Event_CastResist
   /varset v1 4
/return

============================================

Code: Select all

| - BstNuke.mac -
| Beastlord Nuke Down - Will Cast NUKE ((in my case spell gem 4) with a delay of 4) until oom or low on health.
| at which point it will sit down for 5 minutes and then start it all again.
|

#include SpellSub.mac

Sub Main
     :Loop
       /target myself
       /call SpellSub 4 4
       /if n $v99==999 /goto :GetMana
       /if n $char(hp,pct)<10 /goto :GetMana
     /goto :Loop
/return

:GetMana
   /echo I'm OOM.  Sitting for 5 minutes.
   /delay 5
   /sit
   /delay 5m
   /stand
   /goto :Loop

Arioch