######################################HILING#################### 
sub Heal()       ;Хилинг 
   If UO.STR==UO.Life Then 
      UO.Print("Life is full") 
   Else 
      UO.SetArm("1") 
      UO.BandageSelf() 
      wait(1000) 
      UO.Arm("1") 
      UO.UnSetArm() 
   Endif 
end sub 
################################################################ 
############################ODEJANIE############################ 
sub Sword()   ; Одевание щита и оружия 
Var Svord='0x13B9' ;Тип оружия, используемый вами 
Var Sheld='0x1B76' ;Тип щита, используемого вами 
UO.Equipt('Rhand',Svord) 
UO.Equipt('Lhand',Sheld) 
Endsub 

sub Bow()      ; Одевание лука. 
Var bow='0x13B1' ;Тип лука, используемого вами. 
UO.Equipt('Lhand',bow) 
Endsub 
################################################################ 
#############################ALCHIMI############################ 
Sub Manka() ; Выпивание тотал манок. 
Var Type='0x0F06' 
Var Color='0x076A' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub 

Sub GreaterHeal() ; Выпивание Грейт Хилок 
Var Type='0x0F0C' 
Var Color='0x0000' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub 

Sub Invise() ; Выпивание инвизки 
Var Type='0x0F09' 
Var Color='0x0060' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub 
################################################################ 
#############################SKILLS############################# 
Sub Hiding() ; Прятоться 
UO.WarMode(0) 
UO.UseSkill('Hiding') 
Endsub 

Sub Meditation() ; Медетировать 
UO.WarMode(0) 
UO.UseSkill('Meditation') 
Endsub 
################################################################ 
############################SPELLS############################## 
Sub Arrow() 
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Magic Arrow','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub Paralyze() ; кидание парализа по последнему статусу 
If UO.Mana>=12 AND UO.GA>0 And UO.MR>0 AND UO.SS>0 Then 
   UO.Cast('Paralyze','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub Poison() ; кидание пойзона по последнему статусу 
If UO.Mana>=9 AND UO.NS>0 Then 
   UO.Cast('Poison','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub ManaDrain() ; кидание манадрейн по последнему статусу 
If UO.Mana>=11 AND UO.BP>0 AND UO.MR>0 AND UO.SS>0 Then 
   UO.Cast('Mana Drain','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub FlameStrike() ; кидание флеймстрайка по последнему статусу 
If UO.Mana>=40 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Flame Strike','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub Cure() ; кидание куре на себя 
If UO.Mana>=6 AND UO.GA>0 Then 
   UO.Cast('Cure','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub GHeal() ; кидание Грейт Хила на себя 
If UO.Mana>=11 Then 
   UO.Cast('Greater Heal','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub UnParalyze() ; Кидание стрелки в себя, для выхода из парализа 
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Magic Arrow','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Sub Reflect() ; кидание зеркала на себя 
If UO.Mana>=12 AND UO.GA>0 AND UO.MR>0 AND UO.SS>0  Then 
   UO.Cast('Magic Reflect','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

sub main()
while not uo.dead() ; условие верно пока не мёртв (цикл)
If UO.Life<UO.STR-20 Then ; Проверка, если жизнь менше силы минус 20 тогда
  Heal() ; используем процедуру Heal
 else ; иначе 
  wait(200) ; ждём 0.2 секунды
endif ; конец проверки
wait(200) ; ждём 0.2 секунды
wend ; конец условия(если умер)
end sub