Rewinding fixes

src/Dodge/Item/Weapon/Utility.hs

@@ -43,13 +43,16 @@ rewindEffect _ cr invid w
 useRewindGun :: Item -> Creature -> World -> World
 useRewindGun _ _ w = case _rewindWorlds w of
     [w']        -> rewindusing w' []
+    (w':ws)   -> rewindusing w' ws
     (_:w':ws)   -> rewindusing w' ws
     _           -> w
   where
-    rewindusing w' ws = w'
+    rewindusing w' ws = w
+        & maybeWorld .~ Just' ( w'
 --        & creatures . ix (_crID cr) .~ cr
         & upbuts
         & rewindWorlds .~ ws
+        )
     upbuts = (keys .~ _keys w) .  (mouseButtons .~ _mouseButtons w)
 
 -- needs to shift this item to the current inventory slot