Drop Logs Problem

[yxTbl]

Code: Select all

sub DropLogs()
if uo.Waiting() then
uo.CancelTarget()
end if
var a,Exit
dim Logs[1]
Logs[0]=0x1BDD
uo.Print('vikladivaju logi.')
uo.SetReceivingContainer(Chest)
wait(500)
for a=0 to 0
Exit=0
repeat
uo.FindType(Logs[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
GotoXY(ContX,ContY)
else
Exit=1
end if
until Exit==1
next
if EatingFood==1 then
EatingFood()
end if
uo.UnSetReceivingContainer(Chest)
uo.Print('logi skinuti.')
end sub

vot no on kada podbegaet k sunduku , 4tobi skinut' logi kidaet pervie brevna i ubegaet na 3\4 kvadratika nize ;( ili eto v hodilke problema ?

[Fraerok]

Code: Select all

sub DropLogs() 
var logs = '0x1BDD'                           # ID'шник логов

uo.findtype(logs)                           
uo.print(uo.FindCount()) 
while uo.FindCount() > 0 
uo.MoveItem("finditem","-1","0x40091D49")     # ID'шник сундука
wait(2000) 
uo.findtype(logs)
wend 
end sub