Mines of Gloomingdeep .. tutorialB zone macro. (For ProjectEQ (PEQ) The Grand Creation or other ROF2 Emu content) To gank ( loot ) the Warchest in Gnikan's back room. Helps to automate getting your toon as much of the starter tutorial gear from the chest spawns. Do not open and loot the chest before running this. Stand in front of the chest.. and then run the macro. It has been adjusted to cycle just after the spawn timer of the chest, so there is no need to adjust any delay timers. It is NOT meant to AFK loot. You should be present and just monitoring the macro loot for you. Not intended to use AFK. Gnikan.mac Code: #Event LoreItem "#*#You cannot loot this Lore#*#" |-------------------------------------------------------------------------------- |SUB: MAIN Note: ITEM ID is 561 if needed to use target.id |-------------------------------------------------------------------------------- Sub Main /declare ItemToGank string outer "Gnikan`s_war_chest000" /declare ItemToGankCleanName string outer "Gnikan`s war chest" /declare LootCountTotal int outer 0 /declare DelayTimer int outer 235 | -- Hide any corpses of surrounding people. /squelch /hidecorpse all /fastdrop on /lootn n /squelch /target clear /delay 1s /echo -- STARTING GNIKAN MAC -- MyTime is:(${Time}) :wait /if (!${$Target.ID}) /squelch /target ${ItemToGank} /delay 3s ${Target.ID} /if (${Target.ID}) { /echo ++ (${ItemToGankCleanName}) just spawned ! /delay 1s /open /delay 2s /target corpse /delay 3s ${Target.ID} /call LootAll /delay 5s !${$Target.ID} /varcalc LootCountTotal ${LootCountTotal}+1 /echo Total chests looted so far: (${LootCountTotal}) } else { | -- Hide any corpses of surrounding people. |/squelch /hidecorpse all } |--- Spawn time has been tested, do not adjust delay timer. /echo -- WAITING FOR (${ItemToGankCleanName}) to SPAWN -- MyTime is:(${Time}) /delay ${DelayTimer}s /goto :wait /return |-------------------------------------------------------------------------------- |-------------------------------------------------------------------------------- |SUB: LootAll |-------------------------------------------------------------------------------- Sub LootAll /declare LootSlot int inner 0 /declare LootCheck int inner 0 /declare LootTotal int inner 0 /face nolook /keypress forward /keypress back /fastdrop on /lootn never /delay 2s /loot | Don't make this too low, or ${Corpse.Items} will be wrong, since win has not populated /delay 2s /doevents /if (!${Corpse.Items}) { /echo NO LOOT! Cheap Bastard! /notify LootWnd DoneButton leftmouseup /delay 2s !${Window[LootWnd].Open} /return } /varset LootTotal ${Corpse.Items} /for LootSlot 1 to ${LootTotal} /timed 1 /shift /itemnotify ${Corpse.Item[${LootSlot}].InvSlot} leftmouseup /delay 3s ${Cursor.ID} /echo ~ Keeping a ${Cursor.Name}... WOOT! /timed 1 /autoinv /delay 3s !${Cursor.ID} /next LootSlot /notify LootWnd DoneButton leftmouseup /delay 2s !${Window[LootWnd].Open} /doevents /return |-------------------------------------------------------------------------------- |-------------------------------------------------------------------------------- |SUB: LORE NODROP event. |-------------------------------------------------------------------------------- Sub Event_LoreItem :warnme /echo *** That item is lore and nodrop ! *** /beep /beep /beep /delay 5s /goto :warnme /return |--------------------------------------------------------------------------------
