Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem por thales12 em Seg Out 31, 2011 6:00 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: 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 ! Smile

Fim ! Smile

Simples, Util e facil ! Smile

Créditos: A Mim Thales12
avatar
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum