need autoloot macro updated

[hoosierbilly]

I would like to have this macro updated to automaticly loot stacks of items from the mobs corpse. Currently I get a window popup that requires me to confrim the number of items in the stack to loot. I would like that confrimation window to go away.

Macro is included.

Thanks in advance for your help.

|** Loot.mac by TheNewGuy
20 July 2005  

Make a hotkey:
  /mac loot.mac 

When something dies, push that hotkey as you are standing over the
corpse.  This should loot everything.

This code based upon Wat4rez.mac by FaNTuM.  Changed from Wait4rez.mac to
loot.mac at the following URL:

http://www.macroquest2.com/wiki/index.php/Editing_Existing_Macros

**|
 
| -------------- 
| -- Main Sub -- 
| -------------- 
Sub Main 
   /declare t int outer 0 
   /declare loottotal int outer 
   /declare lootslot int outer 
   /declare lootleft int outer 0 
   /if (!${Defined[Param0]}) { 
   } else { 
      /varset lootleft ${Param0} 
   } 
   /tar corpse

	/if (${Target.Distance}>50) {
	/echo Corpse is to far away to be my kill - Ending Macro.
	/endmacro
	}

	/if (${Target.Distance}>15) /call MoveToTarget

   /loot
| ----------------- 
| -- Count items -- 
| ----------------- 
   /delay 1s 
   :LootLag 
   /if (${loottotal}!=${Corpse.Items}) { 
      /varset loottotal ${Corpse.Items} 
      /delay 5 
      /goto :LootLag 
   } 
   /if (${loottotal}<=${lootleft}) { 
      /notify LootWnd DoneButton leftmouseup 
      /return 
   } 
   /varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]} 
| --------------------- 
| -- Loot the corpse -- 
| --------------------- 
   /for lootslot 1 to ${loottotal} 
   :LootItem 
   /itemnotify loot${lootslot} rightmouseup 
   /delay 5 !${Corpse.Item[${lootslot}].ID} 
   /if (!${Corpse.Item[${lootslot}].ID}) { 
      /next lootslot 
   } else {
     /goto :LootItem 
   }
| ----------------- 
| -- Doublecheck -- 
| ----------------- 
   /if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag 
   /notify LootWnd DoneButton leftmouseup 
/return


Sub MoveToTarget 
:KeepMoving 

	/face nolook
	/delay 1 
	/keypress forward hold 
	/if (${Target.Distance}>15) /goto :KeepMoving 
:StopMoving 
	/keypress forward 
	/return

 

[rayray33444]

Heya Hoosier.. try changing

/itemnotify loot${lootslot} rightmouseup

to

/shift /itemnotify loot${lootslot} rightmouseup

 

[hoosierbilly]

THanks rayray, the new command works great.