Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Virar personagem Completo apertando uma tecla

Ir em baixo

Tutorial Virar personagem Completo apertando uma tecla

Mensagem por Ricardo em Dom 06 Nov 2011, 08:03

Explicação

Esse tutorial fara que ao apertar a tecla "Home" o personagem vire.

Client~Side

Procure por:

Código:
        Case vbKeyInsert
            If Player(MyIndex).Access > 0 Then
                picAdmin.Visible = Not picAdmin.Visible
            End If


Abaixo adicione:

Código:
        Case vbKeyHome
            If Player(MyIndex).Moving = NO Then
                If Player(MyIndex).Dir = DIR_DOWN Then
                    Call SetPlayerDir(MyIndex, DIR_LEFT)
                    If GetPlayerDir(MyIndex) <> DIR_LEFT Then
                        Call SendPlayerDir
                    End If
                ElseIf Player(MyIndex).Dir = DIR_LEFT Then
                    Call SetPlayerDir(MyIndex, DIR_UP)
                    If GetPlayerDir(MyIndex) <> DIR_UP Then
                        Call SendPlayerDir
                    End If
                ElseIf Player(MyIndex).Dir = DIR_UP Then
                    Call SetPlayerDir(MyIndex, DIR_RIGHT)
                    If GetPlayerDir(MyIndex) <> DIR_RIGHT Then
                        Call SendPlayerDir
                    End If
                ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
                    Call SetPlayerDir(MyIndex, DIR_DOWN)
                    If GetPlayerDir(MyIndex) <> DIR_DOWN Then
                        Call SendPlayerDir
                    End If
                End If
            End If


Creditos

Ricardo (eu \ô/)
avatar
Ricardo

Mensagens : 42

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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