Tweak pause camera movement

src/Dodge/Data/Camera.hs

@@ -12,7 +12,6 @@ import Geometry.Data
 data CamControl
     = CamInGame
     | CamFloat
-    | CamPan
   deriving (Eq,Show,Read,Enum,Bounded)
 
 data Camera = Camera

src/Dodge/Data/Config.hs

@@ -89,6 +89,7 @@ data DebugBool
     | Inspect_wall
     | Show_nodes_near_select
     | Show_path_between
+    | Pacify_enemies
     deriving (Eq, Ord, Bounded, Enum, Show)
 
 data ResFactor = DoubleRes | FullRes | HalfRes | QuarterRes | EighthRes | SixteenthRes

src/Dodge/Data/World.hs

@@ -58,12 +58,17 @@ data TimeFlowStatus
     = DeathTime
         {_deathDelay :: Int}
     | NormalTimeFlow
-    | ScrollTimeFlow
+    | ItemScrollTimeFlow
         { _scrollSmoothing :: Int
         , _reverseAmount :: Int
         , _futureWorlds :: [LWorld]
         , _scrollItemLocation :: Int
         }
+    | CameraScrollTimeFlow
+        { _scrollSmoothing :: Int
+        , _reverseAmount :: Int
+        , _futureWorlds :: [LWorld]
+        }
     | RewindLeftClick
         { _reverseAmount :: Int
         , _scrollItemLocation :: Int