Ultima Online Antares

sub bow_kindling()
var Chest = '0x4036EBA6'; ID ??????? ??? ????? ????
var Log   = '0x1BDD';??? ?????
var Dag   = '0x0F51';??? ???????
var Kindl = '0x0DE1';??? ???????
var Kolvo = 50; ??????? ????? ????? ?????????????? ?? ?????????
var Camp  = 1; ?????? ????? ??????? ? ????????
var Hid   = 0; ?????????
while uo.count(Kindl) < Kolvo
    cheklag()
      UO.FindType( Log, '-1', Chest )
      if uo.findcount() < 1 then
          uo.exec('terminate bow_kindling')
      endif
      if uo.count(Log)==0 then
        uo.Grab(1,'finditem', 'backpack')
        wait(200)
    endif    
    while uo.count(Log)>0
        uo.usetype(Dag)
        uo.waittargettype(Log)
        UO.WaitMenu('What','Kindiling')
        wait(4000)
    wend
    if Hid>0 then
        uo.useskill('Hiding')
        wait(1000)
    endif
wend
if Camp>0 then
    Camping()
endif    
end sub

sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance',5)
wait(200)
uo.DeleteJournal()
while 1==1
    for x=mx-2 to mx+2
       for y=my-2 to my+2
          cheklag()          
          if (uo.count('0x0DE1','0x0000')==0) then
             bow_kindling()
          end if
          uo.findtype('0x0DE1','0x0000','ground')
          wait(200)
          if UO.FindCount()<>0 then
             uo.useobject('finditem')
             wait(1500)            
          else
             uo.findtype('0x0DE1','0x0000','backpack')
             wait(200)
             uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
             wait(700)
             uo.findtype('0x0DE1','0x0000','ground')
             wait(200)            
             uo.useobject('finditem')
             wait(1500)            
          end if
       next    
    next
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
  wait(100)
Until UO.InJournal("Backpack")
end sub