Criando contas com acento

Cliente Side:

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

Créditos: RenanR~~

Muito bom cara
+ 1 crédito