P3D-Legacy/P3D/World/ActionScript/V2/ScriptCommands/DoCamera.vb

Namespace ScriptVersion2

    Partial Class ScriptCommander

        ' --------------------------------------------------------------------------------------------------------------------------
        ' Contains the @camera commands.
        ' --------------------------------------------------------------------------------------------------------------------------

        Private Shared Sub DoCamera(ByVal subClass As String)
            Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
            Dim argument As String = ScriptComparer.GetSubClassArgumentPair(subClass).Argument

            Dim c As OverworldCamera = CType(Screen.Camera, OverworldCamera)
            Dim doCameraUpdate As Boolean = True

            Dim position As Vector3
            If Core.CurrentScreen.Identification = Screen.Identifications.NewGameScreen Then
                position = c.Position
            Else
                position = c.ThirdPersonOffset
            End If

            Select Case command.ToLower()
                Case "set"
                    Dim x As Single = sng(argument.GetSplit(0).Replace("~", CStr(position.X)).Replace(".", GameController.DecSeparator))
                    Dim y As Single = sng(argument.GetSplit(1).Replace("~", CStr(position.Y)).Replace(".", GameController.DecSeparator))
                    Dim z As Single = sng(argument.GetSplit(2).Replace("~", CStr(position.Z)).Replace(".", GameController.DecSeparator))
                    Dim yaw As Single = sng(argument.GetSplit(3).Replace(".", GameController.DecSeparator))
                    Dim pitch As Single = sng(argument.GetSplit(4).Replace(".", GameController.DecSeparator))

                    position = New Vector3(x, y, z)
                    c.Yaw = yaw
                    c.Pitch = pitch
                Case "reset"
                    position = New Vector3(0.0F, 0.3F, 1.5F)
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "setyaw"
                    Dim yaw As Single = sng(argument.Replace(",", ".").Replace(".", GameController.DecSeparator))

                    c.Yaw = yaw
                Case "setpitch"
                    Dim pitch As Single = sng(argument.Replace("~", CStr(c.Pitch)).Replace(",", ".").Replace(".", GameController.DecSeparator))

                    c.Pitch = pitch
                Case "setposition"
                    Dim x As Single = sng(argument.GetSplit(0).Replace("~", CStr(position.X)).Replace(".", GameController.DecSeparator))
                    Dim y As Single = sng(argument.GetSplit(1).Replace("~", CStr(position.Y)).Replace(".", GameController.DecSeparator))
                    Dim z As Single = sng(argument.GetSplit(2).Replace("~", CStr(position.Z)).Replace(".", GameController.DecSeparator))

                    position = New Vector3(x, y, z)
                Case "setx"
                    Dim x As Single = sng(argument.Replace("~", CStr(position.X)).Replace(".", GameController.DecSeparator))

                    position.X = x
                Case "sety"
                    Dim y As Single = sng(argument.Replace("~", CStr(position.Y)).Replace(".", GameController.DecSeparator))

                    position.Y = y
                Case "setz"
                    Dim z As Single = sng(argument.Replace("~", CStr(position.Z)).Replace(".", GameController.DecSeparator))

                    position.Z = z
                Case "togglethirdperson"
                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        c.SetThirdPerson(Not c.ThirdPerson, False)
                    End If
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "activatethirdperson"
                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        c.SetThirdPerson(True, False)
                    End If
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "deactivethirdperson", "deactivatethirdperson"
                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        c.SetThirdPerson(False, False)
                    End If
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "setthirdperson"
                    Dim thirdPerson As Boolean = CBool(argument.GetSplit(0))
                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        c.SetThirdPerson(thirdPerson, False)
                    End If
                    If argument.CountSplits() > 1 Then
                        doCameraUpdate = CBool(argument.GetSplit(1))
                    End If
                Case "fix"
                    c.Fixed = True
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "defix"
                    c.Fixed = False
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "togglefix"
                    c.Fixed = Not c.Fixed
                    If argument <> "" Then
                        doCameraUpdate = CBool(argument)
                    End If
                Case "update"
                    doCameraUpdate = True
                    CanContinue = False
                Case "setfocus"
                    Dim focusType = OverworldCamera.CameraFocusTypes.Player
                    Select Case argument.GetSplit(0).ToLower()
                        Case "player"
                            focusType = OverworldCamera.CameraFocusTypes.Player
                        Case "npc"
                            focusType = OverworldCamera.CameraFocusTypes.NPC
                        Case "entity"
                            focusType = OverworldCamera.CameraFocusTypes.Entity
                    End Select
                    c.SetupFocus(focusType, int(argument.GetSplit(1)))
                Case "setfocustype"
                    Select Case argument.ToLower()
                        Case "player"
                            c.CameraFocusType = OverworldCamera.CameraFocusTypes.Player
                        Case "npc"
                            c.CameraFocusType = OverworldCamera.CameraFocusTypes.NPC
                        Case "entity"
                            c.CameraFocusType = OverworldCamera.CameraFocusTypes.Entity
                    End Select
                Case "setfocusid"
                    c.CameraFocusID = int(argument)
                Case "resetfocus"
                    c.CameraFocusType = OverworldCamera.CameraFocusTypes.Player
                    c.CameraFocusID = -1
                Case "settoplayerfacing"
                    Dim facing As Integer = Screen.Camera.GetPlayerFacingDirection()
                    c.Yaw = facing * MathHelper.PiOver2
            End Select


            If Core.CurrentScreen.Identification = Screen.Identifications.NewGameScreen Then
                c.Position = position
            Else
                c.ThirdPersonOffset = position
            End If

            c.UpdateThirdPersonCamera()
            If doCameraUpdate = True Then
                c.UpdateFrustum()
                c.UpdateViewMatrix()
                Screen.Level.Entities = (From e In Screen.Level.Entities Order By e.CameraDistance Descending).ToList()
                Screen.Level.UpdateEntities()
            End If

            IsReady = True
        End Sub

    End Class

End Namespace