Make game auto-start (no splash menu)

src/Dodge/Creature.hs

@@ -238,7 +238,7 @@ inventoryX c = case c of
             , rifle
             , shellMag
             ]
-    'P' -> [burstRifle , tinMag, battery, bulletSynthesizer]
+    'P' -> [burstRifle , tinMag, bulletSynthesizer, battery]
     'T' -> testInventory
     'U' ->
         [targetingScope tt | tt <- [minBound .. maxBound]]

src/Dodge/Debug/Terminal.hs

@@ -28,7 +28,7 @@ applyTerminalString ss = case ss of
 applyTerminalCommand :: String -> Universe -> Universe
 applyTerminalCommand s = case s of
     "NOCLIP" -> uvConfig . debug_booleans . at Noclip %~ toggleJust
-    ['L', x] -> uvWorld %~ \w -> foldr createItemYou w (inventoryX x)
+    ['L', x] -> uvWorld %~ \w -> foldl' (flip createItemYou) w (inventoryX x)
 --            (uvWorld . cWorld . lWorld %~ initSpecificCrItemLocations 0)
 --        . (uvWorld . cWorld . lWorld . creatures . ix 0 . crInv .~ IM.fromList (zip [0 ..] $ inventoryX x))
 --            . (uvWorld . cWorld . lWorld . creatures . ix 0 . crInvCapacity .~ 50)

src/Dodge/Inventory/CheckSlots.hs

@@ -28,7 +28,7 @@ crNumFreeSlots m cr = maxInvSlots - invSize (fmap f (_crInv cr))
     f i = m ^?! ix i
 
 maxInvSlots :: Int
-maxInvSlots = 25
+maxInvSlots = 250
 
 invSize :: NewIntMap InvInt Item -> Int
 invSize = alaf Sum foldMap itInvHeight