Start moving item records out into functions

2025-06-03 11:46:56 +01:00
parent 6e187c7548
commit 589603e474
11 changed files with 68 additions and 21 deletions
@@ -19,7 +19,7 @@ bangRod :: Item
 bangRod =
    defaultBulletWeapon
        & itUse . heldParams . rifling .~ ConstFloat 1
-        & itUse . heldParams . recoil .~ 50
+--        & itUse . heldParams . recoil .~ 50
        & itUse . heldParams . torqueAfter .~ 0.3
        & itUse . heldParams . bulGunSound ?~ (bangEchoS,0)
        & itUse . heldDelay . rateMax .~ 12
@@ -39,7 +39,7 @@ elephantGun =
        & itType .~ HELD ELEPHANTGUN
        & itUse . heldAim . aimStance .~ TwoHandUnder
        & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0.05
-        & itUse . heldParams . recoil .~ 50
+--        & itUse . heldParams . recoil .~ 50

 amr :: Item
 amr =