Esta mal hecho D:

If $Message = "!Torneo"
/Set #Players, 8
/StopEvent
/SendAll "Torneo"
/SendAll "Escribe !Participar"
EndIf

If $Message = "!Participar"
/Inc #Players, -1
/SendAll "" & $Name(#Source) & " ha entrado al torneo:"
/SendAll "Quedan " & $Str(#Players) & " cupos!!!:"
/StopEvent
If #Players <> 0
/SendAll "Torneo"
/SendAll "Escribe !Participar"
Else
/SendAll "Cupos Limitados:"
EndIf
EndIf

Creo que ahora si deberia funcionar

1: Tema viejo
2: Flood
3: Lee las reglas
4: Cierren