Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -241,11 +241,21 @@ inventoryX c = case c of
        [targetingScope tt | tt <- [minBound .. maxBound]]
        <>
        [ battery
+        , laser
+        , augmentedHUD
        , launcher
        , megaShellMag
        , homingModule
        , remoteScreen
+        , launcherX 3
+        , megaShellMag
+        , homingModule
+        , megaShellMag
+        , homingModule
+        , megaShellMag
+        , homingModule
        ]
+        <> [shellModule p | p <- [minBound .. maxBound]]
    'V' -> 
        [targetingScope tt | tt <- [minBound .. maxBound]]
        <>