Forgotten Halls Bard macro
Posted: Sun Oct 15, 2006 12:01 am
Just run to the Rat room in Forgotten Halls and start the macro, it is 100% automated for looting, healing and killing. Since I dont play EQ any more I figure I can share this
EDIT:
Requires MQ2Twist and MQ2MoveUtils.
EDIT:
Requires MQ2Twist and MQ2MoveUtils.
Code: Select all
Sub Main
/declare DeadCount int local
/if (${Zone.ID} != 998) /call Exit
/if (${Me.Speed} == 0) /goto :Reset
:Mainloop
/varset DeadCount ${SpawnCount[corpse radius 220]}
/if (${DeadCount} > 0) {
/goto :Lootloop
}
/if (${Me.PctHPs} < 20) {
/twist stop
/keypress instant_camp
/endmacro
}
/if (!${Target.ID}) /target npc radius 220 rat
/if (${Zone.ID} != 998) /call Exit
/delay 35
/if (!${Me.Buff[1].ID}) {
/twist 8 1 2 4 3
}
/goto :Mainloop
:Lootloop
/circle off
/twist stop
/call Loot
/varset DeadCount ${SpawnCount[corpse radius 220]}
/if (${DeadCount} > 0) /goto :Lootloop
/goto :Reset
:Reset
/call MoveToLoc -572.48 147.59
/face fast loc -574.26,140.40
/look center
/if (${Me.PctHPs} < 60) /call Rest
/twist 8 1 2 4 3
/circle on 21
/goto :Mainloop
/return
Sub Exit
/twist stop
/camp desktop
/endmacro
/return
Sub Loot
/declare numitems int local
/declare lootslot int local
/target corpse radius 220
/stick 5 hold
:Moveto
/if (${Target.Distance} > 5) {
/delay 1s
/goto :Moveto
}
/stick off
/loot
/delay 1s
:DoLoot
/varset numitems ${Corpse.Items}
/for lootslot 1 to ${numitems}
/itemnotify loot${lootslot} rightmouseup
/delay 1s
/next lootslot
/if (${Corpse.Items} > 0) /goto :DoLoot
/notify LootWnd DoneButton leftmouseup
/return
Sub Rest
/if (!${Me.Sitting}) /sit
:healloop
/if (${Me.PctHPs} < 100) {
/delay 3s
/goto :healloop
}
/return
Sub MoveToLoc(MoveToY, MoveToX)
/echo ${MoveToY} ${MoveToX}
/moveto loc ${MoveToY} ${MoveToX}|on
:moveToLocation
/if (${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]} > 10) {
/delay 5
/echo ${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}
/goto :moveToLocation
}
/return