Ultima Online Antares

sub bow_kindling()
   var Chest = '0x40BE233D'; ID sunduka
   var Log   = '0x1BDD'; logi
   var Dag   = '0x0F51'; dagger
   var Kindl = '0x0DE1'; campfire
   var Kolvo = 200; skol'ko pererabativaem logov
   var Camp  = 1; kachaem camping?
   var Hid   = 0; nuzhen hide?
   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','Kindling')
         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