Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Virar personagem Completo apertando uma tecla

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Ricardo


Membro
Membro
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 \ô/)

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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