Universo Games
Ola , Convidado

MapChat - Opções Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 MapChat - Opções

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

MapChat - Opções Empty
MensagemAssunto: MapChat - Opções   MapChat - Opções EmptyDom 14 Nov 2010, 14: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, 09:56, editado 1 vez(es)
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



MapChat - Opções Empty
MensagemAssunto: Re: MapChat - Opções   MapChat - Opções EmptyTer 26 Jul 2011, 22:59

acho que nao entendi isso serve pra poder fala so com as pessoas da guild ?
Ir para o topo Ir para baixo
 
MapChat - Opções
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: