Add shrinkability and cursed items

src/Dodge/Item/Weapon.hs

@@ -2,22 +2,18 @@
 In progress: move out effects into other modules.  -}
 module Dodge.Item.Weapon where
 import Dodge.Data
-import Dodge.Data.SoundOrigin
 import Dodge.Base
 import Dodge.Zone
 import Dodge.Picture.Layer
 import Dodge.SoundLogic
-import Dodge.Creature.Action
 import Dodge.WorldEvent
 import Dodge.Default
 import Dodge.Item.Draw
-import Dodge.Item.Data
 import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.UseEffect
 import Dodge.Item.Weapon.Remote
-import Dodge.Item.Attachment.Data
 import Dodge.Default.Weapon
 import Dodge.Item.Weapon.Grenade
 import Geometry
@@ -83,40 +79,9 @@ removeItAttachment i _ w = w & creatures . ix i . crInv . ix itRef . itAttachmen
     cr = _creatures w IM.! i
     itRef = _crInvSel cr
 
-blinkGun :: Item
-blinkGun = defaultGun 
-    { _itName = "BLINKER"
-    , _itIdentity = Blinker
-    , _wpMaxAmmo = 100
-    , _wpLoadedAmmo = 100
-    , _wpReloadTime = 20
-    , _wpReloadState = 0
-    , _itUseRate = 0
-    , _itUseTime = 0
-    , _itUse = const aSelf
-    , _itUseModifiers =
-        [ ammoCheckI
-        , hammerCheckI
-        ]
-    , _itLeftClickUse = Just $ hammerCheckL $ shootL aSelfL
-    , _wpSpread = 0.05
-    , _wpRange = 20
-    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2[(-2,-2),(-2,2),(2,2),(2,0),(0,0),(0,-2)]
-    , _itAimingSpeed = 1
-    , _itAimingRange = 0
-    }
-
-
 shellExplosionAt :: Point2 -> World -> World
 shellExplosionAt = makeExplosionAt
 
-    
-aSelf :: Creature -> World -> World
-aSelf = blinkAction
-
-aSelfL :: Creature -> Int -> World -> World
-aSelfL cr _ = blinkAction cr
-
 reflect :: Float -> Float -> Float
 reflect a b = a + 2*(a-b)
 
@@ -270,6 +235,7 @@ remoteBombUnarmedPic = color (dark $ dark orange) $ circleSolid 5
 pipe :: Item
 pipe = Craftable
     { _itIdentity = Generic
+    , _itCurseStatus = Uncursed
     , _itName = "PIPE"
     , _itMaxStack = 3
     , _itAmount = 3