Ultima Online Antares

sub sbor()
var q=0
UO.Set('finddistance', 3)
UO.FindType(0x0C4F,-1,'ground')
while UO.FindCount()
 F_DeleteJournal("You put")
 UO.UseObject('finditem')
 repeat
  wait(100)
 until UO.InJournal("You put")
 q=q+1
 UO.Ignore('finditem')
 if UO.Weight>=(UO.STR*4.16) then
  UO.Print(' =ооо= Полный вес. Сбор не возможен =ооо= ')
  UO.Ignorereset()
  UO.Set('finddistance', 10)
  return
 endif
 UO.FindType(0x0C4F,-1,'ground')
wend
if q then
 UO.Print(' =ооо= Все собрано. =ооо= ')
else
 UO.Print(' =ооо= Хлопка тут НЕТ!!! =ооо= ')
endif
UO.Set('finddistance', 10)
UO.Ignorereset()
endsub

sub farm()
VAR i,dist, Exit, GrowType
UO.Print('Что будем Соберать???')
UO.AddObject('Grow')
While UO.Targeting()
wait(500)
Wend
GrowType=UO.GetGraphic('Grow')
dist=0
While dist<25
Exit=0
While Exit<>1
UO.Set('finddistance',dist)
UO.Findtype(GrowType,-1,'ground')
If UO.FindCount() Then
If UO.GetDistance('finditem')>3 Then
dist=0
Endif
UO.UseObject('finditem')
Wait(1000)
Else
Exit=1
dist=dist+1
Endif
Wend
Wend
UO.Print('типо нету нечего!1!')
end sub

sub Food()
UO.AddType('food')
wait(500)
while UO.Targeting()
wait(200)
wend
UO.Set('finddistance','3')

UO.FindType('food','-1','ground')
while UO.FindCount()
UO.UseObject('finditem')
wait(100)
UO.FindType('food','-1','ground')
UO.Ignore('finditem')
wend
UO.Ignorereset()
end sub