Convidado Convidado
| Assunto: [EEB]Retirando Bug do acento Dom 12 Set 2010, 22: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. [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [EEB]Retirando Bug do acento Qua 15 Set 2010, 16:17 | |
| Muito Bom | |
|