Looking for a mac to target npc corpse's and loot

[Jinx]

I have looked and I must be missing it. I am looking for a macro for one toon to sit near bard kiting and loot his corpses so it doesn't rot when I am afk. Anyone have a simple /target corpse .... run to corpse .... loot .... return ..... then monitor the area for next corpse?

 

[dobey]

I use this, I didn't write it and cant remember where I got it now, but it cleans the corpses very fast. It uses warp and ghost. This one only keeps items that are stackable, everything else gets destroyed.

Sub Main
/declare LootSlot int outer 0
/declare LootTotal int outer 0
/declare Loot 
:Loop

 /if (${SpawnCount[corpse noalert 2]}) {
     
     /squelch /ghost on
     /target corpse noalert 2
     /squelch /warp target
     /loot
     /delay 5
     :lootloop
     /if (!${Corpse.Items}) {
          /keypress Esc
              /squelch /ghost return
          /goto :loop
     }
     /varset LootTotal ${Corpse.Items}
     /for LootSlot 1 to ${LootTotal}
     /itemnotify loot${LootSlot} leftmouseup
     /delay 5
     /if (${Cursor.Stackable}) /autoinventory
     /delay 5
     /destroy
     /next LootSlot
     /keypress Esc
     
     /squelch /ghost return
     }

     /goto :Loop

 

[Jinx]

Very nice thanks.

Prolly should only be used in instance or not afk since it uses warp. I will give it a shot and let you know how I make out.

If someone has one with out warp please let me know. maybe I can try to get this to run without warp and I will have 2 options.

 

[Ccomp5950]

Actually that looks alot like a portion of my shaman's loot macro I wrote and posted on abyss's website back when I was using abyss's ghost With some improvements in the delay and removal of the ${NinjaLoot} flag

what really makes me believe so is the presence of noalert 2.

Nice to know that someone found it useful.

 

[dobey]

I think you are right, I just couldn't remember where I got it. It works great, and I love your macro that attacks from the sides! It is the only one I can get over 25k dps without getting hit.

 

[Jinx]

