Add stopWatch

src/Dodge/Data/CWorld.hs

@@ -28,10 +28,8 @@ data CWorld = CWorld
     }
 
 data TimeFlowStatus
-    = RewindingNow
-    | DeathTime
+    = DeathTime
         { _deathDelay :: Int }
-    | RewindingLastFrame
     | NormalTimeFlow
     | ScrollTimeFlow
         { _scrollSmoothing :: Int 
@@ -43,6 +41,10 @@ data TimeFlowStatus
         { _reverseAmount :: Int 
         , _scrollItemLocation :: Int
         }
+    | PausedTimeFlow
+        { _timeFlowCharge :: Int 
+        , _scrollItemLocation :: Int
+        }
 
 data CWGen = CWGen
     { _cwgParams :: GenParams