Cleanup
This commit is contained in:
+5
-13
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user