Cleanup

src/Dodge/Item/Held/Utility.hs

@@ -13,23 +13,15 @@ module Dodge.Item.Held.Utility (
 import Control.Lens
 import Dodge.Data.Item
 import Dodge.Default.Item
---import Linear
 
 flatShield :: Item
-flatShield =
-    defaultHeldItem
---        & itEffect . ieInv .~ EffectRootNotroot CreateShieldWall RemoveShieldWall
-        & itType .~ HELD FLATSHIELD
+flatShield = defaultHeldItem & itType .~ HELD FLATSHIELD
 
 keyCard :: Int -> Item
 keyCard n = defaultHeldItem & itType .~ HELD (KEYCARD n)
 
 torch :: Item
-torch =
-    defaultHeldItem
-        & itType .~ HELD TORCH
---        & itUse . heldMuzzles . ix 0 . mzPos . _x .~ 10
---        & itAmmoSlots .~ singleAmmo ElectricalAmmo
+torch = defaultHeldItem & itType .~ HELD TORCH
 
 -- | Sends out pulses that display walls.
 detector :: Detector -> Item
@@ -42,20 +34,10 @@ unsafeBlinker :: Item
 unsafeBlinker = blinker & itType .~ HELD BLINKERUNSAFE
 
 rewinder :: Item
-rewinder =
-    blinker
-        & itType .~ HELD REWINDER
---        & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleRewind
---        & itUse . heldMuzzles . ix 0 . mzAmmoPerShot .~ UseExactly 100000
+rewinder = blinker & itType .~ HELD REWINDER
 
 timeStopper :: Item
-timeStopper =
-    blinker
-        & itType .~ HELD TIMESTOPPER
---        & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleStopper
+timeStopper = blinker & itType .~ HELD TIMESTOPPER
 
 timeScroller :: Item
-timeScroller =
-    timeStopper
-        & itType .~ HELD TIMESCROLLER
---        & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleScroller
+timeScroller = timeStopper & itType .~ HELD TIMESCROLLER