Commit on returning to work

2023-09-21 09:17:49 +01:00
parent b8f03f7d8c
commit 9ee925f13a
17 changed files with 56 additions and 32 deletions
@@ -24,11 +24,17 @@ itemFromBase ibt = case ibt of
    AMMO at -> itemFromAmmoType at
    Consumable et -> itemFromConsumableType et
    CRAFT cr -> makeTypeCraft cr
+    ATTACH at -> itemFromAttachType at
+
+itemFromAttachType :: AttachType -> Item
+itemFromAttachType at = case at of
+    ZOOMSCOPE -> zoomScope

 itemFromAmmoType :: AmmoItemType -> Item
 itemFromAmmoType at = case at of
-    TINMAGAZINE -> tinMagazine
-    DRUMMAGAZINE -> drumMagazine
+    TINMAGAZINE -> tinMag
+    DRUMMAGAZINE -> drumMag
+    BULLETBELT -> beltMag

 itemFromConsumableType :: ConsumableItemType -> Item
 itemFromConsumableType ct = case ct of