Criando contas com acento
Página 1 de 1
Criando contas com acento
Cliente Side:
frmNewAccount
Procure por:
Apague tudo.
Server~Side
modServerTCP
Procure por:
Mude para:
Pronto! Compile e seja feliz com contas com acento
frmNewAccount
Procure por:
- Código:
' Prevent high ascii chars
For I = 1 To Len(Msg)
If Asc(Mid(Msg, I, 1)) < 32 Or Asc(Mid(Msg, I, 1)) > 126 Then
Call MsgBox("Você não pode usar acentos na sua conta.", vbOKOnly, GAME_NAME)
txtName.Text = vbNullString
Exit Sub
End If
Next I
Apague tudo.
Server~Side
modServerTCP
Procure por:
- Código:
Case "newfaccountied"
If Not IsLoggedIn(Index) Then
Name = Parse(1)
Password = Parse(2)
For i = 1 To Len(Name)
N = Asc(Mid$(Name, i, 1))
If (N >= 65 And N <= 90) Or (N >= 97 And N <= 122) Or (N = 95) Or (N = 32) Or (N >= 48 And N <= 57) Then
Else
Call PlainMsg(Index, "Nome Inválido! Apenas use letras, números e espaços.", 1)
Exit Sub
End If
Next
Mude para:
- Código:
Case "newfaccountied"
If Not IsLoggedIn(Index) Then
Name = Parse(1)
Password = Parse(2)
For i = 1 To Len(Name)
N = Asc(Mid$(Name, i, 1))
Next
Pronto! Compile e seja feliz com contas com acento
Mapper- Novato
- Mensagens : 35
Pontos : 102
Reputação : 6
Data de inscrição : 06/11/2011
Desineria RPG Maker
Nível de atividade:
(101/1000)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|