From 7b842bca4f786b969861320237e750bc3c74c2cd Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 22 Mar 2022 14:34:29 +0000
Subject: [PATCH] Add file

---
 src/Dodge/Item/PassKey.hs | 41 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/Dodge/Item/PassKey.hs

diff --git a/src/Dodge/Item/PassKey.hs b/src/Dodge/Item/PassKey.hs
new file mode 100644
index 000000000..1120f9160
--- /dev/null
+++ b/src/Dodge/Item/PassKey.hs
@@ -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)]
+                       ]