Rethink item ammo to item consumables, start item type datatype

src/Dodge/Item/Weapon/Launcher.hs

@@ -37,7 +37,7 @@ launcher :: Item
 launcher = defaultGun 
     { _itName = "ROCKO"
     , _itIdentity = Launcher
-    , _wpAmmo = defaultAmmo 
+    , _itConsumption = defaultAmmo 
         { _aoType = defaultShellAmmo 
             { _amPayload = makeExplosionAt
             , _amString = ""
@@ -140,7 +140,7 @@ aRocketWithItemParams
     -> World
 aRocketWithItemParams it cr w = over props (IM.insert i theShell) w
   where 
-    am = _wpAmmo it
+    am = _itConsumption it
     i = IM.newKey $ _props w
     pos = _crPos cr +.+ ((_crRad cr +1) *.* unitVectorAtAngle dir)
     dir = _crDir cr
@@ -240,7 +240,7 @@ remoteLauncher :: Item
 remoteLauncher = defaultGun 
     { _itName = "ROCKO-REM"
     , _itIdentity = RemoteLauncher
-    , _wpAmmo = defaultAmmo 
+    , _itConsumption = defaultAmmo 
         { _aoType = defaultShellAmmo 
             { _amPayload = makeExplosionAt
             , _amString = ""