[Script]Pass Auth Script

[xBʟᴜᴇ]

Nose quien lo izo, Pero renovando mi carpeta de scripts lo encontre me eh fijado en algunas cosas y tenia unos cuantos errores los errores arreglados por mi los subrayare en rojo. el resto no lo ize yo 

Os eh Facilitado los Textos en español para que lo entendais el script estaba en inglés

Echo por Allen

Código: [Seleccionar]

Event +PlayerSignOn
If #GetPlayerInfo(#Source, AUTH) > 0/SetPlayerInfo #Source, AUTH, 0EndifEndevent

Código: [Seleccionar]

Event -NewMessage
If $Message == "Script Check: OK!"
/SetPA #Login
Endif
Endevent

Código: [Seleccionar]

Event -ChatMessage
If #Login(#Source) = 1 AND #GetValue($GetPlayerInfo(#Source, PSID) & "\Auth") = 3
If $Left($Message, 6) = "!User "
/StopEvent
/Set #User, #PNumber($Right($Message, #Len($Message) - 6))
If #User = 0
/SendPM #Source "*** Ese Jugador no esta conectado."
/Unset #User
/Exit
Endif
If #GetValue($GetPlayerInfo(#User, PSID) & "\Auth") = 0
/SendPM #Source "*** Esa persona ya es un User normal."
/Unset #User
/Exit
Endif
/Sendall "*** " & $Name(#User) & " perdio su powah," & $Name(#Source) & " Se lo quito ***"
/Savevalue $GetPlayerInfo(#User, PSID) & "\Auth", 0
/Savevalue $getPlayerInfo(#User, PSID) & "\Password", ""
/SaveValue $GetPlayerInfo(#User, PSID) & "\Passet", 0
/Set #Login(#User), 0
/Unset #User
EndIf
Endif
Echo por Allen

Código: [Seleccionar]

If $Left($Message, 5) = "!Mod "
/StopEvent
/Set #Mod, #PNumber($Right($Message, #Len($Message) - 5))
If #Mod = 0
/SendPM #Source, "*** Lo siento pero no encontramos a ese jugador :S."
/Unset #Mod
/Exit
Endif
If #GetValue($GetPlayerInfo(#Mod, PSID) & "\Auth") = 1
/SendPM #Source, "*** Ese jugador ya es moderador."
/Unset #Mod
/Exit
Endif
/Sendall "*** " & $name(#Mod) & " was promoted to mod by Mega-Admin " & $Name(#Source) & " ***"
/SendPM #Mod, $Authbot & ": Para Protejer y Validar tu Auth Teclea, !Setpass [Password] Para ponerla, Y despues  !login [Password] para conectarte."
/SaveValue $GetPlayerInfo(#Mod, PSID) & "\Auth", 1
/Unset #Mod
Endif
Echo por Allen

Código: [Seleccionar]

If $Left($Message, 7) = "!Admin "
/StopEvent
/Set #Admin, #PNumber($Right($Message, #Len($Message) - 7))
If #Admin = 0
/SendPM #Source, "*** Ese jugador no esta en el server."
/Unset #Admin
/Exit
Endif
If #GetValue($GetPlayerInfo(#Admin, PSID) & "\Auth") = 2
/SendPM #Source, "*** Esta persona ya es admin."
/Unset #Admin
/Exit
Endif
/Sendall "*** " & $name(#Admin) & " Se conviertio en Administrador Gracias a " & $Name(#Source) & " ***"
/SendPM #Admin, $Authbot & ": Para Protejer y Validar tu Auth Teclea, !Setpass [Password] Para ponerla, Y despues  !login [Password] para conectarte."
/SaveValue $GetPlayerInfo(#Admin, PSID) & "\Auth", 2
/Unset #Admin
Endif
Endif

Código: [Seleccionar]

If $Left($Message, 7) = "!Login "
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Auth") = 0
/SendPM #Source, "*** No tienes Auhtoridad en este server por eso no puedes conectarte."
/Exit
Endif
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Passet") = 0
/SendPM #Source, "*** Todavia no has puesto ninguna contraseña."
/Exit
Endif
If #Login(#Source) = 1
/SendPM #Source, "*** Ya estas logeado!"
/Exit
Endif
/Set $Pass, $Right($Message, #Len($Message) - 7)
If $Pass <> $GetValue($GetPlayerInfo(#Source, PSID) & "\Password")
/SendPM #Source, "*** Contraseña incorrecta."
/Exit
Endif
/SendPM #Source, "¡¡¡Logeado!!!."
/Set #Login(#Source), 1
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Auth") = 1
/SetPlayerInfo #Source, AUTH, 1
/Exit
Endif
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Auth") = 2
/SetPlayerInfo #Source, AUTH, 2
/Exit
Endif
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Auth") = 3
/SetPlayerInfo #Source, AUTH, 2
/Exit
Endif
Endif

Código: [Seleccionar]

If $Left($Message, 9) = "!SetPass " AND #GetValue($getPlayerInfo(#Source, PSID) & "\Auth") > 0
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Passet") = 1
/SendPM #Source, "***Ya tienes una contraseña puesta si quieres cambiarla logeate y luego pon !Changepass [New password]."
/Exit
Endif
If #Login(#Source) = 1
/SendPM #Source, "Como te has logeado sin poner una contraseña?."
/Kick #Source
Endif
/SaveValue $GetPlayerInfo(#Source, PSID) & "\Password", $Right($Message, #Len($Message) - 9)
/SendPM #Source, "$Authbot & ": Your password was set as " & $Right($Message, #Len($Message) - 9) & "."
/SaveValue $getPlayerInfo(#Source, PSID) & "\Passet", 1
Endif
If $Left($Message, 12) = "!Changepass "
If #GetValue($GetPlayerInfo(#Source, PSID) & "\Passet") = 0
/SendPM #Source, "Tienes que ponerte una contraseña primero poniendo !SetPass [Contraseña]."
/Exit
Endif
If #Login(#Source) = 0
/SendPM #Source, "*** Tienes que estar logeado para poner una contraseña."
/Exit
Endif
/SendPM #Source, "*** Tu contraseña ahora es " & $Right($Message, #Len($Message) - 12) & " ***"
/Savevalue $getPlayerInfo(#Source, PSID) & "\Password", $Right($Message, #Len($Message) - 12)
Endif
If $Left($Message, 6) = "!Mega " AND $getPlayerInfo(#Source, PSID) = "Your SID Here" AND $GetPlayerInfo(#Source, IPAD) = "Server IP Here"
/StopEvent
/Set #Mega, #PNumber($Right($Message, #Len($Message) - 6))
If #Mega = 0
/SendPM #Source, "*** El Jugador que busco no esta conectado, Se habra ido justo ahora."
/UnSet #Mega
/Exit
Endif
If #GetValue($GetPlayerInfo(#Mega, PSID) & "\Auth") = 3
/SendPM #Source, "*** Ya es un MegaAdmin, como es que me eh equivocado Allen Chekea."
/Unset #Mega
/Exit
Endif
/Sendall "*** " & $name(#Mega) & " Se convirtio en MegaAdmin Gracias a  " & $Name(#Source) & " ***"
/SendPM #Mega, "$Authbot & ": Para Protejer y Validar tu Auth Teclea, !Setpass [Password] Para ponerla, Y despues  !login [Password] para conectarte."
/SaveValue $GetPlayerInfo(#Mega, PSID) & "\Auth", 3
/Unset #Mega
Endif