Remove unnecessary item held/worn field type

2022-07-11 10:20:40 +01:00
parent 96ebb7a1a2
commit 75d597f774
21 changed files with 66 additions and 96 deletions
@@ -14,7 +14,6 @@ keyCard n = defaultEquipment
    , _itInvColor = aquamarine
    }
    & itType . iyBase .~ KEYCARD n
-    & itDimension . dimPortage .~ WornItem 
    & itDimension . dimSPic .~  (const . noShape) 
        (setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic)

@@ -32,7 +31,6 @@ latchkey _ = defaultEquipment
 --    , _itZoom = defaultItZoom
    , _itInvColor = yellow
    }
-    & itDimension . dimPortage .~ WornItem 
    & itDimension . dimSPic .~ ( \_ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
            )
 latchkeyPic :: Picture