Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Sistema de Scouter em 10/4/2012, 01:47

RenanR

avatar
Membro Honorário I
Membro Honorário I
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



Última edição por RenanR em 20/5/2012, 17:05, editado 1 vez(es)





''Não deixe de ganhar o que amanhã não poderá mais..''
Ver perfil do usuário

2 Re: Sistema de Scouter em 11/4/2012, 17:32

GustavoNunes

avatar
Ajudante
Ajudante
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



"Escute... Neste mundo, sempre que houver uma luz, haverá também sombras. Enquanto o conceito de vencedores existir, também deve haver perdedores. O desejo egoísta de querer manter a paz provoca guerras e o ódio nasce para proteger o amor."
Meu Fan? Use:
 
Ver perfil do usuário

3 Re: Sistema de Scouter em 27/10/2012, 02:04

SrLoks

avatar
Membro
Membro
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
<--



Ver perfil do usuário

4 Re: Sistema de Scouter em 27/10/2012, 02:08

Myke ~

avatar
Membro Honorário I
Membro Honorário I
Ja chegou revivendo Tópicos... E usou o Método que te ensinei uahsuahuhaus.

Beijos ~
Tio Myke

Ver perfil do usuário

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum