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

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

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

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

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

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

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 ?

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

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