If GetMapType(GetUserMap(#PARAM1))=#MAPTYPE_FRIENDLY
	Goto END
Endif 

SendMessageToMap(GetUserMap(#PARAM1),GetUserName(#PARAM1)+" spews blood on everyone around them!", #MSG_CRITICAL)

X0=GetUserX(#PARAM1)
X1=GetUserX(#PARAM1)-1
X2=GetUserX(#PARAM1)
X3=GetUserX(#PARAM1)+1
X4=GetUserX(#PARAM1)+1
X5=GetUserX(#PARAM1)+1
X6=GetUserX(#PARAM1)
X7=GetUserX(#PARAM1)-1
X8=GetUserX(#PARAM1)-1
X9=GetUserX(#PARAM1)
X10=GetUserX(#PARAM1)+2
X11=GetUserX(#PARAM1)
X12=GetUserX(#PARAM1)-2
Y0=GetUserY(#PARAM1)
Y1=GetUserY(#PARAM1)-1
Y2=GetUserY(#PARAM1)-1
Y3=GetUserY(#PARAM1)-1
Y4=GetUserY(#PARAM1)
Y5=GetUserY(#PARAM1)+1
Y6=GetUserY(#PARAM1)+1
Y7=GetUserY(#PARAM1)+1
Y8=GetUserY(#PARAM1) 
Y9=GetUserY(#PARAM1)-2
Y10=GetUserY(#PARAM1)
Y11=GetUserY(#PARAM1)+2
Y12=GetUserY(#PARAM1)

UserID=GetUserAtXY(GetUserMap(#PARAM1),X0,Y0)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X1,Y1)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X2,Y2)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X3,Y3)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X4,Y4)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X5,Y5)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X6,Y6)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X7,Y7)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X8,Y8)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X9,Y9)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X10,Y10)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X11,Y11)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

UserID=GetUserAtXY(GetUserMap(#PARAM1),X12,Y12)
If UserID > 0
	CreateEffect(0,350,0,#DIR_UP,GetUserMap(#PARAM1),X0,Y0,0,UserID,0)
	SendMessageToUser(UserID,"You have been infected with Blood Fever by "+GetUserName(#PARAM1)+"!", #MSG_CRITICAL)
	SendMessageToUser(UserID,"You will die soon...", #MSG_CRITICAL)
	SetUserFlag(UserID,7,1)
	Timer(133,60000,UserID,0,0)
EndIf

Label END
Continue = 1