set %cutCorpse #true
set %knife ; Set this to any knives or corpse cutting tool
if %cutCorpse = #true
{
finditem %knife c_ , #backpacked
if #findcnt > 0
set %knifeTool #findid
else
display ok Tool not found! Get a tool!
}
set %targetTimer #sysTime
set %corpseContSize 144_212; Set this to whatever size the container is for a corpse on your shard
set %corpseLooted n/a
set %itemTypes VLK
set %corpses YFM
repeat
finditem %corpses G_2
if #findcnt > 0
{
set %corpse #findid
set %contid #contid
if %cutCorpse = #true
{
set #lobjectid %knifeTool
if #targCurs = 1
{
set #targCurs 0
wait 5
}
event macro 17
set #ltargetkind 1
set %targetTimer #sysTime + 1000
while %targetTimer > #sysTime && #targCurs = 0
{
}
if #targCurs = 1
{
event macro 22
while %targetTimer > #sysTime
{
}
}
}
while %targetTimer > #sysTime
{
}
event macro 17
set %contWait #sysTime + 1100
while #contsize <> %corpseContSize || #contid = %contid
{
if #contid <> %contid
{
wait 5
break
}
}
if %contWait < #sysTime
{
set %corpseLooted #false
while %contWait > #sysTime
{
}
return ; Return on container error
}
set %corpseContId #contid
finditem %itemTypes c_ , %corpseContId
{
if #findcnt > 0
{
; Find and loot whatever you want here
set %corpseLooted #true
}
}
if %corpseLooted = #true
ignoreitem %contid
while %contWait > #systime
{
}
}
until #false