
IF
	AttackedBy([ANYONE],DEFAULT)
	!Race(Myself,LYCANTHROPE)
	!Race(Myself,DEMONIC)
	!General(Myself,UNDEAD)	
	Race(LastAttackerOf(Myself),LYCANTHROPE)
	Global("MyRaceBlood","LOCALS",4)
	HPLT(Myself,60)
	RandomNumLT(100,20)
THEN
	RESPONSE #100
		SetGlobal("LycanthropeSet","LOCALS",1)
END


IF 
  !Race(Myself,LYCANTHROPE)
  !General(Myself,UNDEAD)	
  Global("MyRaceBlood","LOCALS",4)
  Global("LycanthropeSet","LOCALS",1)
THEN 
  RESPONSE #100
    SetGlobal("LycanthropeSet","LOCALS",2)
      CreateVisualEffectObject("SPDISPMA",Myself)
		DropInventory()
ApplySpellRES("SPCL643",Myself)
  SetGlobal("MyRaceBlood","LOCALS",2)

  ChangeAlignment(Myself,NEUTRAL_EVIL)
SetGlobalTimer("LycanthropeForm","LOCALS",ONE_DAY)
ChangeRace(Myself,LYCANTHROPE)
AddSpecialAbility("SPCL643")
AddSpecialAbility("SPINHUM")
AddSpecialAbility("SPCL643")
AddSpecialAbility("SPINHUM")
AddSpecialAbility("SPCL643")
AddSpecialAbility("SPINHUM")
AddSpecialAbility("SPCL643")
AddSpecialAbility("SPINHUM")
SetGlobal("MyRaceBlood","LOCALS",2)
END

IF
	Race(Myself,LYCANTHROPE)
	Killed([ANYONE])
THEN
	RESPONSE #100
  SetGlobalTimer("LycanthropeForm","LOCALS",ONE_DAY)
  ForceSpell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
END


IF 
  See([ANYONE])
Race(Myself,LYCANTHROPE)
RandomNumLT(100,5)

  GlobalTimerExpired("LycanthropeForm","LOCALS")
  !General(LastSeenBy(Myself),UNDEAD)
!General(LastSeenBy(Myself),PLANT)
!General(LastSeenBy(Myself),DEAD)
!Race(LastSeenBy(Myself),LYCANTHROPE)
THEN
  RESPONSE #20
  SetGlobalTimer("LycanthropeForm","LOCALS",ONE_DAY)
  ApplySpellRES("SPCL643",Myself)
  
   Attack(LastSeenBy(Myself))
 //  Berserk()
     RESPONSE #20
  SetGlobalTimer("LycanthropeForm","LOCALS",SIXTEEN_HOURS)
  ApplySpellRES("SPCL643",Myself)
  
   Attack(LastSeenBy(Myself))
 //  Berserk()
     RESPONSE #20
  SetGlobalTimer("LycanthropeForm","LOCALS",ONE_DAY)
  ApplySpellRES("SPCL643",Myself)
  
   Attack(LastSeenBy(Myself))
//   Berserk()
     RESPONSE #20

  ApplySpellRES("SPCL643",Myself)
  
   Attack(LastSeenBy(Myself))
   ChangeRace(LastSeenBy(Myself),LYCANTHROPE)
   ActionOverride(LastSeenBy(Myself),SetGlobal("MyRaceBlood","LOCALS",2))
 //  Berserk()
     RESPONSE #20
  SetGlobalTimer("LycanthropeForm","LOCALS",ONE_DAY)
  ApplySpellRES("SPCL643",Myself)
  
   Attack(LastSeenBy(Myself))
 //  Berserk()
END