Convidado Convidado
| Assunto: Criar chars com acento Sáb 25 Jun 2011, 11: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 |
|