Começando
Client~Side
Na frmNewChars procure por:
Apague tudo
Sever~Side
Na frmSeverTcp procure por:
Mude Para:
Creditos:Ricardo
Credito:FuckStyle
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