Remove (by commenting out) module item-type system

src/Dodge/Bullet.hs

@@ -39,7 +39,7 @@ mvBullet x w bu
             $ applyMagnetsToBul bu w
   where
     endspawn = fromMaybe id $ do
-        partspawn <- bulletSpawn bu
+        partspawn <- useBulletPayload bu
         return $ partspawn p
     p = _buPos bu
 
@@ -102,8 +102,8 @@ bounceDir (_, Right wl) | _wlBouncy wl = Just $ uncurry (-.-) (_wlLine wl)
 bounceDir (p, Left cr) | crIsArmouredFrom p cr = Just $ vNormal $ p -.- _crPos cr
 bounceDir _ = Nothing
 
-bulletSpawn :: Bullet -> Maybe (Point2 -> World -> World)
-bulletSpawn bu = case _buSpawn bu of
+useBulletPayload :: Bullet -> Maybe (Point2 -> World -> World)
+useBulletPayload bu = case _buPayload bu of
     BulSpark -> Nothing
     BulFlak -> Just (makeFlak bu)
     BulFrag -> Just makeFragBullets
@@ -135,7 +135,7 @@ makeFlak bu _ w = w & cWorld . lWorld . instantBullets .++~ [f x | x <- xs]
     xs = take 5 $ randomRs (-s,s) $ _randGen w
     f x = bu & buVel %~ g x
         & buTimer .~ 97
-        & buSpawn .~ BulSpark
+        & buPayload .~ BulSpark
         & buWidth .~ 0.5
         & buDamages .~ 
         [ Damage PIERCING 25 0 0 0 $ PushBackDamage 2