InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se
Os que mais criam tópicos
Sonart
 
Alenaldo
 
Over~
 
Warrior
 
Caio~
 
SSO
 
newbie123
 
Kaue
 
Jim
 
yuri godinho
 
Conectar-se
Nome de usuário:
Senha:
Conexão automática: 
:: Esqueci minha senha

Compartilhe | 
 

 Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )

Ir em baixo 
AutorMensagem
Alenaldo
Membro
Membro


Mensagens : 38
Moeda : 104
Pontos : 4
Data de inscrição : 05/01/2013
Idade : 25
Localização : São luis MA

MensagemAssunto: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Sab Jan 05, 2013 12:14 pm

Sistema totalmente Client~Side, abra o Client~Side vai em frmMain na parte do codigo procure por:


Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)


e mude a sub toda para:


Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Select Case KeyCode
   
    Dim OldDir
   
    Case vbKeyEnd
        If Player(MyIndex).Moving = NO Then
                OldDir = GetPlayerDir(MyIndex)
                If Player(MyIndex).Dir = DIR_LEFT Then
                    Call SetPlayerDir(MyIndex, DIR_DOWN)
                    ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
                    Call SetPlayerDir(MyIndex, DIR_DOWN)
                    ElseIf Player(MyIndex).Dir = DIR_UP Then
                    Call SetPlayerDir(MyIndex, DIR_DOWN)
                    If OldDir <> DIR_LEFT Then Call SendPlayerDir
                    End If
                    End If
                   
        Case vbKeyDelete
        If Player(MyIndex).Moving = NO Then
        OldDir = GetPlayerDir(MyIndex)
              If Player(MyIndex).Dir = DIR_UP Then
              Call SetPlayerDir(MyIndex, DIR_LEFT)
              ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
              Call SetPlayerDir(MyIndex, DIR_LEFT)
              ElseIf Player(MyIndex).Dir = DIR_DOWN Then
                    Call SetPlayerDir(MyIndex, DIR_LEFT)
                    If OldDir <> DIR_UP Then Call SendPlayerDir
                End If
            End If
           
            Case vbKeyPageDown
        If Player(MyIndex).Moving = NO Then
        OldDir = GetPlayerDir(MyIndex)
              If Player(MyIndex).Dir = DIR_UP Then
              Call SetPlayerDir(MyIndex, DIR_RIGHT)
              ElseIf Player(MyIndex).Dir = DIR_DOWN Then
              Call SetPlayerDir(MyIndex, DIR_RIGHT)
              ElseIf Player(MyIndex).Dir = DIR_LEFT Then
                    Call SetPlayerDir(MyIndex, DIR_RIGHT)
                    If OldDir <> DIR_UP Then Call SendPlayerDir
                End If
            End If
   
    Case vbKeyHome
        If Player(MyIndex).Moving = NO Then
        OldDir = GetPlayerDir(MyIndex)
              If Player(MyIndex).Dir = DIR_DOWN Then
              Call SetPlayerDir(MyIndex, DIR_UP)
              ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
              Call SetPlayerDir(MyIndex, DIR_UP)
              ElseIf Player(MyIndex).Dir = DIR_LEFT Then
                    Call SetPlayerDir(MyIndex, DIR_UP)
                    If OldDir <> DIR_UP Then Call SendPlayerDir
                End If
            End If
           
        Case vbKeyInsert
            If Player(MyIndex).Access > 0 Then
                picAdmin.Visible = Not picAdmin.Visible
            End If
    End Select
   
    ' hotbar
    For i = 1 To MAX_HOTBAR
        If KeyCode = 111 + i Then
            SendHotbarUse i
        End If
    Next

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "Form_KeyUp", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


OBS²: ao apertar o botão "DELETE" ele vai para o lado "ESQUERDO" ao apertar o botão "END" ele vai para "BAIXO" ao apertar o botão "PAGEDOWN" ele vai para a "DIREITA" ao apertar o botão "HOME" ele vai para "CIMA".

OBS³: ele so muda a direção, o char nao anda ao apertar o botão ele so vira, vira para os lados, cima e baixo ! Smile

Créditos:
Thales12
Eu
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Over~
Moderador.G
Moderador.G
avatar

Mensagens : 149
Moeda : 214
Pontos : 11
Data de inscrição : 04/01/2013

MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Sab Jan 05, 2013 12:16 pm

muito bom cara.
+1REP.

_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Warrior
Admin
Admin
avatar

Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 28

MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Sab Jan 05, 2013 3:46 pm

acho isso não nessesario tipo se fosse pelo wasd seria melhor do que ali>> sacas? mas mesmo assim obrigado por postar
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://revolutionmaker.forumeiros.com
jonny157
Membro
Membro


Mensagens : 4
Moeda : 6
Pontos : 0
Data de inscrição : 09/01/2013

MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Qua Jan 09, 2013 1:58 pm

Um coisa, eu percebi que o personagem vira somente no seu cliente, ou seja, vc vai virar o personagem e para os outros vai continuar a mesma coisa.

Outra coisa, pra quem usa projeteis pode perceber que o personagem não vira, pois o projetil continua indo na mesma direção.

Então o jeito seria enviar o movimento para o servidor tbm, mas ainda não sei como fazer isso. Alguém sabe?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Alenaldo
Membro
Membro


Mensagens : 38
Moeda : 104
Pontos : 4
Data de inscrição : 05/01/2013
Idade : 25
Localização : São luis MA

MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Qua Jan 09, 2013 2:14 pm

jonny157 escreveu:
Um coisa, eu percebi que o personagem vira somente no seu cliente, ou seja, vc vai virar o personagem e para os outros vai continuar a mesma coisa.

Outra coisa, pra quem usa projeteis pode perceber que o personagem não vira, pois o projetil continua indo na mesma direção.

Então o jeito seria enviar o movimento para o servidor tbm, mas ainda não sei como fazer isso. Alguém sabe?

Mano copila seu cliente ja com o sistema inserido e passe o mesmo para seus amigos.

_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
jonny157
Membro
Membro


Mensagens : 4
Moeda : 6
Pontos : 0
Data de inscrição : 09/01/2013

MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   Qua Jan 09, 2013 2:16 pm

Alenaldo eu já fiz isso, e foi ai que eu vi o erro. Se não acredita testa vc mesmo. Wink
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )   

Voltar ao Topo Ir em baixo
 
Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Colocar texto na vertical de baixo para cima!
» personagens para o game maker
» Como colocar um textarea no canpo de perfil
» Texto na Vertical - Baixo para Cima
» Setas cima e baixo !

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
 :: Desenvolvimento de Jogos :: Engines :: Eclipse Origins :: Tutoriais-
Ir para: