set %food VRD
set %color 0
set %bag KTDLLMD
set #lobjectid %bag
event macro 17
while #contid <> %bag
wait 10
finditem %food C_ , #backpackid
if #findcnt <> 0
{
exevent drag #findid #findstack
exevent dropc %bag
wait 25
}
repeat
{
f:
finditem %food C_ , %bag
if #findcnt = 0 2
event sysmessage Food not found!
halt
if #findcol <> %color
{
ignoreitem #findid
goto f
}
set %item #findid
exevent drag %item 1
exevent dropc #backpackid
repeat
finditem %item C_ , #backpackid
until #findcnt = 1
finditem ZGJ C_ , #backpackid
if #findcnt = 0
{
wait 40
gosub take
return
}
set %count #findstack
set #ltargetkind 1
set #ltargetid %item
set #lobjectid #findid
event macro 17 0
target
while #targcurs <> 1
wait 1
event macro 22 0
repeat
finditem ZGJ C_ , #backpackid
until #findstack < %count
set #ltargetkind 1
set #ltargetid %item
taste:
set %lag #scnt + 15
event macro 13 36
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
repeat
finditem %item C_ , #backpackid
until #findcol = 73 || #scnt > %lag
if #scnt > %lag
goto taste
exevent drag %item #findstack
exevent dropc %bag
wait 40
repeat
finditem %item C_ , #backpackid
until #findcnt = 0
ignoreitem %item
}
until #false
sub take
finditem ZGJ c_ , %bag
exevent drag #findid 100
exevent dropc #backpackid
wait 15
return