Templo RPG Maker
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

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

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

RenanR

RenanR
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)

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

GustavoNunes

GustavoNunes
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

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

SrLoks

SrLoks
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
<--

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

Myke ~

Myke ~
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

Conteúdo patrocinado


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

Permissões neste sub-fórum
Não podes responder a tópicos