Cleanup

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -27,32 +27,6 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Set as S
 import qualified SDL
 {- |
-Controls resetting a weapon, allows for non-continuous fire needing a button release.  -}
---wpRecock :: ItEffect
---wpRecock = ItInvEffect 
---    {_itInvEffect = f
---    ,_itEffectCounter = 0
---    }
---  where 
---    f _ cr invid = creatures . ix (_crID cr) . crInv . ix invid 
---        . itUse . useHammer . hammerPosition %~ moveHammerUp
---    moveHammerUp HammerDown     = HammerReleased
---    moveHammerUp HammerReleased = HammerUp
---    moveHammerUp HammerUp       = HammerUp
---{- |
---Special recock for the bezier gun.
---Not sure of its purpose at this time...  -}
---bezierRecock :: ItEffect
---bezierRecock = ItInvEffect 
---    {_itInvEffect = f
---    ,_itEffectCounter = 0
---    }
---  where 
---    f _ cr i = creatures . ix (_crID cr) . crInv %~ IM.adjust fOnIt i
---    fOnIt it = case _itHammer it of
---                  HammerDown -> it & itHammer .~ HammerUp
---                  _          -> it & itAttachment .~ NoItAttachment
-{- |
 Creates a laser scope and recocks the weapon.
 TODO add the laser scope!
  -}