FANDOM


Created by Taz.

Using "RC_Core.rcm"
; Morgance Online 0.1
; Date/Time: 7:32:27 AM on 7/13/2012
; By Dan Seguin on TAZCO-PC

;i got it figured out, becouse in the attack if player texture = 5 
;they must be invisable give 100% chance at crit do alittle extra damage 
;and then make them visable again. :) ok had to tell you that. lol

;Change vampie texture to 5 to turn them invisable.

;when a necro skill is added could add a different invisable texture, if level is higher then amount make them harder to see.
Function Main()
Player = Actor()
Target = ContextActor()
VampBlood% = Attribute(Player, "Blood")
AbilityCost% = 25

TotBloodCost% = VampBlood - AbilityCost
;--------------------------------Vampire Check----------------------------------------------------------------------------------
 ;If vamp dont tell player they cant use a pet in this form            
                IsVamp% = ActorId("Vampire", "Form")
                PRace$ = Race(Player)     
                PClass$ = Class(Player)
                PlayerID% =ActorID(PRace, PClass)
                
                           IsVampfly% = ActorHasEffect(Player, "Vampire Fly") 
                        
                            If (IsVampfly = 1) ; if vamp flying allow ability couse they are still a vampire.
                                PlayerID% = ActorId("Vampire", "Form")
                            EndIf
                
                If Not (IsVamp = PlayerID) ;if player is not a vampire
                    ;check what form they are in.
                IsSaber% = ActorHasEffect(Player, "Saber")
                IsSAberCat% = ActorHasEffect(Player, "Saber Cat")

                    If (IsSaber = 1) ;in saber form tell player.
                    ;player is in saber form used in speed check  
                                    
                    OutPut(Player, "You can not use a vampire abiility in saber form.", 255, 34, 12)
                    Return
                    ElseIf (IsSAberCat = 1)
                        ;player is in saber cat form used in speed check 

                
                        OutPut(Player, "You can not use a vampire abiility in saber cat form.", 255, 34, 12)
                        Return
                    Else ;until other fors are added player must be human so tell them.
                                    
                            OutPut(Player, "You can not use a vampire abiility in human form.", 255, 34, 12)
                            Return       
                    EndIf

                EndIf
;----------------------------End Vampire Check----------------------------------------------------------------------------------

    If ActorHasEffect(Player, "Attacking")
        OutPut(Player, "You can not go invisable if your in combat.")   
        Return
     EndIf
 
 
 
 
 
 IfVisable% = ActorClothes(Player)
 
     If (IfVisable = 5)
        SetActorClothes(Player, 1) ;make vamp visable again
    Else
       If (VampBlood < AbilityCost)
        OutPut(Player, "You do not have enough blood for that.", 255, 0, 0)
        Return
       EndIf
         SetActorClothes(Player, 5) ; put vampire invisable
        SetAttribute(Player, "Blood", TotBloodCost)
    EndIf
     
 
 
 End Function