Make launcherX use multiple ammo sources

2024-06-28 22:40:24 +01:00
parent 009a6cd30f
commit 32cb2b2e80
17 changed files with 220 additions and 342 deletions
@@ -17,9 +17,12 @@ import Dodge.Data.Universe
 --import Data.Maybe
 --import ShortShow
 --import qualified Data.Map.Strict as M
--import qualified IntMapHelp as IM
+import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = [fromMaybe "" $ do
+    proj <- u ^? uvWorld . cWorld . lWorld . projectiles
+    return $ show $ IM.size proj
+    ] 
 --    [fromMaybe "" $ do
 --    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --    i <- cr ^? crManipulation . manObject . inInventory . ispItem