Universo Games
Ola , Convidado



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

[EEB]Retirando Bug do acento

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

Tutorial [EEB]Retirando Bug do acento

Mensagem por Thales12 em Dom 12 Set 2010, 21:51

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.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [EEB]Retirando Bug do acento

Mensagem por Lucas Roberto em Qua 15 Set 2010, 15:17

Muito Bom
afro
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

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