[EO DX7] Mostrar detalhe do alvo 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.

[EO DX7] Mostrar detalhe do alvo

Ir para baixo

[EO DX7] Mostrar detalhe do alvo Empty [EO DX7] Mostrar detalhe do alvo

Mensagem por Kies Qua Jul 06, 2016 5:29 pm

Mostrar Detalhes do Alvo 


Lembrando que esse tutorial é para engines que usam DX7


Vamos começar!


Basicamente esse Tutorial faz que quando você clicar em um NPC com o botão esquerdo do mouse mostra uma barra de informações com o nome, HP e Nível do NPC. Com esse tutorial você poderá acrescentar mais coisas se prestar atenção no método usado. 

Somente iremos alterar o Client (Client Side)


Abra seu cliente.vbp, vá até o mod: modDirectDraw7 e no vinal dele coloque o seguinte cód:

Código:
Public Sub DrawTargetDetails()

Dim i As Long, x As Long, y As Long, npcNum As Long
Dim Width As Long, Height As Long, SpriteNum As Long
Dim MapNpcNum As Long
Dim Name As String
Dim HpBar As String

    'Evitar Over Flow e Fechar Janela de Info
    If myTarget = 0 Then
    frmMain.infonpc.Visible = False
    Exit Sub
    End If
    
    npcNum = MapNpc(myTarget).num
    ' exists?
    If npcNum > 0 Then
        Name = Trim$(Npc(npcNum).Name)
        HpBar = Trim$(MapNpc(npcNum).Vital(HP))
        ' show the information
        frmMain.infonpc.Visible = True
        frmMain.infoa.Caption = Name
        frmMain.infob.Caption = MapNpc(myTarget).Vital(HP) & "/" & Npc(MapNpc(myTarget).num).HP
        frmMain.infoc.Caption = Npc(npcNum).Level
    Else
        frmMain.infonpc.Visible = False
    End If
    

End Sub

Depois de ter adicionado procure essa sub no modDirectDraw7:
Código:
Public Sub BltTarget(ByVal x As Long, ByVal y As Long)

e antes do exit sub coloque:
Código:
DrawTargetDetails

Agora no modHandleData procure o cód: 
Código:
Private Sub HandleTarget(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

E antes do exit sub adicione isso:
Código:
DrawTargetDetails

A parte do cód esta pronta agora crie uma PictureBox com a seguinte configuração:
Nome: infonpc
Visible: false
Dentro dessa PictureBox que criamos no passo anterior crie 3 Label com as seguintes configurações:
Nome da primeira label: infoa
Nome da segunda label: infob
Nome da terceira label: infoc
E pronto agora basta você personalizar da forma que achar melhor.
Se for usar de os devidos créditos a mim por criar, não postar em outro fórum, tutorial exclusivo da ALDEIARPG.
Kies
Kies
Diva
Diva

Mensagens : 1155
Créditos : 124

Ficha do personagem
Nível: 1
Experiência:
[EO DX7] Mostrar detalhe do alvo Left_bar_bleue0/0[EO DX7] Mostrar detalhe do alvo Empty_bar_bleue  (0/0)
Vida:
[EO DX7] Mostrar detalhe do alvo Left_bar_bleue30/30[EO DX7] Mostrar detalhe do alvo Empty_bar_bleue  (30/30)

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