Start adding pulseLasers

2025-07-19 22:05:46 +01:00
parent 27ce087e33
commit 8b17ec56ad
13 changed files with 475 additions and 454 deletions
@@ -75,59 +75,6 @@ itemBelowAttachables (itm,sf) = case (itm ^. itType, sf) of
    (ATTACH BULLETSYNTH, _) -> [AmmoMagSF 0 ElectricalAmmo]
    _ -> []

--itemToBreakLists :: Item -> ItemSF -> ([ItemSF], [ItemSF])
--itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
--    (HELD TORCH, _) -> (getAmmoLinks itm, [])
--    (ATTACH UNDERBARRELSLOT, _) -> ([UnderBarrelPlatformSF], [])
--    (_, HeldPlatformSF) ->
--        ( getAmmoLinks itm
--            <> extraWeaponLinksBelow itm
--        , [WeaponTargetingSF, WeaponScopeSF]
--            <> getAutoSpringLinks itm
--            <> extraWeaponLinks itm
--        )
--    (_, UnderBarrelPlatformSF) ->
--        ( getAmmoLinks itm,[])
--    (DETECTOR {}, _) -> 
--        ( getAmmoLinks itm
--        , [ARHUDSF,TriggerSF,MapperSF]
--        )
--    (CRAFT TRANSFORMER, _) ->  ([],[LaserWeaponSF])
--    (MAPPER, _) -> 
--        ( []
--        , [ARHUDSF]
--        )
--    (_, GadgetPlatformSF) ->
--        ( getAmmoLinks itm
--        , [TriggerSF, WeaponTargetingSF, WeaponScopeSF]
--        )
--    (_, AmmoMagSF{}) -> fromMaybe ([], []) $ do
--        atype <- magAmmoType itm
--        let screenanddet = case atype of
--                LauncherAmmo ->
--                    [ RemoteScreenSF
--                    , RemoteDetonatorSF
--                    ]
--                _ -> []
--        return
--            ( [ AmmoModifierSF atype
--              , AmmoTargetingSF atype
--              , AmmoPayloadSF atype
--              , AmmoEffectSF atype
--              , SmokeReducerSF
--              ]
--                <> screenanddet
--            , []
--            )
--    (_, RemoteScreenSF) ->
--        ( [JoystickSF]
--        , []
--        )
--    (_, WeaponTargetingSF) -> (getAmmoLinks itm ++ [ARHUDSF], [])
--    (ATTACH BULLETSYNTH, _) ->
--        ([AmmoMagSF 0 ElectricalAmmo], [])
--    _ -> ([], [])
-
 getAutoSpringLinks :: Item -> [ItemSF]
 getAutoSpringLinks itm = case baseItemTriggerType itm of
    HammerTrigger _ -> [MakeAutoSF]