If GetUserFlag(#USERID,7)<>2
	If GetMapType(GetUserMap(#USERID))=#MAPTYPE_FRIENDLY
		Goto ENDSCRIPT
	Endif
	;Plague Zombies are immune to Blood Fever 
	If GetUserClass(#USERID) = 4
		Goto ENDSCRIPT
	EndIf
	SendMessageToUser(#USERID,"You have contracted Blood Fever!", #MSG_CRITICAL)
	SendMessageToUser(#USERID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(#USERID,7,1)
	Timer(133,60000,#USERID,0,0)
Endif

Label ENDSCRIPT
Continue = 1