[Prof~] Mostrando HP de outros Players em Barras 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.

[Prof~] Mostrando HP de outros Players em Barras

3 participantes

Ir para baixo

[Prof~] Mostrando HP de outros Players em Barras Empty [Prof~] Mostrando HP de outros Players em Barras

Mensagem por Profane ~ Ter maio 01, 2018 8:01 am

Oin!!!

Bem esse pedido foi feito pelo @~Felipe em nossa sessão de Pedidos.

O Tópico pode ser achado aqui: 

Toda via eu dei uma pequena palhetada de como deveria ser feito o código, mas ainda sim ele não conseguiu reproduzir.

Então venho através deste postar o tutorial de como se fazer tal.




Como funciona o sistema e para quê serve?

O Sistema irá fazer com que o Cliente receba o HP dos Player's do Mapa sempre que tiver atualização, na parte de Receber Dano de NPC ou de Receber dano de Player.

É interessante talvez também colocar na UpdateVitals. (Vou ensinar a por no final do Tutorial)

O Sistema então mostrará o Hp das Crianças Todas do Mapa podendo ser de Ajuda no PVP ou em outros momentos. (Saber que seu enemy está morrendo...)

Ou mesmo você customiza-lo para isso ocorrer apenas em mapas como de Arena/Outros... Fica a seu critério os usos futuros.



Pica do Sistema Funcionando

https://imgur.com/a/vZwGbqw

[Prof~] Mostrando HP de outros Players em Barras CCo6Yxy


Ficha Técnica 

 Dificuldade: Fácil
 Compatibilidade: Eo2.0 (Algumas Partes tem de ser Adaptadas para Eo3.0/CS devido o DrawBars mudar para dx8 )
 Necessário
 - Visual Basic 6

Engine Já Editada: Download (Cerca de 2mb)
Caso queira apenas Ripar/Ver Funcionando, ou dúvidas de como setar os Códigos, procure por tudo que tenha 
Código:
'[HP]
Que vai estar a área Relacionada aos Códigos editados.




Ao Sistema 

Não irie dar uma aula e explicar o porque de cada coisa ~ 
Mas a modificação é bem simples apesar de parecer um tanto longa /o/

[ Parte 1 - Modificações no Servidor ]

 Procure por: 

