Cleanup, haddocks

2021-04-05 11:36:54 +02:00
parent dfee9b2f37
commit 772103f92c
9 changed files with 56 additions and 56 deletions
@@ -1578,28 +1578,6 @@ jetPack = defaultEquipment
    , _itID = Nothing
    }

-latchkey :: Int -> Item
-latchkey n = defaultEquipment
-    { _itIdentity = Generic
-    , _itName = "KEY "++show n
-    , _itMaxStack = 1
-    , _itAmount = 1
-    , _itFloorPict = onLayer FlItLayer $ latchkeyPic
-    , _itEquipPict = \cr _ -> onLayer PtLayer $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
-    , _itEffect = NoItEffect
-    , _itHammer = HammerUp
-    , _itID = Nothing
-    , _itAimingSpeed = 1
-    , _itAimingRange = 0
-    , _itZoom = defaultItZoom
-    , _itInvColor = yellow
-    , _itInvDisplay = _itName
-    }
-latchkeyPic = color yellow $
-              pictures [translate (-4) 0 $ thickCircle 4 2
-                       ,lineOfThickness 2 [(0,0),(8,0),(8,-4)]
-                       ,lineOfThickness 2 [(4,0),(4,-4)]
-                       ]


 -- }}}