Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

MapChat - Opções

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial MapChat - Opções em Dom 14 Nov 2010, 12:36

Luucas Robeerto


Fundador
Fundador
Nome do Sistema: MapChat
Nível de Dificuldade:2/5
Ultiliza-se: Visual Basic 6.0


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 frmStable.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 frmStable.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 frmStable.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 frmStable.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

Creditos ao Lucas Roberto



Última edição por ΩLuucαs Robεrto em Dom 06 Nov 2011, 07:56, editado 1 vez(es)

http://universogamesmmo.forumeiros.com

2Tutorial Re: MapChat - Opções em Ter 26 Jul 2011, 21:59

giovani18


Membro
Membro
acho que nao entendi isso serve pra poder fala so com as pessoas da guild ?

http://masterdbz.xpg.com.br

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum