tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-26 23:34:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix ForceCameraTurn

Browse Source
This commit is contained in:
JappaWakka 2023-10-10 09:47:05 +02:00
parent d2673ed435
commit f7fd221ce9
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
P3D/Overworld/OverworldCamera.vb
View File

@ -1011,6 +1011,18 @@ Public Class OverworldCamera
facing -= 4 facing -= 4
End While 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 Turning = True
_aimDirection = facing _aimDirection = facing
End If End If

2
P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
View File

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