Tweak flares

2024-12-23 10:28:46 +00:00
parent bb5ed215e4
commit 34c7186aa1
8 changed files with 13 additions and 8 deletions
@@ -208,7 +208,8 @@ loadMuzzle t@(LDT _ l _) mz = fromMaybe (t, Nothing) $ do
 makeMuzzleFlare :: Muzzle -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
 makeMuzzleFlare mz itmtree cr = case mz ^. mzFlareType of
    NoFlare -> id
-    PistolFlare -> basicMuzFlare pos dir
+    BasicFlare -> basicMuzFlare pos dir
+    NoLightFlare -> muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
    MiniGunFlare ->
        (cWorld . lWorld . lights .:~ LSParam (pos `v2z` 20) 100 (V3 1 1 0.5))
            . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir