Pass item to item use function

src/Dodge/Data.hs

@@ -199,7 +199,7 @@ data Item
         , _wpReloadState :: Int
         , _itUseRate :: Int
         , _itUseTime :: Int
-        , _itUse     :: Creature -> World -> World
+        , _itUse     :: Item -> Creature -> World -> World
         , _itLeftClickUse :: Maybe (Creature -> Int -> World -> World)
         , _wpSpread :: Float
         , _wpRange :: Float
@@ -268,7 +268,7 @@ data Item
         , _itFloorPict :: Picture
         , _twMaxRange :: Float
         , _twAccuracy :: Float
-        , _itUse :: Creature -> World -> World
+        , _itUse :: Item -> Creature -> World -> World
         , _itUseRate :: Int
         , _itUseTime :: Int
         , _itAimingSpeed :: Float
@@ -387,9 +387,11 @@ type HitEffect = Particle -> [(Point2, Either3 Creature Wall ForceField)] -> Wor
 data Ammo
     = ShellAmmo
         { _amPayload :: Point2 -> World -> World
+        , _amString :: String
         }
     | BulletAmmo
-        { }
+        { _amString :: String 
+        }
     | GenericAmmo
 data Projectile 
     = Projectile