Yoko :: Drop Logs Problem

Yoko http://forum.yoko.com.ua/

Drop Logs Problem http://forum.yoko.com.ua/viewtopic.php?f=20&t=11448	Page 1 of 1

Author:

yxTbl [ 2007-02-14 10:46:54 ]

Post subject:

Drop Logs Problem

Code:

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 ?

Author:

Fraerok [ 2007-02-16 11:17:40 ]

Post subject:

Code:

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

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/