Move sidepush out of records

This commit is contained in:
2025-06-04 11:43:35 +01:00
parent a8aab75739
commit e77721fe7d
8 changed files with 230 additions and 200 deletions
-1
View File
@@ -89,7 +89,6 @@ miniGunX i =
& itUse . heldMuzzles
.~ replicate i
(Muzzle (V2 30 0) 0 0.05 0 MiniGunFlare MuzzleShootBullet (UseExactly 1) 0)
& itUse . heldParams . sidePush .~ 10 * fromIntegral i
& itType .~ HELD (MINIGUNX i)
& itEffect . ieInv .~ ItemReduceWarmTime
& itEffect . ieOnDrop .~ ItemSetWarmTime 0
+1 -4
View File
@@ -19,7 +19,6 @@ poisonSprayer =
flameThrower
& itType .~ HELD POISONSPRAYER
& itAmmoSlots .~ singleAmmo GasAmmo
& itUse . heldParams . sidePush .~ 0
flameSpitter :: Item
flameSpitter =
@@ -81,8 +80,6 @@ flameThrower =
& itAmmoSlots .~ singleAmmo GasAmmo
& itType .~ HELD FLAMETHROWER
& itUse . heldParams .~ GasSprayParams
{ _sidePush = 25
-- , _bulGunSound = Nothing
, _weaponInvLock = 0
{ _weaponInvLock = 0
, _weaponRepeat = mempty
}
+1 -6
View File
@@ -45,9 +45,6 @@ pistol =
& itUse . heldMuzzles . ix 0 . mzPos %~ const (V2 10 0)
& itUse . heldMuzzles . ix 0 . mzInaccuracy %~ const 0.05
& itUse . heldMuzzles . ix 0 . mzFlareType %~ const BasicFlare
& itUse . heldParams
%~ ( (sidePush .~ 50)
)
& itType .~ HELD PISTOL
autoPistol :: Item
@@ -58,12 +55,10 @@ machinePistol =
autoPistol
& itUse . heldDelay .~ WarmUpNoDelay{_warmTime = 0, _warmMax = 50, _warmSound = crankSlowS}
& itType .~ HELD MACHINEPISTOL
-- & itUse . heldParams . recoil .~ 20
smg :: Item
smg =
autoPistol -- & some parameter affecting stability
autoPistol
& itType .~ HELD SMG
& itUse . heldMuzzles . ix 0 . mzPos .~ V2 20 0
& itUse . heldMuzzles . ix 0 . mzInaccuracy .~ 0
& itUse . heldParams . sidePush .~ 30