Criar char com acento

    Compartilhe
    avatar
    FuckStyle
    Membro Ativo

    Mensagens : 49
    Level : 3
    Data de inscrição : 02/11/2011

    default Criar char com acento

    Mensagem por FuckStyle em Qui Nov 03, 2011 11:38 pm

    Começando

    Client~Side

    Na frmNewChars procure por:

    Código:
    [/b]    ' 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

    [b]


    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

    Credito:FuckStyle

      Data/hora atual: Qui Jul 19, 2018 11:16 am