


IF
	Die()
    InParty(Myself)
	Race(Myself,LICH)
THEN
	RESPONSE #100
		DropInventory()
		Kill(Myself)
		DestroySelf()
		//CreateCreature("GASFORM4",[-1.-1],S)
		//ActionOverride("GASFORM4",EscapeArea())
		//ReallyForceSpellDead(Myself,VAMPIRE_GAS_FORM_CHANGE)
       // SetGlobalTimer("VampireResurrectTimer","GLOBAL",SIX_HOURS)
END







IF
	Die()
    !InParty(Myself)
	Race(Myself,LICH)
THEN
	RESPONSE #100
		DropInventory()
		Kill(Myself)
		DestroySelf()
		//CreateCreature("GASFORM4",[-1.-1],S)
		//ActionOverride("GASFORM4",EscapeArea())
		//ReallyForceSpellDead(Myself,VAMPIRE_GAS_FORM_CHANGE)
        //SetGlobalTimer("LichResurrectTimer","GLOBAL",FOUR_HOURS)
END



IF
 Race(Myself,LICH)
 HasItem("VVPHYL",Myself)
 NumItemsGT("VVPHYL",Myself,1)
THEN RESPONSE #100
DestroyItem("VVPHYL")
Wait(2)
END

IF
 Race(Myself,LICH)
	!Name("cmgmiriam",Myself)
	!Name("Valen",Myself)
	!Name("hexxat",Myself)
 !HasItem("VVPHYL",Myself)
THEN RESPONSE #100
GiveItemCreate("VVPHYL",Myself,1,1,0)
Wait(2)
END


IF
 !Race(Myself,LICH)
 HasItem("VVPHYL",Myself)
THEN RESPONSE #100
DestroyItem("VVPHYL")
Wait(2)
END


