// RC1 Sample Project      
// Date/Time: 6:20:56 PM on 5/08/2011  
// By Администратор on VERITAS  

Function Main()  

Player = Actor()  
Magiclvl% = Attribute(Player, "Magic") //уровень навыка Магия  

If (AbilityKnown(Actor(), "Health")) //Проверяем, вдруг игрок уже ранее выучил данный спел =)  
         OutPut(Player, "You already know that spell", 255, 0, 0) //Говорим, извини у тебя уже есть такой спел =)  
Else  
GiveItem(Player, "HealthSpell Book", $-1)//забираем книжку, ну думаю понятно дело  
DoEvents(500)//ждем-с 0,5сек.  
CreateEmitter(Player, "Learn_Spell", 10, 1000) //вокруг игрока или как настроите создается эффект частиц, каста, не знаю как правильно назвать, но думаю кто работает с RC меня поймут =)  
AddAbility(Player, "Health", 1) //Выдаем игроку его спел, заслужил=)  
OutPut(Player, "Learned Health ability.", 125, 45, 125) //и сообщаем, что спел успешно выучен =)  
            
Endif      

//Return()
End Function

Using "RC_Core.rcm"
; RC1 Sample Project      
; Date/Time: 7:20:56 PM on 5/23/2009
; By Администратор on VERITAS

Function Main()

Player = Actor()
Magiclvl% = Attribute(Player, "Magic") ;уровень навыка Магия

If (AbilityKnown(Actor(), "Health")) ;Проверяем, вдруг игрок уже ранее выучил данный спел =)
         OutPut(Player, "You already know that spell", 255, 0, 0) ;Говорим, извини у тебя уже есть такой спел =)
Else
GiveItem(Player, "HealthSpell Book", - 1);забираем книжку, ну думаю понятно дело
DoEvents(500);ждем-с 0,5сек.
CreateEmitter(Player, "Learn_Spell", 10, 1000) ; вокруг игрока или как настроите создается эффект частиц, каста, не знаю как правильно назвать, но думаю кто работает с RC меня поймут =)
AddAbility(Player, "Health", 1) ;Выдаем игроку его спел, заслужил=)
OutPut(Player, "Learned Health ability.", 125, 45, 125) ;и сообщаем, что спел успешно выучен =)
            
Endif      

;Return
End Function