Ultima Online Antares

sub derevo()

var bag=0x401B0227; мешок для мусора

repeat
UO.FindType(-1,-1,bag)
UO.MoveItem('finditem',1,'backpak')
UO.WaitTargetObject('finditem')
UO.UseFromGround('0x11C9')  
wait(500)
until UO.Dead()
end sub

sub derevo()

var printcolour = '1069'

UO.AddObject('bag')
uo.charprint(printcolour, 'Выбери сумку с хламом' )
wait(500)
  while UO.Targeting()
  wait(200)
  wend
uo.useobject('bag')
wait(1000)

repeat
  UO.FindType(-1,-1,'bag')
  if UO.FindCount() > 0 then
    UO.Grab("0","finditem")
    UO.WaitTargetObject('finditem')
    UO.UseFromGround('0x11C9')  
    wait(1000)
    else
    uo.charprint(printcolour, 'Все продано' )
    return
  end if
until UO.Dead()
end sub

    UO.UseFromGround('0x11C9')  

UO.UseObject('derevo')