Cleanup

2021-12-05 12:29:01 +00:00
parent 1bb1a06101
commit d9c5cfc26d
22 changed files with 148 additions and 144 deletions
@@ -10,7 +10,7 @@ import Shape

 keyToken :: Int -> Item
 keyToken n = defaultEquipment
-    { _itCombineType = NOTDEFINED
+    { _itType = NOTDEFINED
    , _itName = "KEYTOKEN "++show n
    , _itMaxStack = 5
    , _itFloorPict = \_ -> (,) emptySH $ setDepth 0.5 keyPic
@@ -30,7 +30,7 @@ keyPic = color green $

 latchkey :: Int -> Item
 latchkey n = defaultEquipment
-    { _itCombineType = NOTDEFINED
+    { _itType = NOTDEFINED
    , _itName = "KEY "++show n
    , _itMaxStack = 1
    , _itFloorPict = \_ -> (,) emptySH $ setDepth 0.5 latchkeyPic