Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[GF]Cartão de Informação
+3
Laxus
Level Max
Dooolly
7 participantes
Página 1 de 2
Página 1 de 2 • 1, 2
[GF]Cartão de Informação
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)
Re: [GF]Cartão de Informação
Deu variable not defined
http://prntscr.com/2rts8l
http://prntscr.com/2rts8l
_________________
Mundo Poderoso (MP) by: Level Max Games
Ajude a divulgar meu projeto
www.tabernarpg.forumeiros.com
Level Max- Iniciante
- Mensagens : 42
Créditos : 3
Re: [GF]Cartão de Informação
faltou uma parte '-'
só add acima desse
Atualizei o topico!
só add acima desse
- Código:
For i = 1 To Stats.Stat_Count - 1
- Código:
dim i as long
Atualizei o topico!
Re: [GF]Cartão de Informação
erro dnv:
Sub or fuction not defined
http://prntscr.com/2rtzqi
Sub or fuction not defined
http://prntscr.com/2rtzqi
_________________
Mundo Poderoso (MP) by: Level Max Games
Ajude a divulgar meu projeto
www.tabernarpg.forumeiros.com
Level Max- Iniciante
- Mensagens : 42
Créditos : 3
Re: [GF]Cartão de Informação
lá no topico.. acima!
10 a 13
Name: lblStatusPN
Index: 1 ao 5
Captions: Tudo "0"
esse lbl do 5 ao 9 eh so enfeite..
10 a 13
Name: lblStatusPN
Index: 1 ao 5
Captions: Tudo "0"
esse lbl do 5 ao 9 eh so enfeite..
Re: [GF]Cartão de Informação
ADD skype:
pablo.willian44
pablo.willian44
_________________
Mundo Poderoso (MP) by: Level Max Games
Ajude a divulgar meu projeto
www.tabernarpg.forumeiros.com
Level Max- Iniciante
- Mensagens : 42
Créditos : 3
Re: [GF]Cartão de Informação
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
Laxus- Aldeia Friend
- Mensagens : 1150
Créditos : 78
Re: [GF]Cartão de Informação
Fico super top mais tem 1 erro
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
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
bejaflo1- Iniciante
- Mensagens : 49
Créditos : 3
Re: [GF]Cartão de Informação
Esse eh o unico problema tentei corrigir mais ñ consegui..
quando consegui arrumo.
Re: [GF]Cartão de Informação
Olá Dooolly, tente usar da seguinte maneira:
Abraços.
Opa, desculpa pensei que o problema era no NPC, rs.
- Código:
MapNpc(NPCNum).Vital(Vitals.HP) & "/" & NPC(MapNpc(NPCNum).num).HP
Abraços.
Opa, desculpa pensei que o problema era no NPC, rs.
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
Página 1 de 2 • 1, 2
Tópicos semelhantes
» Cartão internacional
» Meu Jogos [Amlecdeck]
» Compre passaportes, carteira de motorista, autorização de residência, cartão de identidade
» [RESOLVIDO] - informação sobre um site...
» [Pedido] Teleporte com informação para Party
» Meu Jogos [Amlecdeck]
» Compre passaportes, carteira de motorista, autorização de residência, cartão de identidade
» [RESOLVIDO] - informação sobre um site...
» [Pedido] Teleporte com informação para Party
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
|
|