Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

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

Mostrar jogadores online

Ir em baixo  Mensagem [Página 1 de 1]

1Normal Mostrar jogadores online em Qua Fev 22, 2012 6:15 pm

Terabin

avatar
Administrador
Administrador
Bom,esse tutorial fará com que seja possível ver quem esta online em uma listbox.

-Primeiro crie uma picture,e nomeie do que quiser.
-Agora dentro da picture,crie uma listbox que vamos chamar de "lstQuemEstaOnline"


Agora,no cliente,vamos em modHandleData,e no final colocar isso:
Código:
Private Sub HandleQuemEstaOnline(ByVal Index As Long, ByRef Data() As Byte, ByVal EditorIndex As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Online As String
Dim i As Long

    frmMain.lstQuemEstaOnline.Clear

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
        For i = 1 To MAX_PLAYERS
        Online = Buffer.ReadString
       
          frmMain.lstQuemEstaOnline.AddItem Online
            Next

            Set Buffer = Nothing
            End Sub

Agora,suba até o topo da modHandleData e procure por:
Código:
    HandleDataSub(SPartyVitals) = GetAddress(AddressOf HandlePartyVitals)

Abaixo cole isso:
Código:
    HandleDataSub(SOnlines) = GetAddress(AddressOf HandleQuemEstaOnline)

Agora,ainda no cliente,em modEnumerations,procure por:
Código:
    ' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT

Acima coloque:
Código:
SOnlines

Agora,no final de modClientTcp:
Código:
Public Sub QuemEstaOnline()
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteLong SOnlines
    SendData Buffer.ToArray
    Set Buffer = Nothing
End Sub

Agora,crie um botão na FrmMain,e dentro dele coloque:
Código:
lstQuemEstaOnline.visible = true
picquevocêcriou.visible = true
QuemEstaOnline

Pronto,agora vamos ao servidor
Em modServerTcp,no final adicione:

Código:
Sub Onlines(ByVal index As Long)
Dim Buffer As clsBuffer
Dim Online As String
Dim i As Long

    Set Buffer = New clsBuffer
    Buffer.WriteLong SOnlines
   
        For i = 1 To MAX_PLAYERS
        Online = Trim(Player(i).Name)
       
        If IsPlaying(i) Then
          Buffer.WriteString Online
            End If
            Next
           
            SendDataToAll Buffer.ToArray()
            Set Buffer = Nothing
          End Sub

Agora em modHandleData no final adicione:
Código:
Sub HandleQuemEstaOnline(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long)
 Onlines index
End Sub

Agora,no topo de modHandleData,abaixo de:
Código:
    HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Cole:
Código:
    HandleDataSub(SOnlines) = GetAddress(AddressOf HandleQuemEstaOnline)

Agora em modEnumerations,acima de:
Código:
    ' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT

Adicione:
Código:
SOnlines

Se funcionou,postem aqui.



Última edição por Terabin em Qui Fev 23, 2012 12:53 am, editado 2 vez(es)

Ver perfil do usuário http://pokepokepoke.forumeiros.com

2Normal Re: Mostrar jogadores online em Qua Fev 22, 2012 6:33 pm

thales12

avatar
Moderador Global
Moderador Global
EMOOOOOOOOOOOOOOOO, eu usava esse sistema pq tu posto ? :@
mais tudo bem ! Very Happy
Obrigado por dispor +1 ! Smile
beijocas


_______________________________________

My Sign Beast beautiful

[Você precisa estar registrado e conectado para ver esta imagem.]

Apoio ! :

[Você precisa estar registrado e conectado para ver esta imagem.]

OBS:

[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

3Normal Re: Mostrar jogadores online em Qua Fev 22, 2012 10:23 pm

Kisuke

avatar
Organizador
Organizador
Esse sistema é meio inútil,também tenho ele mas decidi nem postar porque acho inútil.


_______________________________________
Se não se pode vencer o jogo,o quebra cabeças não resolve... perde-se.
Ver perfil do usuário

4Normal Re: Mostrar jogadores online em Qui Fev 23, 2012 12:23 am

Sakuray

avatar
Colaborador
Colaborador
Nem é, é até bom saber quem está online no jogo, sem precisar ficar lendo o /who do EO.. Muito bom Terabin, me ajudou.

Ver perfil do usuário http://narutoghostonline.blogspot.com

Conteúdo patrocinado


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