#include spell_routines.inc
#event ToonReady "<#1> Ready"
#event WarriorEnage "<#1#> Engaging #2#"
#event LootingEvent "#*# has looted a #1#.-#*#"
#event UpdateEvent "#*#Your task '#1#' has been updated."
#event AggroCall "#*#Aggro set, burn it!#*#"
Sub Main
/declare DummyVariable int 1
| Bard should have first Extended Target set to Tank's Target. And the Tank should already be
assigned (via the Group Leader)- this macro will do neither of those things.
| 6 Toons, Bard which runs this macro, Tank who runs his macro, he will get pushed forward of
the others slightly from the camps.
| The other 3 toons and there respective macros to be run on start up.
| This macro is untested with mercs, but it should still work with them.
| My bard is pretty meaty. There is no recourse for rezzing anyone.
| If you do die and manually rez up. If you are at the zone in position, you can simply /mac
dead and it will continue on
/declare TankName string outer TOONNAME
/declare TankMacro string outer MACRONAME
/declare LooterName string outer TOONNAME
/declare LooterMacro string outer kissassist
/declare Toon1 string outer TOONNAME
/declare Macro1 string outer kissassist
/declare Toon2 string outer TOONNAME
/declare Macro2 string outer kissassist
/declare Toon3 string outer TOONNAME
/declare Macro3 string outer mage
| I've used the gemnumber to redo the bard aura. I didn't spend a lot of time on it, but I
couldn't get either /casting " " or /cast " " to work adequately in regards to the /stopsong
| Which basically caused the macro to stall/stop.
/declare AuraGem int outer 7
| Mez is in Spellbar position 9 for me.
/declare MezMelody[6] string outer
| Normal combat melody
/declare FightMelody string outer 1,2,3,4
| This is not used in this particular macro.
/declare AEMezMelody string outer 11,1,2,3,4,1,2,3,4,1,2
/declare IniPathFile string outer hillsinto2.ini
/declare Path[5,20,2] int outer
/declare MaxPaths int outer
/declare NumReady int outer 0
/declare CampNum int outer 1
/declare ReadysRequired int outer 0
/declare BardSong int outer 0
/declare MezMob int outer 0
/declare MezCount int outer 0
/declare MezTimer timer outer 0
/declare ClickName string outer 0
/declare OuterItem string outer
/declare ReturnGribble int outer 0
/declare zrange int outer 100
/declare BugTimer timer outer 20000
/declare BugF int outer 0
/declare NumTargets int outer 0
/declare CurrentTarget int outer 0
/declare NumMez int outer 0
/declare MelodyTimer timer outer 0
/declare EventStep int outer 0
/declare Faded int outer 0
/declare MezSong string outer Slumber of Motlak
/declare MezTargets int outer 0
/declare CheckMez timer outer 0
/if (${Defined[Param0]}) /varset CampNum ${Param0}
/varset MezMelody[1] 9 1 2 3 1 2
/varset MezMelody[2] 9 9 1 2 1 2
/varset MezMelody[3] 9 9 9 1 2 3
/varset MezMelody[4] 9 9 9 9 1 2
/varset MezMelody[5] 9 9 9 9 9 1
/varset MezMelody[6] 9 9 9 9 9 9
/call SetUp
/if (${Zone.ShortName.Equal[deadhills_errand]}) /goto :killmob
/call GetInstance
:SkipZoneIn
/call ZoneIn
/bct ${TankName} //moveto loc 480.4 -251
/bca //tar ${TankName}
/moveto loc 480.4 -251
/delay 3s
/call SetupCamp
:killmob
/if (${Me.CombatState.NotEqual[COMBAT]} && ${ReturnGribble}==1) /call ReturnToGribble
/if (${CampNum}) {
/if (${Me.CombatState.NotEqual[COMBAT]}) {
/call PullMobA 1 2 160 0 4
| } else {
| This will go and pull another mob when there is only 1 mob in camp and it is below 70% HP's
| /if (!${Me.XTarget[2].ID}) {
| /if (${Me.XTarget[1].PctHPs}<70 && ${Me.XTarget}<2 && ${Me.AltAbilityReady[Boastful
Bellow]}) {
| /alert add 1 ${Spawn[id ${Me.XTarget[1].ID}]}
| /bc added ${Spawn[id ${Me.XTarget[1].ID}]}
| /call PullMobA 1 8 240 0 4
| }
| }
}
}
|/if (${Me.CombatState.NotEqual[COMBAT]} && ${CampNum}==2) {
|/alt activate 3704
|/call PullMobA 1 2 130 0 2
|}
|/if (${Me.CombatState.NotEqual[COMBAT]} && ${CampNum}==3) {
| | SELOS SONATA
| /alt activate 3704
|/call PullMobA 1 2 240 0 3
|}
/doevents
/if (${Me.State.Equal[HOVER]}) {
/varset CampNum 6
/call Wait4Rez
}
/delay 2
/doevents
/if (${Me.XTarget}==0) /goto :killmob
| Ther eare mobs in the Xtarget Window, time to kill them/mez them etc.
/if (!${Target.ID} || (${Target.ID} && !${Target.AggroHolder.ID})) {
/if (${Me.XTarget}>0) {
/if (${Me.XTarget}==1) {
/xtar 1
/delay 10
} else {
/xtar 2
/delay 10
}
}
}
/face fast
/if (${Me.XTarget}==1) {
/if (${Target.PctHPs}<90 && !${Me.Combat}) /attack on
/if (${BardSong}!=1 || !${Me.Casting.ID}) {
/stopsong
/delay 1
/bc [+t+]Fight [+x+]Song
/melody ${FightMelody}
/varset BardSong 1
/varset Faded 0
}
}
/if (${Me.XTarget}>1 && ${MelodyTimer}<1) {
| Targeting
/varcalc NumMez ${Me.XTarget}-1
/if (${NumMez}>6) /varset NumMez 6
/varset CurrentTarget 2
/stopsong
/xtar 2
/delay 25s ${Target.Distance}<70||${Me.XTarget}<2
/delay 2
/xtar 2
/delay 25s ${Target.Distance}<70||${Me.XTarget}<2
/melody ${MezMelody[${NumMez}]}
/bc Mezzing [+g+]${Target.Name} [+w+]${MezMelody[${NumMez}]} ${NumMez}
/delay 1s
:mezloop
/varcalc NumMez ${Me.XTarget}-1
/if (${CurrentTarget}<${Me.XTarget}) {
/varcalc CurrentTarget ${CurrentTarget}+1
/xtar ${CurrentTarget}
/bc New Mez Target [+g+]${Target.Name} - /xtar = ${CurrentTarget}
/delay 3s
/goto :mezloop
} else {
/varcalc MelodyTimer ${MezMelody[${NumMez}].Length}*15-${NumMez}*30
| /bc ${MelodyTimer} = melody timer ${NumMez} ${MezMelody[${NumMez}].Length}
/goto :killmob
}
/goto :mezloop
}
/delay 2
/goto :killmob
/return
Sub SetUp
/declare kk int inner
/declare i int inner
/declare k int inner
/alert clear 1
/alert add 1 Gribble
/alert add 1 adventurer
/alert add 1 Cogwitz
/hidecorpse looted
/bct ${TankName} //alert add 1 Gribble
/bct ${TankName} //alert add 1 adventurer
/for kk 1 to ${Group}
/if (${Group.Member[${kk}].Type.Equal[PC]}) /varcalc ReadysRequired ${ReadysRequired}+1
/next kk
| /echo ${ReadysRequired}
/varset i 1
| Loads the Path file
:iloop1
/varset k 1
/if (!${Bool[${Ini[${IniPathFile},"Path${i}","PointX${k}"]}]}) {
/varcalc MaxPaths ${i}-1
/echo Number of paths ${MaxPaths}
/return
}
:kloop1
/if (!${Bool[${Ini[${IniPathFile},"Path${i}","PointX${k}"]}]}) {
/varset Path[${i},${k},1] 0
/varset Path[${i},${k},2] 0
/varcalc i ${i}+1
/goto :iloop1
} else {
| /echo ${i} ${k} ${Ini[${IniPathFile},"Path${i}","PointX${k}"]}
/varset Path[${i},${k},1] ${Ini[${IniPathFile},"Path${i}","PointX${k}"]}
/varset Path[${i},${k},2] ${Ini[${IniPathFile},"Path${i}","PointY${k}"]}
/echo ${Path[${i},${k},1]}
/varcalc k ${k}+1
}
/goto :kloop1
/return
Sub ReturnToGribble
/declare count int local 0
/bc Now comes the fun, getting the whole group back to gribble
/bca //makecamp off
/bca //end
/bca //target ${Me.Name}
/delay 1s
/bca //stick 10
/delay 2s
/varcalc count ${MaxPaths}-1
/echo Trying Path ${count}
:PathBack
/call FollowPathBack ${count}
/varcalc count ${count}-1
/if (${count}) /goto :PathBack
/bc Should be at Gribble.
/delay 90s ${Me.CombatState.NotEqual[COMBAT]}
/delay 180s !${Me.XTarget}||${Me.XTarget[1].PctHPs}>99
/delay 15s
/beep
/bca //end
| My Tank automatically aggro's things with in range - just turning him off to make sure
he doesn't do anything silly :)
/bct ${TankName} //end
/delay 2s
/bca //moveto loc 436.9 -282.3
/bca //tar Gribble
/tar Gribble
/delay 5s
/delay 20s ${SpawnCount[PC]}==${SpawnCount[PC radius 40]}
/keypress H
/delay 5s
/bca //say back
/kickplayers task
/delay 5s ${Window[ConfirmationDialogBox].Open}
/nomodkey /notify ConfirmationDialogBox Yes_Button leftmouseup
/delay 10s
/say back
/delay 120s ${Zone.ShortName.Equal[deadhills]}
/delay 30s
/varset CampNum 1
/varset ReturnGribble 0
/mac dead2
/return
Sub GetInstance
/tar Gribble
/delay 10
/if (${Target.Distance}<50) {
/say willing
/delay 2s
/notify TaskSelectWnd TSEL_TaskList listselect 3
/delay 2s
/notify TaskSelectWnd TSEL_AcceptButton leftmouse 3
} else {
/bc Gribble is OOR
/endm
}
/return
Sub Wait4Ready(int MaxReady)
| This is a routine I call which waits for every toon to say they are ready to proceed. I
normally use this for zoning and moving between camps (I've used the slacker /afol method tho in
this macro)
| /echo ${MaxReady} ${NumReady}
/doevents flush
:loop
/doevents
/delay 1
/if (${NumReady}<${MaxReady}) /goto :loop
/bc All toons are [+g+]Ready
/varset NumReady 0
/return
Sub ZoneIn
/declare kk int inner
:shortloop
/tar Gribble
|----------
|
|
| Insert your /bct commands to role buffs for the characters. You can do it here (in deadhills)
b4 you zone in.
|
|----------
| /bct ${Toon1} //cast "Talisman of the Courageous Rk. II"
| /bct ${Toon2} //cast "Unified Hand of Certitude"
| /delay 10s
| Group perfected Leviatation
| /bct ${Toon1} //alt activate 1666
| /delay 5
| /bct ${Toon1} //cast "Talisman of Celerity"
/delay 32s
/say leave
/delay 120s ${Zone.ShortName.Equal[deadhills_errand]}
/if (!${Zone.ShortName.Equal[deadhills_errand]}) /goto :shortloop
/keypress ESC
/delay 10s
/for kk 1 to ${Group}
/delay ${Math.Rand[9]}s
/bct ${Group.Member[${kk}].Name} //mac deadzone.mac
/next kk
/echo waiting for readys.
/call Wait4Ready ${ReadysRequired}
|-------------------
|
| Or you can do it here, inside the zone
|
|-------------------
| Load up some clickie buffs on toons.
/bca //useitem 3
/delay 6
/bca //useitem 6
/delay 6
/bca //useitem 20
/delay 6
/bca //useitem 11
/delay 6
/bca //useitem 15
/delay 6
/return
}
Sub FollowPath(PathNumber)
/declare i int inner
/varset i 1
:movecamploop1
/doevents
/bc [+Y+]Path : [+y+]${PathNumber}[+Y+] Point : [+y+]${i} [+x+]
/squelch /moveto loc ${Path[${PathNumber},${i},1]} ${Path[${PathNumber},${i},2]}
/delay 60s ${MoveTo.Stopped}
/varcalc i ${i}+1
/if (${Bool[${Path[${PathNumber},${i},1]}]}) /goto :movecamploop1
/return
Sub SetupCamp
|----------------
|
| This area is where you send out /bct's to your other toons to set up. i.e The tank sets up
ready to receive mobs, you healers set up.
|
|-----------------
/bca //tar ${TankName}
/delay 5s
/bct ${TankName} //keypress ESC
/delay 10
/bct ${TankName} //mac ${TankMacro}
/bct ${Toon1} //mac ${Macro1}
/bct ${Toon3} //mac ${Macro3}
/bct ${Toon2} //mac ${Macro2}
/bct ${LooterName} //hidecorpse looted
/delay 5
/bct ${LooterName} //mac ${LooterMacro}
/delay 5s
/return
Sub PullMobA(PullType, MaxMobs, PullRange, MezRange, NumberMobsToCheck)
|| PullType = 1 = Boastful Bellow, 2 = Sonic Displacement, 4 = Slumber, 8 = Double Pull...
(bitwise operation)
/declare i int inner
/declare EndOfPath int inner 0
/declare CheckMob int inner 1
/declare PullList string inner
/declare tt int inner 0
/if (${Zone.ShortName.NotEqual[deadhills_errand]}) {
/bc Not in the correct zone
/bca //end
/end
}
/if (!${Bool[${Me.Aura}]}) {
/stopsong
/bc Aura stuff.
/cast ${AuraGem}
/delay 4s
}
/alt activate 212
/stopsong
/varset EndOfPath 0
/varset i 1
/if (${Me.PctMana}<10) {
/sit
/bc Medding for Mana
:MedIt
/if (${Me.PctMana}<99) /goto :MedIt
}
:moveloop
/bc [+Y+]Path : [+y+]${CampNum}[+Y+] Point : [+y+]${i} [+x+]
/squelch /moveto loc ${Path[${CampNum},${i},1]} ${Path[${CampNum},${i},2]}
:MoveLoop1
/doevents
| This is the grunt of the pulling routine
| This bit is checking for targets while moving....
/varset CheckMob ${SpawnCount[NPC radius ${PullRange} zradius ${zrange} los noalert 1]}
/if (${CheckMob}>${NumberMobsToCheck}) /varset CheckMob ${NumberMobsToCheck}
/if (${CheckMob}) {
/for tt 1 to ${CheckMob}
/doevents
/if (${ReturnGribble}==1 || ${Me.CombatState.Equal[COMBAT]}) {
/varcalc i ${i}-1
/goto :ReturnPath
}
/tar id ${NearestSpawn[${tt}, NPC los radius ${PullRange} zradius ${zrange} noalert
1].ID}
/delay 2s ${Target.ID}==${NearestSpawn[${tt}, NPC los radius ${PullRange} zradius
${zrange} noalert 1].ID}||${Me.CombatState.Equal[COMBAT]}
/if (${Faded}<2 && ${Target.Type.Equal[NPC]} && ${Target.LineOfSight}) {
/if (${PullType}&2 && ${Target.Distance}<140 && ${Me.AltAbilityReady[Sonic
Displacement]}) {
/bc Sonic Displace [+t+]${Target.Name}
/call Cast "Sonic Displacement" alt
} else {
/bc Bellow [+t+]${Target.Name}
/alt activate 199
}
/delay 1
}
/if (${Faded}>1 && ${Target.Type.Equal[NPC]} && ${Target.Distance}<200 &&
${Target.LineOfSight} && ${Me.XTarget}<2) {
/melody 9
/delay 4s ${Me.CombatState.Equal[COMBAT]}
}
/next tt
}
}
/delay 1
/if (!${MoveTo.Stopped}) /goto :MoveLoop1
| This bit is checking for mobs to pull at the way point.
/varset CheckMob ${SpawnCount[NPC radius ${PullRange} zradius ${zrange} los noalert 1]}
/if (${CheckMob}>${NumberMobsToCheck}) /varset CheckMob ${NumberMobsToCheck}
/if (${CheckMob}) {
/for tt 1 to ${CheckMob}
/doevents
/if (${ReturnGribble}==1 || ${Me.CombatState.Equal[COMBAT]}) {
/varcalc i ${i}-1
/goto :ReturnPath
}
/tar id ${NearestSpawn[${tt}, NPC los radius ${PullRange} zradius ${zrange} noalert
1].ID}
/delay 2s ${Target.ID}==${NearestSpawn[${tt}, NPC los radius ${PullRange} zradius
${zrange} noalert 1].ID}||${Me.CombatState.Equal[COMBAT]}
/if (${Faded}<2 && ${Target.Type.Equal[NPC]} && ${Target.LineOfSight}) {
/if (${PullType}&2 && ${Target.Distance}<140 && ${Me.AltAbilityReady[Sonic
Displacement]}) {
/bc Sonic Displace [+t+]${Target.Name}
/call Cast "Sonic Displacement" alt
} else {
/bc Bellow [+t+]${Target.Name}
/alt activate 199
}
/delay 4
}
/if (${Faded}>1 && ${Target.Type.Equal[NPC]} && ${Target.Distance}<200 &&
${Target.LineOfSight}) {
/melody 9
/delay 4s ${Me.CombatState.Equal[COMBAT]}
}
/next tt
}
/varcalc i ${i}+1
| The next line forces a MEZ pull at Point 9 on Path 3 - it's 2 mob just on the bridge close to a
rise - I don't think it works overly well and have reverted back to Boastful pull
| /if (${CampNum}==${MaxPaths} && ${i}==9) /varset Faded 4
/if (${Bool[${Path[${CampNum},${i},1]}]}) /goto :moveloop
/delay 1s
/bc End of Path Encounted - No Aggro ${i}
/varset EndOfPath 1
/if (${CampNum}==${MaxPaths}) {
/tar Cogwitz
/delay 2s ${Target.Name.Find[Cogwitz]}
/keypress H
/delay 5
/keypress H
}
/varcalc i ${i}-2
:ReturnPath
/stopsong
/if (${Me.XTarget} && ${i}<10 && ${CampNum}==${MaxPaths} && ${NearestSpawn[1,NPC noalert
1].Distance}>180) {
| /bc pausing..
/delay 3s ${NearestSpawn[1,NPC noalert 1].Distance}<160 || ${Me.PctHPs}<60
| /bc going..
}
/if (${i}<1) {
/stopsong
/if (${EndOfPath}==1 && ${CampNum}<${MaxPaths} && ${Me.CombatState.NotEqual[COMBAT]}) {
/varcalc CampNum ${CampNum}+1
/varset EndOfPath 0
/bc Should be moving group here.
/call CampDone
/beep
}
/if (${EndOfPath}==1 && ${CampNum}==${MaxPaths}) {
/call ReturnToGribble
}
/if (${Faded}) /delay 8s
/return
}
/bc [+Y+]Path : [+y+]${CampNum}[+Y+] Point : [+y+]${i} [+x+]
/squelch /moveto loc ${Path[${CampNum},${i},1]} ${Path[${CampNum},${i},2]}
:MoveLoop2
/delay 1
/doevents
/if (${Me.XTarget}<2 && ${Target.Buff[${MezSong}].ID}) /alt activate 199
/if (${i}<3 && ${CampNum}<${MaxPaths} && ${Me.XTarget}>${MaxMobs}) {
/stopsong
/alt activate 212
/varcalc Faded ${Faded}+1
/delay 2s !${Me.XTarget}
/varset EndOfPath 0
}
/if (${CampNum}==${MaxPaths} && ${i}<2 && ${Me.XTarget}>${MaxMobs}) {
/stopsong
/alt activate 212
/varcalc Faded ${Faded}+1
/delay 2s !${Me.XTarget}
/varset EndOfPath 0
}
/varset PullList ${Me.XTarget[1].Name}${Me.XTarget[2].Name}${Me.XTarget[3].Name}
/if (${i}<3 && ${Me.XTarget}==2 && ${PullList.Find[Bloodsucker]}) {
/stopsong
/alt activate 212
/bc Fading Bloodsucker as he is with an Add - ${Me.XTarget}
/varcalc Faded ${Faded}+1
/delay 2s !${Me.XTarget}
/varset EndOfPath 0
}
/doevents
/if (!${MoveTo.Stopped}) /goto :MoveLoop2
/varcalc i ${i}-1
/goto :ReturnPath
/return
Sub Event_ToonReady(Line1,ToonName)
/varcalc NumReady ${NumReady}+1
/return
Sub Event_LootingEvent(Line1, ItemName)
/varset ItemName ${ItemName.Right[-57]}
/varset ItemName ${ItemName.Left[-1]}
/bc Item = ${ItemName}
/if (${ItemName.Find[Excavation Tools]} || ${ItemName.Find[Dynamite]} || ${ItemName.Find[Xulous
Spellbook]}) {
/bc Click item found = ${ItemName}
/delay 2s
/delay 6s ${Me.CombatState.Equal[COMBAT]}
/bct ${LooterName} //useitem "${ItemName}"
/delay 6s ${Me.CombatState.Equal[COMBAT]}
/bct ${LooterName} //useitem "${ItemName}"
/varset OuterItem ${ItemName}
/varset ReturnGribble 1
}
/return
Sub Event_UpdateEvent(Line1, TaskName)
/varcalc EventStep ${EventStep}+1
/bc [+m+]${TaskName}[+w+] : finished STEP [+m+]${EventStep}
/return
Sub Event_AggroCall
/if (${Me.XTarget}==1) {
/xtar 1
/delay 10
/attack on
}
/return
Sub CampDone
/bc Trying to move group.
| I turn off my tank macro when he moves as he will try and kill things or attempt to return to
his camp spot. You might not need to.
/bca //mqp
/bca //makecamp off
/delay 2s
/bca //tar pc ${Me.Name}
/delay 15
/bca //stick 20
/call FollowPath ${Math.Calc[${CampNum}-1]}
/delay 15s
| Give a bit of extra time for the slower characters to catch up if needed
/delay 20s ${SpawnCount[PC]}==${SpawnCount[PC radius 40]}
/bca //stick off
/delay 1s
/bct ${TankName} //target clear
/bca //mqp
/bca //makecamp on
/delay 10
/return
Sub FollowPathBack(PathNumber)
/declare i int inner
/declare loop int inner
/varset i 1
:movecamploop2
/doevents
/varcalc i ${i}+1
/if (${Bool[${Path[${PathNumber},${i},1]}]}) /goto :movecamploop2
/varcalc i ${i}-2
:movecamploop3
/bc [+Y+]Path : [+y+]${PathNumber}[+Y+] Point : [+y+]${i} [+x+]
/squelch /moveto loc ${Path[${PathNumber},${i},1]} ${Path[${PathNumber},${i},2]}
/delay 60s ${MoveTo.Stopped}
/delay 1s
/varcalc i ${i}-1
/if (${i}) /goto :movecamploop3
/doevents flush
/return
