From 8f0dd8cd1bd22f6b3558f7c9abee8ddf3f1a6a3e Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 25 Sep 2023 13:39:06 +0100
Subject: [PATCH] Add files

---
 src/Dodge/Item/Ammo.hs           | 21 +++++++++++++++++++++
 src/Dodge/Item/InventoryColor.hs | 15 +++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100644 src/Dodge/Item/Ammo.hs
 create mode 100644 src/Dodge/Item/InventoryColor.hs

diff --git a/src/Dodge/Item/Ammo.hs b/src/Dodge/Item/Ammo.hs
new file mode 100644
index 000000000..92350829e
--- /dev/null
+++ b/src/Dodge/Item/Ammo.hs
@@ -0,0 +1,21 @@
+module Dodge.Item.Ammo where
+
+import Control.Lens
+import Dodge.Data.World
+import Dodge.Default.Item
+
+tinMag :: Item
+tinMag = defaultHeldItem & itType . iyBase .~ AMMO TINMAGAZINE
+    & itUse .~ AttachUse AmmoAttachParams
+
+drumMag :: Item
+drumMag = tinMag & itType . iyBase .~ AMMO DRUMMAGAZINE
+
+beltMag :: Item
+beltMag = tinMag & itType . iyBase .~ AMMO BULLETBELT
+
+zoomScope :: Item
+zoomScope = tinMag
+    & itType . iyBase .~ ATTACH ZOOMSCOPE
+    & itUse .~ AttachUse ZoomScopeParams
+    
diff --git a/src/Dodge/Item/InventoryColor.hs b/src/Dodge/Item/InventoryColor.hs
new file mode 100644
index 000000000..06c513a9a
--- /dev/null
+++ b/src/Dodge/Item/InventoryColor.hs
@@ -0,0 +1,15 @@
+module Dodge.Item.InventoryColor where
+
+import Color
+import Dodge.Data.Item
+import Control.Lens
+
+itemInvColor :: Item -> Color
+itemInvColor itm = case itm ^. itType . iyBase of
+    HELD {} -> white
+    LEFT {} -> cyan
+    EQUIP {} -> yellow
+    AMMO {} -> orange
+    CONSUMABLE {} -> blue
+    CRAFT {} -> green
+    ATTACH {} -> chartreuse