Suporte ao desenvolvimento de jogos!


    [GF]Cartão de Informação

    Compartilhe
    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1235
    Créditos : 142

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    [GF]Cartão de Informação

    Mensagem por Dooolly em Qua Fev 12, 2014 11:31 am


    Cartão de Informação do Player

    A Pedido do Membro Level Max eu fiz esse sistema.
    Exibe as informações do player quando seleciona o Target e da um clique com o botão direito.



    Client~Side

    Crie uma PictureBox:
    Nome: picPlayer
    Visible = False

    Crie 13 Label Dentro dessa Pic:
    1: Name =  lblLevelP
    1: Caption = Level:
    2: Name = lblClasseP
    2: Caption = Classe:
    3: Name = lblVital1
    3: Caption = HP:
    4: Name = lblVital2
    4: Caption = MP:
    5 a 9
    Name: lblStatusP
    Index: 1 ao 5
    Captions:
    (1) - For:
    (2) - Def:
    (3) - Int:
    (4) - Agi:
    (5) - Will:

    10 a 13
    Name: lblStatusPN
    Index: 1 ao 5
    Captions: Tudo "0"

    Agora Dê um DubloClick na picScreen e Procure Por:
    Código:
    ElseIf Button = vbRightButton Then
                If ShiftDown Then
                    ' admin warp if we're pressing shift and right clicking
                    If GetPlayerAccess(MyIndex) >= 2 Then AdminWarp CurX, CurY
                End If

    Abaixo Add:
    Código:
    If myTarget > 0 Then
                 If myTargetType = TARGET_TYPE_PLAYER Then
                  If CurX = Player(myTarget).x And CurY = Player(myTarget).y Then
                   If x + picPlayer.Width > frmMain.ScaleWidth Then
                    picPlayer.Left = x - picPlayer.Width
                   Else
                    picPlayer.Left = x
                   End If
                   If y + picPlayer.Height > frmMain.ScaleHeight Then
                    picPlayer.Top = y - picPlayer.Height
                   Else
                    picPlayer.Top = y
                   End If
                   picPlayer.Visible = Not picPlayer.Visible
                   lblLevelP.Caption = "Level: " & Player(myTarget).Level
                   lblClasseP.Caption = "Classe: " & Trim(Class(Player(myTarget).Class).name)
                   lblVital1.Caption = "HP: " & Player(myTarget).Vital(1) & "/" & Player(myTarget).MaxVital(1)
                   lblVital2.Caption = "MP: " & Player(myTarget).Vital(2) & "/" & Player(myTarget).MaxVital(2)
                  dim i as long
                   For i = 1 To Stats.Stat_Count - 1
                    lblStatusPN(i).Caption = Player(myTarget).Stat(i)
                   Next
                  End If
                 End If
                End If

    Depois na picScreen_MouseMove Procure Por:
    Código:
    picSpellDesc.Visible = False

    Abaixo Add:
    Código:
    If myTarget > 0 Then
         If Not CurX = Player(myTarget).x And CurY = Player(myTarget).y Then
          picPlayer.Visible = False
         End If
        End If

    Pronto!


    Qualquer Erro Poste Aqui...

    Creditos
    Dooolly - Por Criar e Postar


    Última edição por Dooolly em Qua Fev 12, 2014 1:15 pm, editado 1 vez(es)
    avatar
    Level Max
    Iniciante
    Iniciante

    Mensagens : 42
    Créditos : 3

    Re: [GF]Cartão de Informação

    Mensagem por Level Max em Qua Fev 12, 2014 12:56 pm

    Deu variable not defined 

    http://prntscr.com/2rts8l


    _________________
    Mundo Poderoso (MP) by: Level Max Games Wink

    Ajude a divulgar meu projeto Wink









    www.tabernarpg.forumeiros.com
    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1235
    Créditos : 142

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: [GF]Cartão de Informação

    Mensagem por Dooolly em Qua Fev 12, 2014 1:15 pm

    faltou uma parte '-'

    só add acima desse
    Código:
    For i = 1 To Stats.Stat_Count - 1

    Código:
    dim i as long

    Atualizei o topico!
    avatar
    Level Max
    Iniciante
    Iniciante

    Mensagens : 42
    Créditos : 3

    Re: [GF]Cartão de Informação

    Mensagem por Level Max em Qua Fev 12, 2014 1:18 pm

    erro dnv:
    Sub or fuction not defined Very Happy

    http://prntscr.com/2rtzqi


    _________________
    Mundo Poderoso (MP) by: Level Max Games Wink

    Ajude a divulgar meu projeto Wink









    www.tabernarpg.forumeiros.com
    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1235
    Créditos : 142

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: [GF]Cartão de Informação

    Mensagem por Dooolly em Qua Fev 12, 2014 1:25 pm

    lá no topico.. acima!

    10 a 13
    Name: lblStatusPN
    Index: 1 ao 5
    Captions: Tudo "0"

     Fury

    esse lbl do 5 ao 9 eh so enfeite..
    avatar
    Level Max
    Iniciante
    Iniciante

    Mensagens : 42
    Créditos : 3

    Re: [GF]Cartão de Informação

    Mensagem por Level Max em Qua Fev 12, 2014 1:39 pm

    ADD skype:

    pablo.willian44


    _________________
    Mundo Poderoso (MP) by: Level Max Games Wink

    Ajude a divulgar meu projeto Wink









    www.tabernarpg.forumeiros.com
    avatar
    Laxus
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1151
    Créditos : 77

    Re: [GF]Cartão de Informação

    Mensagem por Laxus em Qui Fev 13, 2014 6:00 am

    Fico top Dooolly, parabens +1 :)


    _________________
    "Não importa o quão forte o cara é, o que importa é encara-lo de frente sem fraquejar"
                                                                                                                                                        Laxus ~ Fairy Tail

    bejaflo1
    Iniciante
    Iniciante

    Mensagens : 49
    Créditos : 3

    Re: [GF]Cartão de Informação

    Mensagem por bejaflo1 em Qui Fev 13, 2014 11:37 am

    Fico super top mais tem 1 erro Sad
    Não mostra o HP eo MP do outro jogador
    Só o do própio jogador.
    Mais o Level,classe status ta de boa menos o HP e MP
    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1235
    Créditos : 142

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: [GF]Cartão de Informação

    Mensagem por Dooolly em Qui Fev 13, 2014 12:55 pm

    Esse eh o unico problema tentei corrigir mais ñ consegui..
    quando consegui arrumo.

    Dexter
    Iniciante
    Iniciante

    Mensagens : 56
    Créditos : 11

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: [GF]Cartão de Informação

    Mensagem por Dexter em Qui Fev 13, 2014 2:56 pm

    Olá Dooolly, tente usar da seguinte maneira:


    Código:
    MapNpc(NPCNum).Vital(Vitals.HP) & "/" & NPC(MapNpc(NPCNum).num).HP

    Abraços.

    Opa, desculpa pensei que o problema era no NPC, rs.

    Conteúdo patrocinado

    Re: [GF]Cartão de Informação

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Jul 22, 2018 12:00 am