Virar personagem Completo apertando uma tecla

Convidado

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