Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

[ALL]ADD PONTOS "PDL" [ESC]

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

1Tutorial [ALL]ADD PONTOS "PDL" [ESC] em Seg 31 Jan 2011, 11:36

Luucas Robeerto


Fundador
Fundador
Ola eu fico .... da vida quando um pessoa vem falar que quer dbz que nem do forces ou viciados
ou quando quer um sistema paracidos

pow essas pessoas pra mim e um copião de meio tigela....

carai vão aprender criar seu proprios sistemas voce acha que copiando vai dar gente que nem das no deles
nunca se ja tem o sistemas no dele pra que ir no seu...

Pow um cara me pedio para fazer esse sistema cara e muito simples nada de importante mais algumas pessoas e muito cabeça...

Olha e o ultimo pedido que que faço para copiar to forces ou do viciados...

Pow turma vamos fazer uma coisa diferente talvez ate melhor copiar não a chato

Gogo começar

Bom como disse um cara do meu msn pedio para fazer então estou fazendo
ele funfa de seguinte maneira quando voce aperta [ESC] ele aparece um menu de add ponto em PDL

começando

Abra seu cliente source e vai no frmMirage

Primeiro crie uma pic na frmMirage, coloque o nome dela de PicOpcoes;
Agora procure por:

Vamos começar Very Happy

Primeiro crie uma pic na frmMirage, coloque o nome dela de PicOpcoes;
Agora procure por:

Código:
' The Guild Creator
    If KeyCode = vbKeyF4 Then
        If Player(MyIndex).Access > 0 Then
            frmGuild.Show vbModeless, frmMirage
        End If
    End If

De um enter e adicione:
Código:
 ' Opcoes
    If KeyCode = vbKeyEscape Then
        frmMirage.picOpcoes.Visible = True
    End If
Agora procure a Sub Form_Load no FrmMirage e antes do End Sub add:

Código:
frmMirage.picOpcoes.Visible = False

Agora na pic faça 4 CommandButton, no primeiro commandbutton de o nome de:
Código:
cmdGame

Da dois cliques nele e adiciona:
Código:
picOpcoes.Visible = False

Agora no segundo commandbutton de o nome de:
Código:
cmdPontos

De dois cliques nele e adicione:

Código:
frmAdd.Visible = True

Agora no terceiro commandbutton de o nome de:

Código:
cmdOpcoes

De dois cliques nele e adicione:

Código:
picOptions.Visible = True
Agora no quarto commandbutton de o nome de:

Código:
cmdSair

De dois cliques e adicione:


Código:
Dim YesNo As Long
    YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME)
    If YesNo = vbYes Then
    MsgBox ("Obrigado pela preferência, volte sempre")
Call GameDestroy
End If

Agora vamos para a parte das lbl.

Faça agora as 4 lbls.

Seu nome, Sua Classe, Seu Ki, Seu level.

Criei uma label embaixo da label "Seu nome" e de o nome de:


Código:
lblNome

Criei uma label embaixo da label "Sua Classe" e de o nome de:

Código:
lblNomeClasse

Criei uma label embaixo da label "Seu Ki" e de o nome de:

Código:
lblKi

Criei uma label embaixo da label "Seu level" e de o nome de:

Código:
lbll


Agora procure no ModClientTCP e procure por:

Código:
' :::::::::::::::::::::::::
    ' :: Player Stats Packet ::
    ' :::::::::::::::::::::::::

Mude ela toda para:

