привожу пример скрипта которым я пользуюсь
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
EndsubCode: Select all
Sub Dispel() ; кидание пойзона по последнему статусу
If UO.Mana>=9 AND UO.NS>0 Then
UO.Cast('Dispel','laststatus')
Else
UO.Print("No mana")
Endif
EndsubCode: 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
EndsubCode: 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
EndsubCode: 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
EndsubCode: 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 P.S Зараннее спасибо!