Ultima Online Antares

sub camping_floor()
VAR Exit=0
while NOT UO.Dead() OR Exit<>1
UO.FindType('0x0DE1','0x0000','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.Drop(1,0,0,0,'finditem')
wait(500)
UO.UseObject('finditem')
wait(500)
Else
Exit=1
Endif
wend
end sub

sub Camping()
var i,j
var MX=uo.GetX()
var MY=uo.GetY()
var MZ=uo.GetZ()
var time=uo.Time()
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
while not uo.Dead()
for i=MX-3 to MX+3
for j=My-3 to MY+3
if uo.Count('0x0DE1')==0 then
uo.FindType('0x0DE1',-1,'Chest')
if uo.FindCount()>0 then
uo.MoveItem('finditem','6')
else
return
end if
end if
uo.FindType('0x0DE1',-1,'backpack')
uo.MoveItem('finditem','1','ground',str(i),str(j),str(MZ))&
;nbs
p;
wait(1000)
uo.FindType('0x0DE1','0x0000','ground')
while uo.FindCount()>0
repeat
uo.UseObject('finditem')
wait(500) 
until not uo.InJournal('You fail')
wait(500)
uo.FindType('0x0DE1','0x0000','ground')
wend
ToEat()
next
next
wend
end sub

sub ToEat()
  repeat
  uo.UseType('0x097B')
  while not uo.InJournal('can') and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
  wait(100)
  wend
  until uo.InJournal('too full') or UO.Dead() or uo.InJournal('can')
end sub