Criar chars com acento

Começando

Client~Side

Na frmNewChars 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 no nome do seu personagem.", vbOKOnly, GAME_NAME)
                txtName.Text = vbNullString
                Exit Sub
            End If
        Next i

Apague tudo

Sever~Side

Na frmSeverTcp procure por:

Código:

            Case "addachara"
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))

                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! Use apenas letras, números e espaços.", 4)
                        Exit Sub
                    End If

                Next

Mude para:

Código:

            Case "addachara"
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))

                For i = 1 To Len(Name)
                    N = Asc(Mid$(Name, i, 1))
                Next

Creditos:

Ricardo XD