Yoko

sub Camping() 
var Exit=0 
uo.Print('Выбери Сундук с Хворостом: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
#uo.UseObject('Chest') 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
#uo.UseObject('TrashCan') 
while not uo.Dead() or Exit<>1 
uo.FindType('0x0DE1','0x0000','Chest') 
if uo.GetQuantity('finditem')>0 Then 
uo.Grab('1','finditem') 
wait(1000) 
uo.DropHere('finditem') 
wait(1000) 
uo.UseObject('finditem') 
wait(1000) 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('1','finditem') 
uo.UnSetReceivingContainer() 
else 
exit=1 
end if 
wend 
end sub

sub Camping() 
var Exit=0 
var q=3 
var w=0 
var e=0 
uo.Print('Выбери Сундук с Хворостом: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
uo.exec("set distance 1") 
while not uo.dead() 
for i = mx-q to mx+q 
for j = my-q to my+q 
uo.deletejournal() 
UO.Print("Now Camping In: "+str(mx-i)+" "+str(my-j)) 
CheckLag() 
uo.FindType('0x0DE1','0x0000','Chest') 
if uo.GetQuantity('finditem')>0 Then 
UO.Drop('1',str(i),str(j),str(mz),'finditem') 
uo.UseObject('finditem') 
wait(1000) 
uo.UseObject('finditem') 
wait(1000) 
next 

UO.DeleteJournal() 
next 
wend 

end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub

sub Camping() 
var Exit=0 
var q=0 
var w=0 
var e=0 
uo.Print('Auaa?e Noiaoe n Oai?inoii: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 

for w=0 to 4 
while not uo.Dead() or Exit<>1 
for q=0 to 25 
UO.DeleteJournal() 
uo.FindType('0x0DE1','0x0000','Chest') 
if uo.GetQuantity('finditem')>0 Then 
UO.MoveItem('finditem','1','ground') 
wait(1000) 
uo.UseObject('finditem') 
CheckLag() 
If UO.InJournal('You fail') then 
uo.UseObject('finditem') 
endif 
else 
exit=1 
q=25 
end if 
wait(1000) 
next 



if e==0 then 
UO.Press( 36 ) 
CheckLag() 
q=0 
if w==4 then 
UO.Press( 34 ) 
e=1 
w=0 
endif 
endif 

if e==1 then 
UO.Press( 34 ) 
CheckLag() 
q=0 
if w==4 then 
UO.Press( 36 ) 
e=0 
w=0 
endif 
endif 

next 
wait(1000) 
wend 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub

Я со скриптами 2ой день только работаю

sub Camping() 
var Exit=0 
uo.Print('Выбери Сундук с Хворостом: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
while not uo.Dead() or Exit<>1 
uo.FindType('0x0DE1','0x0000','Chest') 
if uo.GetQuantity('finditem')>0 Then 
uo.Grab('1','finditem') 
wait(1000) 
uo.DropHere('finditem') 
wait(1000) 
uo.UseObject('finditem') 
wait(1000) 
else 
exit=1 
end if 
wend 
end sub 

sub Camping() 
var waittime = 1500
var Exit=0 
uo.Print('Выбери Сундук с Хворостом: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
while not uo.Dead() or Exit<>1 
uo.FindType('0x0DE1','0x0000','Chest') 
if uo.GetQuantity('finditem')>0 Then 
uo.Grab('1','finditem') 
wait(waittime) 
uo.DropHere('finditem') 
wait(waittime) 
uo.UseObject('finditem') 
wait(waittime) 
uo.UseObject('finditem') 
CheckLag() 
If UO.InJournal('You fail') then 
uo.UseObject('finditem') 
endif 
wait(waittime) 
else 
exit=1 
end if 
wend 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub 

sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal() 
uo.exec("terminate all")
end sub