Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Mudar Senha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Mudar Senha

Mensagem por Thales12 em Seg 11 Out 2010, 18: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.

[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Mudar Senha

Mensagem por Lucas Roberto em Seg 11 Out 2010, 20:23

+1 DE CRED
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Mudar Senha

Mensagem por GameOver em Seg 11 Out 2010, 20:43

Muito bom

+ 1 DE CRED PROS 2
avatar
GameOver

Mensagens : 243

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Mudar Senha

Mensagem por Thales12 em Ter 12 Out 2010, 22:26

Brigadão ai mano (Y)
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Mudar Senha

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum