justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-01-08 20:30:21 +00:00
parent 01ed3ce045
commit d952bd48cc
1 changed files with 5 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Ammo.hs
+5 -13
View File
@@ -40,21 +40,18 @@ tinMag =
} }
drumMag :: Item drumMag :: Item
drumMag = drumMag = tinMag & itType . ibtAmmoMag .~ DRUMMAG
tinMag & itType . ibtAmmoMag .~ DRUMMAG
& itConsumables . magLoadStatus . iaLoaded .~ 30 & itConsumables . magLoadStatus . iaLoaded .~ 30
& itConsumables . magLoadStatus . iaMax .~ 30 & itConsumables . magLoadStatus . iaMax .~ 30
beltMag :: Item beltMag :: Item
beltMag = beltMag = tinMag & itType . ibtAmmoMag .~ BELTMAG
tinMag & itType . ibtAmmoMag .~ BELTMAG
& itConsumables . magLoadStatus . iaLoaded .~ 10000 & itConsumables . magLoadStatus . iaLoaded .~ 10000
& itConsumables . magLoadStatus . iaMax .~ 20000 & itConsumables . magLoadStatus . iaMax .~ 20000
& itConsumables . magType .~ BeltBulletAmmo & itConsumables . magType .~ BeltBulletAmmo
megaShellMag :: Item megaShellMag :: Item
megaShellMag = megaShellMag = shellMag
shellMag
& itConsumables . magLoadStatus . iaMax .~ 1000000 & itConsumables . magLoadStatus . iaMax .~ 1000000
& itConsumables . magLoadStatus . iaLoaded .~ 1000000 & itConsumables . magLoadStatus . iaLoaded .~ 1000000
@@ -67,7 +64,6 @@ shellMag =
{ _magParams = { _magParams =
ProjectileParams ProjectileParams
{ _ampPayload = ExplosionPayload { _ampPayload = ExplosionPayload
-- { _ampPayload = ShrapnelBomb
} }
, _magLoadStatus = , _magLoadStatus =
ReloadStatus ReloadStatus
@@ -78,8 +74,7 @@ shellMag =
} }
megaBattery :: Item megaBattery :: Item
megaBattery = megaBattery = battery
battery
& itConsumables . magLoadStatus . iaMax .~ 1000000 & itConsumables . magLoadStatus . iaMax .~ 1000000
& itConsumables . magLoadStatus . iaLoaded .~ 1000000 & itConsumables . magLoadStatus . iaLoaded .~ 1000000
@@ -120,7 +115,4 @@ chemFuelPouch =
} }
bulletSynthesizer :: Item bulletSynthesizer :: Item
bulletSynthesizer = bulletSynthesizer = makeAttach BULLETSYNTH & itUse .~ UseAttach (APInt 0)
makeAttach BULLETSYNTH
& itUse .~ UseAttach (APInt 0)