MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[ALL]Menu De Opções²

+10
Rio Absolut
Lendário
Barryaway
HeaD SHoT
goldeen
RafaelS.~
Soad~
extreme
Zeus
Cris~
14 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

[ALL]Menu De Opções² Empty [ALL]Menu De Opções²

Mensagem por Cris~ Sex 30 Abr 2010, 20:20

Pra você ver como vai ficar (:
[ALL]Menu De Opções² Tutoo

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 como você ver na Imagem, 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

Ps.: frmAdd segue anexo no final do post.

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

Ps.: o Tuto do Ki e do Lenon eu so coloquei algumas coisas.

Anexo da frmAdd:
[ALL]Menu De Opções² Rar
frmAdd.rar (723bytes)

Créditos:
•Pipiko (Pelo TUTO completo)
•Lenon(Pelo o TUTO do KI)
•MMORPGBR(Lugar onde foi postado o TUTO)


Última edição por Supremo-KaKaRoTo em Sáb 31 Jul 2010, 06:22, editado 5 vez(es)
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Zeus Sex 30 Abr 2010, 21:44

Muito bom cara !
Zeus
Zeus
Membro Vitalicio
Membro Vitalicio

Mensagens : 711

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Cris~ Sex 30 Abr 2010, 21:51

Nadas Smile
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por extreme Sáb 01 maio 2010, 09:22

Ótimo!
extreme
extreme
Membro
Membro

Mensagens : 213

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Soad~ Sáb 01 maio 2010, 12:28

Ótimo..melhor ainda por que você não se esqueceu dos créditos.. vlw
reputado...
Soad~
Soad~
Membro
Membro

Mensagens : 231

http://twitter.com/#!/kshcold

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por RafaelS.~ Dom 02 maio 2010, 23:11

Obrigado por colocar os creditos Very Happy
RafaelS.~
RafaelS.~
Novato
Novato

Mensagens : 48

http://rafaelsoares.rg3.net/

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Cris~ Seg 03 maio 2010, 11:30

Very Happy
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por goldeen Sex 30 Jul 2010, 17:29

Eu Nao Consegui Baixar A frmAdd
poderia reupar agradecido
goldeen
goldeen
Membro Junior
Membro Junior

Mensagens : 54

http://www. dbzoverfly.com

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Cris~ Sáb 31 Jul 2010, 06:23

pronto Amigo... Funcionando Direitinho *-*
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por HeaD SHoT Sáb 31 Jul 2010, 07:41

Otimo tava precisando
HeaD SHoT
HeaD SHoT
Novato
Novato

Mensagens : 11

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por goldeen Sáb 31 Jul 2010, 15:53

Supremo-KaKaRoTo escreveu:pronto Amigo... Funcionando Direitinho *-*

agradecido +1


Edit

Como Faço Pra Aumenta A tabela De Pontos
Pq So Adiciona Pontos De 1000 em 1000
Como Faço Pra Aumenta Esse Valor
goldeen
goldeen
Membro Junior
Membro Junior

Mensagens : 54

http://www. dbzoverfly.com

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Barryaway Sáb 14 Ago 2010, 11:26

q botao aperta pra abrir ? fiz tudo direito so falta o botao pra abrir.
Barryaway
Barryaway
Novato
Novato

Mensagens : 13

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Lendário Sáb 14 Ago 2010, 11:37

Esc
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Rio Absolut Ter 17 Ago 2010, 22:08

é possivel Criar 1 Botão que abra esse menu de opções pois queria fazer isso juntamente com o tuto de transporte para mapa por Commandbutton


assim vc clica no botão abre 1 caixa com os nomes das cidades .
Rio Absolut
Rio Absolut
Membro Vitalicio
Membro Vitalicio

Mensagens : 655

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Flips03 Qua 18 Ago 2010, 13:48

Fiz e deu tudo certo!
Porém eu editei algumas coisas, pois queria o meu menu um pouco diferente ^^

So que de qualquer forma:
+1 Cred aew...
Flips03
Flips03
Membro
Membro

Mensagens : 150

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Cris~ Qui 19 Ago 2010, 06:24

Brigado ^^ Mais Tenque Agradeçer Mesmo Ao Rafaels Smile
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por goldeen Qua 29 Set 2010, 20:47

gostaria de saber tipo como que eu faço pra poder colocar na tabela pra add tipo 100k
por quando coloco ele nao add os ponto so add qando coloco 1000 pra baixo
goldeen
goldeen
Membro Junior
Membro Junior

Mensagens : 54

http://www. dbzoverfly.com

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por guuh Qua 29 Set 2010, 21:09

muito bom
guuh
guuh
Membro Veterano
Membro Veterano

Mensagens : 1187

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por edinho2pac Qui 30 Set 2010, 03:37

Tem como voce posta um sistema pra muda de classe pra eu coloca no menu ?
edinho2pac
edinho2pac
Novato
Novato

Mensagens : 24

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Ks_dark Sex 29 Out 2010, 19:10

mas como eu coloco o anexo do add pontos to fasendo isso para o do add points \Very Happy/
Ks_dark
Ks_dark
Membro Junior
Membro Junior

Mensagens : 50

http://roxdbz.tk

Ir para o topo Ir para baixo

[ALL]Menu De Opções² Empty Re: [ALL]Menu De Opções²

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

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