[ALL]Mudando o jeito de falar(global ";" party "+" Emote "-" etc

por RenanR Dom 08 maio 2011, 16:31

Eae galera, esse tuto diz como vc faiz pra mudar o jeito de falar global, em party e etc no chat..

Vamos começar.

Cliente~Side

ModGameLogic

Para mudar o jeito de escrever a mensagem Emote
Procure por:

Código:: ' Emote message If Mid(MyText, 1, 1) = "-" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If

Mudem a linha:

Código:: If Mid(MyText, 1, 1) = "JEITO DE FALAR AKI" Then

Para mudar o jeito de falar pela Party(grupo)
logo em baixo vai ter:

Código:: ' Party message If Mid(MyText, 1, 1) = "+" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call PartyMsg(ChatText) End If MyText = vbNullString Exit Sub End If

Mudem a linha:

Código:: If Mid(MyText, 1, 1) = "JEITO DE FALAR AKI" Then

Para mudar o jeito de falar por Guild:
logo em baixo vai ter:

Código:: ' Guild message If Mid(MyText, 1, 1) = "=" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call GuildMsg(ChatText) End If MyText = vbNullString Exit Sub End If

Mude a linha:

Código:: If Mid(MyText, 1, 1) = "JEITO DE FALAR AQUI" Then

Para mudar o jeito de falar em (GLOBAL):
de CTRL+F e procure por:

Código:: If Mid(MyText, 1, 1) = ";" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call GlobalMsg(ChatText) End If MyText = vbNullString Exit Sub End If

Mudem a linha:

Código:: If Mid(MyText, 1, 1) = "JEITO DE FALAR AQUI" Then

Para mudar o jeito de falar por como Admin:
logo em baixo vai ter:

Código:: ' Admin Message If Mid(MyText, 1, 1) = "@" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call AdminMsg(ChatText) End If MyText = vbNullString Exit Sub End If End If

Mudem a linha: