Moderator: MacroQuest Developers


It seems to crash EQ on the:Sub main
/for $p# 0 to 1 [step 1]
/target $p
/call spellsub 7 70
/press Esc
/next p#
part./next p#


Code: Select all
|** Tankds.mac
Created by L124RD
Created this macro with the single idea of keeping all tanks in my raiding party with a fresh Damage shield.
While not spending innane amounts of time trying to figure out what tank has what. the Macro is set to use the seventh spell gem. if you want to change that Alter "#define DSGEM 7" to whatever spell gem you have your DS in.
Useage: /macro tankds.mac Tank 1 Tank 2 tank 3 tank 4 tank 5 Tank 6 Tank 7 tank 8 tank 9
**|
#Event SkillUp "You have become better at "
#Event CastFizzle "Your spell fizzles!"
#Event CastStart "You begin casting"
#Event CastInterrupt "Your spell is interrupted."
#Event NeedToRecover "You haven't recovered yet..."
#Event CastResist "Your target resisted "
#define DSGEM 7
sub main
/if "$p0"!="" {
/target $p0
/call spellsub DSGEM 75
}
/if "$p1"!="" {
/target $p1
/call spellsub DSGEM 75
}
/if "$p2"!="" {
/target $p2
/call spellsub DSGEM 75
}
/if "$p3"!="" {
/target $p3
/call spellsub DSGEM 75
}
/if "$p4"!="" {
/target $p4
/call spellsub DSGEM 75
}
/if "$p5"!="" {
/target $p5
/call spellsub DSGEM 75
}
/if "$p6"!="" {
/target $p6
/call spellsub DSGEM 75
}
/if "$p7"!="" {
/target $p7
/call spellsub DSGEM 75
}
/if "$p8"!="" {
/target $p8
/call spellsub DSGEM 75
}
/return
Sub SpellSub
/varset v98 $p0
/varset v99 $p1
/goto :recast
: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 $v99
/return
Sub Event_CastFizzle
/varset v1 2
/return
Sub Event_CastInterrupt
/varset v1 3
/return
Sub Event_CastResist
/varset v1 4
/return
Sub Event_NeedToRecover
/varset v1 4
/return
Code: Select all
|** Tankds.mac
Created by L124RD
Created this macro with the single idea of keeping all tanks in my raiding party with a fresh Damage shield.
While not spending innane amounts of time trying to figure out what tank has what. the Macro is set to use the seventh spell gem. if you want to change that Alter "#define DSGEM 7" to whatever spell gem you have your DS in.
Useage: /macro tankds.mac Tank 1 Tank 2 tank 3 tank 4 tank 5 Tank 6 Tank 7 tank 8 tank 9
**|
#Event SkillUp "You have become better at "
#Event CastFizzle "Your spell fizzles!"
#Event CastStart "You begin casting"
#Event CastInterrupt "Your spell is interrupted."
#Event NeedToRecover "You haven't recovered yet..."
#Event CastResist "Your target resisted "
#define DSGEM 7
sub main
/varset v0 0
:mainloop
/for l1 0 to $v0
/target $a(0,$l1)
/call spellsub DSGEM 75
/next l1
/goto :mainloop
/return
Sub SpellSub
/varset v98 $p0
/varset v99 $p1
/goto :recast
: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 $v99
/return
Sub Event_CastFizzle
/varset v1 2
/return
Sub Event_CastInterrupt
/varset v1 3
/return
Sub Event_CastResist
/varset v1 4
/return
Sub Event_NeedToRecover
/varset v1 4
/return
sub addtank
/varset a(0,$v0) $p0
/varadd v0
/returnCode: Select all
/macro tankds.mac
/call addtank <name>
/call addtank <name>
/call addtank <name>
/call addtank <name>
/call addtank <name>
/call addtank <name>
Code: Select all
|** Tankds.mac
Created by GuardianX99
I created this macro with the single idea of keeping all tanks in my raiding party with a fresh Damage shield. While not spending innane amounts of time trying to figure out what tank has what.
Useage: /macro tankds.mac <Tank 1> <Tank 2> <tank 3> <tank 4> <tank 5> <Tank 6> <Tank 7> <tank 8> <tank 9>
**|
#Event SkillUp "You have become better at "
#Event CastFizzle "Your spell fizzles!"
#Event CastStart "You begin casting"
#Event CastInterrupt "Your spell is interrupted."
#Event NeedToRecover "You haven't recovered yet..."
#Event CastResist "Your target resisted "
#define DSGEM 7
sub main
/if "$p0"!="" {
/target $p0
/call spellsub DSGEM 75
}
/if "$p1"!="" {
/target $p1
/call spellsub DSGEM 75
}
/if "$p2"!="" {
/target $p2
/call spellsub DSGEM 75
}
/if "$p3"!="" {
/target $p3
/call spellsub DSGEM 75
}
/if "$p4"!="" {
/target $p4
/call spellsub DSGEM 75
}
/if "$p5"!="" {
/target $p5
/call spellsub DSGEM 75
}
/if "$p6"!="" {
/target $p6
/call spellsub DSGEM 75
}
/if "$p7"!="" {
/target $p7
/call spellsub DSGEM 75
}
/if "$p8"!="" {
/target $p8
/call spellsub DSGEM 75
}
/return
Sub SpellSub
/varset v98 $p0
/varset v99 $p1
/goto :recast
: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 $v99
/return
Sub Event_CastFizzle
/varset v1 2
/return
Sub Event_CastInterrupt
/varset v1 3
/return
Sub Event_CastResist
/varset v1 4
/return
Sub Event_NeedToRecover
/varset v1 4
/return