Make item display universal

2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
@@ -506,7 +506,6 @@ data Item = Item
    , _itIsHeld     :: Bool
    , _itEffect     :: ItEffect
    , _itInvSize    :: Float
-    , _itInvDisplay :: Item -> [String]
    , _itInvColor   :: Color
    , _itTargeting  :: Targeting
    , _itDimension  :: ItemDimension
@@ -1400,7 +1399,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutButton {_putButton :: Button}
    | PutProp Prop
    | PutTerminal {_unputTerminal :: Terminal}
-    | PutFlIt Item
+    | PutFlIt {_putItem :: Item}
    | PutPPlate PressPlate
    | PutBlock {_putBlock :: Block, _putWall :: Wall, _putPoly :: [Point2] }
    | PutCoord Point2