Implement bullet synth

2024-11-27 20:37:40 +00:00
parent b21513c4dd
commit 0d5e578f07
12 changed files with 365 additions and 298 deletions
@@ -12,6 +12,7 @@ itInvHeight :: Item -> Int
 itInvHeight x = case x ^. itType of
    HELD (MINIGUNX i) -> (i + 3) `div` 2
    HELD LAUNCHER -> 3
+    HELD LAUNCHERX{} -> 3
    HELD FLATSHIELD -> 3
    HELD (BANGSTICK i) -> max 1 (i `div` 2)
    _ -> 1
@@ -27,7 +28,7 @@ itDim x = case x ^. itType of
        & dimCenter .~ V3 9 0 0
    HELD y | hasCaneGunDim y -> did & dimRad .~ 8
        & dimCenter .~ V3 5 0 0
-    HELD (MINIGUNX {}) -> did & dimRad .~ 20
+    HELD MINIGUNX {} -> did & dimRad .~ 20
        & dimCenter .~ V3 5 0 0
        & dimAttachPos .~ V3 5 (-5) 0
    HELD LAUNCHER -> did & dimRad .~ 9