[EEB]Retirando Bug do acento

vamos lá

Abra o SERVER~SIDE

procura por

Código:

Call HackingAttempt(Index, "Say Text Modification")

a cima disso avera uma linha ... troque essa linha por essa ...

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Procure por:

Código:

(N >= 48 And N <= 57)

Tem 3 codigos desse mude todos para

Código:

(N >= 48 And N <= 57) Or (N >= 192 And N <= 255) And (N <> Asc(SEP_CHAR) And N <> Asc(END_CHAR))

Procure por:

Código:

Call HackingAttempt(Index, "Emote Text Modification")

Acima mude o codigo para:

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Novamente Procure Por:

Código:

Call HackingAttempt(Index, "Broadcast Text Modification")

Na Linha Acima Mude o Código Para:

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Procure Por:

Código:

Call HackingAttempt(Index, "Global Text Modification")

A Cima Substitua Por

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Novamente Procure Por:

Código:

Call HackingAttempt(Index, "Admin Text Modification")

Em Cima Mude o Código Por:

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Procure por:

Código:

Call HackingAttempt(Index, "Player Msg Text Modification")

Acima Mude Para:

Código:

If Not ((Asc(Mid$(Msg, i, 1)) > 31 And Asc(Mid$(Msg, i, 1)) < 127) Or (Asc(Mid$(Msg, i, 1)) = 128) Or (Asc(Mid$(Msg, i, 1)) > 159 And Asc(Mid$(Msg, i, 1)) < 256)) And (Mid$(Msg, i, 1) <> SEP_CHAR And Mid$(Msg, i, 1) <> END_CHAR) Then

Cabo agora e so compilar

Testado e aprovado !!!

Crédito: Gu1lh3rm3 Pelo Tutorial.
Crédito: Thalesbliss Por Postar.

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]