[ALL]Selector De Char
+10
V-Force
pedrinho123540
YexPutinho
Batista
extreme
Gelinho
celiojedi
Karlos
Zeus
Lucas Lôpo
14 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
Página 1 de 2 • 1, 2 
[ALL]Selector De Char
por Lucas Lôpo Seg 01 Fev 2010, 16:26
Olá pessoal bom estou trazendo pra MMORPGBR um selector de Char que eu desenvolvi então se tiverem com duvidas ou algo do tipo pode postar
nesse topico e pesso para aqueles que postarem em outro forum para permanecer com os devidos creditos bom vamos deixar de conversa
e vamos ao trabalho...
Client~Side
No client~side você fara o seguinte, vá na frmNewChar crie um timer com o seguinte nome timCharPic, duas pic com o nome de picBack e picForward , uma label com o nome de lblSpriteNo, e uma outra pic com o nome de picChars.Bom acho que é isso ,
vamos para o proximo passo.
Continuando na frmNewChar procure pela pic Picpic e altere o nome dela para picChar.
Fazendo isso procure pelo Timer_1 que vai tar mas ou menos assim!!
Deixe assim:
Dê dois cliques no timCharPic e deixe-o assim:
Agora dê dois cliques no picBack e deixe-o assim:
Agora faremos isso no picForward deixe-o assim:
Na Private Sub Form_Load() abaixo de :
Adicione isso:
No começo da frmNewChar procure por isso:
E entao abaixo adicione isso:
Agora vamos para o GameLogic
No final do GameLogic adicione essa Public:
Agora na Case MENU_STATE_ADDCHARela estara assim:
Deixe-a assim:
Imagem 1 tela enteira da frmNewChar | Imagem 2 no jogo
Bom então acho que é so isso ^^ aproveitem bem!! espero que tenha ajudado alguem!!!
Creditos : Lµkŧツ
Se tiver faltando alguma coisa me falem ^^
nesse topico e pesso para aqueles que postarem em outro forum para permanecer com os devidos creditos bom vamos deixar de conversa
e vamos ao trabalho...
Client~Side
No client~side você fara o seguinte, vá na frmNewChar crie um timer com o seguinte nome timCharPic, duas pic com o nome de picBack e picForward , uma label com o nome de lblSpriteNo, e uma outra pic com o nome de picChars.Bom acho que é isso ,
vamos para o proximo passo.
Continuando na frmNewChar procure pela pic Picpic e altere o nome dela para picChar.
Fazendo isso procure pelo Timer_1 que vai tar mas ou menos assim!!
- Código:
Private Sub Timer1_Timer()
If cmbClass.ListIndex < 0 Then Exit Sub
Picpic.Width = SIZE_X
Picpic.Height = SIZE_Y
Picture4.Width = SIZE_X + 4
Picture4.Height = SIZE_Y + 4
If optMale.Value = True Then
Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).MaleSprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
Else
Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).FemaleSprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
End If
End Sub
Deixe assim:
- Código:
Private Sub Timer1_Timer()
' If cmbClass.ListIndex < 0 Then Exit Sub
'Picpic.Width = SIZE_X
'Picpic.Height = SIZE_Y
'Picture4.Width = SIZE_X + 4
'Picture4.Height = SIZE_Y + 4
'If optMale.Value = True Then
' Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).MaleSprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
' Else
' Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).FemaleSprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
'End If
End Sub
Dê dois cliques no timCharPic e deixe-o assim:
- Código:
Private Sub timCharPic_Timer()
Call CharGenBltSprite(spriteArr(lngNumber), Val(MoveArr(lngCounter)))
lblSpriteNo.Caption = spriteArr(lngNumber)
lngCounter = lngCounter + 1
If lngCounter >= UBound(MoveArr) Then
lngCounter = 0
End If
End Sub
Agora dê dois cliques no picBack e deixe-o assim:
- Código:
lngNumber = lngNumber - 1
If lngNumber < 0 Then lngNumber = 0
lngCounter = 12
Call CharGenBltSprite(spriteArr(lngNumber), Val(MoveArr(lngCounter)))
lblSpriteNo.Caption = spriteArr(lngNumber)
txtName.SetFocus
Agora faremos isso no picForward deixe-o assim:
- Código:
lngNumber = lngNumber + 1
If lngNumber > UBound(spriteArr) Then lngNumber = UBound(spriteArr)
lngCounter = 12
Call CharGenBltSprite(spriteArr(lngNumber), Val(MoveArr(lngCounter)))
lblSpriteNo.Caption = spriteArr(lngNumber)
txtName.SetFocus
Na Private Sub Form_Load() abaixo de :
- Código:
Picsprites.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
Adicione isso:
- Código:
picChars.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
lngCounter = 12
moveStr = "0,1,0,1,0,1,0,1,0,1,0,1,3,4,3,4,3,4,3,4,3,4,3,4,6,7,6,7,6,7,6,7,6,7,6,7,9,10,9,10,9,10,9,10,9,10,9,10"
MoveArr = Split(moveStr, ",")
spriteStrM = "0,1,6,7,14,16,17,19,23,25,36,43,53,69,108,109,110,156,172,225"
spriteStrF = "32,33,34,35,42,44,54,66,81,82,83,151,164,168,190"
spriteArr = Split(spriteStrM, ",")
No começo da frmNewChar procure por isso:
- Código:
Option Explicit
Public animi As Long
E entao abaixo adicione isso:
- Código:
Private lngCounter As Long
Private lngNumber As Long
Private MoveArr() As String
Private moveStr As String
Dim spriteArr() As String
Dim spriteStrM As String
Dim spriteStrF As String
Agora vamos para o GameLogic
No final do GameLogic adicione essa Public:
- Código:
Public Sub CharGenBltSprite(ByVal Number As Long, ByVal count As Long)
'Call BitBlt(frmNewChar.picChar.hdc, 0, 0, 32, 32, frmNewChar.picinit.hdc, 0, 0, SRCCOPY)
Call StretchBlt(frmNewChar.picChar.hdc, 16, 16, PIC_X, PIC_Y, frmNewChar.picChars.hdc, count * PIC_X, _
Number * PIC_Y, PIC_X, PIC_Y, SRCCOPY)
'Call TransparentBlt(frmNewChar.picChar.hdc, 0, 0, PIC_X * 2, PIC_Y * 2, frmNewChar.picChars.hdc, count * PIC_X, _
number * PIC_Y, PIC_X, PIC_Y, RGB(0, 0, 0))
End Sub
Agora na Case MENU_STATE_ADDCHARela estara assim:
- Código:
Case MENU_STATE_ADDCHAR
frmNewChar.Hide
If ConnectToServer = True Then
Call SetStatus("Conectado, enviando pedido de criação de personagem...")
If frmNewChar.optMale.Value = True Then
Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1)
Else
Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1)
End If
End If
Deixe-a assim:
- Código:
Case MENU_STATE_ADDCHAR
frmNewChar.Visible = False
If ConnectToServer = True Then
Call SetStatus("Connected, sending character addition data...")
If frmNewChar.optMale.value = True Then
Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1, Val(frmNewChar.lblSpriteNo.Caption))
Else
Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1, Val(frmNewChar.lblSpriteNo.Caption))
End If
End If
Imagem 1 tela enteira da frmNewChar | Imagem 2 no jogo
Bom então acho que é so isso ^^ aproveitem bem!! espero que tenha ajudado alguem!!!
Creditos : Lµkŧツ
Se tiver faltando alguma coisa me falem ^^
Lucas Lôpo- Membro Veterano
- Mensagens : 833
Zeus- Membro Vitalicio
- Mensagens : 711
Re: [ALL]Selector De Char
por Lucas Lôpo Ter 02 Fev 2010, 18:23
Se voce prestar um pouco mas de atençao voce vera que contem screen
so clicar no nome xD
so clicar no nome xD
Lucas Lôpo- Membro Veterano
- Mensagens : 833
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: [ALL]Selector De Char
por celiojedi Ter 02 Fev 2010, 20:09
Valeu era o que eu precisava... dei um credito !
celiojedi- Novato
- Mensagens : 32
Re: [ALL]Selector De Char
por Lucas Lôpo Ter 02 Fev 2010, 20:18
Vlw rapaziada precisando tamos aew xD
Lucas Lôpo- Membro Veterano
- Mensagens : 833
Gelinho- Membro Junior
- Mensagens : 64
Lucas Lôpo- Membro Veterano
- Mensagens : 833
extreme- Membro
- Mensagens : 213
Re: [ALL]Selector De Char
por Gelinho Seg 08 Fev 2010, 21:22
Sera que eu fis algo errado? n ta dando de compilar da um erro no (Call SendAddChar) no (Case MENU_STATE_ADDCHAR) oq sera? 
Gelinho- Membro Junior
- Mensagens : 64
BatistaBanido
- Mensagens : 16
YexPutinho- Novato
- Mensagens : 20
Re: [ALL]Selector De Char
por Lucas Lôpo Qui 29 Abr 2010, 22:34
Nunca testei mas da uma olhada aew =D
Lucas Lôpo- Membro Veterano
- Mensagens : 833
Re: [ALL]Selector De Char
por pedrinho123540 Seg 20 Set 2010, 12:31
affew, num ta funcionando pra eclipse
alguem ae pode cria um selector de char pra eclipse baseado nesse? *-*
alguem ae pode cria um selector de char pra eclipse baseado nesse? *-*
pedrinho123540- Novato
- Mensagens : 15
Re: [ALL]Selector De Char
por V-Force Seg 20 Set 2010, 17:54
Oo eu tenho um mas não é baseado nesse
![[ALL]Selector De Char OgAAAL78OepOYaWNDgyvk4zccC2BGCh5RT4f91Qp_T9IOQ7o7kVEmJiE1n1lktY39k7oQpFLqyEiE2IFxiDjjZvEDz8Am1T1UKeMY5fgy4-FZabMKV7EZgHkCoTI](https://2img.net/h/images.orkut.com/orkut/photos/OgAAAL78OepOYaWNDgyvk4zccC2BGCh5RT4f91Qp_T9IOQ7o7kVEmJiE1n1lktY39k7oQpFLqyEiE2IFxiDjjZvEDz8Am1T1UKeMY5fgy4-FZabMKV7EZgHkCoTI.jpg)
mas...pena que não posso postar porque é questão de diferencial de games
o meu sistema serve tanto quanto pra elysium e pra eclipse
mas...pena que não posso postar porque é questão de diferencial de games
o meu sistema serve tanto quanto pra elysium e pra eclipse
V-Force- Administrador V-Force
- Mensagens : 933
pedrinho123540- Novato
- Mensagens : 15
guuh- Membro Veterano
- Mensagens : 1187
Re: [ALL]Selector De Char
por gin Qui 23 Set 2010, 16:35
esse ta legal mais não deixa de esta bugado xD!
gin- Membro Vitalicio
- Mensagens : 530
guuh- Membro Veterano
- Mensagens : 1187
Re: [ALL]Selector De Char
por Sentoukhan Sex 24 Set 2010, 08:25
Teria como alguem Modifica-lo pra que possa ser usado em eclipse 
Sentoukhan- Membro
- Mensagens : 224
Re: [ALL]Selector De Char
por guuh Sex 24 Set 2010, 11:10
talvez, mais a pessoa tem que saber meecher no elysium e no eclipse
guuh- Membro Veterano
- Mensagens : 1187
Re: [ALL]Selector De Char
por V-Force Sex 24 Set 2010, 11:31
U.u tem sim como modificar para eclipse sim é soh transportar(traduzir) os comando do elysium para o eclipse
V-Force- Administrador V-Force
- Mensagens : 933
Re: [ALL]Selector De Char
por Sentoukhan Sex 24 Set 2010, 17:20
O "Teria como alguem Modifica-lo pra que possa ser usado em eclipse"
Foi No intuito de dizer se alguem podia fazer isso aki no forum criando 1 topico na area de eclipse com esse sistema.....Pq preciso dele *-* e sou nb pra modifica u.u
Foi No intuito de dizer se alguem podia fazer isso aki no forum criando 1 topico na area de eclipse com esse sistema.....Pq preciso dele *-* e sou nb pra modifica u.u
Sentoukhan- Membro
- Mensagens : 224
Re: [ALL]Selector De Char
por St4rk Sex 24 Set 2010, 17:38
Isso é um selector sprite fracasado fikdik, eu faço selector sprite com os pés, bleach pra min já é café com leite.
St4rk- Membro de Honra
- Mensagens : 2251
-
Re: [ALL]Selector De Char
por guuh Sex 24 Set 2010, 17:55
eu mesmo faria pra eclipse se soubesse usa-lo, pois nao e dificil criar esse sistema
guuh- Membro Veterano
- Mensagens : 1187
Página 1 de 2 • 1, 2
Tópicos semelhantesMMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
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