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