Loot all , Destroy all

[VillageIdiot]

This was made because someone asked for it. I tested it a little and worked great for me.

 

[cgoodman381]

Does this work for no drop items?

 

[VillageIdiot]

Does this work for no drop items?

it should if you have the /lootnodrop never activated.

and incase you don't know what that does, it turns off the confirmation box asking if you are sure you wish to loot this NO DROP item.

 

[triba1fusion]

Could this be modified to keep the no drop items?

 

[VillageIdiot]

This works, i tested it and worked for me. also added a delay on looting so it will give you a chance to move close enough to target.

|  Created by Villageidiot.
| This macro will loot and destroy everything off of
| a corpse that you kill.
| This version will KEEP NODROP items





#Event loot "You have slain#*#"

sub main


/declare LootTotal int outer 
/declare LootSlot  int outer


:loop

/doevents
/doevents
/doevents
/goto :loop
/return


sub Event_loot

/target corpse
/if (${Target.ID}) {
/moveto ID
/delay 10s ${Target.Distance}<7
/loot 
/delay 1s 
:start
   /if (!${Corpse.Items}) {  
      /notify LootWnd DoneButton leftmouseup
      /return 
   } 
   /varset LootTotal ${Corpse.Items} 
   /for LootSlot 1 to ${LootTotal} 
     /nomodkey /shiftkey /itemnotify loot${LootSlot} leftmouseup 
	 /delay 1s
         /if (${Cursor.NoDrop}) {
		/echo Keeping ${Cursor.Name} because it's NODROP
		/autoinventory
		/next LootSlot
		}
         /echo Destroying ${Cursor.Name}...
         /destroy
         /delay 1s 
   /next LootSlot 
    
   /notify LootWnd DoneButton leftmouseup 
   /delay 2 

/goto :start

/return