Universo Games
Ola , Convidado



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

Criar chars com acento

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

Tutorial Criar chars com acento

Mensagem por RicardoxD em Sab 25 Jun 2011, 10:42

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
avatar
RicardoxD

Mensagens : 89

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