1 Mensagem Privada 100% Funcional 15/4/2012, 01:39
BrunoFox
Administrador
Abra o Cliente
1 - No modInput, procure por:
2 - Na linha abaixo onde tem:
3 - Substitua por:
4 - Procure por:
5 - Apague essa linha ou substitua por:
6 -Procure por:
7 - Substitua por:
8 -No modClientTCP, no Sub PlayerMsg, procure por:
9 - Substitua por:
Abra o Servidor
1 - No modHandleData, procure por:
2 - Substitua por:
Créditos:
Marlas Gama (Por criar o tutorial e disponibilizar)
Terabin (Por me ajudar)
BrunoFox (por postar aqui)
1 - No modInput, procure por:
- Código:
If left$(chatText, 1) = "!" Then
2 - Na linha abaixo onde tem:
- Código:
Exit Sub
3 - Substitua por:
- Código:
If Mid$(chatText, 1, 2) = "! " Then GoTo continue
4 - Procure por:
- Código:
ChatText = Mid$(ChatText, i, Len(ChatText) - 1)
5 - Apague essa linha ou substitua por:
- Código:
'ChatText = Mid$(ChatText, i, Len(ChatText) - 1)
6 -Procure por:
- Código:
MyText = Mid$(ChatText, i + 1, Len(ChatText) - i)
7 - Substitua por:
- Código:
chatText = Mid$(chatText, i + 1, Len(chatText) - i)
8 -No modClientTCP, no Sub PlayerMsg, procure por:
- Código:
Buffer.WriteLong CSayMsg
9 - Substitua por:
- Código:
Buffer.WriteLong CPlayerMsg
Abra o Servidor
1 - No modHandleData, procure por:
- Código:
Call PlayerMsg(GetPlayerName(index), "Cannot message yourself.", BrightRed)
2 - Substitua por:
- Código:
Call PlayerMsg(index, "Cannot message yourself.", BrightRed)
Créditos:
Marlas Gama (Por criar o tutorial e disponibilizar)
Terabin (Por me ajudar)
BrunoFox (por postar aqui)