Commit mid add time scroll

src/Dodge/Item/Weapon/TriggerType.hs

@@ -459,7 +459,7 @@ withTempLight time rad col eff item cr =
 
 modClock :: Int -> ChainEffect -> ChainEffect
 modClock n chainEff eff it cr w
-    | (w ^. cWorld . cwTime . worldClock) `mod` n == 0 = chainEff eff it cr w
+    | (w ^. cwTime . worldClock) `mod` n == 0 = chainEff eff it cr w
     | otherwise = eff it cr w
 
 withMuzFlareI :: ChainEffect

src/Dodge/Item/Weapon/Utility.hs

@@ -14,6 +14,10 @@ import Picture
 import Shape
 import ShapePicture
 
+timeScrollGun :: Item
+timeScrollGun =
+    defaultHeldItem
+
 rewindGun :: Item
 rewindGun =
     defaultLeftItem