Lucas Roberto Administrador
Mensagens : 711
| Assunto: [EEB]SCOUTER Sáb 28 Ago 2010, 21:29 | |
| 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 Pronto boa sorte. Obs: Esse Tuturial nao eu quem fez por isso os credito e desconhecido e creditos a mim por apostalo - Código:
-
creditos: lucas lopo ADM Geração Boasfesta Lost - Style Por apostar
Última edição por Leon em Ter 07 Dez 2010, 12:10, editado 1 vez(es) | |
|
Convidado Convidado
| Assunto: Re: [EEB]SCOUTER Sáb 28 Ago 2010, 21:37 | |
| |
|
Convidado Convidado
| Assunto: Re: [EEB]SCOUTER Dom 26 Jun 2011, 15:15 | |
| |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [EEB]SCOUTER Dom 26 Jun 2011, 15:54 | |
| '-' Olha esta imagem fica no Painel que se Chama General <<< [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] | |
|
Conteúdo patrocinado
| Assunto: Re: [EEB]SCOUTER | |
| |
|