Commit before changes to item grammar

src/Dodge/Projectile/Create.hs

@@ -1,38 +1,17 @@
 module Dodge.Projectile.Create 
-    ( createProjectile
+    ( fireShell
+    , fireTrackingShell
     ) where
 
-import Dodge.SoundLogic
-import Control.Monad
+--import Dodge.SoundLogic
+--import Control.Monad
 import Data.Maybe
 import Dodge.Data.World
 import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
-import qualified SDL
+--import qualified SDL
 
-createProjectile :: Maybe Int -> Muzzle -> Item -> Creature -> World -> World
-createProjectile mmagid muz itm cr = fromMaybe failsound $ do
-    magid <- mmagid
-    ammoitem <- cr ^? crInv . ix magid
-    matype <- ammoitem ^? itUse . amagType
-    guard $ matype == ProjectileAmmo
-    j <- ammoitem ^? itLocation . ilInvID
-    pt <- ammoitem ^? itUse . amagParams . ampPjCreation
-    return $ case pt of
-        CreateShell -> fireShell ammoitem muz itm cr . extrafuncs j
-        CreateTrackingShell -> fireTrackingShell ammoitem muz itm cr . extrafuncs j
-  where
-    --extrafuncs j = cancelanyreloading . startthesound . useammo j
-    extrafuncs j = startthesound . useammo j
-    useammo j = cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix j . itUse . amagLoadStatus . iaLoaded -~ 1
-    
-    --cancelanyreloading = cWorld . lWorld . creatures . ix (_crID cr) %~ crCancelReloading
-    -- the sound should be moved to the projectile firing
-    startthesound = soundMultiFrom [CrWeaponSound (_crID cr) j | j <- [0..3]] (_crPos cr) tap4S Nothing 
-    failsound w' = case w' ^? input . mouseButtons . ix SDL.ButtonLeft of
-        Just 0 -> soundStart (CrWeaponSound (_crID cr) 0) (_crPos cr) click1S Nothing w'
-        _ -> soundContinue (CrWeaponSound (_crID cr) 0) (_crPos cr) click1S Nothing w'
 
 fireShell :: Item -> Muzzle -> Item -> Creature -> World -> World
 fireShell ammoitem muz it cr =