looting help for macro (1 Viewer)

[rawwar]

I would like to put a sub in for looting in a leech mac.

So far best One I saw was hunter but it uses loot.ini and mob.ini files which I do not need could someone help me adapt it plz.... here is the loot section

|--------------------------------------------------------------------------------
|SUB: Looting
|--------------------------------------------------------------------------------
Sub LootMob

/declare LootSlot int inner 0
/declare LootCheck int inner 0
/declare LootTotal int inner 0

/face fast

/keypress forward
/keypress back

/fastdrop on
/lootn never
/delay 2s
/loot
/delay 2s
/if (!${Corpse.Items}) {
/echo NO LOOT! Cheap Bastard!
/return
}

/varset LootTotal ${Corpse.Items}
/for LootSlot 1 to ${LootTotal}
/itemnotify loot${LootSlot} leftmouseup
/delay 1s
/if (${RV_LootAllItems}) {
/echo Keeping a ${Cursor.Name}... WOOT!
/autoinventory
/delay 1s
} else {
/for LootCheck 1 to ${RV_LootArray.Size}
/if (${Cursor.Name.Find[${RV_LootArray[${LootCheck}]}]}) {
/echo Keeping a ${Cursor.Name}... WOOT!
/varcalc RV_LootStats[${LootCheck}] ${RV_LootStats[${LootCheck}]}+1
/autoinventory
/delay 1s
}
/next LootCheck
}
/if (${Cursor.ID}) {
/echo Destroying a ${Cursor.Name}...
/destroy
/delay 1s
}
/next LootSlot

/notify LootWnd DoneButton leftmouseup
/delay 2

/return

 

[groovalistic]

As I only trust MQ2Cursor for item handling, I made this up for use with the hunter mod I been working on.... works quite well

   /declare loottotal int outer
   /declare lootslot int outer
   /declare lootleft int outer 0

Sub looting
/if (${Target.Distance}<12) /docommand /multiline ; /face ; /delay 1s ; /loot ; /delay 1s
/if (${Window[Loot.Wnd].Open}) {
/goto :lootlag
}
/if (${Target.Distance}>12) {
/stick uw 12
/delay 30s ${Target.Distance}<14
/loot
/delay 1s
} 
   :LootLag
   /if (${loottotal}!=${Corpse.Items}) {
      /varset loottotal ${Corpse.Items}
   }
   /varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]}
   /for lootslot 1 to ${loottotal}
   :LootItem
   /nomodkey /itemnotify loot${lootslot} leftmouseup
   /delay 2 !${Corpse.Item[${lootslot}].ID}
   /if (!${Corpse.Item[${lootslot}].ID}) {
      /next lootslot
   } else {
     /goto :LootItem
   }
   /if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag
/squelch /docommand /windowstate LootWnd close
/delay 2s
/return

Just set up those declares and call the sub as appropriate... works pretty well for me

I also made something else a while back for looting while AEing, here's that one (rather sloppy, but would loot everything within desired radius)


AELoot.mac

Sub Main
   /declare loottotal int outer
   /declare lootslot int outer
   /declare lootleft int outer 0
   /if (!${Defined[Param0]}) {
   } else {
      /varset lootleft ${Param0}
   }
   /tar npc corpse radius 200
  /delay 1s
   /loot
   /delay 1s
   :LootLag
   /if (${loottotal}!=${Corpse.Items}) {
      /varset loottotal ${Corpse.Items}
      /goto :LootLag
   }
   /if (${loottotal}<=${lootleft}) {
      /nomodkey /notify LootWnd DoneButton leftmouseupx
   }
   /varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]}
   /for lootslot 1 to ${loottotal}
   :LootItem
   /nomodkey /itemnotify loot${lootslot} leftmouseup
   /delay 2!${Corpse.Item[${lootslot}].ID}
   /if (!${Corpse.Item[${lootslot}].ID}) {
      /next lootslot
   } else {
     /goto :LootItem
   }
   /if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag
   /nomodkey /notify LootWnd DoneButton leftmouseup
  /delay 2s
   /tar corpse radius 200
/if (${Target.ID}) {
   } else {
/return
}
/if (${Target.Distance}>=15) {
/stick 13
/delay 2s
}

/if (${Target.Distance}<=15) {
/stick off
/loot
/delay 1s
}
/goto :lootlag
/return

hope that helps ya out

 

[dobey]

this piece I use loots anything stackable, not sure who the original author is:

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

 /if (${SpawnCount[corpse noalert 2]}) {
     /stand
     /ghost on
     /target corpse noalert 2
     /warp target
     /loot
     /delay 3
     :lootloop
     /if (!${Corpse.Items}) {
          /keypress Esc
          /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
     /ghost return
}

/goto :Loop

could anyone add to this to let it use a small ini file I could list non stackable items in to keep?

 

[dobey]

actually could anyone change that so it only destroys lore items?