Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima ) Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

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

3 participantes

Ir para baixo

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

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
Ian
Ian
Ocasional
Ocasional

Mensagens : 216
Créditos : 27

Ir para o topo Ir para baixo

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
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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
Ian
Ian
Ocasional
Ocasional

Mensagens : 216
Créditos : 27

Ir para o topo Ir para baixo

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
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

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...
Ian
Ian
Ocasional
Ocasional

Mensagens : 216
Créditos : 27

Ir para o topo Ir para baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos