Split UseItem module

src/Dodge/Data.hs

@@ -77,7 +77,6 @@ data World = World
                 , _pathGraph' :: ~[(Point2,Point2)]
                 , _pathPoints :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
                 , _pathInc :: ~(M.Map Point2 [Point2])
-                , _unlimitedAmmo :: Bool
                 , _storedLevel :: Maybe World
                 , _menuState :: MenuState
                 , _worldState :: M.Map WorldState Bool
@@ -144,7 +143,6 @@ data Creature = Creature
                 , _crMaxHP :: Int
                 , _crInv :: IM.IntMap Item
                 , _crInvSel :: Int
-                , _crAmmo :: M.Map Ammo Int
                 , _crState :: CreatureState
                 , _crCorpse :: Drawing
                 }
@@ -270,7 +268,6 @@ data PressPlate = PressPlate { _ppPict :: Drawing
                              }
 
 data FloorItem = FlIt { _flIt :: Item , _flItPos :: Point2 , _flItRot :: Float, _flItID :: Int}
-               | FlAm { _flAm :: Ammo , _flItPos :: Point2 , _flAmNum :: Int , _flItID :: Int}
 
 data ItemPos =  InInv   { _itCrId :: Int
                         , _itInvId :: Int
@@ -282,7 +279,6 @@ data Item = Weapon
             { _itName :: String
             , _wpMaxAmmo :: Int
             , _wpLoadedAmmo :: Int
-            , _wpAmmoType :: Ammo
             , _wpReloadTime :: Int
             , _wpReloadState :: Int
             , _wpFireRate :: Int
@@ -597,9 +593,6 @@ data ForceField = FF { _ffLine :: [Point2] , _ffID :: Int
                      }
 data FFState = FFDestroyable { _ffsHP :: Int }
 
-data Ammo = PistolBullet | LiquidFuel | Battery | Shell
-    deriving (Eq,Ord,Enum)
-
 data SoundOrigin = InventorySound 
                  | BackgroundSound
                  | OnceSound