Work on bullet module system

src/Dodge/Item/Craftable.hs

@@ -1,9 +1,13 @@
 module Dodge.Item.Craftable where
 import Dodge.Data
 import Dodge.Default.Weapon
+--import Dodge.Particle.Bullet.HitEffect
+--import Dodge.WorldEvent.HitEffect
+import Color
 --import Dodge.Picture.Layer
 --import Picture
 --import Geometry
+import Control.Lens
 
 makeTypeCraftNum :: Int -> CombineType -> Item
 makeTypeCraftNum i ct = defaultCraftable
@@ -16,6 +20,16 @@ makeTypeCraftNum i ct = defaultCraftable
 
 makeTypeCraft :: CombineType -> Item
 makeTypeCraft = makeTypeCraftNum 1
+
+incendiaryModule :: Item
+incendiaryModule = makeTypeCraft INCENDIARYMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse
+bounceModule :: Item
+bounceModule = makeTypeCraft BOUNCEMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse
+
 pipe :: Item
 pipe = makeTypeCraft PIPE