Yoko

Code: Select all

sub bow()
  uo.Print('!!!!ãäå ëîãè?!!!!! ')
  uo.Exec('addobject cu')
  while uo.Targeting()
     wait(100)
  wend
    uo.Print('!!!!êóäà øàôòû êèäàòü?!!!! ')
  uo.Exec('addobject cu2')
  while uo.Targeting()
     wait(100)
  wend
      uo.Print('!!!!äàããåð!!!! ')
  uo.Exec('addobject cu3')
  while uo.Targeting()
     wait(100)
  wend
  var tree,torch,ctree,i
  torch = '0x0F64'
  tree = '0x1BDD'
while uo.dead()<1

  dim qwe[15]
  qwe[0] = 0x047C
  qwe[1] = 0x0033
  qwe[2] = 0x04C2
  qwe[3] = 0x010F
  qwe[4] = 0x0B82
  qwe[5] = '0x0237
  qwe[6] = 0x0279
  qwe[7] = 0x0071
  qwe[8] = 0x09A4
  qwe[9] = 0x096B
  qwe[10] = 0x0085
  qwe[11] = 0x002B
  qwe[12] = 0x0014
  qwe[13] = 0x03C1
  qwe[14] = 0x0482

  dim text[15]
  text[0] = Oak Items
  text[1] = Eridan Items
  text[2] = Vampire Tree Items
  text[3] = Keranit Items
  text[4] = Dead Tree Items
  text[5] = Swamp Items
  text[6] = Red Tree Items
  text[7] = Illusions Tree Items
  text[8] = Crystal Items
  text[9] = Dark Tree Items
  text[10] = Dragon Tree Items
  text[11] = Hellios Items
  text[12] = Perit Items
  text[13] = Petrified Items
  text[14] = Silver Leaf Items
   i = 0
   





uo.findtype(tree,qwe[i],'my')
if uo.findcount()<0 then
uo.findtype(tree,'qwe[i]','cu')
if uo.findcount()>0 then
uo.moveitem('finditem','1','my')
endif
endif
uo.findtype(tree,'qwe[i]','my')
if uo.FindCount()>0 then
uo.waittargetobject('finditem')
wait(600)
uo.useobject('cu3')
wait(300)
uo.waitmenu('What you watn to carve the wo',text[i],text[i],'torch')
wait(2000)
endif
uo.findtype(torch,'-1','my')
if uo.FindCount()>0 then
uo.moveitem('finditem','100','cu3')
wait(800)
endif
wend
endsub

Code: Select all

sub bow() 
  var tree,torch,ctree,i 

  torch = '0x0F64' 
  tree = '0x1BDD' 

  dim qwe[15] 
  qwe[0] = '0x047C' 
  qwe[1] = '0x0033' 
  qwe[2] = '0x04C2' 
  qwe[3] = '0x010F' 
  qwe[4] = '0x0B82' 
  qwe[5] = '0x0237' 
  qwe[6] = '0x0279' 
  qwe[7] = '0x0071' 
  qwe[8] = '0x09A4' 
  qwe[9] = '0x096B' 
  qwe[10] = '0x0085' 
  qwe[11] = '0x002B' 
  qwe[12] = '0x0014' 
  qwe[13] = '0x03C1' 
  qwe[14] = '0x0482'

  dim text[15] 
  text[0] = 'Oak Items' 
  text[1] = 'Eridan Items' 
  text[2] = 'Vampire Tree Items' 
  text[3] = 'Keranit Items' 
  text[4] = 'Dead Tree Items' 
  text[5] = 'Swamp Items' 
  text[6] = 'Red Tree Items' 
  text[7] = 'Illusions Tree Items' 
  text[8] = 'Crystal Items' 
  text[9] = 'Dark Tree Items' 
  text[10] = 'Dragon Tree Items' 
  text[11] = 'Hellios Items' 
  text[12] = 'Perit Items' 
  text[13] = 'Petrified Items' 
  text[14] = 'Silver Leaf Items' 

  uo.Print('Select box with logs ... ') 
  uo.Exec('addobject cu') 
  while uo.Targeting() 
     wait(100) 
  wend 

  uo.Print('Select dagger ...') 
  uo.Exec('addobject cu3') 
  while uo.Targeting() 
     wait(100) 
  wend 

  i = 0 
  while not uo.dead() 
    uo.findtype(tree,qwe[i],'my') 
    if uo.findcount()<0 then 
      uo.findtype(tree,qwe[i],'cu') 
      if uo.findcount()>0 then 
        uo.moveitem('finditem','1','my') 
        wait(500)
      else
        i = i + 1
      endif
    endif 

    uo.findtype(tree,qwe[i],'my') 
    if uo.FindCount()>0 then
      uo.waitmenu('What you watn to carve the wo',text[i],text[i],'torch')  
      uo.waittargetobject('finditem') 
      uo.useobject('cu3') 
      wait(2500) 
    endif
 
    uo.findtype(torch,'-1','my') 
    if uo.FindCount()>0 then 
      uo.moveitem('finditem','100','cu3') 
      wait(500) 
    endif 
  wend 
endsub