Mirage Source

    If Button = vbRightButton Then
    If Not InEditor Then
        Call CharMove(X, Y)
    End If
    End If

Public Sub CharMove(ByVal X As Single, ByVal Y As Single)
'Finds the heading way with our mouse position
Dim iScrX As Integer
Dim iScrY As Integer
Dim lAngle As Long

iScrX = X - frmMirage.picScreen.Left - Player(MyIndex).X * 32
iScrY = Y - frmMirage.picScreen.top - Player(MyIndex).Y * 32
iScrY = -iScrY
If iScrY = 0 Then
    lAngle = 0
Else
    lAngle = Atn(iScrX / iScrY) * 180 / 3.14159265
End If

If (lAngle >= -45 And lAngle <= 0) Or (lAngle <= 45 And lAngle >= 0) Then
    If iScrY > 0 Then
        DirUp = True
        DirDown = False
        DirLeft = False
        DirRight = False
        If CanMove = True Then
             Call SetPlayerDir(MyIndex, DIR_UP)
             Call CheckMovement
        End If
    Else
        DirUp = False
        DirDown = True
        DirLeft = False
        DirRight = False
        If CanMove = True Then
             Call SetPlayerDir(MyIndex, DIR_DOWN)
             Call CheckMovement
        End If
    End If
ElseIf (lAngle > 45 And lAngle <= 90) Or (lAngle < -45 And lAngle >= -90) Then
    If iScrX < 0 Then
                 DirUp = False
        DirDown = False
        DirLeft = True
        DirRight = False
        If CanMove = True Then
             Call SetPlayerDir(MyIndex, DIR_LEFT)
             Call CheckMovement
        End If
    Else
        DirUp = False
        DirDown = False
        DirLeft = False
        DirRight = True
        If CanMove = True Then
             Call SetPlayerDir(MyIndex, DIR_RIGHT)
             Call CheckMovement
        End If
    End If
End If
End Sub

DirUp
DirDown
DirLeft
DirRight