Ultima Online Antares

'There is nothing here to chop'

sub hatch()
uo.exec('addobject TREE')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('Tree')
uo.UseObject('0x0f43')
if not uo.lastmessage() == 'There is nothing' then
      while uo.lastmessage() == 'What do you want'
       wait(100)
      wend
      if uo.injournal('You put') then
endif
end sub

# by Roneon, #xak@DALnet :)
sub cut_trees()
var walk=6
var v=1
var x
var y
var h
var go
var i
var x0=uo.getx()
var y0=uo.gety()
while not uo.dead()
h=0
for x=-v to v
  for y=-v to v
   for i=3274 to 3302
    uo.deletejournal()
    if uo.PrivateGetTile(uo.getx()+x, uo.gety()+y, -1, i, i) then
     uo.waittargettile(i,uo.getx()+x,uo.gety()+y,uo.getz())
     uo.usetype('0x0F43')
     wait(200)
     if not uo.lastmessage() == 'Тут нечего рубить.' then
      while uo.lastmessage() == 'На что вы хотите это применить?'
       wait(100)
      wend
      if uo.injournal('Вы положили Logs к себе в рюкзак') then
       y=y-1
       h=1
      endif
     endif
    endif
   next
  next
next
if not h then
if uo.getx()<=x0-walk then
  go=39
endif
if uo.getx()>=x0+walk then
  go=37
endif
if uo.gety()<=y0-walk then
  go=40
endif
if uo.gety()>=y0+walk then
  go=38
endif
if not go then
  go=37+uo.random(3)
endif
uo.press(go)
uo.press(go)
uo.press(go)
go=0
endif
uo.deletejournal()
wait(50)
wend
end sub

for x=-v to v
  for y=-v to v
   for i=3274 to 3302
    uo.deletejournal()
    if uo.PrivateGetTile(uo.getx()+x, uo.gety()+y, -1, i, i) then
     uo.waittargettile(i,uo.getx()+x,uo.gety()+y,uo.getz())

sub hatch()
   var printcolour = '1069'
   var knopka = 67 ; укажи кнопку, на которую у тебя забит в опциях уо LastObject


   UO.DeleteJournal()
   UO.FindType('0x0f43','-1','backpack')
   if UO.FindCount() > 0 then
      uo.Usetype('0x0f43')
      while uo.targeting()
         wait(100)
      wend
      repeat
         wait(300)
      until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
      repeat
         UO.DeleteJournal()
         uo.Usetype('0x0f43')
         uo.press(knopka)
         repeat
            wait(300)
         until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
      until uo.injournal('There is nothing') or uo.injournal('have no line')
      uo.charprint(printcolour, 'Готово!' )
   else
      uo.charprint(printcolour, 'Положи в пак 2 (!!!) топора' )
   endif
end sub

strg a