Pokémon Competitivo > Estrategia Smogon

[Script] Battle's Off [Player] By Allen

(1/1)

xBʟᴜᴇ:
Este Script es una Versión mas Avanzada del script BattleOff general.
Creado por mi,

¿Para que sirve?
Es como si banearas a ese jugador de poder participar en batallas pero solamente a ese jugador los demas no se veran afectados.

~Script

Los Siguientes Codigos Van dentro del Event -ChatMessage O Event +ChatMessage
las partes con este signo //Son explicaciónes Y/O /Sets

--- Código: ---//Event -ChatMessage

If $Left($Message, 12) = "!BattlesOff " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #T, #PNumber($Right($Message, #Len($Message) - 12))
If #T = 0
/SendPM #Source, $Bot & " Lo sentimos pero ese jugador no esta presente en el server Y/O no existe."
/Exit
Else
If #GetPlayerInfo(#Source, AUTH) <= #GetPlayerInfo(#T, AUTH)
/StopEvent
/SendPM #Source, $Bot & " Lo siento pero no Puedes completar esta operación puesto que el Jugador selecionado tiene una Authoridad mayor a la tuya."
/Exit
Else
If $GetValue($GetPlayerInfo(#T, PSID) & "/Battles") = "1"
/SendPM #Source, $Bot & " Este jugador Ya tiene deshabilidatas las batallas."
/Exit
Else
/SendAll $Bot & " " & $Name(#Source) & " Ha privado a" & $Name(#T) & "De porde luchar."
/SendPM #T, "*** " & $Name(#Source) & " Te acaba de Privar de volver a Pelear contra cualquier user Y tampoco podras ser retado."
/SaveValue $GetPlayerInfo(#T, PSID) & "/Battles", 1
/StopEvent
/Exit
EndIf
EndIf
EndIf
EndIf

If $Left($Message, 11) = "!BattlesOn " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #T, #PNumber($Right($Message, #Len($Message) - 11))
If #T = 0
/SendPM #Source, $Bot & " Lo sentimos pero ese jugador no esta presente en el server Y/O no existe."
/Exit
If #GetPlayerInfo(#Source, AUTH) <= #GetPlayerInfo(#T, AUTH)
/StopEvent
/SendPM #Source, $Bot & " Lo siento pero no Puedes completar esta operación puesto que el Jugador selecionado tiene una Authoridad mayor a la tuya."
/Exit
Else
If $GetValue($GetPlayerInfo(#T, PSID) & "/Battles") = "0"
/SendPM #Source, $Bot & " Este jugador no ha sido Privado de poder luchar.."
Else
/SaveValue $GetPlayerInfo(#T, PSID) & "/Battles", 0
/SendAll $Bot & " " & $Name(#Source) & " Ha habilitado las batallas a" & $Name(#T) & ", Ahora si podras luchar, Y ser retado."
/SendPM #T, "*** " & $Name(#Source) & " Te ha habilitado las batallas ahora podras retar y ser retado."
/StopEvent
/Exit
EndIf
EndIf
EndIf
EndIf


//EndEvent

//Nota: el $Bot & " Solo funciona si teneis el:
 /Set $Bot "Nombre de tu Bot"

--- Fin del código ---


Ahora el codigo para que cuando  te reten salga "Este jugador no esta habilitado para recibir retos" Y para que cuando el jugador con las batallas apagadas tampoco pueda retar.
Esto codigo va dentro del Event -ChallengeIssued

--- Código: ---Event -ChallengeIssued

If $GetValue($GetPlayerInfo(#Source, PSID) & "/Battles") = "1"
/StopEvent
/SendPM #Source, $Bot & " Lo siento pero has sido Privado de luchar a tus anchas, Pidele a Un Mod/Admin/MegaAdmin Que te vuelva a habilitar las batallas si las Consecuencias de que te lo quitaran no eran graves."
EndIf

If $GetValue($GetPlayerInfo(#Target, PSID) & "/Battles") = "1"
/StopEvent
/SendPM #Source, $Bot & " " & $Name(#Target) & "No esta Habilitado para Recibir retos de Nadie."
EndIf

--- Fin del código ---

Si Utilizais el Codigo dad El Credito al Creador ¡Who's Me!

Navegación

[0] Índice de Mensajes