Hey, cant seem to find it need new eyes. Thanks in advance.
sub findcorpse
finditem YFM G_15
if #findkind = -1
{
move %startposx %startposy 0 5s
goto mainloop
}
set %body #findid
if #findx > %startposx + 15 || #findy > %startposy + 15
{
goto mainloop
}
set wait 10 + %lags Looting
gosub updatestatus
move #findX #findy 0 10s
set #lobjectid %body
nextCPos 10 10
wait 10 + %lag
event macro 17 0
wait 1s
set %nt2 #scnt2 + 10
set %bod #contID
_OQ:
finditem %loot C_ . #contID
if #findkind = -1 && %nt2 < #scnt2
goto _OQ
wait 13
set %bod #contid
_findloot:
finditem %loot C_ . %bod
if #findkind = -1 || #findbagid = #charid || #findbagid = #backpackid
{
event SysMessage finished Corpse.
ignoreitem %body
wait 15
move %startposx %startposy 0 5s
goto mainloop
}
if #weight > #maxweight - 100
{
set !amount ( #maxweight - #weight ) * 50
if !amount > #findstack
set !amount #findstack
}
else
set !amount #findstack
exevent drag #findid !amount
exevent dropc #charid
wait 1s
gosub sendgold
goto _findloot
return