[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
Página 1 de 1
[ALL]Menu De Opções²
por Cris~ Sex 30 Abr 2010, 20:20
Pra você ver como vai ficar (:
![[ALL]Menu De Opções² Tutoo](https://2img.net/r/ihimizer/img504/4623/tutoo.jpg)
Vamos começar
Primeiro crie uma pic na frmMirage, coloque o nome dela de PicOpcoes;
Agora procure por:
De um enter e adicione:
Agora na pic faça 4 CommandButton como você ver na Imagem, no primeiro commandbutton de o nome de:
Da dois cliques nele e adiciona:
Agora no segundo commandbutton de o nome de:
De dois cliques nele e adicione:
Ps.: frmAdd segue anexo no final do post.
Agora no terceiro commandbutton de o nome de:
De dois cliques nele e adicione:
De dois cliques e adicione:
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:
Criei uma label embaixo da label "Sua Classe" e de o nome de:
Criei uma label embaixo da label "Seu Ki" e de o nome de:
Criei uma label embaixo da label "Seu level" e de o nome de:
Agora procure no ModClientTCP e procure por:
Mude ela toda para:
Server-Side
no modServerTCP procure por:
Mude para:
Ps.: o Tuto do Ki e do Lenon eu so coloquei algumas coisas.
Anexo da frmAdd:
![[ALL]Menu De Opções² Rar](https://2img.net/h/www.prodev.com.br/public/style_extra/mime_types/rar.gif)
frmAdd.rar (723bytes)
Créditos:
•Pipiko (Pelo TUTO completo)
•Lenon(Pelo o TUTO do KI)
•MMORPGBR(Lugar onde foi postado o TUTO)
Vamos começar
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
- 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
- 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:
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~- Membro Veterano
- Mensagens : 1574
Zeus- Membro Vitalicio
- Mensagens : 711
Re: [ALL]Menu De Opções²
por Soad~ Sáb 01 maio 2010, 12:28
Ótimo..melhor ainda por que você não se esqueceu dos créditos.. 
reputado...
reputado...
Soad~- Membro
- Mensagens : 231
-
RafaelS.~- Novato
- Mensagens : 48
-
Re: [ALL]Menu De Opções²
por goldeen Sex 30 Jul 2010, 17:29
Eu Nao Consegui Baixar A frmAdd
poderia reupar agradecido
poderia reupar agradecido
goldeen- Membro Junior
- Mensagens : 54
-
Cris~- Membro Veterano
- Mensagens : 1574
HeaD SHoT- Novato
- Mensagens : 11
Re: [ALL]Menu De Opções²
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- Membro Junior
- Mensagens : 54
-
Re: [ALL]Menu De Opções²
por Barryaway Sáb 14 Ago 2010, 11:26
q botao aperta pra abrir ? fiz tudo direito so falta o botao pra abrir.
Barryaway- Novato
- Mensagens : 13
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Menu De Opções²
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 .
assim vc clica no botão abre 1 caixa com os nomes das cidades .
Rio Absolut- Membro Vitalicio
- Mensagens : 655
Re: [ALL]Menu De Opções²
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...
Porém eu editei algumas coisas, pois queria o meu menu um pouco diferente ^^
So que de qualquer forma:
+1 Cred aew...
Flips03- Membro
- Mensagens : 150
Re: [ALL]Menu De Opções²
por Cris~ Qui 19 Ago 2010, 06:24
Brigado ^^ Mais Tenque Agradeçer Mesmo Ao Rafaels 
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Menu De Opções²
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
por quando coloco ele nao add os ponto so add qando coloco 1000 pra baixo
goldeen- Membro Junior
- Mensagens : 54
-
guuh- Membro Veterano
- Mensagens : 1187
Re: [ALL]Menu De Opções²
por edinho2pac Qui 30 Set 2010, 03:37
Tem como voce posta um sistema pra muda de classe pra eu coloca no menu ?
edinho2pac- Novato
- Mensagens : 24
Re: [ALL]Menu De Opções²
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 \/
/
Ks_dark- Membro Junior
- Mensagens : 50
-
Tópicos semelhantes» [Disponibilização] Gui Menu
» [Design] Menu
» [ALL]Menu de Opção
» tipo um menu
» Interface De Menu Pra EO
» [Design] Menu
» [ALL]Menu de Opção
» tipo um menu
» Interface De Menu Pra EO
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z