diff --git a/src/Dodge/Item/Ammo.hs b/src/Dodge/Item/Ammo.hs index f37877978..0f1ee6468 100644 --- a/src/Dodge/Item/Ammo.hs +++ b/src/Dodge/Item/Ammo.hs @@ -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)