Request - loot macro (1 Viewer)

[lunatic47]

putting in a request for a loot macro that will target and warp to a corpse, loot all and move to the next. also include looting for no drop items too, if anyone would mind helping me out id appriciate it very much. i searched for one too so if there is one and i missed it i apologize ahead of time.

 

[gnuoy]

This is the warping zone looting macro I modded to fit my needs
For looting No Trade items just use /lootnodrop always
It will warn you if it sees a lore item ... doesn't check if you have it just tells you it sees a lore item

If there are any problems let me know ...

|** Lewt.mac by Gnuoy

Make a hotkey:
  /mac lewt.mac 

clear the zone ... this targets, warps, and loots all the corpses in the zone.

Uses /warp t and /warp s
I use MQ2Cursor to handle autodestroying items.

Mostly TheNewGuy's code just made it loot for all corpses in zone.

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
**|

#Event Skip "You may not loot that item from this corpse."

| -------------- 
| -- Main Sub -- 
| -------------- 
Sub Main 
 /declare Alert int outer 1
 /declare Skip bool outer FALSE
 /declare t int outer 0 
 /declare loottotal int outer 
 /declare lootslot int outer 
 /declare CurrentZone int
    
    /echo Looting all corpses ...
    /varset CurrentZone ${Zone.ID}
    
    :main
        /if (${Zone.ID}!=${CurrentZone}) {
            /echo You have zoned macro ended ...
            /end
         }
        /tar corpse${If[${Alert}, noalert ${Alert},]} 
        /if (!${Target.ID}) {
            /warp s
            /echo Done Looting ...
            /delay 5
            /if (${Alert}) /alert clear ${Alert}             
            /end
        }
        /warp t
        /delay 5
        /loot
        | ----------------- 
        | -- Count items -- 
        | ----------------- 
        /delay 5
        :LootLag 
            /if (${loottotal}!=${Corpse.Items}) { 
                /varset loottotal ${Corpse.Items} 
                /delay 1s 
                /goto :LootLag
        } 
        /if (${loottotal}<=0) { 
            /notify LootWnd DoneButton leftmouseup
            /delay 2
            /goto :Main 
        } 
        | --------------------- 
        | -- Loot the corpse -- 
        | --------------------- 
        /for lootslot 1 to ${loottotal} 
        :LootItem 
            /itemnotify loot${lootslot} leftmouseup 
            /doevents        
            /if (${Corpse.Item[${lootslot}].Lore}) {
                /vgroup 7                
                /doevents                
                /gsay Lore Item < ${Corpse.Item[${lootslot}]} >
                /if (${lootslot}==${loottotal}) /goto :loredone
                /next lootslot
            }
            /squelch /notify QuantityWnd QTYW_Accept_Button LeftMouseUp
            /delay 1
            /autoinventory
            /if (!${Corpse.Item[${lootslot}].ID}) { 
                /next lootslot 
            } else {
                /goto :LootItem 
            }
        :loredone        
        /notify LootWnd DoneButton leftmouseup 
        :end
            /delay 15
            /autoinventory
            /goto :main
/return

|-------------------------------------------------------------------------------- 
|Skip this corpse, move on the to the next one.
|-------------------------------------------------------------------------------- 
Sub Event_Skip 
    /alert add 1 corpse id ${Target.ID} 
    /varset Skip TRUE 
/return

 

[lunatic47]

thank you, ill test it out later on and let you know how it works.

 

[VillageIdiot]

Here is another that i made that is very quick. Loots everything, then warps to next. Very basic macro

** Villageidiot made this shit son! ** 
/echo lets clean this place up! 

Sub Main 

:mainloop 
/target corpse 
/warp t 
/delay 1s 
/nomodkey /shiftkey /click right target 
/delay 2s 
/goto :mainloop

 

[[email protected]]

I don't know how to set up macros, so was wondering if any of you could create a macro for opening and looting a chest, or the things like pile of bones?

 

[xx_Massochist_xx]

Go Go Necro Rez of a thread ... but just a quick inquiry.

|** Lewt.mac by Gnuoy

Make a hotkey:
  /mac lewt.mac 

clear the zone ... this targets, warps, and loots all the corpses in the zone.

Uses /warp t and /warp s
I use MQ2Cursor to handle autodestroying items.

Mostly TheNewGuy's code just made it loot for all corpses in zone.

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

http://www.macroquest2.com/wiki/inde...xisting_Macros
**|

#Event Skip "You may not loot that item from this corpse."

| -------------- 
| -- Main Sub -- 
| -------------- 
Sub Main 
 /declare Alert int outer 1
 /declare Skip bool outer FALSE
 /declare t int outer 0 
 /declare loottotal int outer 
 /declare lootslot int outer 
 /declare CurrentZone int
    
    /echo Looting all corpses ...
    /varset CurrentZone ${Zone.ID}
    
    :main
        /if (${Zone.ID}!=${CurrentZone}) {
            /echo You have zoned macro ended ...
            /end
         }
        /tar corpse${If[${Alert}, noalert ${Alert},]} 
        /if (!${Target.ID}) {
            /go to
            /echo Done Looting ...
            /delay 5
            /if (${Alert}) /alert clear ${Alert}             
            /end
        }
        /go to
        /delay 5
        /loot
        | ----------------- 
        | -- Count items -- 
        | ----------------- 
        /delay 5
        :LootLag 
            /if (${loottotal}!=${Corpse.Items}) { 
                /varset loottotal ${Corpse.Items} 
                /delay 1s 
                /goto :LootLag
        } 
        /if (${loottotal}<=0) { 
            /notify LootWnd DoneButton leftmouseup
            /delay 2
            /goto :Main 
        } 
        | --------------------- 
        | -- Loot the corpse -- 
        | --------------------- 
        /for lootslot 1 to ${loottotal} 
        :LootItem 
            /itemnotify loot${lootslot} leftmouseup 
            /doevents        
            /if (${Corpse.Item[${lootslot}].Lore}) {
                /vgroup 7                
                /doevents                
                /gsay Lore Item < ${Corpse.Item[${lootslot}]} >
                /if (${lootslot}==${loottotal}) /goto :loredone
                /next lootslot
            }
            /squelch /notify QuantityWnd QTYW_Accept_Button LeftMouseUp
            /delay 1
            /autoinventory
            /if (!${Corpse.Item[${lootslot}].ID}) { 
                /next lootslot 
            } else {
                /goto :LootItem 
            }
        :loredone        
        /notify LootWnd DoneButton leftmouseup 
        :end
            /delay 15
            /autoinventory
            /goto :main
/return

|-------------------------------------------------------------------------------- 
|Skip this corpse, move on the to the next one.
|-------------------------------------------------------------------------------- 
Sub Event_Skip 
    /alert add 1 corpse id ${Target.ID} 
    /varset Skip TRUE 
/return

would this work for changing the warp to make a character walk to a mob instead? I am unsure what the command is to get a toon to move to a mob rather than warp to it. (Since warping is gone and all). Only changed two lines of the code which I have shown in a bold green font.

 

[Maskoi]

using mq2moveutils command below will move you to your current target

 /moveto id