codice:
set %corpse YFM
set %bag CKF
set %lastcont #contid
:loop
finditem %corpse G_2
set %foundcorpse #findid
set #LOBJECTID %foundcorpse
event macro 17
wait 15
finditem OZF C_ , %foundcorpse
if #FINDCNT > 0
{
Exevent Drag #findid #findstack
Exevent Dropc #backpackid
}
ignoreItem %foundcorpse
if #weight > #maxweight
{
finditem %bag C_ , #backpackid
if #FINDCNT > 0
{
set %foundbag #findid
finditem OZF C_ , #backpackid
if #FINDCNT > 0
{
set #LOBJECTID %foundbag
event macro 17
wait 10
set #LTARGETID #findid
event macro 22 0
}
}
}
goto loop

Commenta