Código:
' :::::::::::::::::::::::::
    ' :: Player Stats Packet ::
    ' :::::::::::::::::::::::::
    If (Parse(0) = "playerstatspacket") Then
        Dim SubStr As Long, SubDef As Long, SubMagi As Long, SubSpeed As Long
        SubStr = 0
        SubDef = 0
        SubMagi = 0
        SubSpeed = 0
       
        If GetPlayerWeaponSlot(MyIndex) > 0 Then
            SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddStr
            SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddDef
            SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddMagi
            SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddSpeed
        End If
        If GetPlayerArmorSlot(MyIndex) > 0 Then
            SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddStr
            SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddDef
            SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddMagi
            SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddSpeed
        End If
        If GetPlayerShieldSlot(MyIndex) > 0 Then
            SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddStr
            SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddDef
            SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddMagi
            SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddSpeed
        End If
        If GetPlayerHelmetSlot(MyIndex) > 0 Then
            SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddStr
            SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddDef
            SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddMagi
            SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddSpeed
        End If
       
        If SubStr > 0 Then
            frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1)) - SubStr & " (+" & SubStr & ")"
        Else
            frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1))
        End If
        If SubDef > 0 Then
            frmMirage.lblDEF.Caption = "Defesa - " & Val(Parse(2)) - SubDef & " (+" & SubDef & ")"
        Else
            frmMirage.lblDEF.Caption = "Defesa - " & Val(Parse(2))
        End If
        If SubMagi > 0 Then
            frmMirage.lblMAGI.Caption = "Inteligência - " & Val(Parse(4)) - SubMagi & " (+" & SubMagi & ")"
        Else
            frmMirage.lblMAGI.Caption = "Inteligência - " & Val(Parse(4))
        End If
        If SubSpeed > 0 Then
            frmMirage.lblSPEED.Caption = "Agilidade - " & Val(Parse(3)) - SubSpeed & " (+" & SubSpeed & ")"
        Else
            frmMirage.lblSPEED.Caption = "Agilidade - " & Val(Parse(3))
        End If
        frmMirage.lblKi.Caption = Val(Parse(1)) * Val(Parse(2))
        frmMirage.lblEXP.Caption = Val(Parse(6)) & " / " & Val(Parse(5))
       
        frmMirage.shpTNL.Width = (((Val(Parse(6)) / frmMirage.lblEXP.Width) / (Val(Parse(5)) / frmMirage.lblEXP.Width)) * frmMirage.lblEXP.Width)
        frmMirage.lblLevel.Caption = "Level " & Val(Parse(7))
        frmMirage.lblNome.Caption = Trim(Parse(8))
        frmMirage.lblNomeClasse.Caption = Trim(Parse(9))
        frmMirage.lbll.Caption = Trim(Parse(7))
       
        Exit Sub
    End If

Server-Side
no modServerTCP procure por:

Código:
Sub SendStats(ByVal Index As Long)
    Dim Packet As String

    Packet = "PLAYERSTATSPACKET" & SEP_CHAR & GetPlayerstr(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerNextLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & GetPlayerLevel(Index) & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Mude para:

Código:
Sub SendStats(ByVal Index As Long)
    Dim Packet As String

    Packet = "PLAYERSTATSPACKET" & SEP_CHAR & GetPlayerstr(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerNextLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & GetPlayerLevel(Index) & SEP_CHAR & GetPlayerName(Index) & SEP_CHAR & GetClassName(Index) & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub


Bom agora vamos criar a frmAdd

Cria uma form com nome frmAdd e Caption : ADD PDL

Dentro da frmAdd cria um frame qualquer nome
e Caption:Adicionar PDL

dentro da flame cria um label com qualquer nome e
Caption: PDL:

agora crie um TextBox com nome de txt1

do lado do txt1

Crie um botao qualquer nome com Caption: Adicionar

Crique duas veses e coloque:

Código:
Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & txt1 & END_CHAR)

simples e facil...


vai ficar assim olhe
[Você precisa estar registrado e conectado para ver esta imagem.]

Creditos

Lenon
Lucas Roberto






Última edição por DirectX em Qui 07 Abr 2011, 14:58, editado 1 vez(es)


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

2Tutorial Re: [ALL]ADD PONTOS "PDL" [ESC] em Ter 01 Fev 2011, 08:19

Thales12


Membro
Membro
Tutorialzinho grande em ... Smile
Vai ajudar muita gente q usa pdl no jogo !!
Obrigado pelo tuto lucas (Y)

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

3Tutorial Re: [ALL]ADD PONTOS "PDL" [ESC] em Ter 26 Jul 2011, 21:47

giovani18


Membro
Membro
ta e seu ja tive a form do add pontos sem ser pdl como eu faço pra por no esc e so add isso aqui ?

' Opcoes
If KeyCode = vbKeyEscape Then
frmAdd.Visible = True
End If

http://masterdbz.xpg.com.br

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