Código:
Sub SendVital(ByVal index As Long, ByVal Vital As Vitals,


Substitua toda a Sub por esta sub:

Código:
'[HP]
Sub SendVital(ByVal index As Long, ByVal Vital As Vitals, Optional ByVal toAll As Boolean)
    Dim packet As String
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer

    Select Case Vital
        Case HP
            Buffer.WriteLong SPlayerHp
            Buffer.WriteLong index
            Buffer.WriteLong GetPlayerMaxVital(index, Vitals.HP)
            Buffer.WriteLong GetPlayerVital(index, Vitals.HP)
        Case MP
            Buffer.WriteLong SPlayerMp
            Buffer.WriteLong index
            Buffer.WriteLong GetPlayerMaxVital(index, Vitals.MP)
            Buffer.WriteLong GetPlayerVital(index, Vitals.MP)
    End Select
    
    If Not toAll Then
        SendDataTo index, Buffer.ToArray()
    Else
        SendDataToMap GetPlayerMap(index), Buffer.ToArray()
    End If
    
    Set Buffer = Nothing
End Sub

 Procure agora por:

Código:
Function PlayerData(ByVal index As Long) As Byte()

Dentro dela procure por isso aqui:

Código:
 For i = 1 To Stats.Stat_Count - 1
      Buffer.WriteLong GetPlayerStat(index, i)
  Next

Abaixo dela adicione:

Código:
'[HP]
    Buffer.WriteLong GetPlayerMaxVital(index, Vitals.HP)
    Buffer.WriteLong GetPlayerVital(index, Vitals.HP)

Vá ao ModCombat, e procure por isso aqui:

Código:
Sub PlayerAttackPlayer(ByVal attacker As Long, ByVal victim As Long,

Dentro dessa Sub você achará isso aqui:

Código:
Call SendVital(victim, Vitals.HP)

Substitua essa linha por esta:

Código:
Call SendVital(victim, Vitals.HP, True) '[HP]

Ainda no ModCombat, procure por:

Código:
Sub NpcAttackPlayer(ByVal mapNpcNum As Long,

Dentro desta sub procure por :

Código:
Call SendVital(victim, Vitals.HP)

Substitua esta linha por isso aqui:

Código:
Call SendVital(victim, Vitals.HP, True) '[HP]

[ Parte 2 - Modificações no Cliente ]

 Dentro do Cliente, Procure por isso aqui:

Código:
Private Sub HandlePlayerHp(ByVal Index As Long,

Substitua toda a Sub por isso aqui:

Código:
'[HP]
Private Sub HandlePlayerHp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim i As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    i = Buffer.ReadLong 'Lê quem é
    
    'Prevent Script out of Range
    If i <= 0 Or i > MAX_PLAYERS Then Exit Sub
    If Not IsPlaying(i) Then Exit Sub
    
    Player(i).MaxVital(Vitals.HP) = Buffer.ReadLong
    Call SetPlayerVital(i, Vitals.HP, Buffer.ReadLong)

    If i = MyIndex Then
        If GetPlayerMaxVital(MyIndex, Vitals.HP) > 0 Then
            'frmMain.lblHP.Caption = Int(GetPlayerVital(MyIndex, Vitals.HP) / GetPlayerMaxVital(MyIndex, Vitals.HP) * 100) & "%"
            frmMain.lblHP.Caption = GetPlayerVital(MyIndex, Vitals.HP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.HP)
            ' hp bar
            frmMain.imgHPBar.width = ((GetPlayerVital(MyIndex, Vitals.HP) / HPBar_Width) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / HPBar_Width)) * HPBar_Width
        End If
    End If

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

Logo abaixo você encontra outra Sub, esta aqui:

Código:
Private Sub HandlePlayerMp(ByVal Index As Long,

Substitua toda a Sub por isso aqui:

Código:
'[HP]
Private Sub HandlePlayerMp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim i As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    i = Buffer.ReadLong 'Lê quem é
    
        'Prevent Script out of Range
    If i <= 0 Or i > MAX_PLAYERS Then Exit Sub
    If Not IsPlaying(i) Then Exit Sub
    
    Player(i).MaxVital(Vitals.MP) = Buffer.ReadLong
    Call SetPlayerVital(i, Vitals.MP, Buffer.ReadLong)

    If i = MyIndex Then
        If GetPlayerMaxVital(MyIndex, Vitals.MP) > 0 Then
            'frmMain.lblMP.Caption = Int(GetPlayerVital(MyIndex, Vitals.MP) / GetPlayerMaxVital(MyIndex, Vitals.MP) * 100) & "%"
            frmMain.lblMP.Caption = GetPlayerVital(MyIndex, Vitals.MP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.MP)
            ' mp bar
            frmMain.imgMPBar.width = ((GetPlayerVital(MyIndex, Vitals.MP) / SPRBar_Width) / (GetPlayerMaxVital(MyIndex, Vitals.MP) / SPRBar_Width)) * SPRBar_Width
        End If
    End If

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

Ainda no mesmo Modulo, procure por:

Código:
Private Sub HandlePlayerData(ByVal Index As Long,

Dentro dele procure por:

Código:
For x = 1 To Stats.Stat_Count - 1
        SetPlayerStat i, x, Buffer.ReadLong
    Next

Abaixo adicione:

Código:

    '[HP]
    Call SetPlayerMaxVital(i, Vitals.HP, Buffer.ReadLong)
    Call SetPlayerVital(i, Vitals.HP, Buffer.ReadLong)

Vá ao ModDatabase, no final dele adicione:

Código:
'[HP]
Sub SetPlayerMaxVital(ByVal Index As Long, ByVal Vital As Vitals, ByVal Value As Long)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Sub
    Player(Index).MaxVital(Vital) = Value

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

 Agora procure por isso aqui:

Código:
Private Sub BltBars()

Dentro dessa sub vamos estar mexendo nas Barras.

Procure por isso aqui:

Código:
' draw own health bar
    If GetPlayerVital(MyIndex, Vitals.HP) > 0 And GetPlayerVital(MyIndex, Vitals.HP) < GetPlayerMaxVital(MyIndex, Vitals.HP) Then
        ' lock to Player
        tmpX = GetPlayerX(MyIndex) * PIC_X + Player(MyIndex).XOffset + 16 - (sWidth / 2)
        tmpY = GetPlayerY(MyIndex) * PIC_X + Player(MyIndex).YOffset + 35
      
        ' calculate the width to fill
        barWidth = ((GetPlayerVital(MyIndex, Vitals.HP) / sWidth) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / sWidth)) * sWidth
      
        ' draw bar background
        With sRECT
            .top = sHeight * 1 ' HP bar background
            .Left = 0
            .Right = .Left + sWidth
            .Bottom = .top + sHeight
        End With
        Engine_BltFast ConvertMapX(tmpX), ConvertMapY(tmpY), DDS_Bars, sRECT, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
      
        ' draw the bar proper
        With sRECT
            .top = 0 ' HP bar
            .Left = 0
            .Right = .Left + barWidth
            .Bottom = .top + sHeight
        End With
        Engine_BltFast ConvertMapX(tmpX), ConvertMapY(tmpY), DDS_Bars, sRECT, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
    End If
    

Se você comentar esse Primeiro If / End If, você passará a deixar a barra de HP do SEU personagem sempre visível!

Caso queira isso, substitua esse código acima por este aqui:


Agora, abaixo desse código adicione:

Código:
'[HP]
    For i = 1 To MAX_PLAYERS
        If IsPlaying(i) Then
            If i <> MyIndex Then
                 ' draw own health bar
                'If GetPlayerVital(i, Vitals.HP) > 0 And GetPlayerVital(i, Vitals.HP) < GetPlayerMaxVital(i, Vitals.HP) Then
                    ' lock to Player
                    tmpX = GetPlayerX(i) * PIC_X + Player(i).XOffset + 16 - (sWidth / 2)
                    tmpY = GetPlayerY(i) * PIC_X + Player(i).YOffset + 35
                  
                    ' calculate the width to fill
                    barWidth = ((GetPlayerVital(i, Vitals.HP) / sWidth) / (GetPlayerMaxVital(i, Vitals.HP) / sWidth)) * sWidth
                  
                    ' draw bar background
                    With sRECT
                        .top = sHeight * 1 ' HP bar background
                        .Left = 0
                        .Right = .Left + sWidth
                        .Bottom = .top + sHeight
                    End With
                    Engine_BltFast ConvertMapX(tmpX), ConvertMapY(tmpY), DDS_Bars, sRECT, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
                  
                    ' draw the bar proper
                    With sRECT
                        .top = 0 ' HP bar
                        .Left = 0
                        .Right = .Left + barWidth
                        .Bottom = .top + sHeight
                    End With
                    Engine_BltFast ConvertMapX(tmpX), ConvertMapY(tmpY), DDS_Bars, sRECT, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
                'End If
            End If
        End If
    Next

Salve e Teste, seja feliz.

[ Parte Bônus - UpdateVitals ]

Esta parte não contém na engine que disponibilizei para Download!

O UpdateVitals é a sub que processa a Regen do Player. Caso queira que o HP se atualize sempre com a Regen e não apenas ao player ser Atacado por outro Player ou NPC siga abaixo.


 No Servidor,

Procure por:

Código:
Private Sub UpdatePlayerVitals()

Substitua toda a sub por isso aqui:

Código:
Private Sub UpdatePlayerVitals()
Dim i As Long
    For i = 1 To Player_HighIndex
        If IsPlaying(i) Then
            If Not TempPlayer(i).stopRegen Then
                If GetPlayerVital(i, Vitals.HP) <> GetPlayerMaxVital(i, Vitals.HP) Then
                    Call SetPlayerVital(i, Vitals.HP, GetPlayerVital(i, Vitals.HP) + GetPlayerVitalRegen(i, Vitals.HP))
                    Call SendVital(i, Vitals.HP, True) '[HP]
                    ' send vitals to party if in one
                    If TempPlayer(i).inParty > 0 Then SendPartyVitals TempPlayer(i).inParty, i
                End If
    
                If GetPlayerVital(i, Vitals.MP) <> GetPlayerMaxVital(i, Vitals.MP) Then
                    Call SetPlayerVital(i, Vitals.MP, GetPlayerVital(i, Vitals.MP) + GetPlayerVitalRegen(i, Vitals.MP))
                    Call SendVital(i, Vitals.MP)
                    ' send vitals to party if in one
                    If TempPlayer(i).inParty > 0 Then SendPartyVitals TempPlayer(i).inParty, i
                End If
            End If
        End If
    Next
End Sub


Att e bju na Boka!

_________________
"Mistress of shattered hopes and forever broken dreams"
Profane ~
Profane ~
Colaborador
Colaborador

Mensagens : 818
Créditos : 130

Ir para o topo Ir para baixo

[Prof~] Mostrando HP de outros Players em Barras Empty Re: [Prof~] Mostrando HP de outros Players em Barras

Mensagem por Mizuki Qua Ago 08, 2018 11:53 pm

poderia por pra o hp  do outro player e npc aparecer numa hud na tela com o nome e tal seria bem interessante

_________________
vem sempre aqui?  I love you
Mizuki
Mizuki
Iniciante
Iniciante

Mensagens : 30
Créditos : 4

Ficha do personagem
Nível: 1
Experiência:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue0/0[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (0/0)
Vida:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue30/30[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (30/30)

https://www.facebook.com/DBZSayanfury/

Ir para o topo Ir para baixo

[Prof~] Mostrando HP de outros Players em Barras Empty Re: [Prof~] Mostrando HP de outros Players em Barras

Mensagem por Kies Qui Ago 09, 2018 9:26 am

Mizuki escreveu:poderia por pra o hp  do outro player e npc aparecer numa hud na tela com o nome e tal seria bem interessante

Já fiz esse sistema:

https://www.aldeiarpg.com/t12642-eo-dx7-mostrar-detalhe-do-alvo
Kies
Kies
Diva
Diva

Mensagens : 1154
Créditos : 124

Ficha do personagem
Nível: 1
Experiência:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue0/0[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (0/0)
Vida:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue30/30[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

[Prof~] Mostrando HP de outros Players em Barras Empty Re: [Prof~] Mostrando HP de outros Players em Barras

Mensagem por Mizuki Qui Ago 09, 2018 2:38 pm

vlw amigo vou usar ele e ver se da certo ><

_________________
vem sempre aqui?  I love you
Mizuki
Mizuki
Iniciante
Iniciante

Mensagens : 30
Créditos : 4

Ficha do personagem
Nível: 1
Experiência:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue0/0[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (0/0)
Vida:
[Prof~] Mostrando HP de outros Players em Barras Left_bar_bleue30/30[Prof~] Mostrando HP de outros Players em Barras Empty_bar_bleue  (30/30)

https://www.facebook.com/DBZSayanfury/

Ir para o topo Ir para baixo

[Prof~] Mostrando HP de outros Players em Barras Empty Re: [Prof~] Mostrando HP de outros Players em Barras

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