




IF
	InParty(Myself)
	Exists(Player1)
		SpellCastOnMeRES("OHHDRAIN",Player1) // Blood Drain
		Race(Player1,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player1)
END


IF
	InParty(Myself)
	Exists(Player2)
		SpellCastOnMeRES("OHHDRAIN",Player2) // Blood Drain
				Race(Player2,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player2)
END


IF
	InParty(Myself)
	Exists(Player3)
		SpellCastOnMeRES("OHHDRAIN",Player3) // Blood Drain
				Race(Player3,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player3)
END


IF
	InParty(Myself)
	Exists(Player4)
		SpellCastOnMeRES("OHHDRAIN",Player4) // Blood Drain
				Race(Player4,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player4)
END


IF
	InParty(Myself)
	Exists(Player5)
		SpellCastOnMeRES("OHHDRAIN",Player5) // Blood Drain
				Race(Player5,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player5)
END


IF
	InParty(Myself)
	Exists(Player6)
		SpellCastOnMeRES("OHHDRAIN",Player6) // Blood Drain
				Race(Player6,VAMPIRE)
        Global("MyRaceBlood","LOCALS",2)
THEN
	RESPONSE #100
	Kill(Player6)
END
