Ultima Online Antares

sub Ept()
   var gold, bag
   gold=UO.Gold
   bag=UO.Count(0x0E76)
   UO.Set('finddistance', '3')
   UO.FindType(0x0E76, -1,'ground')
   UO.Grab(str(0),'finditem'); юзай Grab
   UO.FindType(0x0EED, -1,'ground')
   UO.Grab(str(0),'finditem'); юзай Grab
   if UO.Count(0x0E76)>bag and UO.Gold>gold then
      UO.Say(')')
   endif
end sub

sub Ept()
   UO.Set('finddistance', '3')
   UO.FindType(-1, -1,'ground')
   UO.Grab(str(0),'finditem'); юзай Grab
end sub

sub Ept()
   UO.Set('finddistance', '3')
   UO.FindType(-1, -1,'ground')
   UO.Grab(str(0),'finditem'); юзай Grab
end sub

sub loot_zemlya()
  
   Item('0x0F0D', '-1'); бомба лессер
   Item('0x10B0', '-1'); Handing Pole
   Item('0x0E26', '-1'); фласка
   Item('0x0EED', '-1'); Golden Coin
   Item('0x0F3F', '-1'); Arrow
   Item('0x14FB', '-1'); Lockpick
   Item('0x0F7C', '-1'); блуд спаун
   Item('0x19B7', '-1'); 1 руда
   Item('0x0F26', '-1'); камень (гранат, диамонд)
   Item('0x0F25', '-1'); камень (амбер)
   Item('0x0F13', '-1'); камень (рубин)
   Item('0x0F11', '-1'); камень (сапфир)
   Item('0x0F18', '-1'); камень (турмалин)
   Item('0x0F15', '-1'); камень (цитрин)
   Item('0x0F10', '-1'); камень (эмиральд)
   Item('0x0F16', '-1'); камень (аметист)
   Item('-1', '0x0991'); руин цвет
  
End Sub

Sub Item(Type, Color)
   UO.Set('finddistance', '2')  
   Repeat
      UO.FindType(Type, Color, 'ground')
      If UO.FindCount() > 0 Then
         UO.Grab('-1', 'finditem')
         Wait(100)
      Endif
   Until UO.FindCount() < 1
End Sub