Не работает
Posted: 2010-03-09 07:01:25
Скажу сразу шард DRW . А проблема такая скачал с форума пвп скрипты повыберал отсортировал для себя протестил всё работает (всё сохранил) , потом немного погодя после перезапуска компьютера побежал пвп и скрипты тупо не пашут в чём ожет быть причина? просто в левом нижнем углу пишет No mana (мана полная и её достаточно для любого каста) причём некоторые касты всёже работают например Great Heal а зеркало тоже пишет Но мана но если запустить с начала грэт хэл магию то потом зеркало сработает. в общем вот скрипты ;
Но иногда всё работает хорошо ! на самом деле даже закономерности не какой не заметил ... может у меня что то не так с инжой ?
Code: Select all
############################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 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()
UO.Print("Hello from function MAIN")
end sub
Но иногда всё работает хорошо ! на самом деле даже закономерности не какой не заметил ... может у меня что то не так с инжой ?