Convidado Convidado
| Assunto: [ALL]Mudar Senha Seg 11 Out 2010, 19:41 | |
| No seu Principal ou Main, 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) e adicione no lugar q achar melhor: - Código:
-
If LCase(Mid(TextSay, 1, 8)) = "/senha " Then If Len(TextSay) >= 11 Then TextSay = Mid(TextSay, 9, Len(TextSay) - 8) Call SetPlayerPass(index, trim(textsay)) Call PlayerMsg(Index, "Você agora mudou sua senha!", 4) Else Call PlayerMsg(Index, "Você digitou menos de 3 caracteres em sua senha!", 4) End If Exit Sub End If Creditos: GamesPower Créditos: Thales. [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Mudar Senha Seg 11 Out 2010, 21:23 | |
| | |
|
Convidado Convidado
| Assunto: Re: [ALL]Mudar Senha Seg 11 Out 2010, 21:43 | |
| Muito bom
+ 1 DE CRED PROS 2 |
|
Convidado Convidado
| Assunto: Re: [ALL]Mudar Senha Ter 12 Out 2010, 23:26 | |
| |
|
Conteúdo patrocinado
| Assunto: Re: [ALL]Mudar Senha | |
| |
|