Bom antes de tudo você precisa ter o sistema de PDL ou não =P

Bom vamos la , crie uma Label chamada de lblPoderAdd depois procure por:

Código:

' ::::::::::::::::::::::::::
    ' :: Player points packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "playerpoints" Then
        Player(MyIndex).POINTS = Val(Parse(1))
        frmMirage.lblPoints.Caption = Int(Val(Parse(1)) / 4) & " pontos de poder de luta"
        Exit Sub
    End If

e logo abaixo adicione isso:

Código:

If Parse(0) = "poderadd" Then
        frmMirage.lblPoderAdd.Caption = Parse(1)
        Exit Sub
    End If

Pronto Client feito agora Servidor , Procure por:

Código:

' Change target
                    Player(Index).Target = i
                    Player(Index).TargetType = TARGET_TYPE_PLAYER
                    Call PlayerMsg(Index, "Seu alvo agora é " & GetPlayerName(i) & ".", Yellow)
                    Exit Sub
                End If

E então deixe assim:

Código:

' Change target
                    Player(Index).Target = i
                    Player(Index).TargetType = TARGET_TYPE_PLAYER
                    Call PlayerMsg(Index, "Seu alvo agora é " & GetPlayerName(i) & ".", Yellow)
                    Call SendDataTo(Index, "poderadd" & SEP_CHAR & GetPlayerstr(i) + GetPlayerDEF(i) + GetPlayerSPEED(i) + GetPlayerMAGI(i) & SEP_CHAR & END_CHAR)
                    Exit Sub
                End If

E isso Pessoal

:o

Pronto boa sorte.

Obs: Esse Tuturial nao eu quem fez por isso os credito e desconhecido
e creditos a mim por apostalo

creditos: lucas lopo
ADM Geração
Boasfesta

Sou novato , em programação e scripts poderia dizer um pouco mais detalhadamnete onde procura, onde faz a label e como faz a label, sou novato com VB

GustavoNunes escreveu:Sou novato , em programação e scripts poderia dizer um pouco mais detalhadamnete onde procura, onde faz a label e como faz a label, sou novato com VB

Label = "A" Que esta no lado
<--

Ja chegou revivendo Tópicos... E usou o Método que te ensinei uahsuahuhaus.

Beijos ~
Tio Myke