From f82f001026aa2cf55be393c9a0a1157546888930 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sat, 15 Apr 2023 11:14:06 +0200 Subject: [PATCH] Fixed Waterfall --- P3D/Entites/Enviroment/Waterfall.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/P3D/Entites/Enviroment/Waterfall.vb b/P3D/Entites/Enviroment/Waterfall.vb index 4d886cc44..46ddada7e 100644 --- a/P3D/Entites/Enviroment/Waterfall.vb +++ b/P3D/Entites/Enviroment/Waterfall.vb @@ -252,7 +252,7 @@ End If 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 Dim s As String = "" @@ -299,6 +299,8 @@ CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2) Return False + Else + CType(Screen.Camera, OverworldCamera).PreventMovement = False End If If Me.Collision = True Then