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
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe | 
 

 MapChat - Opções

Ir em baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
avatar

Mensagens : 709

MensagemAssunto: MapChat - Opções   Dom 14 Nov 2010, 12:36

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)
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
giovani18
Praticante
Praticante
avatar

Mensagens : 74

MensagemAssunto: Re: MapChat - Opções   Ter 26 Jul 2011, 21:59

acho que nao entendi isso serve pra poder fala so com as pessoas da guild ?
Voltar ao Topo Ir em baixo
http://masterdbz.xpg.com.br
 
MapChat - Opções
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Tutoriais-
Ir para: