Suporte ao desenvolvimento de jogos!


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

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

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

    Mensagem por thales12 em Ter Out 18, 2011 11:55 am

    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: oq foi adicionado de novo ?

    Isso q esta dentro da spoiler abaixo
    Spoiler:
    Código:

       
        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
               

    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 ! :)

    Fim ! :)

    Simples, Util e facil ! :)

    Créditos: A Mim Thales12


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

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

    Mensagem por BrunoFox em Ter Out 18, 2011 12:05 pm

    Legal, vou por depois, ia se legal se fosse ctrl + seta tipo tibia ;x ctrl é atk dai nao daria... entao shift xD


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

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

    Mensagem por thales12 em Ter Out 18, 2011 1:07 pm

    acho q conssigo fazer .. quer q eu fassa e poste aki .. ?


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

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

    Mensagem por BrunoFox em Ter Out 18, 2011 11:42 pm

    Se conseguir e postar eu agradeço muito, acho massa e interesante o negocio de virar, é util!


    _________________
    avatar
    Ian
    Ocasional
    Ocasional

    Mensagens : 214
    Créditos : 26

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

    Mensagem por Ian em Sab Nov 26, 2011 4:04 pm

    arrume os creditos novamente rsrs se mi lembro bem esse tutorial e bem antigo foi postado por um menbro da toucht ;D
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

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

    Mensagem por BrunoFox em Dom Nov 27, 2011 12:33 am

    Thales conseguiu fazer com shift la...?


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

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

    Mensagem por thales12 em Ter Nov 29, 2011 1:23 am

    Jian se tu chegar em mais 1 tutorial meu q os creditos esteja a mim e tu falar q nao e meu, tu vai ver o proprio diabo na tua frente !
    to cançando de ir no meu topico e ver vc dizendo isso, se tem na touch postado ou nao "FODA-SE" eu nao entro na touch nao sei ingles, e nao copiei nada, Se tem tuto la, entre e veja se e igual, e veja a data postada dos 2 !

    @STAFF = staff caso queira me punir pelo palavrão fique avontade .. pos sei q errei

    @Deidara, Fiz sim vou postar para vc amanha jae ?


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Ian
    Ocasional
    Ocasional

    Mensagens : 214
    Créditos : 26

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

    Mensagem por Ian em Ter Nov 29, 2011 10:52 am

    desculpe amigo se voce não aguenta averdade mais 90% dos tutorial que voce posta ou são copiados ou voce ripo não tou reclamando dissu apenas arrume os creditos dario no mesmo alguem roubar algo seu não dizer que era seu antis de vender mais se voce se acha no direito de roubar o trabalahos dos outros e dizer que foi voce que fez não vou dar um unico post nos seus topicos roubados - desculpa a staff
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

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

    Mensagem por BrunoFox em Ter Nov 29, 2011 11:46 am

    Blz thales... Ian só pq o tutorial dele tem no touch quer dizer que ele copiou? ele não sabe ingles e vai copiar e traduzir poracaso mano? vc ja falou em 300 topicos dele que eu vi se ele copiou blz mano avisa alguem sei la velho pq ja é idiotice isso ficar falando em todos os topicos '

    @Edit

    antes de falar que ele pode ter usado google tradutor saiba que a tradução do google tradutor ta uma bosta traduzindo tudo errado...


    @Edit2

    ele ja postou tantos sistemas é impossivel que ele não saiba e tenha copiado e.e ''


    _________________
    avatar
    Ian
    Ocasional
    Ocasional

    Mensagens : 214
    Créditos : 26

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

    Mensagem por Ian em Ter Nov 29, 2011 12:14 pm

    não digo mais nada nem dele nem de nimguem mais que eu conheço thales eu conheço desculpe ao os menbros do forum e a staff...

    Conteúdo patrocinado

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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Fev 17, 2018 6:02 pm