MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

ajuda para converter um sistema aki

5 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Suporte e Pedidos :: Assuntos resolvidos

Ir para baixo

ajuda para converter um sistema aki Empty ajuda para converter um sistema aki

Mensagem por marquito01 Ter 13 Mar 2012, 02:12

Gente eo to convertendoo sistema de duelo do lendario mais tipo parei nessa parte e gostaria q alguem com mais exp q eu pudesse me ajudar a converter esses codigos para eo purfavor tta aki o link do sistema do V http://www.mmorpgbr.com/t948-allcomando-pvp
E o codigo q eu nao consigo converter e esse
Código:
Sub SendPVPRequest(ByVal Name As String)
Dim Packet As String

    Packet = "PVP" & SEP_CHAR & Name & END_CHAR
    Call SendData(Packet)
End Sub

Sub SendDeclinePVP()
Dim Packet As String

    Packet = "DPVP" & END_CHAR
    Call SendData(Packet)
End Sub

Sub SendAcceptPVP()
Dim Packet As String

    Packet = "APVP" & END_CHAR
    Call SendData(Packet)
End Sub
marquito01
marquito01
Novato
Novato

Mensagens : 13

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por M.Dutra Ter 13 Mar 2012, 10:07

O Elysium Diamond manda packets apenas com isso ai mais o EO você faz o procedimento abaixo:

Procure por:

Código:
Sub SendDeclineParty()

Abaixo dessa sub Adicione:

Código:
Sub SendPVPRequest(ByVal Name As String)
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CPvp
Buffer.WriteString Name
SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Sub SendDeclinePVP()
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CDPvp
SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Sub SendAcceptPVP()
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CAPvp

SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Depois procure por:

Código:
' Make sure CMSG_COUNT is below everything else
CMSG_COUNT

Em cima disso adicione:

Código:

CPvp
CAPvp
CDPvp

Pronto assim você estara enviando uma packet pro servidor.

Lembrando não uso EO se tiver errado não riam de mim.

Ajudei? Não esqueça agradessa dê um Crédito.

Atenciosamente, M.Dutra ajuda para converter um sistema aki 80839
M.Dutra
M.Dutra
Membro Junior
Membro Junior

Mensagens : 94

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por Pablo Ter 13 Mar 2012, 11:44

M.Dutra escreveu:O Elysium Diamond manda packets apenas com isso ai mais o EO você faz o procedimento abaixo:

Procure por:

Código:
Sub SendDeclineParty()

Abaixo dessa sub Adicione:

Código:
Sub SendPVPRequest(ByVal Name As String)
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CPvp
Buffer.WriteString Name
SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Sub SendDeclinePVP()
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CDPvp
SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Sub SendAcceptPVP()
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong CAPvp

SendData Buffer.ToArray()
Set Buffer = Nothing
End Sub

Depois procure por:

Código:
' Make sure CMSG_COUNT is below everything else
CMSG_COUNT

Em cima disso adicione:

Código:

CPvp
CAPvp
CDPvp

Pronto assim você estara enviando uma packet pro servidor.

Lembrando não uso EO se tiver errado não riam de mim.

Ajudei? Não esqueça agradessa dê um Crédito.

Atenciosamente, M.Dutra ajuda para converter um sistema aki 80839

a logica do MR.dutra esta certa porem deve ter alguns erros que não vi direito, é o sistema não e do lendario e sim do lenon
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por marquito01 Ter 13 Mar 2012, 11:53

foi mal nao os creditos mais vlw dutra e queria te pedir para me ajudar a converter o server tambem e q nao to conseguindo
Código:
ChatPlayer As Long
Abaixo Adicione isso
Código:
PVPPlayer As Long

Depois Procure Por
Código:
Case "dtrade"
            N = Player(Index).TradePlayer

            ' Check if anyone trade with player
            If N < 1 Then
                Call PlayerMsg(Index, "Ninguém pediu para negociar com você.", Pink)
                Exit Sub
            End If

            Call PlayerMsg(Index, "O pedido de negociação foi rejeitado.", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de negociação.", Pink)
            Player(Index).TradePlayer = 0
            Player(Index).InTrade = 0
            Player(N).TradePlayer = 0
            Player(N).InTrade = 0
            Exit Sub
Abaixo adiciona isso
Código:
Case "pvp"
            N = FindPlayer(Parse(1))

            If N < 1 Then
                Call PlayerMsg(Index, Parse(1) & " não está online.", White)
                Exit Sub
            End If

            If N = Index Then
                Exit Sub
            End If

            Call PlayerMsg(Index, "O pedido de luta foi enviado para " & GetPlayerName(N) & ".", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " quer lutar com você.", Pink)
            Player(N).PVPPlayer = Index
            Player(Index).PVPPlayer = N
           
                Call PVPRequestWindow(N, Index)
            Exit Sub
           
Case "apvp"
            N = Player(Index).PVPPlayer
           
            If N > 0 Then
                Call PlayerWarp(N, 1, 10, 10) ' Mapa da "arena"
                Call PlayerWarp(Index, 1, 11, 10) ' Mapa da "arena"
                Call SendDataTo(N, "sound" & SEP_CHAR & "Teleporte" & END_CHAR)
                Call SendDataTo(Index, "sound" & SEP_CHAR & "Teleporte" & END_CHAR)
                Call GlobalMsg(GetPlayerName(Index) & " e " & GetPlayerName(N) & " irão lutar, na arena. Boa sorte!", Pink)
            Else
                Call PlayerMsg(Index, "Jogador não está mais online.", White)
                Exit Sub
            End If
        Exit Sub
       
        Case "dpvp"
            N = Player(Index).PVPPlayer

            If N > 0 Then
            Call PlayerMsg(Index, "O pedido de luta foi rejeitado.", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de luta.", Pink)
            End If
        Exit Sub
Procure Por
Código:
Sub ChatRequestWindow(ByVal Index As Long, ByVal Inviter As Long)
    Dim Packet As String

    Packet = "CHATWINDOW" & SEP_CHAR & Inviter & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub
Abaixo Adicione isso
Código:
Sub PVPRequestWindow(ByVal Index As Long, ByVal Inviter As Long)
    Dim Packet As String

    Packet = "PVPWINDOW" & SEP_CHAR & Inviter & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub
Nao entende isso se puderem me ajudar agradeço
marquito01
marquito01
Novato
Novato

Mensagens : 13

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por Eduardo Qua 14 Mar 2012, 02:04

a cara tenta ai se eu nao tivesse ocupado te ajudaria e super facil
Eduardo
Eduardo
Membro Veterano
Membro Veterano

Mensagens : 1178

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por marquito01 Qui 15 Mar 2012, 02:32

cara e facil para vc q ja tem um certa experiencia em VB6 eu sou muito noob e adimito e se nao for ajudar acho melhor nem postar ok
marquito01
marquito01
Novato
Novato

Mensagens : 13

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por Smoke Qui 15 Mar 2012, 12:55

Ninguém tem obrigação em ajuda-lo, claro é meio desnecessário postar oque ele postou...
Assim como eu estou postando algo que não tem haver com oque esta pedindo! Mais vim postar só para dar um toque (novamente), sei que é chato cara mais leia as regras você fica ignorando-as, não crie tópicos com esses nomes já é o segundo que eu vi! Ai você me pergunta e oque eu tenho haver com isso, e oque eu vou fazer e eu respondo que não tenho nada com isso e não vou fazer nada, mais a comunidade é nossa e é legal respeitar (tenho haver com isso), e vou apenas te dar avisos, conselhos (isso que vou fazer)! Desculpa e obrigado pela atenção!

Att: DanLoko
Smoke
Smoke
Membro
Membro

Mensagens : 218

http://www.perfect-empire.webnode.com.br

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por Eduardo Qui 15 Mar 2012, 21:45

nao ia ajudar mais vou
Procure Por :
Código:
SPartyVitals
Abaixo Adicione isso
Código:

SPvp


Código:
E o resto declare no gamelogic e no servertcp acho senao me engano
lembrando nao e so isso e so uma dica de como e
eu ia postar um tuto mais vc nao mereçe nao entao se vira mano
Eduardo
Eduardo
Membro Veterano
Membro Veterano

Mensagens : 1178

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por M.Dutra Sex 16 Mar 2012, 03:12

eduardo002 escreveu:nao ia ajudar mais vou
Procure Por :
Código:
SPartyVitals
Abaixo Adicione isso
Código:

SPvp


Código:
E o resto declare no gamelogic e no servertcp acho senao me engano
lembrando nao e so isso e so uma dica de como e
eu ia postar um tuto mais vc nao mereçe nao entao se vira mano

Olha só cara você se certifica antes de postar algo? isso que você falou ai está totalmente errado e você usa EO.(isso ai é so para ganhar posts e um garoto desse ainda diz que faz isso e aquilo.)

Client~Side

Crie uma picture assim:

ajuda para converter um sistema aki 35i1uzq

Renomeie a picture para "picPVPRequest" e a label que está escrito jogador para "lblPVPplayer". Agora dê duplo clique na label 'Aceitar', logo, estaremos no evento Click dela, aí coloque:
Código:
 picPVPRequest.Visible = False
SendAcceptPVP

E a mesma coisa, mas na label 'Rejeitar':
Código:
 picPVPRequest.Visible = False
SendDeclinePVP

Procure por:
Código:
Case "/debug"

Abaixo dessa case adicione:
Código:
Case "/lutar"
If Len(MyText) > 7 Then
ChatText = Mid$(MyText, 8, Len(MyText) - 7)
SendPVPRequest ChatText
Else
AddText "Use: /lutar ", AlertColor
End If

Procure por:
Código:
Sub SendDeclineParty()

Abaixo Adicione:
Código:
Sub SendPVPRequest(ByVal Name As String)
Dim Buffer As clsBuffer

If Options.Debug = 1 Then On Error GoTo Errorhandler

Set Buffer = New clsBuffer
Buffer.WriteLong CPvp
Buffer.WriteString Name
SendData Buffer.ToArray()
Set Buffer = Nothing

'Error Handler
Exit Sub
Errorhandler:
HandleError "SendPVPRequested", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Sub SendDeclinePVP()
Dim Buffer As clsBuffer

If Options.Debug = 1 Then On Error GoTo Errorhandler

Set Buffer = New clsBuffer
Buffer.WriteLong CDPvp
SendData Buffer.ToArray()
Set Buffer = Nothing

'Error Handler
Exit Sub
Errorhandler:
HandleError "SendDeclinePVP", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Sub SendAcceptPVP()
Dim Buffer As clsBuffer

If Options.Debug = 1 Then On Error GoTo Errorhandler

Set Buffer = New clsBuffer
Buffer.WriteLong CAPvp
SendData Buffer.ToArray()
Set Buffer = Nothing

'Error Handler
Exit Sub
Errorhandler:
HandleError "SendAcceptPVP", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Procure Por:
Código:
' Make sure CMSG_COUNT is below everything else
CMSG_COUNT

Acima disso adicione:
Código:
CPvp
CDPvp
CAPvp

Server~Side

Vá na Type PlayerRec

e Em baixo de:
Código:
PK As Byte

Adicione:

Código:
PVPPlayer As Long

Procure Por:
Código:
' Make sure CMSG_COUNT is below everything else
CMSG_COUNT

Acima Adicione:
Código:
CPvp
CDPvp
CAPvp


Agora Procure por:
Código:
HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Abaixo adicione:
Código:
HandleDataSub(CPvp) = GetAddress(AddressOf HandlePvp)
HandleDataSub(CAPvp) = GetAddress(AddressOf HandleAcceptPvp)
HandleDataSub(CDPvp) = GetAddress(AddressOf HandleDeclinePVP)

Agora adicione isso no final do modHandleData:
Código:
Sub HandlePvp(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim N As Byte
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
N = FindPlayer(Buffer.ReadString) 'Parse(1))

If N < 1 Then
PlayerMsg index, N & " não está online.", White
Exit Sub
End If

If N = index Then
Exit Sub
End If

PlayerMsg index, "O pedido de luta foi enviado para " & GetPlayerName(N) & ".", Pink
PlayerMsg N, GetPlayerName(index) & " quer lutar com você.", Pink
Player(N).PVPPlayer = index
Player(index).PVPPlayer = N

PVPRequestWindow N, index
End Sub

Sub HandleAcceptPvp(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim N As Byte
N = Player(index).PVPPlayer

If N > 0 Then
PlayerWarp N, 1, 10, 10 ' Mapa da "arena"
PlayerWarp index, 1, 11, 10 ' Mapa da "arena"
GlobalMsg GetPlayerName(index) & " e " & GetPlayerName(N) & " irão lutar, na arena. Boa sorte!", Pink
Else
PlayerMsg index, "Jogador não está mais online.", White
Exit Sub
End If
End Sub

Sub HandleDeclinePVP(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim N As Byte
N = Player(index).PVPPlayer

If N > 0 Then
PlayerMsg index, "O pedido de luta foi rejeitado.", Pink
PlayerMsg N, GetPlayerName(index) & " rejeitou seu pedido de luta.", Pink
End If
End Sub

Procure Por:
Código:
Sub SendSpawnItemToMap(ByVal mapNum As Long, ByVal Index As Long)

Abaixo dessa sub adicione:
Código:
Sub PVPRequestWindow(ByVal Index As Long, ByVal Inviter As Long)
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteLong SPvpWindow
Buffer.WriteByte Inviter
SendDataTo Index, Buffer.ToArray()
Set Buffer = Nothing
End Sub

Procure Por:

Código:
' Make sure SMSG_COUNT is below everything else
SMSG_COUNT

Acima adicione:

Código:
SPvpWindow

Volte ao Cliente Side

e procure por:
Código:
' Make sure SMSG_COUNT is below everything else
SMSG_COUNT

Acima Adicione:
Código:
SPvpWindow

Agora Procure Por:
Código:
HandleDataSub(SPartyVitals) = GetAddress(AddressOf HandlePartyVitals)

Abaixo Adicione:
Código:
HandleDataSub(SPvpWindow) = GetAddress(AddressOf HandlePvpWinndow)

Agora no final do modHandleData Adicione:

Código:
Sub HandlePvpWindow(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
frmMain.lblPVPplayer.Caption = "% Jogador %"
frmMain.picPVPRequest.Visible = True

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

Pronto usando o sistema dê /lutar em seguida nome do player exemplo:

/lutar M.Dutra

Ajudei? Agradeça dê 1 crédito

...:::Créditos:::...
M.Dutra por Fazer
Hadesfree por deixa eu postar esse sistema pois tenho um contrato de exclusividade, isto é, programador exclusivo.

Atenciosamente, M.Dutra
M.Dutra
M.Dutra
Membro Junior
Membro Junior

Mensagens : 94

Ir para o topo Ir para baixo

ajuda para converter um sistema aki Empty Re: ajuda para converter um sistema aki

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Suporte e Pedidos :: Assuntos resolvidos

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