Cleanup

src/Dodge/Item/Ammo.hs

@@ -122,3 +122,4 @@ bulletSynthesizer :: Item
 bulletSynthesizer =
     makeAttach BULLETSYNTH
         & itUse .~ UseAttach (APInt 0)
+

src/Dodge/Item/Craftable.hs

@@ -1,14 +1,19 @@
-module Dodge.Item.Craftable 
-     where
+module Dodge.Item.Craftable (
+    makeTypeCraft,
+    makeTypeCraftNum,
+    pipe,
+    metalPlate,
+) where
 
-import Dodge.Default.Item
 import Control.Lens
 import Dodge.Data.Item
+import Dodge.Default.Item
 
 makeTypeCraftNum :: Int -> CraftType -> [Item]
-makeTypeCraftNum i ct = replicate i $
-    defaultCraftItem
-        & itType .~ CRAFT ct
+makeTypeCraftNum i ct =
+    replicate i $
+        defaultCraftItem
+            & itType .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item
 makeTypeCraft = head . makeTypeCraftNum 1
@@ -20,27 +25,12 @@ makeTypeCraft = head . makeTypeCraftNum 1
 --incendiaryModule = energyBallCraft IncBall
 
 --bulletBodyCraft :: BulletEffect -> Item
---bulletBodyCraft ebt = 
+--bulletBodyCraft ebt =
 --    makeTypeCraft (BULBODYCRAFT ebt)
 --        & itInvSize .~ 1
 
---bounceModule :: Item
---bounceModule = bulletBodyCraft BounceBullet
-
-teleportModule :: Item
-teleportModule = makeTypeCraft TELEPORTMODULE
-
-timeModule :: Item
-timeModule = makeTypeCraft TIMEMODULE
-
-sizeModule :: Item
-sizeModule = makeTypeCraft SIZEMODULE
-
-gravityModule :: Item
-gravityModule = makeTypeCraft GRAVITYMODULE
-
 pipe :: Item
 pipe = makeTypeCraft PIPE
 
-plateCraft :: Item
-plateCraft = makeTypeCraft PLATE
+metalPlate :: Item
+metalPlate = makeTypeCraft PLATE

src/Dodge/Item/Info.hs

@@ -167,10 +167,10 @@ craftInfo fit = case fit of
     FRAGMODULE -> "A device that converts projectiles into fragmentation projectiles."
     FLASHMODULE -> "A device that converts projectiles into flashbang projectiles."
 --    BULBODYCRAFT be -> "A device that converts bullets into " ++ displayBulletBody be ++ " projectiles."
-    TELEPORTMODULE -> "A device that allows for near-instant translocation across space."
-    TIMEMODULE -> "A device that can affect temporality."
-    SIZEMODULE -> "A device that can affect physical size."
-    GRAVITYMODULE -> "A device that can affect gravitational fields."
+--    TELEPORTMODULE -> "A device that allows for near-instant translocation across space."
+--    TIMEMODULE -> "A device that can affect temporality."
+--    SIZEMODULE -> "A device that can affect physical size."
+--    GRAVITYMODULE -> "A device that can affect gravitational fields."
 --    TARGETMODULE _ -> "A targeting module."
     FLAKCRAFT -> "Creates flak bullets."
     FRAGCRAFT -> "Creates fragmentation bullets."

src/Dodge/Item/Weapon/Bullet.hs

@@ -1,9 +1,9 @@
 module Dodge.Item.Weapon.Bullet (
-    hvBulletAmmo,
+--    hvBulletAmmo,
     defaultBullet,
 ) where
 
-import Control.Lens
+--import Control.Lens
 import Dodge.Data.Item.Use.Consumption.Ammo
 import Geometry.Data
 
@@ -27,14 +27,14 @@ basicBulDams =
     [ Damage PIERCING 100 0 0 0 $ PushBackDamage 2
     ]
 
-hvBulletAmmo :: Bullet
-hvBulletAmmo =
-    defaultBullet
-        & buWidth .~ 6
-        & buVel .~ V2 80 0
-        & buDamages .~ heavyBulDams
-
-heavyBulDams :: [Damage]
-heavyBulDams =
-    [ Damage PIERCING 300 0 0 0 $ PushBackDamage 2
-    ]
+--hvBulletAmmo :: Bullet
+--hvBulletAmmo =
+--    defaultBullet
+--        & buWidth .~ 6
+--        & buVel .~ V2 80 0
+--        & buDamages .~ heavyBulDams
+--
+--heavyBulDams :: [Damage]
+--heavyBulDams =
+--    [ Damage PIERCING 300 0 0 0 $ PushBackDamage 2
+--    ]