Add file

2022-03-22 14:34:29 +00:00
parent 774738f993
commit 7b842bca4f
1 changed files with 41 additions and 0 deletions
@@ -0,0 +1,41 @@
+module Dodge.Item.PassKey where
+import Dodge.Data
+import Dodge.Default
+import Picture
+import Geometry.Data
+--import ShapePicture
+import Shape
+keyCard :: Int -> Item
+keyCard n = defaultEquipment
+    { _itType = KEYCARD n
+    , _itName = "KEYCARD-"++show n
+    , _itEquipPict = \_ _ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic
+    , _itEffect = NoItEffect
+    , _itID = Nothing
+--    , _itZoom = defaultItZoom
+    , _itInvColor = aquamarine
+    , _itInvDisplay = (:[]) . _itName
+    }
+keyPic :: Picture
+keyPic = color green $
+              pictures [translate (-4) 0 $ thickCircle 4 2
+                       ,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
+                       ,thickLine 2 $ map toV2 [(4,0),(4,-4)]
+                       ]
+
+latchkey :: Int -> Item
+latchkey n = defaultEquipment
+    { _itType = NOTDEFINED
+    , _itName = "KEY "++show n
+    , _itEquipPict = \_ _ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
+    , _itEffect = NoItEffect
+    , _itID = Nothing
+--    , _itZoom = defaultItZoom
+    , _itInvColor = yellow
+    }
+latchkeyPic :: Picture
+latchkeyPic = color yellow $
+              pictures [translate (-4) 0 $ thickCircle 4 2
+                       ,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
+                       ,thickLine 2 $ map toV2 [(4,0),(4,-4)]
+                       ]