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


    [EO DX7] Mostrar detalhe do alvo

    Kies
    Kies
    Diva
    Diva


    Mensagens : 1154
    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)

    [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.

      Data/hora atual: Sex Abr 26, 2024 10:03 am