Fix burst rifle rate delay bug, various cleanups

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import Dodge.Item.UseDelay
 import qualified SDL
 import Linear
 import Dodge.ListDisplayParams
@@ -26,17 +27,10 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 
 testStringInit :: Universe -> [String]
-testStringInit u = fmap show $ u ^.. uvWorld . cWorld . lWorld . terminals . each . tmID
---    foldMap prettyShort $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crTwist
---    prettyShort $ u ^.. uvWorld . cWorld . lWorld . teslaArcs . ix 0 . taArcSteps . each . asObject
---testStringInit u = foldMap prettyShort $ u ^. uvWorld . cWorld . lWorld . projectiles
---    (map (show . _ebPos) $ u ^. uvWorld . cWorld . lWorld . energyBalls)
---    <>
---    (foldMap prettyShort $ u ^. uvWorld . cWorld . lWorld . bullets)
---  fromMaybe mempty $ do
---        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
---        let itms = IM.elems $ cr ^. crInv
---        return $ map (show . (^? itLocation . ilIsSelected)) itms
+testStringInit u = prettyShort (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
+            . ix 0 . itTimeLastUsed)
+        <> prettyShort (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
+            . ix 0 >>= ((^? rateMax) .useDelay))
         --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
 --  where
 --    idp = invDisplayParams $ u ^. uvWorld