[ALL]MapChat

por Lucas Roberto Qui 11 Nov 2010, 19:20

Bem pessoal antes de Tudo vai em frmMirage cria
um ComboBox com Nome de MapChat
Em Properties vai em Text escreve
MapChat
agora ainda no Properties em List
Ponha isso

Código:: Global Guild Map Private

Bom agora vamos para os Codigos
Agora no frmMirage
Procure por

Código:: Private Sub Form_Load()

Abaixo de

Código:: Next I

e antes de end sub
coloque

Código:: MapChat.Text = "Map"

agora no ModGameLogic Procure por

Código:: Sub HandleKeypresses(ByVal KeyAscii As Integer)

Procure nessa Sub

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

Mude para

Código:: ' Map message If frmMirage.MapChat.Text = "Map" Then 'Check if the user uses other chat then mapchat ' Broadcast message If Not Mid$(MyText, 1, 1) = "/" Then If Mid$(MyText, 1, 1) = "'" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If End If

ainda no modGameLogic Procure por:

Código:: ' Broadcast message

Mude para:

Código:: ' Broadcast message If frmMirage.MapChat.Text = "Global" Then ChatText = MyText If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If

ainda no modGameLogic Procure por:

Código:: ' Guild message

Mude para:

Código:: ' Guild message If frmMirage.MapChat.Text = "Guild" Then ChatText = MyText If Len(Trim$(ChatText)) > 0 Then Call GuildChat(ChatText) End If MyText = vbNullString Exit Sub End If

ainda no modGameLogic Procure por:

Código:: ' Player message

mude para:

Código:: ' Player message If frmMirage.MapChat.Text = "Private" Then ChatText = MyText name = vbNullString

ainda no modGameLogic Procure por:
Procure por:

Código:: frmMirage.txtMyTextBox.BackColor = RGB(r1, g1, b1)

abaixo adicione

Código:: frmMirage.MapChat.BackColor = RGB(r1, g1, b1)

agora para termina no final do ModGameLogic
add:

Código:: Sub GuildChat(ByVal Text As String) Call SendData("guildmsg" & SEP_CHAR & Text & END_CHAR) End Sub

Bom pessoal Credito a mim por traduzir o sistema
Espero que tenha Gostado

por V-Force Qui 11 Nov 2010, 19:45

Lost espero que você não fique bravo mas isso ai foi ripado do Stable

Por isso faltou você mudar os

Código:: If frmStable.MapChat.Text = "Map" Then If frmStable.MapChat.Text = "Global" Then If frmStable.MapChat.Text = "Guild" Then If frmStable.MapChat.Text = "Private" Then

Para

Código:: If frmMirage.MapChat.Text = "Map" Then If frmMirage.MapChat.Text = "Global" Then If frmMirage.MapChat.Text = "Guild" Then If frmMirage.MapChat.Text = "Private" Then

por Lucas Roberto Sex 12 Nov 2010, 11:13

asim heheh vlw

verdade tinha esquecido vou editar vlw

+1 CRED

por lucasvivo25 Dom 21 Nov 2010, 09:59

para que serve?

por Lucas Lôpo Dom 21 Nov 2010, 12:04

Bom isso é uma combo que nem do stable , que permite você falar por esses metodos acima , sem precisar colocar na mensagem exemplo " , "
para falar global etc.

por Conteúdo patrocinado

[ALL]MapChat

[ALL]MapChat

Re: [ALL]MapChat

Re: [ALL]MapChat

Re: [ALL]MapChat

Re: [ALL]MapChat

Re: [ALL]MapChat