Do Servidor para o Client Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Do Servidor para o Client

2 participantes

Ir para baixo

Do Servidor para o Client Empty Do Servidor para o Client

Mensagem por Snoopy Sex Fev 21, 2014 2:39 am

Bom eu estou fazendo outro sistema é tipo um sistema de evento por isso pus nele para evitar trapaças uma check box no servidor que ao click irá mudar o valor de "teste" que é igual a 0 para 1
Assim:

Blá:



Ae no client no mod input na Sub CheckInputKeys tem 
Blá:

e no modGlobals do client
' teste
Public teste As Long



e no modGlobals do servidor
' teste
Public teste As Long

bom no primeiro spoiler que eu coloquei áh
GlobalMsg "teste Ligado.", White

Que é enviado para o client só que no client a "teste" não muda o valor
e se eu por o ativador tipo em algo no client q necessite de ser adm não funciona porque fica só  para um player no caso o adm ou seja se estiver no client o "teste" só muda para o determinado client que ah ativou Sad .

Vlw pela atenção.  Angel
sei que sempre esqueço de dar créditos mais desta vez eu dou os créditos Successful
Snoopy
Snoopy
Iniciante
Iniciante

Mensagens : 58
Créditos : 7

Ir para o topo Ir para baixo

Do Servidor para o Client Empty Re: Do Servidor para o Client

Mensagem por Dooolly Sex Fev 21, 2014 10:56 am

Em ModEnumerations Procure Por:
Código:
' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT

Acima Adicione:
Código:
STeste

Obs: Faça isso no cliente e no servidor!

Mude sua Private Sub Check1_Click() para:
Código:
Private Sub Check1_Click()
If Not Check1.value Then
GlobalMsg "teste Ligado.", White
        SendTest 1
        Else
        SendTest 0
    GlobalMsg "teste desligado.", White
End If
End Sub

no Final de modServerTCP Adicione:
Código:
Sub SendTest(ByVal Index As Long)
    Dim i As Byte
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteLong STeste
    Buffer.WriteLong Index
    SendDataTo Index, Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Agora vamos pro cliente!

Procure Por:
Código:
' Error handler
    Exit Sub
errorhandler:
    HandleError "InitMessages", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Acima Adicione:
Código:
HandleDataSub(STeste) = GetAddress(AddressOf HandleTeste)

No Final desse mod adicione:
Código:

Public Sub HandleTeste(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer
Buffer.WriteBytes Data()

Teste = Buffer.ReadLong


' Error handler
Exit Sub
errorhandler:
HandleError "HandleTeste", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
End Sub

Pronto!!!
Testa ai Qualquer erro avise, ñ testei.


Dooolly
Dooolly
Colaborador
Colaborador

Medalhas : Do Servidor para o Client Trophy12
Mensagens : 1227
Créditos : 153

Ficha do personagem
Nível: 1
Experiência:
Do Servidor para o Client Left_bar_bleue0/0Do Servidor para o Client Empty_bar_bleue  (0/0)
Vida:
Do Servidor para o Client Left_bar_bleue30/30Do Servidor para o Client Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Do Servidor para o Client Empty Re: Do Servidor para o Client

Mensagem por Snoopy Sex Fev 21, 2014 7:47 pm

Successful sabia que tinha algo com buffer vlw Doolly ajudou bastante. +1
edit: Funcionou!,só que depois que
liga ele não desliga :O

edit 2:fui testar com duas contas abertas para ver se funcionaria online e quando testei nada aconteceu dai tentei com so uma conta e não funciona mais!
Snoopy
Snoopy
Iniciante
Iniciante

Mensagens : 58
Créditos : 7

Ir para o topo Ir para baixo

Do Servidor para o Client Empty Re: Do Servidor para o Client

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos