[ALL]Retirando o MapChat

por DarkninoxD Sáb 10 Mar 2012, 15:10

Bom Gente esse e meu primeiro Tutorial aki. Entao Algumas Engines Qdo Baixada vem com um ChatMap. Q Clicando nela vem Global Map e Privado.
Aos q Odeiam ela Vou ensinar como tirar ta? [ALL]Retirando o MapChat 535201

Primeiro vai em frmMirage e Delete o MapChat

Segundo Procure Na frmMirage por

Código:: Private Sub Form_Load()

Dentro Dessa Sub Procure e Delete

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

Agora na ModGameLogic Procure Por:

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

Nesta Sub Procure por:

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

Mude para:

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

Ainda na GameLogic procure por

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

Mude para

Código:: ' 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

Procure agora por

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

Mude para

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

ainda no modGameLogic Procure por:

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

Mude para

Código:: ' Player message If Mid(MyText, 1, 1) = "!" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) Name = vbNullString

ainda no modGameLogic Procure e delete isso

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

Procure e Delete na GameLogic

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

Creditos: DarkninoxD Por Reverter um Tutorial.
Lucas Roberto Por Postar o Tutorial Colocando o MapChat.

por Rufus Lenhador Dom 11 Mar 2012, 05:10

Não acho muito bom remover, mas...
Créditos pela iniciativa.

por DarkninoxD Dom 11 Mar 2012, 09:11

eu tava com uma engine q tinha, pois muitos dos meus players reclamava por causa dos Comandos
tem q mudar akilo toda hora e etc ai tirei e como vi q nao tinha aki tb postei aki para vcs [ALL]Retirando o MapChat 535201

por Conteúdo patrocinado

[ALL]Retirando o MapChat

[ALL]Retirando o MapChat

Re: [ALL]Retirando o MapChat

Re: [ALL]Retirando o MapChat

Re: [ALL]Retirando o MapChat