IF
   Global("KitVampiric","LOCALS",0)
   !Race(Myself,VAMPIRE)
   Kit(Myself,BLOODBATH)
   Global("ActorVampirisedKit","LOCALS",0)
THEN
  RESPONSE #100
  SetGlobal("ActorVampirisedKit","LOCALS",1)
   SetGlobal("KitVampiric","LOCALS",1)
   SetGlobal("DetermineRace","LOCALS",1)
END