Yoko

Code: Select all

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 

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

Sub FStrike() ; кидание куре на себя 
If UO.Mana>=40 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Flame Strike','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Code: Select all

Sub Ebolt() ; кидание Кор Пора  последнюю цель 
If UO.Mana>=11 Then 
   UO.Cast('Energy Bolt','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Code: Select all

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

Code: Select all

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

Code: Select all

Sub Por() ; кидание куре на себя 
If UO.Mana>=40 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Teleport') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Code: Select all

Sub Poison() ; кидание куре на себя 
If UO.Mana>=40 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Poison','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub