Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[EEB]Retirando Bug do acento

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [EEB]Retirando Bug do acento em Dom 12 Set 2010, 21:51

Thales12


Membro
Membro
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.]

2Tutorial Re: [EEB]Retirando Bug do acento em Qua 15 Set 2010, 15:17

Luucas Robeerto


Fundador
Fundador
Muito Bom
afro

http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum