Add shrinkability and cursed items

2021-11-18 18:30:22 +00:00
parent 147d6098ab
commit a546d070f0
82 changed files with 273 additions and 233 deletions
@@ -19,6 +19,8 @@ data ItAttachment
    | ItCharMode {_itCharMode :: Seq.Seq Char }
    | ItTargetPos { _itTargetPos :: Point2 }
    | ItInt { _itInt :: Int }
+    | ItFloat { _itFloat :: Float }
+    | ItBool  { _itBool  :: Bool  }
    | NoItAttachment

 makeLenses ''ItAttachment