Not working. I run the mac above and CTD everytime. Also it keeps warping to corpses at graveyard (

 

[dobey]

never tried it in an open zone with a GY, I always used it in an instance where the only corpses where dead npc's.

 

[Jinx]

Any idea why I keep crashing? I ran it away from GY and it did warp to corpse i killed with bard but CTD.

 

[Ccomp5950]

if your using TeachersPet Ghost /ghost return is CTDing.

TP GO UPDATE THE WARP OFFSET ><

 

[Ccomp5950]

Here try this, it avoids the use of Ghost return which uses warp to put you back to where you were before turning ghost off.

Sub Main
/declare CampX int outer ${Me.X}
/declare CampY int outer ${Me.Y}
/declare CampZ int outer ${Me.Z}
/declare LootSlot int outer 0
/declare LootTotal int outer 0
/declare Loot 
:Loop

 /if (${SpawnCount[corpse noalert 2]}) {
     
     /squelch /ghost on
     /target corpse noalert 2
     /squelch /warp target
     /loot
     /delay 5
     :lootloop
     /if (!${Corpse.Items}) {
          /keypress Esc
          /squelch /warp ${StartY} ${StartX} ${StartZ}
          /squelch /ghost off
          /goto :loop
     }
     /varset LootTotal ${Corpse.Items}
     /for LootSlot 1 to ${LootTotal}
     /itemnotify loot${LootSlot} leftmouseup
     /delay 5
     /if (${Cursor.Stackable}) /autoinventory
     /delay 5
     /destroy
     /next LootSlot
     /keypress Esc
     
     /squelch /warp ${StartY} ${StartX} ${StartZ}
     /ghost off
     }

     /goto :Loop

 

[Jinx]

Nope it CTD as soon as I warp to corpse (. Warping by itself is fine no CTD.

I am using the one from RG6.2 and copied the above exactly.

I have MQ2RWarp and MQ2Ghost loaded

 

[Ccomp5950]

O.o

Does it CTD doing normal warps?

Might be a problem in the loot opcode or something, might just want to remove the whole ghost command all together. Either that or you need to redownload ghost.

I'll post a macro later on that checks to make sure no npc's are within a 75 foot radius before attempting to loot.

 

[rawwar]

Ok while we are doing this I am using this as part of my vxed helper right now and works good execpt in a couple instances...

If there is a stacable it does not retain them (Lost 10 diamonds last night)

If it is lore and I have one it keeps trying

If the Bard dies it tries to loot him which is really really bad cause it puts the helper on the floor

If the instance ends and I zone to Barindu it jumps to nearest corpse and uslally gets me killed (this should be easy just a zone check)

If I can get this working will post the vxed I use it works well and great to get extra plat while leeching exp.

 

[Jinx]

Nope I do not CTD when I use warp by itself. I can warp all over no problem no CTD.

 

[Ccomp5950]

Ok while we are doing this I am using this as part of my vxed helper right now and works good execpt in a couple instances...

If there is a stacable it does not retain them (Lost 10 diamonds last night)

If it is lore and I have one it keeps trying

If the Bard dies it tries to loot him which is really really bad cause it puts the helper on the floor

If the instance ends and I zone to Barindu it jumps to nearest corpse and uslally gets me killed (this should be easy just a zone check)

If I can get this working will post the vxed I use it works well and great to get extra plat while leeching exp.

Raise the delay right between where it /notifies and checks for ${Cursor.Stackable} either that or wait and I'll post my improved loot macro when I get back home.

 

[thez]

Are you able to /ghost on, then warp, on your own? Because if that doesn't work, then that's a separate problem from the looting.

I will look into this.

 

[rawwar]

I can wait..... thanks Ccomp .... lil things like that drive me nuts

 

[Ccomp5950]

Few improvements over the previous version, one it either keeps it or it destroys it. I completely took ghost out of the mess.

Sub Main
/declare LootSlot int outer 0
/declare LootTotal int outer 0
/declare Loot int outer int outer 0
/declare MX int outer ${Me.X}
/declare MY int outer ${Me.Y}
/declare MZ int outer ${Me.Z}
/declare StartZoner int outer ${Zone.ID}

/lootn never

:loop

 /if (${SpawnCount[corpse noalert 2]}) {
     /stand
     /target corpse noalert 2
     :waitforit
     /delay 1
/if (!${Spawn[loc ${Target.X} ${Target.Y} npc radius 100].ID}) /goto :waitforit
     /squelch /warp target
     /loot
     /delay 1s
     :lootloop
	/altkey /delay 0
     /if (!${Corpse.Items}) {
          /keypress Esc
		/squelch /warp loc ${MY} ${MX} ${MZ}
          /goto :loop
     }
     /varset LootTotal ${Corpse.Items} 
     /for LootSlot 1 to ${LootTotal} 
     /itemnotify loot${LootSlot} leftmouseup 
    /delay 8 ${Cursor.ID}
     /if (${Cursor.Stackable}) {
	/echo Keeping ${Cursor}
	/autoinventory
	} Else {
	/echo destroying ${Cursor}
        /destroy
	}
     /next LootSlot
     /keypress Esc
     /squelch /warp loc ${MY} ${MX} ${MZ}
}
/if (!${Me.Sitting}) /sit
/if (!${StartZoner}==${Zone.ID}) /call Zoned
/goto :loop
/return

Sub Zoned
/echo OMG WTF
/delay 5s 
/gate	
/wait 2m
/exit
/return

 

[Jinx]

Nice work I know you are close. Here is what I get

"Failed to parse /if condition '(!{Spawn[loc 802.63 -943.25 npc radius 100].ID})', non-numeric encountered

I also changed the radius to 200 and get same message but with radius 200. The corpse I can see and the one it targets is 141 distance.

 

[Ccomp5950]

Yeah it's missing a $

Should be

(!${Spawn[loc ${Target.X} ${Target.Y} npc radius 100].ID})
  ^
   \        
     ----THERE IT IS!!!