Implement introspection items

2025-01-01 15:20:46 +00:00
parent dae0e0591c
commit 08685909be
11 changed files with 181 additions and 154 deletions
@@ -16,6 +16,7 @@ module Dodge.Item.Scope (
    bulletPayloadModule,
    smokeReducer,
    itemScanner,
+    introScan,
 ) where

 import Dodge.Item.Attach
@@ -47,6 +48,12 @@ stickyMod =
        & itType .~ STICKYMOD
        & itUse .~ UseNothing

+introScan :: IntroScanType -> Item
+introScan t =
+    defaultHeldItem
+        & itType .~ INTROSCAN t
+        & itUse .~ UseNothing
+
 itemScanner :: Item
 itemScanner =
    defaultHeldItem