Fix ForceCameraTurn

P3D/Overworld/OverworldCamera.vb

@@ -1011,6 +1011,18 @@ Public Class OverworldCamera
                     facing -= 4
                 End While
 
+                Turning = True
+                _aimDirection = facing
+            End If
+        Else
+            If ForceCameraTurn = True Then
+                Dim facing As Integer = GetFacingDirection()
+                facing += _playerFacing - GetFacingDirection()
+
+                While facing > 3
+                    facing -= 4
+                End While
+
                 Turning = True
                 _aimDirection = facing
             End If

P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb

@@ -164,7 +164,7 @@
                             turns = turns + 4
                         End If
 
-                        If turns > 0 Then
+                        If turns > 0 OrElse ForceCameraTurn = True Then
                             Screen.Camera.Turn(turns, ForceCameraTurn)
                             Started = True
                             Screen.Level.OverworldPokemon.Visible = False