Cleanup, split CWorld into separate file

src/Dodge/Creature.hs

@@ -128,7 +128,6 @@ inventoryX c = case c of
         [ blinkGun
         , unsafeBlinkGun
         , autoDetector WALLDETECTOR
-        --        , effectGun "GIBBER" addCrGibs
         ]
     'E' ->
         [ makeTypeCraftNum 3 PIPE
@@ -176,8 +175,7 @@ inventoryX c = case c of
         [ lasGun
         , lasGun
         , dualBeam
-        , --            , lasWidePulse
-          makeTypeCraftNum 10 TRANSFORMER
+        , makeTypeCraftNum 10 TRANSFORMER
         ]
     'K' ->
         [ autoRifle
@@ -216,27 +214,11 @@ testInventory =
             , makeTypeCraft INCENDIARYMODULE
             , makeTypeCraft STATICMODULE
             , makeTypeCraft CONCUSSMODULE
-            , --    , bounceModule
-              --    , medkit 50 & itConsumption . itAmount .~ 3
-              teleportModule
-            , --    , makeTypeCraftNum 1 LIGHTER
-              --    , makeTypeCraftNum 15 TUBE
-              --    , makeTypeCraftNum 9 TRANSFORMER
-              --    , makeTypeCraftNum 5 CREATURESENSOR
-              --    , makeTypeCraftNum 9 PRISM
-              --    , makeTypeCraftNum 3 DRUM
-              --    , makeTypeCraftNum 3 PUMP
-              --    , makeTypeCraftNum 3 BATTERY
-              --    , makeTypeCraftNum 1 MAGNET
-              --    , makeTypeCraftNum 1 TRANSMITTER
-              makeTypeCraftNum 10 HARDWARE
+            , teleportModule
+            , makeTypeCraftNum 10 HARDWARE
             , makeTypeCraftNum 3 SPRING
             , makeTypeCraftNum 10 CAN
-            , --    , makeTypeCraftNum 3 TIN
-              makeTypeCraftNum 3 PLANK
-              --    , makeTypeCraftNum 1 MOTOR
-              --    , makeTypeCraftNum 5 MICROCHIP
-              --    , makeTypeCraftNum 5 AIUNIT
+            , makeTypeCraftNum 3 PLANK
             ]
 
 stackedInventory :: IM.IntMap Item
@@ -244,8 +226,7 @@ stackedInventory =
     IM.fromList $
         zip
             [0 ..]
-            [ --sonicGun
-              burstRifle
+            [ burstRifle
             , pipe
             , rewindGun
             , tractorGun
@@ -254,28 +235,12 @@ stackedInventory =
             , teslaGun
             , blinkGun
             , miniGunX 3
-            , --    ,multGun
-              boosterGun
+            , boosterGun
             , remoteLauncher
             , flatShield
-            , --    ,grenade
-              spawnGun (lamp 5)
+            , spawnGun (lamp 5)
             , lasGun
             , flameThrower
             , poisonSprayer
             , launcher
-            --    ,droneLauncher
-            --,lasGun
-            --,grenade
-            --,ltAutoGun,flamer,multGun,spreadGun,remoteLauncher
-            --,longGun
-            --,hvAutoGun
-            --,teslaGun
-            --,latchkey 0
-            --,miniGun
-            --,medkit 50
-            --,bezierGun
             ]
-
---smokeGenGun :: Item
---smokeGenGun = effectGun "smoke" $ const spawnSmokeAtCursor