;'Moderate - Message'

UserName=Lower(GetUserName(#USERID))

CanModerate = 0

If UserName="comrade"
	CanModerate = 1
ElseIf UserName="mystix"
	CanModerate = 1
EndIf

If CanModerate = 0
	SendMessageToAll("*"+GetUserName(#USERID)+" has the skill 'Moderate - Message' which he is not supposed to have.",#MSG_CRITICAL)
	GoTo END
EndIf

SendMessageToAll("*"+GetUserName(#USERID)+": "+GetUserMessage(#USERID),#MSG_SERVER)

Label END

Continue = 1