ok ahora que tengo un poco mas de tiempo libre os traigo otros scripts Necesarios para combatir el Flood.
Todos Echos por mi menos el primero que creo que son de pmbn.net
Aquí Tenemos La Actualización!
Esto va dentro del Event StartUp
//Event +ServerStartUp
/SetPA #Msg
/SetPA #Msj
//Endevent
Y esto dentro del Event -ChatMessage
Event -ChatMessage
If $Message = $Msg(#Source)
If #Msj(#Source) < 3
/Inc #Msj(#Source), 1
Else
/SendPM #Source, $Bot & ": Has sido kickeado Por hacer Flood."
/Kick #Source
/Sendall $bot & ": " & $Name(#Source) & " Fue Kickeado por hacer Flood."
EndIf
Else
/Set $Msg(#Source), $Message
/Set #Msj(#Source), 1
EndIf
Endevent
//Codigo para el Away Flood:
1º Desactivar el Away para alguien que abusa de el.
If $Left($Message, 10) = "!AwayStop " OR "/AwayStop " AND #GetPlayerInfo(#Source, AUTH) >= 1"
/Set #AWFD, #PNumber($Right($Message, #Len($Message) -10))
If $GetValue($GetPlayerInfo(#Source, PSID) & "/AWFD") = "1"
/SendPM #Source, $Bot & " Acabas de Deshabilitar el Away para " $ $Name(#AWFD) & ". "
Else
/SaveValue $GetPlayerInfo(#Source, PSID) & "/AWFD", 1
/SendAll $Bot & " - " & $Name(#Source) & " Desactivo la opcion de estar away a" & $Name(#AWFD) & ". "
/StopEvent
/Exit
EndIf
EndIf
If $Left($Message, 13) = "!ActivarAway " OR "/ActivarAway " AND #GetPlayerInfo(#Source, AUTH) >= 1"
/Set #AWFD, #PNumber($Right($Message, #Len($Message) -13))
If $GetValue($GetPlayerInfo(#Source, PSID) & "/AWFD") = "0"
/SendPM #Source, $Bot & " Esta Persona ya tiene el Away . "
Else
/SaveValue $GetPlayerInfo(#Source, PSID) & "/AWFD", 0
/SendAll $Bot & " " & $Name(#Source) & " Activo el Away para " & $Name(#AWFD) & ". "
/StopEvent
/Exit
EndIf
EndIf
Y el Siguiente es para que al ponerse away suba el tiempo maximo entre cada uno para estar away. Si lo superas en vez de ser kickeado como el tradicional te activa el codigo de arriba y te priva del away.
Esto dentro del Event Startup junto a los /Set's
/SetPA $Away
Este va dentro del Event +PlayersignON
/Set $AwayTime, #SysTimer
/Set $Away(#Source), $Str(#Int(#Val($AwayTime))) & "|0"
Y este dentro del Event -PlayerAway
Event -PlayerAway
/Set $AwayTime, #SysTimer
If #Int(#Val($Left($Away(#Source), #IsIn($Away(#Source), "|") - 1))) + 10 > #Int(#Val($AwayTime))
/Set $Away(#Source), $Str(#Int(#Val($AwayTime))) & "|0" & "|" & $Str(#Val($Right($Away(#Source), 1)) + 1)
/SendPM #Source, $Bot & "Atennción el Contador de Away Va Subiendo [" & $Str(#Val($Right($Away(#Source), 1))) & "/4]"
Else
/Set $AwayTime, #SysTimer
/Set $Away(#Source), $Str(#Int(#Val($AwayTime))) & "|0"
EndIf
If $Right($Away(#Source), 1) = "4"
/SendPM #Source, $Bot & " Aquí no toleramos el Away Flood Imbecil asi que te quedas un rato sin poder estar away hasta que me de la gana lo cual conlleva que tampoco podras cambiar el team."
/SaveValue $GetPlayerInfo(#Source, PSID) & "/AWFD", 1
/SendAll $Bot & "Lo sentimos pero hemos tenido que privar a "&$Name(#Source)&" de estar Away y cambiar team por el mal uso del AwayFlood."
EndIf
//EndEvent
Cuando tenga mas Free Time os creo mas Scripts con este estilo para Mejorar el Funcionamiento de Vuestro Server.