;'God - Plague' skill

UserID = GetUserID(GetUserMessage(#USERID))

If UserID < 1
   SendMessageToUser(#USERID,"Enter the name of a user to infect, and then use this skill.",#MSG_SERVER)
   GoTo END
EndIf

If GetUserFlag(UserID,7)<>1
	If GetUserFlag(UserID,7)<>2
		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)
		SendMessageToUser(#USERID,"You have infected "+GetUserName(UserID)+".",#MSG_SERVER)
		Goto End
	Endif
Endif

SetUserFlag(UserID,7,0)
SendMessageToUser(#USERID,GetUserName(UserID)+" can't be infected.",#MSG_SERVER)

Label End

Continue = 1