Como faz pra mudar a senha no jogo?

por douglasfromming Qui 05 Abr 2012, 20:12

To precisando pf ajudem Como faz pra mudar a senha no jogo? 881399

por Del Piero Qui 05 Abr 2012, 20:23

Server-Side

Abra o clsCommands, no fim dele adicione o seguinte codigo :

Código:: Function GetPlayerPass(ByVal Index As Long) As String GetPlayerPass = Trim$(Player(Index).Password) End Function Sub SetPlayerPass(ByVal Index As Long, ByVal Pass As String) Player(Index).Password = Pass End Sub

agora no principal.txt :
procure por:

Código:: Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Dados.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

Abaixo adicione:

Código:: If LCase(Mid(TextSay, 1, 8)) = "/nsenha " Then If Len(TextSay) >= 11 Then TextSay = Mid(TextSay, 9, Len(TextSay) - 8) Call SetPlayerPass(index, trim(textsay)) Call PlayerMsg(Index, "senha alterada para: " & TextSay & ".", 11) Else Call PlayerMsg(Index, "Você digitou menos de 3 caracteres em sua senha!", 4) End If Exit Sub End If

Pronto, agora entre no seu jogo e digite /nsenha 'Nova senha' e de enter!

se ajudei , me retribua pro cred kkk' Basketball