Aldeia RPG

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

Suporte ao desenvolvimento de jogos


4 participantes

    Sistema de Org.

    Spooky
    Spooky
    Membro Ativo
    Membro Ativo


    Mensagens : 267
    Créditos : 24

    Sistema de Org. Empty Sistema de Org.

    Mensagem por Spooky Sex Ago 28, 2015 7:32 pm

    Alguém dá uma ajuda nesse sistema de Org?
    http://mmorpgbr.lifeme.net/t16639-e-o-sistema-de-org-original

    Ele diz pra criar uma picscreen pra sair da org, 
    eu crio e coloco o botão sair da org...
    e da o erro Argument not opcional no code:
    Call SendSairOrg
    Alguém dá uma ajuda aí? '-'


    _________________
    Sign
    Sistema de Org. Hticjn

    Sign¹:

    Sign²:
    avatar
    gui408
    Ocasional
    Ocasional


    Mensagens : 227
    Créditos : 10

    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por gui408 Sex Ago 28, 2015 7:58 pm

    Vc colocou abaixo de CpartyLeave os CSetOrg e CSairOrg,lado server e cliente?
        
    Spooky
    Spooky
    Membro Ativo
    Membro Ativo


    Mensagens : 267
    Créditos : 24

    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por Spooky Sex Ago 28, 2015 11:16 pm

    Coloquei mano :/


    _________________
    Sign
    Sistema de Org. Hticjn

    Sign¹:

    Sign²:
    Profane ~
    Profane ~
    Colaborador
    Colaborador


    Mensagens : 818
    Créditos : 130

    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por Profane ~ Dom Set 06, 2015 3:04 pm

    iai Spooky ;v Li rapidamente os codigos, e creio que seja isso aqui:

    Código:
    Public Sub SendSairOrg(ByVal SenhaSecreta As String)[size=12][/size]
        Dim buffer As clsBuffer[size=12][/size]
        Set buffer = New clsBuffer[size=12][/size]
        buffer.WriteLong CSairOrg[size=12][/size]
        SendData buffer.ToArray[size=12][/size]
        Set buffer = Nothing[size=12][/size]
    End Sub

    Exatamente aqui :

    Código:
    (ByVal SenhaSecreta As String)

    Creio que apague e coloque () lista vazia. 
    Não tem como fazer o chamado de algo que tem lista sem dizer quem é que está na lista, um exemplo mesmo do sistema tem outra call :

    Código:
        Call SendOrg(scrlOrg, txtPlayerOrg, scrlOrgRank)

    e a sub a qual ele vai chamar:
    Código:
    Sub SendOrg(ByVal Org As Byte, ByVal PlayerOrg As String, ByVal OrgRank As Byte)[size=12][/size]
    Dim buffer As clsBuffer[size=12][/size]
    [size=12][/size]
        ' If debug mode, handle error then exit out[size=12][/size]
        If Options.Debug = 1 Then On Error GoTo errorhandler[size=12][/size]
        [size=12][/size]
        Set buffer = New clsBuffer[size=12][/size]
        buffer.WriteLong CSetOrg[size=12][/size]
        buffer.WriteByte Org[size=12][/size]
        buffer.WriteString PlayerOrg[size=12][/size]
        buffer.WriteByte OrgRank[size=12][/size]
        SendData buffer.ToArray()[size=12][/size]
        Set buffer = Nothing[size=12][/size]
    [size=12][/size]
    [size=12][/size]
        ' Error handler[size=12][/size]
        Exit Sub[size=12][/size]
    errorhandler:[size=12][/size]
        HandleError "SendOrg", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext[size=12][/size]
        Err.Clear[size=12][/size]
        Exit Sub[size=12][/size]
    End Sub

    Note isso aki no "titulo"
    Código:
    Sub SendOrg(ByVal Org As Byte, ByVal PlayerOrg As String, ByVal OrgRank As Byte)

    ~

    Pelo que vi, para sair da org ele apenas irá fazer a limpeza do Rec da Org, resetando os valores. Então creio que seja essa chamada que esteja conflitando seu sistema ;c Se evoluir para mais algo post <3

    Att


    _________________
    "Mistress of shattered hopes and forever broken dreams"
    GalaxyHells
    GalaxyHells
    Ocasional
    Ocasional


    Mensagens : 196
    Créditos : 22

    Ficha do personagem
    Nível: 1
    Experiência:
    Sistema de Org. Left_bar_bleue0/0Sistema de Org. Empty_bar_bleue  (0/0)
    Vida:
    Sistema de Org. Left_bar_bleue30/30Sistema de Org. Empty_bar_bleue  (30/30)

    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por GalaxyHells Sáb Out 24, 2015 11:40 am

    Nao entendi profane, como resolve? qual codigo mudar?


    _________________
    Sistema de Org. 90yel0
    Profane ~
    Profane ~
    Colaborador
    Colaborador


    Mensagens : 818
    Créditos : 130

    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por Profane ~ Dom Out 25, 2015 3:24 pm

    Coloquei o sistema de maneira limpa e corrigida em uma Engine EO 2.0, irei postar para vocês.

    Para aqueles que quiserem copiar, basta procurar por 'Org, e tudo que tiver com Org.

    Já testei e arrumei bonitinho, irá com um char meu teste para que vocês possam testas e ver como está realmente funfando.

    https://www.aldeiarpg.com/t12087-eo-2-0-semi-puro-sistema-de-organizacao#96168

    ^ ^ ^ ^ ^ ^

    Att turma ;*


    _________________
    "Mistress of shattered hopes and forever broken dreams"

    Conteúdo patrocinado


    Sistema de Org. Empty Re: Sistema de Org.

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Mar 28, 2024 8:51 pm