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

Fixed Waterfall

Browse Source
This commit is contained in:
JappaWakka 2023-04-15 11:14:06 +02:00
parent 80468415f2
commit f82f001026
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Entites/Enviroment/Waterfall.vb
View File

@ -252,7 +252,7 @@
End If End If
Dim p As Pokemon = ReturnWaterFallPokemonName() Dim p As Pokemon = ReturnWaterFallPokemonName()
If Badge.CanUseHMMove(Badge.HMMoves.Waterfall) = True And Not p Is Nothing Or GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then If GameController.IS_DEBUG_ACTIVE = True OrElse Core.Player.SandBoxMode = True OrElse Badge.CanUseHMMove(Badge.HMMoves.Waterfall) = True AndAlso Not p Is Nothing Then
CType(Screen.Camera, OverworldCamera).PreventMovement = True CType(Screen.Camera, OverworldCamera).PreventMovement = True
Dim s As String = "" Dim s As String = ""
@ -299,6 +299,8 @@
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2) CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
Return False Return False
Else
CType(Screen.Camera, OverworldCamera).PreventMovement = False
End If End If
If Me.Collision = True Then If Me.Collision = True Then