Pass item to item use function

src/Dodge/Item/Weapon/Launcher.hs

@@ -33,7 +33,7 @@ launcher = defaultGun
     , _wpReloadState = 0
     , _itUseRate = 20
     , _itUseTime = 0
-    , _itUse = shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeExplosionAt
+    , _itUse = \_ -> shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeExplosionAt
     , _wpSpread = 0.02
     , _wpRange = 20
     , _itFloorPict = onLayer FlItLayer $ color cyan $ polygon $ rectNESW 5 5 (-5) (-5)
@@ -42,23 +42,27 @@ launcher = defaultGun
     , _itEquipPict = pictureWeaponOnAim $ color cyan $ polygon $ rectNESW 5 5 (-5) (-5)
     , _itHammer = NoHammer
     , _itEffect = NoItEffect
+    , _wpAmmo = ShellAmmo 
+        { _amPayload = makeExplosionAt
+        , _amString = ""
+        }
     }
 flameLauncher :: Item
 flameLauncher = launcher
     { _itName = "FLROCKO"
-    , _itUse = shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeFlameExplosionAt
+    , _itUse = \_ -> shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeFlameExplosionAt
     }
 
 poisonLauncher :: Item
 poisonLauncher = launcher 
     { _itName = "POISROCK"
-    , _itUse = shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makePoisonExplosionAt
+    , _itUse = \_ -> shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makePoisonExplosionAt
     }
 
 teslaLauncher :: Item
 teslaLauncher = launcher 
     { _itName = "TESLROCK"
-    , _itUse = shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeTeslaExplosionAt
+    , _itUse = \_ -> shootWithSound (fromIntegral launcherSound) $ aRocketWithPayload makeTeslaExplosionAt
     }
 
 aRocketWithPayload

src/Dodge/Item/Weapon/TriggerType.hs

@@ -91,14 +91,14 @@ withWarmUp t f cr w
     | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
     | _wpReloadState item /= 0 = w
     | fState == 0 = w
-        & pointerToItem %~ ( (itUse .~ withWarmUp 100 f) . (itUseTime .~ 2) )
+        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp 100 f)) . (itUseTime .~ 2) )
     | t > 2 = w 
-        & pointerToItem %~ ( (itUse .~ withWarmUp (t-1) f) . (itUseTime .~ 2) )
+        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp (t-1) f)) . (itUseTime .~ 2) )
         & soundFrom (CrWeaponSound cid) 26 2 0
     | t > 0 = w 
-        & pointerToItem %~ ( (itUse .~ withWarmUp (t-1) f) . (itUseTime .~ 2) )
+        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp (t-1) f)) . (itUseTime .~ 2) )
     | otherwise = w 
-        & pointerToItem %~ ( (itUse .~ withWarmUp 1 f) . (wpLoadedAmmo -~ 1) . (itUseTime .~ 2) )
+        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp 1 f)) . (wpLoadedAmmo -~ 1) . (itUseTime .~ 2) )
         & f cr
         & soundFrom (CrWeaponSound cid) 28 2 0
   where 

src/Dodge/Item/Weapon/UseEffect.hs

@@ -112,7 +112,7 @@ aTractorBeam
     -> World
 aTractorBeam col cr w 
     = set (creatures . ix cid . crInv . ix itRef . itUse)
-        (shoot $ aTractorBeam ((col + 1) `mod` 10))
+        (\_ -> shoot $ aTractorBeam ((col + 1) `mod` 10))
     $ over projectiles (IM.insert i (tractorBeamAt col i pos dir)) w
   where 
     i = newProjectileKey w