macro
movetoloot.macSub Main
/squelch /hidecorpse looted
/if (!${Target.Type.Equal[CORPSE]}) {
/target npc corpse radius 50
/delay 3
}
/if (!${Target.Type.Equal[CORPSE]}) {
/endm
}
/if (${Window[LootWnd]}) {
/endm
}
:Wait4Distance
/if (${Target.Distance}>10) {
/delay 1
/if (!${Stick.Active}) /stick 5
/goto :Wait4Distance
}
/echo looting corpse id ${Target.ID}
/loot
/return
macro
movetolootdone.macSub Main
/squelch /hidecorpse looted
/if (!${Target.Type.Equal[CORPSE]}) {
/target npc corpse radius 50
/delay 3
}
/if (!${Target.Type.Equal[CORPSE]}) {
/endm
}
/if (${Window[LootWnd]}) {
/nomodkey /notify LootWnd LW_DoneButton leftmouseup
/endm
}
:Wait4Distance
/if (${Target.Distance}>10) {
/delay 1
/if (!${Stick.Active}) /stick 5
/goto :Wait4Distance
}
/echo looting corpse id ${Target.ID}
/loot
/return
macro
movetolootall.macSub Main
/squelch /hidecorpse looted
/if (${Window[OptionsWindow].Child[OGP_LootAllConfirmCheckBox].Checked}) /nomodkey /notify OptionsWindow OGP_LootAllConfirmCheckBox leftmouseup
/if (!${Target.Type.Equal[CORPSE]}) {
/target npc corpse radius 50
/delay 3
}
/if (!${Target.Type.Equal[CORPSE]}) {
/endm
}
/if (${Window[LootWnd]}) {
/nomodkey /notify LootWnd LW_LootAllButton leftmouseup
/endm
}
:Wait4Distance
/if (${Target.Distance}>10) {
/delay 1
/if (!${Stick.Active}) /stick 5
/goto :Wait4Distance
}
/echo looting corpse id ${Target.ID}
/loot
/return
make a hotkey toc all the macro
ie: line 1: /mac movetoloot
press that hotkey and enjoy
difference between the 3...
movetoloot.mac will target and move to the closest corpse and open the loot window for ya and echo the target ID in the macroquest window
last 2 use at your own risk
movetolootdone.mac do the same things as movetoloot, but if you press the button again when the loot window is open it will click the done button and close it...
movetolootall.mac do the same thing as movetoloot.mac but if you press the button again when the loot window is open it will click the loot all with no confirmation at all and close it..
Thanks to
dimurwar for helping me out...
Hardtime Findinganame
