Проблема со скриптами

[Партизан]

Проблема в том что вот по этим скриптам я сделал так чтоб он всегда брал в руку при касте Spellbookу. А получилось как-то.

Получилось так

1каст Одел
2каст Снял
3каст Одел
4каст Снял и т.д. и .т.п

Сделай плиз проверку на спулбуку если есть в руке пусть кастуеи а если нету пусть берёт....

Большое Спасибо

Code: Select all

Var SpellBook='0x0EFA'

Var waitaftercast=500

sub CastBless() ; Кастуем на себя Bless.
if Uo.Mana>=9 Then
UO.Cast('Bless','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastRArmor() ; Кастуем на себя  Reactive Armor.
if Uo.Mana>=4 Then
UO.Cast('Reactive Armor','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastProtect() ; Кастуем на себя  Protect.
if Uo.Mana>=6 Then
UO.Cast('Protection','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastStr() ; Кастуем на себя  Strength.
if Uo.Mana>=6 Then
UO.Cast('Strength','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastInt() ; Кастуем на себя  Cunning.
if Uo.Mana>=6 Then
UO.Cast('Cunning','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastDex() ; Кастуем на себя  Agility.
if Uo.Mana>=6 Then
UO.Cast('Agility','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub



sub CastMagReflect() ; Кастуем на себя  Magic Reflection.
if Uo.Mana>=14 Then
UO.Cast('Magic Reflection','self')
Else
UO.Print("    N O    M A N A    ")
Endif
wait(waitaftercast) 
UO.Equipt('Rhand',SpellBook)
end sub