Make rewind gun mostly work; todo sound, dropping item, perhaps more

2021-11-26 18:56:37 +00:00
parent c1d4f32903
commit f29c200a27
6 changed files with 19 additions and 5 deletions
@@ -32,9 +32,20 @@ rewindEffect iteff cr invid w = w & rewindWorlds %~ (take 100 . (w' : ))

 useRewindGun :: Item -> Creature -> World -> World
 useRewindGun it cr w = case _rewindWorlds w of
-    (_:w':ws) -> w' & keys .~ _keys w
-        & mouseButtons .~ _mouseButtons w
+    (w':[]) -> w'
+        & upbuts
+        & rewindWorlds .~ []
+        & rewinding .~ True
+        & lClickHammer .~ HammerUp
+      where
+        upbuts = (keys .~ _keys w) .  (mouseButtons .~ _mouseButtons w)
+    (_:w':ws) -> w'
+        & upbuts
        & rewindWorlds .~ ws
+        & rewinding .~ True
+        & lClickHammer .~ HammerUp
+      where
+        upbuts = (keys .~ _keys w) .  (mouseButtons .~ _mouseButtons w)
    _ -> w

 shrinkGun :: Item