This commit is contained in:
2025-01-08 20:30:21 +00:00
parent 01ed3ce045
commit d952bd48cc
+5 -13
View File
@@ -40,21 +40,18 @@ tinMag =
}
drumMag :: Item
drumMag =
tinMag & itType . ibtAmmoMag .~ DRUMMAG
drumMag = tinMag & itType . ibtAmmoMag .~ DRUMMAG
& itConsumables . magLoadStatus . iaLoaded .~ 30
& itConsumables . magLoadStatus . iaMax .~ 30
beltMag :: Item
beltMag =
tinMag & itType . ibtAmmoMag .~ BELTMAG
beltMag = tinMag & itType . ibtAmmoMag .~ BELTMAG
& itConsumables . magLoadStatus . iaLoaded .~ 10000
& itConsumables . magLoadStatus . iaMax .~ 20000
& itConsumables . magType .~ BeltBulletAmmo
megaShellMag :: Item
megaShellMag =
shellMag
megaShellMag = shellMag
& itConsumables . magLoadStatus . iaMax .~ 1000000
& itConsumables . magLoadStatus . iaLoaded .~ 1000000
@@ -67,7 +64,6 @@ shellMag =
{ _magParams =
ProjectileParams
{ _ampPayload = ExplosionPayload
-- { _ampPayload = ShrapnelBomb
}
, _magLoadStatus =
ReloadStatus
@@ -78,8 +74,7 @@ shellMag =
}
megaBattery :: Item
megaBattery =
battery
megaBattery = battery
& itConsumables . magLoadStatus . iaMax .~ 1000000
& itConsumables . magLoadStatus . iaLoaded .~ 1000000
@@ -120,7 +115,4 @@ chemFuelPouch =
}
bulletSynthesizer :: Item
bulletSynthesizer =
makeAttach BULLETSYNTH
& itUse .~ UseAttach (APInt 0)
bulletSynthesizer = makeAttach BULLETSYNTH & itUse .~ UseAttach (APInt 0)