Olmer.su

Code: Select all

sub MMSS() 
var LastTimer 
while not uo.Dead() 
uo.DeleteJournal()
while uo.Life<uo.STR
UO.useskill('Spirit Speak')
wait(4000)
wend  
while uo.Mana>=7 
uo.Cast('Magic Arrow','self') 
wait(5000) 
wend 
while uo.Mana<uo.INT 
LastTimer=uo.Timer() 
uo.UseSkill('Meditation') 
repeat 
wait(100) 
until uo.InJournal("You are") or uo.InJournal("You lose") or uo.Timer()>LastTimer+200 
uo.DeleteJournal() 
wait(2000) 
wend 
wend 
end sub 

Code: Select all

sub LG() 
   repeat 
      var LastTimer 
      while not uo.Dead() 
         uo.DeleteJournal()
         while uo.Mana>=25 
            uo.Cast('Lightning','laststatus')
            wait(5000) 
         wend 
         while uo.Mana<uo.INT 
            LastTimer=uo.Timer() 
            uo.UseSkill('Meditation') 
            repeat 
               wait(100) 
            until uo.InJournal("You are") or uo.InJournal("Full mana") or uo.Timer()>LastTimer+200 
            uo.DeleteJournal() 
            wait(2000) 
         wend 
      wend 
end sub

Code: Select all

sub Camping() 
   var count=0 
   uo.print('-Чет холодно? Ай да костер разведем!') 
   while uo.targeting() 
      wait(100) 
   wend 
   UO.DeleteJournal() 
   repeat 
      UO.UseType('0x0DE1')
      UO.WaitMenu('Campfires','Campfire')   
      wait(7000) 
   until UO.Dead() 
end sub 

Code: Select all

sub Herding() 
   var count=0 
   uo.print('Выбери Животное') 
   uo.exec('addobject Jivka') 
   while uo.targeting() 
      wait(100) 
   wend 
   UO.DeleteJournal() 
   repeat 
      uo.waittargetobject('Jivka','self') 
      UO.UseType('0x13F4')  #Shepherds crook 
      wait(4000) 
   until UO.Dead() 
end sub 

Code: Select all

sub Peacemaking() 
   var i=0 
   while uo.skillval('Peacemaking',1)<800
      i=i+1 
      if i==50 then 
         uo.usetype('0x0E9C') #drumm
         wait(1000)  
         i=0 
      end if 
      cheklag() 
      uo.useskill('Peacemaking') 
      wait(3000) 
   wend 
   uo.closeuo() 
end sub 
sub cheklag() 
   uo.deletejournal() 
   uo.click('backpack') 
   repeat 
      wait(10) 
   until uo.InJournal("backpack") 
end sub 

Code: Select all

sub Enticement() 
   var count=0 
   uo.print('Выбери Животное') 
   uo.exec('addobject ANIMALS') 
   while uo.targeting() 
      wait(100) 
   wend 
   UO.DeleteJournal() 
   repeat 
      uo.waittargetobject('ANIMALS') 
      UO.Useskill('Enticement')    
      wait(8000) 
   until UO.Dead() 
end sub 

Code: Select all

sub Sbor() 
   UO.AddType('food')
   wait(500)
   while UO.Targeting()
      wait(200)
   wend
   UO.Set('finddistance','3')
   UO.FindType('food','-1','ground')
   while UO.FindCount()
      UO.UseObject('finditem')
      UO.FindType('food','-1','ground')
      UO.Ignore('finditem')
   wend
   UO.Ignorereset()
end sub

Code: Select all

sub buff() 
var mana = 15 ;Кол-во маны на кажд. каст
var forcast = 4660  ;Время на каждый каст
DIM cast[7]

cast[0]='Protection' ; То, что кастуем
cast[1]='Reactive Armor' ; То, что кастуем
cast[2]='Bless' ; То, что кастуем
cast[3]='Strength' ; То, что кастуем
cast[4]='Agility' ; То, что кастуем
cast[5]='Cunning' ; То, что кастуем
cast[6]='Magic Reflection' ; То, что кастуем

for var i = 0 to 6
  if uo.mana > mana then 
    uo.Cast( cast[i] ,'self')
    wait(forcast)
  else
    uo.Print('Нету маны')
  end if
next
end sub

Code: Select all

sub AGH() 
      while not UO.Life<(UO.Str*0.80)
         UO.cast('Greater Heal','self')
         repeat
         wait(4000)
    wend
end sub

Code: Select all

sub MagicSeller() 

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('0x2DF3')  
    wait(1000) 
    else 
    uo.charprint(printcolour, 'Награбленное сдано' )
    return
  end if
until UO.Dead()
end sub

Code: Select all

sub AnimalTaming() 
   var count=0 
   uo.print('Êîãî ðó÷àåì?') 
   uo.exec('addobject animals') 
   while uo.targeting() 
      wait(100) 
   wend 
   UO.DeleteJournal() 
   while NOT UO.Dead() 
      UO.DeleteJournal() 
      UO.WaitTargetObject('animals') 
      UO.Useskill('Animal Taming')
      repeat 
         wait(1000) 
      until UO.InJournal('You fail') OR UO.InJournal('Tamed') 
      If Uo.InJournal('Tamed') Then 
         UO.Say('All release') 
      Endif 
   wend 
end sub 

Code: Select all

sub hide()
   while not UO.Dead()
      st1: 
      UO.DeleteJournal()
      UO.UseSkill('Hiding')
      while not (UO.InJournal('прятаться не удалось') or UO.InJournal('hidden'))
         wait(200) 
      wend 
      if UO.InJournal('прятаться не удалось') then
         goto st1 
      endif 
      while not UO.INJournal('revealed')
         goto st1 
      wend 
   wend 
end sub

Code: Select all

sub dehide()
   while not UO.Dead()
      dh1: 
      UO.DeleteJournal()
      UO.UseSkill('Detect Hidden')
      while not (UO.InJournal('адиус обнаружения') or UO.InJournal('ичего подозрительного'))
         wait(200) 
      wend 
      if UO.InJournal('ичего подозрительного') then
         goto dh1 
      endif 
   wend 
end sub

Code: Select all

sub ForencisEva() 
   var count=0 
   uo.print('Æåðòâà?') 
   uo.exec('addobject corpse') 
   while uo.targeting() 
      wait(100) 
   wend 
   UO.DeleteJournal() 
   while NOT UO.Dead() 
      UO.DeleteJournal() 
      UO.WaitTargetObject('corpse') 
      UO.Useskill('Forensic Evaluation')
      repeat 
         wait(1000) 
      until UO.InJournal('This if Body of') OR UO.InJournal('Âû íå íàøëè') 
      If Uo.InJournal('This if Body of') Then 
         UO.WARMODE(0)
      Endif 
   wend 
end sub