Move background item effects out of records

2025-06-05 22:08:39 +01:00
parent 10ca82c4d5
commit 9a699e70ed
11 changed files with 272 additions and 143 deletions
@@ -60,6 +60,6 @@ miniGunX i =
 --            .~ replicate i 
 --                (Muzzle (V2 30 0) 0 0.05 0 MiniGunFlare MuzzleShootBullet (UseExactly 1) 0)
        & itType .~ HELD (MINIGUNX i)
-        & itEffect . ieInv .~ ItemReduceWarmTime
-        & itEffect . ieOnDrop .~ ItemSetWarmTime 0
+--        & itEffect . ieInv .~ ItemReduceWarmTime
+--        & itEffect . ieOnDrop .~ ItemSetWarmTime 0
        & itParams .~ WarmTime 0
@@ -18,7 +18,7 @@ import Dodge.Default.Item
 flatShield :: Item
 flatShield =
    defaultHeldItem
-        & itEffect . ieInv .~ EffectRootNotroot CreateShieldWall RemoveShieldWall
+--        & itEffect . ieInv .~ EffectRootNotroot CreateShieldWall RemoveShieldWall
        & itType .~ HELD FLATSHIELD

 keyCard :: Int -> Item