Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


3 participantes

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

    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue0/0Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (0/0)
    Vida:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue30/30Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (30/30)

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

    Mensagem por thales12 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:

    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 !

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

    Minha Sign:

    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Zkqt5e
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

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

    Mensagem por BrunoFox 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


    _________________
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) CHlkxwf
    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue0/0Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (0/0)
    Vida:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue30/30Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (30/30)

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

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

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


    _________________
    Meu fã ? Meu Amigo ? Entao Use !

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

    Minha Sign:

    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Zkqt5e
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

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

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

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


    _________________
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) CHlkxwf
    Ian
    Ian
    Ocasional
    Ocasional


    Mensagens : 216
    Créditos : 27

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

    Mensagem por Ian Sáb 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
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

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

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

    Thales conseguiu fazer com shift la...?


    _________________
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) CHlkxwf
    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue0/0Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (0/0)
    Vida:
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Left_bar_bleue30/30Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Empty_bar_bleue  (30/30)

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

    Mensagem por thales12 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 !

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

    Minha Sign:

    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Zkqt5e
    Ian
    Ian
    Ocasional
    Ocasional


    Mensagens : 216
    Créditos : 27

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

    Mensagem por Ian 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
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

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

    Mensagem por BrunoFox 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 Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) 198051738'

    @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 ''


    _________________
    Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) CHlkxwf
    Ian
    Ian
    Ocasional
    Ocasional


    Mensagens : 216
    Créditos : 27

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

    Mensagem por Ian 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


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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Mar 28, 2024 10:26 am