Implement introspection items

src/Dodge/Creature.hs

@@ -96,8 +96,8 @@ startCr =
         & crDir .~ pi / 2
         & crMvDir .~ pi / 2
         & crID .~ 0
-        & crHP .~ 1000
+        & crHP .~ 10000
-        & crMaxHP .~ 1500
+        & crMaxHP .~ 15000
         & crInv .~ startInventory
         & crCorpse .~ MakeDefaultCorpse
         & crFaction .~ PlayerFaction
@@ -116,6 +116,7 @@ startInventory = IM.fromList $ zip [0 ..] startInvList
 inventoryX :: Char -> [Item]
 inventoryX c = case c of
     'A' ->
+        [introScan t | t <- [minBound..maxBound]] <>
         [ flameThrower
         , fuelPack
         , chemFuelPouch

src/Dodge/Creature/Impulse/UseItem.hs

@@ -115,6 +115,5 @@ toggleEquipmentAt invid cr w = case getEquipmentAllocation invid w of
     crpoint = cWorld . lWorld . creatures . ix (_crID cr)
     itmat i = _crInv cr IM.! i
     itm = itmat invid
---    itRef = cr ^?! crManipulation . manObject . imSelectedItem -- unsafe!! TODO change?
     onequip itm' = doItmCrWdWd ((_eeOnEquip . _uequipEffect . _itUse) itm') itm'
     onremove itm' = doItmCrWdWd ((_eeOnRemove . _uequipEffect . _itUse) itm') itm'

src/Dodge/Data/Item/Combine.hs

@@ -22,8 +22,14 @@ data ItemType
     | BULLETMOD {_ibtBulletMod :: BulletMod}
     | STICKYMOD
     | ITEMSCANNER
+    | INTROSCAN {_ibtIntroScanType :: IntroScanType}
     deriving (Eq, Ord, Show, Read)
 
+data IntroScanType
+    = HEALTH
+    | MAXHEALTH
+    deriving (Eq, Ord, Show, Read, Enum, Bounded)
+
 data CraftType
     = PIPE
     | TUBE
@@ -168,6 +174,7 @@ data Detector
 makeLenses ''ItemType
 makeLenses ''HeldItemType
 makeLenses ''AttachType
+deriveJSON defaultOptions ''IntroScanType
 deriveJSON defaultOptions ''CraftType
 deriveJSON defaultOptions ''ConsumableItemType
 deriveJSON defaultOptions ''AmmoMagType

src/Dodge/Inventory/RBList.hs

@@ -44,7 +44,6 @@ chooseFreeSite cr = fromMaybe 0 . findIndex hasnoequipment
 
 getEquipmentAllocation :: Int -> World -> EquipmentAllocation
 getEquipmentAllocation invid w = fromMaybe DoNotMoveEquipment $ do
---    curpos <- you w ^? crManipulation . manObject . imSelectedItem
     esite <- you w ^? crInv . ix invid . itUse . uequipEffect . eeType
     i <-
         w ^? rbOptions . opSel

src/Dodge/Item.hs

@@ -26,6 +26,7 @@ itemFromBase = \case
     BULLETMOD bm -> bulletModule bm
     STICKYMOD -> stickyMod
     ITEMSCANNER -> itemScanner
+    INTROSCAN t -> introScan t
 
 itemFromAmmoMag :: AmmoMagType -> Item
 itemFromAmmoMag at = case at of

src/Dodge/Item/Display.hs

@@ -67,6 +67,7 @@ itemBaseName = \case
     BULLETMOD (BulletModEffect btt) -> show btt
     STICKYMOD -> "STICKYMOD" 
     ITEMSCANNER -> "ITEMSCANNER"
+    INTROSCAN t -> show t
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of
@@ -106,8 +107,14 @@ itemNumberDisplay cr ci
 --    | UseAttach (APLinkProjectile i) <- ci ^. _1 . itUse = [show i]
     | UseAttach (APProjectiles x) <- ci ^. _1 . itUse = [show x]
     | UseScope OpticScope{_opticZoom = x} <- ci ^. _1 . itUse = [shortShow x]
+    | Just t <- ci ^? _1 . itType . ibtIntroScanType = [introScanDisplay cr t]
     | otherwise = mempty
 
+introScanDisplay :: Creature -> IntroScanType -> String
+introScanDisplay cr = \case
+    HEALTH -> shortShow (cr ^. crHP)
+    MAXHEALTH -> shortShow (cr ^. crMaxHP)
+
 displayPulse :: Int -> String
 displayPulse 0 = "*****"
 displayPulse x = take 5 $ drop y "----^-----"

src/Dodge/Item/Draw/SPic.hs

@@ -42,6 +42,7 @@ itemSPic it = case it ^. itType of
     BULLETMOD{} -> defSPic
     STICKYMOD -> defSPic
     ITEMSCANNER -> defSPic
+    INTROSCAN {} -> defSPic
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case

src/Dodge/Item/Scope.hs

@@ -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

src/Dodge/Render/HUD.hs

@@ -235,7 +235,7 @@ yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
     _ -> x
 
 drawRBOptions :: Configuration -> World -> Picture
-drawRBOptions cfig w = fromMaybe mempty $ do
+drawRBOptions cfig w = fold $ do
     guard $ ButtonRight `M.member` _mouseButtons (_input w)
     invid <- you w ^? crManipulation . manObject . imSelectedItem
     eslist <-

tags

@@ -19,20 +19,20 @@
 <$>	src/Dodge/Data/Creature.hs	88;"	o
 <$>	src/Dodge/Data/LWorld.hs	159;"	o
 <$>	src/Dodge/Data/Terminal.hs	131;"	o
-AIUNIT	src/Dodge/Data/Item/Combine.hs	52;"	C
+AIUNIT	src/Dodge/Data/Item/Combine.hs	57;"	C
-ALTERIFLE	src/Dodge/Data/Item/Combine.hs	132;"	C
+ALTERIFLE	src/Dodge/Data/Item/Combine.hs	137;"	C
 AMMOMAG	src/Dodge/Data/Item/Combine.hs	20;"	C
-AMR	src/Dodge/Data/Item/Combine.hs	137;"	C
+AMR	src/Dodge/Data/Item/Combine.hs	142;"	C
-ANTIMATTER	src/Dodge/Data/Item/Combine.hs	46;"	C
+ANTIMATTER	src/Dodge/Data/Item/Combine.hs	51;"	C
 APInt	src/Dodge/Data/Item/Use.hs	70;"	C
 APNothing	src/Dodge/Data/Item/Use.hs	71;"	C
 APProjectiles	src/Dodge/Data/Item/Use.hs	68;"	C
 AQUAMARINE	src/Color/Data.hs	24;"	C
 ATTACH	src/Dodge/Data/Item/Combine.hs	19;"	C
-AUGMENTEDHUD	src/Dodge/Data/Item/Combine.hs	80;"	C
+AUGMENTEDHUD	src/Dodge/Data/Item/Combine.hs	85;"	C
-AUTOAMR	src/Dodge/Data/Item/Combine.hs	138;"	C
+AUTOAMR	src/Dodge/Data/Item/Combine.hs	143;"	C
-AUTOPISTOL	src/Dodge/Data/Item/Combine.hs	124;"	C
+AUTOPISTOL	src/Dodge/Data/Item/Combine.hs	129;"	C
-AUTORIFLE	src/Dodge/Data/Item/Combine.hs	133;"	C
+AUTORIFLE	src/Dodge/Data/Item/Combine.hs	138;"	C
 AZURE	src/Color/Data.hs	23;"	C
 AccessTerminal	src/Dodge/Data/WorldEffect.hs	27;"	C
 Action	src/Dodge/Data/ActionPlan.hs	78;"	t
@@ -60,7 +60,7 @@ AmmoEffectSF	src/Dodge/Data/ComposedItem.hs	57;"	C
 AmmoInLink	src/Dodge/Data/ComposedItem.hs	17;"	C
 AmmoMag	src/Dodge/Data/Item.hs	34;"	C
 AmmoMagSF	src/Dodge/Data/ComposedItem.hs	48;"	C
-AmmoMagType	src/Dodge/Data/Item/Combine.hs	84;"	t
+AmmoMagType	src/Dodge/Data/Item/Combine.hs	89;"	t
 AmmoModLink	src/Dodge/Data/ComposedItem.hs	19;"	C
 AmmoModifierSF	src/Dodge/Data/ComposedItem.hs	54;"	C
 AmmoParams	src/Dodge/Data/Item/Use.hs	107;"	t
@@ -96,7 +96,7 @@ AtEase	src/Dodge/Data/Creature/Stance.hs	40;"	C
 AtomicWaste	src/Dodge/Data/Scenario.hs	26;"	C
 Attach	src/Dodge/Item/Attach.hs	1;"	m
 AttachParams	src/Dodge/Data/Item/Use.hs	67;"	t
-AttachType	src/Dodge/Data/Item/Combine.hs	69;"	t
+AttachType	src/Dodge/Data/Item/Combine.hs	74;"	t
 Attention	src/Dodge/Data/Creature/Perception.hs	60;"	t
 AttentiveTo	src/Dodge/Data/Creature/Perception.hs	61;"	C
 Audition	src/Dodge/Data/Creature/Perception.hs	47;"	t
@@ -111,26 +111,26 @@ AuxAddition	src/Shader/AuxAddition.hs	1;"	m
 Avatar	src/Dodge/Data/Creature/Misc.hs	70;"	C
 Awareness	src/Dodge/Data/Creature/Perception.hs	65;"	t
 Awareness	src/Dodge/Creature/Picture/Awareness.hs	1;"	m
-BANGCONE	src/Dodge/Data/Item/Combine.hs	126;"	C
+BANGCONE	src/Dodge/Data/Item/Combine.hs	131;"	C
-BANGROD	src/Dodge/Data/Item/Combine.hs	135;"	C
+BANGROD	src/Dodge/Data/Item/Combine.hs	140;"	C
-BANGSTICK	src/Dodge/Data/Item/Combine.hs	118;"	C
+BANGSTICK	src/Dodge/Data/Item/Combine.hs	123;"	C
-BATTERY	src/Dodge/Data/Item/Combine.hs	89;"	C
+BATTERY	src/Dodge/Data/Item/Combine.hs	94;"	C
-BATTERYPACK	src/Dodge/Data/Item/Combine.hs	113;"	C
+BATTERYPACK	src/Dodge/Data/Item/Combine.hs	118;"	C
-BELTMAG	src/Dodge/Data/Item/Combine.hs	87;"	C
+BELTMAG	src/Dodge/Data/Item/Combine.hs	92;"	C
 BLACK	src/Color/Data.hs	28;"	C
-BLINKER	src/Dodge/Data/Item/Combine.hs	158;"	C
+BLINKER	src/Dodge/Data/Item/Combine.hs	163;"	C
-BLINKERUNSAFE	src/Dodge/Data/Item/Combine.hs	159;"	C
+BLINKERUNSAFE	src/Dodge/Data/Item/Combine.hs	164;"	C
-BLOWTORCH	src/Dodge/Data/Item/Combine.hs	144;"	C
+BLOWTORCH	src/Dodge/Data/Item/Combine.hs	149;"	C
 BLUE	src/Color/Data.hs	17;"	C
-BLUNDERBUSS	src/Dodge/Data/Item/Combine.hs	127;"	C
+BLUNDERBUSS	src/Dodge/Data/Item/Combine.hs	132;"	C
 BLUNT	src/Dodge/Data/Damage/Type.hs	13;"	C
 BQuad	src/Geometry/Bezier.hs	9;"	t
-BRAINHAT	src/Dodge/Data/Item/Combine.hs	104;"	C
+BRAINHAT	src/Dodge/Data/Item/Combine.hs	109;"	C
-BULLETBELTBRACER	src/Dodge/Data/Item/Combine.hs	112;"	C
+BULLETBELTBRACER	src/Dodge/Data/Item/Combine.hs	117;"	C
-BULLETBELTPACK	src/Dodge/Data/Item/Combine.hs	111;"	C
+BULLETBELTPACK	src/Dodge/Data/Item/Combine.hs	116;"	C
 BULLETMOD	src/Dodge/Data/Item/Combine.hs	22;"	C
-BULLETSYNTH	src/Dodge/Data/Item/Combine.hs	71;"	C
+BULLETSYNTH	src/Dodge/Data/Item/Combine.hs	76;"	C
-BURSTRIFLE	src/Dodge/Data/Item/Combine.hs	134;"	C
+BURSTRIFLE	src/Dodge/Data/Item/Combine.hs	139;"	C
 BackdropCursor	src/Dodge/Data/SelectionList.hs	21;"	C
 BackgroundSound	src/Dodge/Data/SoundOrigin.hs	15;"	C
 Ball	src/Dodge/Tesla/Ball.hs	1;"	m
@@ -242,18 +242,18 @@ ButtonEvent	src/Dodge/Data/Button.hs	22;"	t
 ButtonPress	src/Dodge/Data/Button.hs	24;"	C
 ButtonSimpleSwith	src/Dodge/Data/Button.hs	40;"	C
 ButtonState	src/Dodge/Data/Button.hs	63;"	t
-CAMERA	src/Dodge/Data/Item/Combine.hs	53;"	C
+CAMERA	src/Dodge/Data/Item/Combine.hs	58;"	C
-CAN	src/Dodge/Data/Item/Combine.hs	34;"	C
+CAN	src/Dodge/Data/Item/Combine.hs	39;"	C
 CDoNothing	src/Dodge/Data/Item/HeldUse.hs	15;"	C
 CHARTREUSE	src/Color/Data.hs	25;"	C
-CHEMFUELPOUCH	src/Dodge/Data/Item/Combine.hs	90;"	C
+CHEMFUELPOUCH	src/Dodge/Data/Item/Combine.hs	95;"	C
 CHeal	src/Dodge/Data/Item/HeldUse.hs	16;"	C
 CIRCLE	src/Dodge/Data/GenParams.hs	20;"	C
 CME	src/Dodge/Data/MuzzleEffect.hs	11;"	C
 CONCUSSIVE	src/Dodge/Data/Damage/Type.hs	22;"	C
 CRAFT	src/Dodge/Data/Item/Combine.hs	18;"	C
-CREATUREDETECTOR	src/Dodge/Data/Item/Combine.hs	164;"	C
+CREATUREDETECTOR	src/Dodge/Data/Item/Combine.hs	169;"	C
-CREATURESENSOR	src/Dodge/Data/Item/Combine.hs	63;"	C
+CREATURESENSOR	src/Dodge/Data/Item/Combine.hs	68;"	C
 CRUSHING	src/Dodge/Data/Damage/Type.hs	16;"	C
 CUTTING	src/Dodge/Data/Damage/Type.hs	14;"	C
 CWGen	src/Dodge/Data/CWorld.hs	35;"	t
@@ -353,7 +353,7 @@ Configuration	src/Dodge/Data/Config.hs	38;"	t
 Connectors	src/Dodge/Render/Connectors.hs	3;"	m
 ConstFloat	src/Dodge/Data/GenFloat.hs	11;"	C
 Consumable	src/Dodge/Item/Consumable.hs	1;"	m
-ConsumableItemType	src/Dodge/Data/Item/Combine.hs	93;"	t
+ConsumableItemType	src/Dodge/Data/Item/Combine.hs	98;"	t
 Consumables	src/Dodge/Data/Item.hs	32;"	t
 Consumption	src/Dodge/Data/Item/Use/Consumption.hs	8;"	m
 Consumption	src/Dodge/Default/Item/Use/Consumption.hs	1;"	m
@@ -406,7 +406,7 @@ CrWlID	src/Dodge/Data/CrWlID.hs	6;"	m
 Cr_awareness	src/Dodge/Data/Config.hs	72;"	C
 Cr_status	src/Dodge/Data/Config.hs	71;"	C
 CraftClust	src/Dodge/Combine/Graph.hs	19;"	C
-CraftType	src/Dodge/Data/Item/Combine.hs	27;"	t
+CraftType	src/Dodge/Data/Item/Combine.hs	32;"	t
 Craftable	src/Dodge/Item/Craftable.hs	1;"	m
 Create	src/Dodge/Projectile/Create.hs	1;"	m
 Create	src/Dodge/Prop/Create.hs	1;"	m
@@ -436,9 +436,9 @@ CursorDisplay	src/Dodge/Data/SelectionList.hs	19;"	t
 Cuse	src/Dodge/Data/Item/HeldUse.hs	14;"	t
 Cuse	src/Dodge/Cuse.hs	1;"	m
 Cylinder	src/Shape/Data.hs	19;"	C
-DETECTOR	src/Dodge/Data/Item/Combine.hs	157;"	C
+DETECTOR	src/Dodge/Data/Item/Combine.hs	162;"	C
 DPoint2	src/Geometry/Data.hs	34;"	t
-DRUMMAG	src/Dodge/Data/Item/Combine.hs	86;"	C
+DRUMMAG	src/Dodge/Data/Item/Combine.hs	91;"	C
 DS	src/DoubleStack.hs	3;"	t
 DT	src/Dodge/Data/DoubleTree.hs	30;"	C
 DTBottomNode	src/Dodge/Data/DoubleTree.hs	20;"	C
@@ -502,7 +502,7 @@ Destroy	src/Dodge/Machine/Destroy.hs	1;"	m
 DestroyBeing	src/Dodge/Data/Scenario.hs	8;"	C
 DestroyBullet	src/Dodge/Data/Bullet.hs	36;"	C
 DestroyItem	src/Dodge/Data/Scenario.hs	7;"	C
-Detector	src/Dodge/Data/Item/Combine.hs	162;"	t
+Detector	src/Dodge/Data/Item/Combine.hs	167;"	t
 Dirt	src/Dodge/Data/Material.hs	11;"	C
 DisasterType	src/Dodge/Data/Scenario.hs	24;"	t
 Display	src/Dodge/Item/Display.hs	2;"	m
@@ -592,13 +592,13 @@ EBO	src/Shader/Data.hs	88;"	t
 EDoNothing	src/Dodge/Data/Item/HeldUse.hs	20;"	C
 EHeadLamp	src/Dodge/Data/Item/HeldUse.hs	23;"	C
 ELECTRICAL	src/Dodge/Data/Damage/Type.hs	20;"	C
-ELEPHANTGUN	src/Dodge/Data/Item/Combine.hs	136;"	C
+ELEPHANTGUN	src/Dodge/Data/Item/Combine.hs	141;"	C
 EMagShield	src/Dodge/Data/Item/HeldUse.hs	21;"	C
 ENTERREMENT	src/Dodge/Data/Damage/Type.hs	24;"	C
 EQUIP	src/Dodge/Data/Item/Combine.hs	17;"	C
 EWristShield	src/Dodge/Data/Item/HeldUse.hs	22;"	C
 EXPLOSIVE	src/Dodge/Data/Damage/Type.hs	21;"	C
-EXPLOSIVES	src/Dodge/Data/Item/Combine.hs	95;"	C
+EXPLOSIVES	src/Dodge/Data/Item/Combine.hs	100;"	C
 Ears	src/Dodge/Data/Creature/Perception.hs	47;"	C
 East	src/Dodge/Data/CardinalPoint.hs	5;"	C
 East8	src/Dodge/Data/CardinalPoint.hs	13;"	C
@@ -627,7 +627,7 @@ EonWristShield	src/Dodge/Data/Item/Use/Equipment.hs	31;"	C
 EquipCounter	src/Dodge/Data/Item/Use/Equipment.hs	38;"	C
 EquipEffect	src/Dodge/Data/Item/Use/Equipment.hs	17;"	t
 EquipID	src/Dodge/Data/Item/Use/Equipment.hs	37;"	C
-EquipItemType	src/Dodge/Data/Item/Combine.hs	98;"	t
+EquipItemType	src/Dodge/Data/Item/Combine.hs	103;"	t
 EquipOptions	src/Dodge/Data/RightButtonOptions.hs	15;"	C
 EquipParams	src/Dodge/Data/Item/Use/Equipment.hs	35;"	t
 EquipSite	src/Dodge/Data/Equipment/Misc.hs	21;"	t
@@ -656,16 +656,16 @@ ExternallyGeneratedSounds	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	2;"
 ExtraEffect	src/Dodge/Item/Weapon/ExtraEffect.hs	6;"	m
 Eyes	src/Dodge/Data/Creature/Perception.hs	41;"	C
 FBO	src/Shader/Data.hs	57;"	t
-FLAMESHIELD	src/Dodge/Data/Item/Combine.hs	100;"	C
+FLAMESHIELD	src/Dodge/Data/Item/Combine.hs	105;"	C
-FLAMESPITTER	src/Dodge/Data/Item/Combine.hs	140;"	C
+FLAMESPITTER	src/Dodge/Data/Item/Combine.hs	145;"	C
-FLAMETHROWER	src/Dodge/Data/Item/Combine.hs	141;"	C
+FLAMETHROWER	src/Dodge/Data/Item/Combine.hs	146;"	C
-FLAMETORRENT	src/Dodge/Data/Item/Combine.hs	142;"	C
+FLAMETORRENT	src/Dodge/Data/Item/Combine.hs	147;"	C
-FLAMEWALL	src/Dodge/Data/Item/Combine.hs	143;"	C
+FLAMEWALL	src/Dodge/Data/Item/Combine.hs	148;"	C
 FLAMING	src/Dodge/Data/Damage/Type.hs	18;"	C
-FLATSHIELD	src/Dodge/Data/Item/Combine.hs	155;"	C
+FLATSHIELD	src/Dodge/Data/Item/Combine.hs	160;"	C
-FRONTARMOUR	src/Dodge/Data/Item/Combine.hs	101;"	C
+FRONTARMOUR	src/Dodge/Data/Item/Combine.hs	106;"	C
-FUELCELL	src/Dodge/Data/Item/Combine.hs	65;"	C
+FUELCELL	src/Dodge/Data/Item/Combine.hs	70;"	C
-FUELPACK	src/Dodge/Data/Item/Combine.hs	110;"	C
+FUELPACK	src/Dodge/Data/Item/Combine.hs	115;"	C
 FacilityType	src/Dodge/Data/Scenario.hs	55;"	t
 Faction	src/Dodge/Data/Creature/State.hs	34;"	t
 Factory	src/Dodge/Data/Scenario.hs	56;"	C
@@ -734,14 +734,14 @@ FunctionChangeLink	src/Dodge/Data/ComposedItem.hs	30;"	C
 FunctionChangeSF	src/Dodge/Data/ComposedItem.hs	58;"	C
 GBounce	src/Dodge/Data/Projectile.hs	52;"	C
 GEqC	src/SameConstr.hs	20;"	c
-GIMBAL	src/Dodge/Data/Item/Combine.hs	74;"	C
+GIMBAL	src/Dodge/Data/Item/Combine.hs	79;"	C
-GLASSSHARD	src/Dodge/Data/Item/Combine.hs	38;"	C
+GLASSSHARD	src/Dodge/Data/Item/Combine.hs	43;"	C
-GLAUNCHER	src/Dodge/Data/Item/Combine.hs	151;"	C
+GLAUNCHER	src/Dodge/Data/Item/Combine.hs	156;"	C
 GLHelp	src/GLHelp.hs	1;"	m
-GRAPECANNON	src/Dodge/Data/Item/Combine.hs	128;"	C
+GRAPECANNON	src/Dodge/Data/Item/Combine.hs	133;"	C
 GREEN	src/Color/Data.hs	16;"	C
 GStick	src/Dodge/Data/Projectile.hs	53;"	C
-GYROSCOPE	src/Dodge/Data/Item/Combine.hs	75;"	C
+GYROSCOPE	src/Dodge/Data/Item/Combine.hs	80;"	C
 GadgetPlatformSF	src/Dodge/Data/ComposedItem.hs	43;"	C
 GameOverOptions	src/Dodge/Data/Universe.hs	70;"	C
 GameRoom	src/Dodge/GameRoom.hs	15;"	t
@@ -793,14 +793,15 @@ Grid	src/Grid.hs	1;"	m
 Gust	src/Dodge/Data/Gust.hs	13;"	t
 Gust	src/Dodge/Data/Gust.hs	6;"	m
 GymSS	src/Dodge/Data/Scenario.hs	104;"	C
-HARDDRIVE	src/Dodge/Data/Item/Combine.hs	50;"	C
+HARDDRIVE	src/Dodge/Data/Item/Combine.hs	55;"	C
-HARDWARE	src/Dodge/Data/Item/Combine.hs	30;"	C
+HARDWARE	src/Dodge/Data/Item/Combine.hs	35;"	C
-HAT	src/Dodge/Data/Item/Combine.hs	105;"	C
+HAT	src/Dodge/Data/Item/Combine.hs	110;"	C
-HEADLAMP	src/Dodge/Data/Item/Combine.hs	106;"	C
+HEADLAMP	src/Dodge/Data/Item/Combine.hs	111;"	C
-HEATSENSOR	src/Dodge/Data/Item/Combine.hs	60;"	C
+HEALTH	src/Dodge/Data/Item/Combine.hs	29;"	C
+HEATSENSOR	src/Dodge/Data/Item/Combine.hs	65;"	C
 HELD	src/Dodge/Data/Item/Combine.hs	16;"	C
-HOMINGMODULE	src/Dodge/Data/Item/Combine.hs	79;"	C
+HOMINGMODULE	src/Dodge/Data/Item/Combine.hs	84;"	C
-HOSE	src/Dodge/Data/Item/Combine.hs	32;"	C
+HOSE	src/Dodge/Data/Item/Combine.hs	37;"	C
 HUD	src/Dodge/Data/HUD.hs	45;"	t
 HUD	src/Dodge/Data/HUD.hs	6;"	m
 HUD	src/Dodge/Render/HUD.hs	3;"	m
@@ -820,7 +821,7 @@ HasHammer	src/Dodge/Data/Hammer.hs	14;"	C
 HeavySmokeFlare	src/Dodge/Data/Item/Use.hs	130;"	C
 Held	src/Dodge/Item/Held.hs	1;"	m
 HeldDelay	src/Dodge/Data/Item/HeldDelay.hs	6;"	m
-HeldItemType	src/Dodge/Data/Item/Combine.hs	117;"	t
+HeldItemType	src/Dodge/Data/Item/Combine.hs	122;"	t
 HeldOffset	src/Dodge/Item/HeldOffset.hs	1;"	m
 HeldParams	src/Dodge/Data/Item/Use.hs	74;"	t
 HeldPlatformSF	src/Dodge/Data/ComposedItem.hs	39;"	C
@@ -853,9 +854,10 @@ Humanoid	src/Dodge/Humanoid.hs	1;"	m
 HumanoidAI	src/Dodge/Data/Creature/Misc.hs	48;"	t
 ILink	src/Dodge/Data/ComposedItem.hs	65;"	C
 IMSS	src/Dodge/Data/SelectionList.hs	36;"	t
-INVISIBILITYEQUIPMENT	src/Dodge/Data/Item/Combine.hs	103;"	C
+INTROSCAN	src/Dodge/Data/Item/Combine.hs	25;"	C
-IRONBAR	src/Dodge/Data/Item/Combine.hs	57;"	C
+INVISIBILITYEQUIPMENT	src/Dodge/Data/Item/Combine.hs	108;"	C
-ITEMDETECTOR	src/Dodge/Data/Item/Combine.hs	163;"	C
+IRONBAR	src/Dodge/Data/Item/Combine.hs	62;"	C
+ITEMDETECTOR	src/Dodge/Data/Item/Combine.hs	168;"	C
 ITEMSCANNER	src/Dodge/Data/Item/Combine.hs	24;"	C
 ImmediateEffect	src/Loop/Data.hs	8;"	C
 Importance	src/Shape/Data.hs	34;"	t
@@ -907,6 +909,7 @@ Intention	src/Dodge/Data/Creature.hs	76;"	t
 Intention	src/Dodge/Creature/Intention.hs	1;"	m
 Intersect	src/Geometry/Intersect.hs	5;"	m
 IntersectingRoomClipBoundaries	src/Dodge/Data/Config.hs	107;"	C
+IntroScanType	src/Dodge/Data/Item/Combine.hs	28;"	t
 InvInt	src/Dodge/Data/Item/Location.hs	19;"	t
 InvSize	src/Dodge/Item/InvSize.hs	2;"	m
 Inventory	src/Dodge/Inventory.hs	2;"	m
@@ -948,17 +951,17 @@ ItmCrWdWd	src/Dodge/Data/Item/Use/Equipment.hs	28;"	t
 ItmCrWdWdDoNothing	src/Dodge/Data/Item/Use/Equipment.hs	29;"	C
 ItmInt	src/Dodge/Data/Item/Location.hs	25;"	t
 JGK	src/Control/Foldl/JGK.hs	1;"	m
-JOYSTICK	src/Dodge/Data/Item/Combine.hs	73;"	C
+JOYSTICK	src/Dodge/Data/Item/Combine.hs	78;"	C
-JUMPLEGS	src/Dodge/Data/Item/Combine.hs	109;"	C
+JUMPLEGS	src/Dodge/Data/Item/Combine.hs	114;"	C
 JoinClust	src/Dodge/Combine/Graph.hs	21;"	C
 JoystickLink	src/Dodge/Data/ComposedItem.hs	25;"	C
 JoystickSF	src/Dodge/Data/ComposedItem.hs	50;"	C
 Just'	src/MaybeHelp.hs	13;"	C
 JustStartedPlaying	src/Sound/Data.hs	25;"	C
 Justify	src/Justify.hs	1;"	m
-KEYCARD	src/Dodge/Data/Item/Combine.hs	156;"	C
+KEYCARD	src/Dodge/Data/Item/Combine.hs	161;"	C
 Kill	src/Dodge/Data/ActionPlan.hs	198;"	C
-LASER	src/Dodge/Data/Item/Combine.hs	147;"	C
+LASER	src/Dodge/Data/Item/Combine.hs	152;"	C
 LASERING	src/Dodge/Data/Damage/Type.hs	19;"	C
 LDT	src/Dodge/Data/DoubleTree.hs	40;"	C
 LDTBottomNode	src/Dodge/Data/DoubleTree.hs	28;"	C
@@ -967,10 +970,10 @@ LDTMidAboveNode	src/Dodge/Data/DoubleTree.hs	26;"	C
 LDTMidBelowNode	src/Dodge/Data/DoubleTree.hs	27;"	C
 LDTRootNode	src/Dodge/Data/DoubleTree.hs	24;"	C
 LDTTopNode	src/Dodge/Data/DoubleTree.hs	25;"	C
-LED	src/Dodge/Data/Item/Combine.hs	55;"	C
+LED	src/Dodge/Data/Item/Combine.hs	60;"	C
 LHS	src/Geometry/LHS.hs	1;"	m
-LIGHTER	src/Dodge/Data/Item/Combine.hs	44;"	C
+LIGHTER	src/Dodge/Data/Item/Combine.hs	49;"	C
-LIGHTSENSOR	src/Dodge/Data/Item/Combine.hs	58;"	C
+LIGHTSENSOR	src/Dodge/Data/Item/Combine.hs	63;"	C
 LS	src/Dodge/Data/LightSource.hs	23;"	C
 LSParam	src/Dodge/Data/LightSource.hs	16;"	t
 LTest	src/Dodge/Data/ComposedItem.hs	72;"	C
@@ -1067,23 +1070,23 @@ LtAutoAI	src/Dodge/Data/Creature/Misc.hs	53;"	C
 LtAutoCrit	src/Dodge/Creature/LtAutoCrit.hs	1;"	m
 Lure	src/Dodge/Data/ActionPlan.hs	179;"	C
 Luse	src/Dodge/Luse.hs	2;"	m
-MACHINEPISTOL	src/Dodge/Data/Item/Combine.hs	123;"	C
+MACHINEPISTOL	src/Dodge/Data/Item/Combine.hs	128;"	C
 MAGENTA	src/Color/Data.hs	20;"	C
-MAGNET	src/Dodge/Data/Item/Combine.hs	45;"	C
+MAGNET	src/Dodge/Data/Item/Combine.hs	50;"	C
-MAGSHIELD	src/Dodge/Data/Item/Combine.hs	99;"	C
+MAGSHIELD	src/Dodge/Data/Item/Combine.hs	104;"	C
 MBranch	src/Dodge/Data/MetaTree.hs	16;"	C
 MBranch	src/Dodge/Tree/Compose/Data.hs	10;"	C
 MCrAc	src/Dodge/Data/CreatureEffect.hs	45;"	t
 MCrNoAction	src/Dodge/Data/CreatureEffect.hs	45;"	C
-MEDKIT	src/Dodge/Data/Item/Combine.hs	94;"	C
+MEDKIT	src/Dodge/Data/Item/Combine.hs	99;"	C
-MICROCHIP	src/Dodge/Data/Item/Combine.hs	49;"	C
+MICROCHIP	src/Dodge/Data/Item/Combine.hs	54;"	C
-MICROPHONE	src/Dodge/Data/Item/Combine.hs	61;"	C
+MICROPHONE	src/Dodge/Data/Item/Combine.hs	66;"	C
-MINIDISPLAY	src/Dodge/Data/Item/Combine.hs	54;"	C
+MINIDISPLAY	src/Dodge/Data/Item/Combine.hs	59;"	C
-MINIGUNX	src/Dodge/Data/Item/Combine.hs	129;"	C
+MINIGUNX	src/Dodge/Data/Item/Combine.hs	134;"	C
 MODBlockedString	src/Dodge/Data/Universe.hs	98;"	C
 MODString	src/Dodge/Data/Universe.hs	97;"	C
 MODStringOption	src/Dodge/Data/Universe.hs	99;"	C
-MOTOR	src/Dodge/Data/Item/Combine.hs	41;"	C
+MOTOR	src/Dodge/Data/Item/Combine.hs	46;"	C
 MP2Ac	src/Dodge/Data/CreatureEffect.hs	56;"	t
 MP2NoAction	src/Dodge/Data/CreatureEffect.hs	56;"	C
 MTRS	src/Dodge/Annotation/Data.hs	12;"	t
@@ -1213,7 +1216,7 @@ MuzzleUnsafeBlink	src/Dodge/Data/Item/Use.hs	151;"	C
 MvForward	src/Dodge/Data/ActionPlan.hs	35;"	C
 MvTurnToward	src/Dodge/Data/ActionPlan.hs	34;"	C
 MvWalking	src/Dodge/Data/Creature/Misc.hs	39;"	C
-NAILBOX	src/Dodge/Data/Item/Combine.hs	56;"	C
+NAILBOX	src/Dodge/Data/Item/Combine.hs	61;"	C
 NInt	src/NewInt.hs	15;"	C
 NIntMap	src/NewInt.hs	18;"	C
 NS	src/Dodge/Data/CardinalPoint.hs	25;"	C
@@ -1368,24 +1371,24 @@ P2Imp	src/Dodge/Data/CreatureEffect.hs	28;"	t
 P2ImpNo	src/Dodge/Data/CreatureEffect.hs	28;"	C
 P2NoAction	src/Dodge/Data/CreatureEffect.hs	53;"	C
 PIERCING	src/Dodge/Data/Damage/Type.hs	12;"	C
-PIPE	src/Dodge/Data/Item/Combine.hs	28;"	C
+PIPE	src/Dodge/Data/Item/Combine.hs	33;"	C
-PISTOL	src/Dodge/Data/Item/Combine.hs	122;"	C
+PISTOL	src/Dodge/Data/Item/Combine.hs	127;"	C
 PJStabiliser	src/Dodge/Projectile/Create.hs	16;"	t
-PLANK	src/Dodge/Data/Item/Combine.hs	37;"	C
+PLANK	src/Dodge/Data/Item/Combine.hs	42;"	C
-PLATE	src/Dodge/Data/Item/Combine.hs	47;"	C
+PLATE	src/Dodge/Data/Item/Combine.hs	52;"	C
 PLUS	src/Dodge/Data/GenParams.hs	20;"	C
 POISONDAM	src/Dodge/Data/Damage/Type.hs	23;"	C
-POISONSPRAYER	src/Dodge/Data/Item/Combine.hs	152;"	C
+POISONSPRAYER	src/Dodge/Data/Item/Combine.hs	157;"	C
-PORTABLEFUSION	src/Dodge/Data/Item/Combine.hs	66;"	C
+PORTABLEFUSION	src/Dodge/Data/Item/Combine.hs	71;"	C
-POWERLEGS	src/Dodge/Data/Item/Combine.hs	107;"	C
+POWERLEGS	src/Dodge/Data/Item/Combine.hs	112;"	C
 PPLevelReset	src/Dodge/Data/PressPlate.hs	16;"	C
-PRISM	src/Dodge/Data/Item/Combine.hs	43;"	C
+PRISM	src/Dodge/Data/Item/Combine.hs	48;"	C
 PS	src/Dodge/Data/GenWorld.hs	62;"	C
 PSNoShiftCont	src/Dodge/Data/GenWorld.hs	63;"	C
 PSPos	src/Dodge/Data/GenWorld.hs	64;"	C
 PSRoomRand	src/Dodge/Data/GenWorld.hs	69;"	C
 PSType	src/Dodge/Data/GenWorld.hs	30;"	t
-PUMP	src/Dodge/Data/Item/Combine.hs	40;"	C
+PUMP	src/Dodge/Data/Item/Combine.hs	45;"	C
 Padding	src/Padding.hs	2;"	m
 Pair	src/FoldlHelp.hs	10;"	t
 PaletteColor	src/Color/Data.hs	14;"	t
@@ -1541,16 +1544,16 @@ PutWorldUpdate	src/Dodge/Data/GenWorld.hs	54;"	C
 QuarterRes	src/Dodge/Data/Config.hs	97;"	C
 Quaternion	src/Quaternion.hs	12;"	m
 QuicksaveSlot	src/Dodge/Data/SaveSlot.hs	10;"	C
-RAM	src/Dodge/Data/Item/Combine.hs	51;"	C
+RAM	src/Dodge/Data/Item/Combine.hs	56;"	C
 RBList	src/Dodge/Inventory/RBList.hs	1;"	m
 RED	src/Color/Data.hs	15;"	C
-REMOTEDETONATOR	src/Dodge/Data/Item/Combine.hs	77;"	C
+REMOTEDETONATOR	src/Dodge/Data/Item/Combine.hs	82;"	C
-REMOTESCREEN	src/Dodge/Data/Item/Combine.hs	72;"	C
+REMOTESCREEN	src/Dodge/Data/Item/Combine.hs	77;"	C
-REWINDER	src/Dodge/Data/Item/Combine.hs	119;"	C
+REWINDER	src/Dodge/Data/Item/Combine.hs	124;"	C
 RGBA	src/Color/Data.hs	31;"	t
-RIFLE	src/Dodge/Data/Item/Combine.hs	131;"	C
+RIFLE	src/Dodge/Data/Item/Combine.hs	136;"	C
-RLAUNCHER	src/Dodge/Data/Item/Combine.hs	149;"	C
+RLAUNCHER	src/Dodge/Data/Item/Combine.hs	154;"	C
-RLAUNCHERX	src/Dodge/Data/Item/Combine.hs	150;"	C
+RLAUNCHERX	src/Dodge/Data/Item/Combine.hs	155;"	C
 ROSE	src/Color/Data.hs	21;"	C
 RPLinkStatus	src/Dodge/Data/Room.hs	55;"	t
 RProps	src/Dodge/Layout/Generate.hs	13;"	C
@@ -1645,25 +1648,25 @@ RoomWire	src/Dodge/Data/Room.hs	51;"	t
 RoundedFaces	src/Shape/Data.hs	18;"	C
 RunPast	src/Dodge/Room/RunPast.hs	1;"	m
 RunningSideEffect	src/Dodge/Data/Universe.hs	67;"	C
-SCRAPMETAL	src/Dodge/Data/Item/Combine.hs	39;"	C
+SCRAPMETAL	src/Dodge/Data/Item/Combine.hs	44;"	C
-SHATTERGUN	src/Dodge/Data/Item/Combine.hs	153;"	C
+SHATTERGUN	src/Dodge/Data/Item/Combine.hs	158;"	C
 SHATTERING	src/Dodge/Data/Damage/Type.hs	17;"	C
-SHELLMAG	src/Dodge/Data/Item/Combine.hs	88;"	C
+SHELLMAG	src/Dodge/Data/Item/Combine.hs	93;"	C
-SHELLPAYLOAD	src/Dodge/Data/Item/Combine.hs	81;"	C
+SHELLPAYLOAD	src/Dodge/Data/Item/Combine.hs	86;"	C
-SMG	src/Dodge/Data/Item/Combine.hs	125;"	C
+SMG	src/Dodge/Data/Item/Combine.hs	130;"	C
-SMOKEREDUCER	src/Dodge/Data/Item/Combine.hs	78;"	C
+SMOKEREDUCER	src/Dodge/Data/Item/Combine.hs	83;"	C
-SNIPERRIFLE	src/Dodge/Data/Item/Combine.hs	139;"	C
+SNIPERRIFLE	src/Dodge/Data/Item/Combine.hs	144;"	C
-SOUNDSENSOR	src/Dodge/Data/Item/Combine.hs	59;"	C
+SOUNDSENSOR	src/Dodge/Data/Item/Combine.hs	64;"	C
-SPARKGUN	src/Dodge/Data/Item/Combine.hs	145;"	C
+SPARKGUN	src/Dodge/Data/Item/Combine.hs	150;"	C
 SPARKING	src/Dodge/Data/Damage/Type.hs	15;"	C
-SPEEDLEGS	src/Dodge/Data/Item/Combine.hs	108;"	C
+SPEEDLEGS	src/Dodge/Data/Item/Combine.hs	113;"	C
-SPRING	src/Dodge/Data/Item/Combine.hs	31;"	C
+SPRING	src/Dodge/Data/Item/Combine.hs	36;"	C
 SPic	src/ShapePicture/Data.hs	7;"	t
 SPic	src/Dodge/Item/Draw/SPic.hs	3;"	m
 SQUARE	src/Dodge/Data/GenParams.hs	20;"	C
 ST	src/Dodge/Data/MetaTree.hs	18;"	C
 ST	src/Dodge/Tree/Compose/Data.hs	12;"	C
-STEELDRUM	src/Dodge/Data/Item/Combine.hs	36;"	C
+STEELDRUM	src/Dodge/Data/Item/Combine.hs	41;"	C
 STICKYMOD	src/Dodge/Data/Item/Combine.hs	23;"	C
 SameConstr	src/SameConstr.hs	5;"	m
 Save	src/Dodge/Save.hs	1;"	m
@@ -1851,20 +1854,20 @@ SwarmPlacement	src/Dodge/LevelGen/SwarmPlacement.hs	1;"	m
 Switch	src/Dodge/LevelGen/Switch.hs	1;"	m
 SwitchAlteRifle	src/Dodge/Data/Item/Use.hs	51;"	C
 SwitchToItem	src/Dodge/Data/ActionPlan.hs	38;"	C
-TAPE	src/Dodge/Data/Item/Combine.hs	33;"	C
+TAPE	src/Dodge/Data/Item/Combine.hs	38;"	C
 TARGETING	src/Dodge/Data/Item/Combine.hs	21;"	C
-TESLAGUN	src/Dodge/Data/Item/Combine.hs	146;"	C
+TESLAGUN	src/Dodge/Data/Item/Combine.hs	151;"	C
-THERMOMETER	src/Dodge/Data/Item/Combine.hs	62;"	C
+THERMOMETER	src/Dodge/Data/Item/Combine.hs	67;"	C
 THREELINES	src/Dodge/Data/GenParams.hs	20;"	C
-TIMESCROLLER	src/Dodge/Data/Item/Combine.hs	121;"	C
+TIMESCROLLER	src/Dodge/Data/Item/Combine.hs	126;"	C
-TIMESTOPPER	src/Dodge/Data/Item/Combine.hs	120;"	C
+TIMESTOPPER	src/Dodge/Data/Item/Combine.hs	125;"	C
-TIN	src/Dodge/Data/Item/Combine.hs	35;"	C
+TIN	src/Dodge/Data/Item/Combine.hs	40;"	C
-TINMAG	src/Dodge/Data/Item/Combine.hs	85;"	C
+TINMAG	src/Dodge/Data/Item/Combine.hs	90;"	C
 TO	src/Shader/Data.hs	59;"	t
-TORCH	src/Dodge/Data/Item/Combine.hs	154;"	C
+TORCH	src/Dodge/Data/Item/Combine.hs	159;"	C
-TRACTORGUN	src/Dodge/Data/Item/Combine.hs	148;"	C
+TRACTORGUN	src/Dodge/Data/Item/Combine.hs	153;"	C
-TRANSFORMER	src/Dodge/Data/Item/Combine.hs	42;"	C
+TRANSFORMER	src/Dodge/Data/Item/Combine.hs	47;"	C
-TRANSMITTER	src/Dodge/Data/Item/Combine.hs	48;"	C
+TRANSMITTER	src/Dodge/Data/Item/Combine.hs	53;"	C
 TSbackspace	src/Dodge/Data/Input.hs	62;"	C
 TSdelete	src/Dodge/Data/Input.hs	63;"	C
 TSdown	src/Dodge/Data/Input.hs	68;"	C
@@ -1874,7 +1877,7 @@ TSreturn	src/Dodge/Data/Input.hs	61;"	C
 TSright	src/Dodge/Data/Input.hs	66;"	C
 TStab	src/Dodge/Data/Input.hs	64;"	C
 TSup	src/Dodge/Data/Input.hs	67;"	C
-TUBE	src/Dodge/Data/Item/Combine.hs	29;"	C
+TUBE	src/Dodge/Data/Item/Combine.hs	34;"	C
 Tank	src/Dodge/Placement/Instance/Tank.hs	1;"	m
 Tanks	src/Dodge/Room/Tanks.hs	1;"	m
 Tap	src/Dodge/Data/SoundOrigin.hs	38;"	C
@@ -2005,7 +2008,7 @@ TwoHandUnder	src/Dodge/Data/Item/Use.hs	184;"	C
 Type	src/Dodge/Data/Damage/Type.hs	6;"	m
 Type	src/Dodge/Terminal/Type.hs	1;"	m
 Typical	src/Shape/Data.hs	36;"	C
-UNDERBARRELSLOT	src/Dodge/Data/Item/Combine.hs	76;"	C
+UNDERBARRELSLOT	src/Dodge/Data/Item/Combine.hs	81;"	C
 UnderBarrelPlatformLink	src/Dodge/Data/ComposedItem.hs	34;"	C
 UnderBarrelPlatformSF	src/Dodge/Data/ComposedItem.hs	41;"	C
 UnderBarrelSlotLink	src/Dodge/Data/ComposedItem.hs	33;"	C
@@ -2066,7 +2069,7 @@ VAO	src/Shader/Data.hs	64;"	t
 VBO	src/Shader/Data.hs	81;"	t
 VF	src/Polyhedra/Data.hs	21;"	t
 VIOLET	src/Color/Data.hs	22;"	C
-VOLLEYGUN	src/Dodge/Data/Item/Combine.hs	130;"	C
+VOLLEYGUN	src/Dodge/Data/Item/Combine.hs	135;"	C
 Vector	src/Geometry/Vector.hs	3;"	m
 Vector3D	src/Geometry/Vector3D.hs	2;"	m
 VertexAttribute	src/Shader/Data.hs	68;"	t
@@ -2081,12 +2084,12 @@ Vision	src/Dodge/Data/Creature/Perception.hs	41;"	t
 Vocalization	src/Dodge/Data/Creature/Misc.hs	27;"	t
 Vocalization	src/Dodge/Creature/Vocalization.hs	1;"	m
 Volition	src/Dodge/Creature/Volition.hs	2;"	m
-WALLDETECTOR	src/Dodge/Data/Item/Combine.hs	165;"	C
+WALLDETECTOR	src/Dodge/Data/Item/Combine.hs	170;"	C
 WASD	src/Dodge/WASD.hs	1;"	m
 WHITE	src/Color/Data.hs	27;"	C
-WIRE	src/Dodge/Data/Item/Combine.hs	64;"	C
+WIRE	src/Dodge/Data/Item/Combine.hs	69;"	C
-WRISTARMOUR	src/Dodge/Data/Item/Combine.hs	102;"	C
+WRISTARMOUR	src/Dodge/Data/Item/Combine.hs	107;"	C
-WRIST_ECG	src/Dodge/Data/Item/Combine.hs	114;"	C
+WRIST_ECG	src/Dodge/Data/Item/Combine.hs	119;"	C
 WaitThen	src/Dodge/Data/ActionPlan.hs	103;"	C
 WalkCycle	src/Dodge/Creature/State/WalkCycle.hs	1;"	m
 Walking	src/Dodge/Data/Creature/Stance.hs	21;"	C
@@ -2170,7 +2173,7 @@ WorldPos	src/Dodge/WorldPos.hs	1;"	m
 YELLOW	src/Color/Data.hs	18;"	C
 You	src/Dodge/Base/You.hs	1;"	m
 YourControl	src/Dodge/Creature/YourControl.hs	1;"	m
-ZOOMSCOPE	src/Dodge/Data/Item/Combine.hs	70;"	C
+ZOOMSCOPE	src/Dodge/Data/Item/Combine.hs	75;"	C
 ZombieFaction	src/Dodge/Data/Creature/State.hs	36;"	C
 Zone	src/Dodge/Wall/Zone.hs	1;"	m
 Zone	src/Geometry/Zone.hs	1;"	m
@@ -2600,6 +2603,7 @@ _ibtBulletMod	src/Dodge/Data/Item/Combine.hs	22;"	f
 _ibtCraft	src/Dodge/Data/Item/Combine.hs	18;"	f
 _ibtEquip	src/Dodge/Data/Item/Combine.hs	17;"	f
 _ibtHeld	src/Dodge/Data/Item/Combine.hs	16;"	f
+_ibtIntroScanType	src/Dodge/Data/Item/Combine.hs	25;"	f
 _ibtTargeting	src/Dodge/Data/Item/Combine.hs	21;"	f
 _ieInv	src/Dodge/Data/Item/Effect.hs	13;"	f
 _ieOnDrop	src/Dodge/Data/Item/Effect.hs	15;"	f
@@ -3032,7 +3036,7 @@ _shaderVAO	src/Shader/Data.hs	54;"	f
 _shapeEBO	src/Data/Preload/Render.hs	26;"	f
 _shapeHalfSize	src/Shape/Data.hs	18;"	f
 _shapeShader	src/Data/Preload/Render.hs	25;"	f
-_shellPayload	src/Dodge/Data/Item/Combine.hs	81;"	f
+_shellPayload	src/Dodge/Data/Item/Combine.hs	86;"	f
 _shockwaves	src/Dodge/Data/LWorld.hs	115;"	f
 _shrinkGunStatus	src/Dodge/Data/Item/Params.hs	18;"	f
 _siColor	src/Dodge/Data/SelectionList.hs	49;"	f
@@ -3282,9 +3286,9 @@ _wpMaxCharge	src/Dodge/Data/Item/Use/Consumption.hs	34;"	f
 _wsBlock	src/Dodge/Data/Wall.hs	52;"	f
 _wsDoor	src/Dodge/Data/Wall.hs	50;"	f
 _wsMachine	src/Dodge/Data/Wall.hs	51;"	f
-_xNum	src/Dodge/Data/Item/Combine.hs	118;"	f
+_xNum	src/Dodge/Data/Item/Combine.hs	123;"	f
-_xNum	src/Dodge/Data/Item/Combine.hs	128;"	f
+_xNum	src/Dodge/Data/Item/Combine.hs	133;"	f
-_xNum	src/Dodge/Data/Item/Combine.hs	150;"	f
+_xNum	src/Dodge/Data/Item/Combine.hs	155;"	f
 aDroneWithItemParams	src/Dodge/Item/Weapon/Drone.hs	30;"	f
 aFlame	src/Dodge/Gas.hs	18;"	f
 aFlameParticle	src/Dodge/Flame.hs	21;"	f
@@ -3425,7 +3429,7 @@ attachTree	src/Dodge/Tree/Compose.hs	38;"	f
 attentionViewPoint	src/Dodge/Creature/ReaderUpdate.hs	66;"	f
 attribSize	src/Shader/Compile.hs	306;"	f
 augInvDirectSelect	src/Dodge/Inventory.hs	179;"	f
-augmentedHUD	src/Dodge/Item/Scope.hs	74;"	f
+augmentedHUD	src/Dodge/Item/Scope.hs	81;"	f
 autoAmr	src/Dodge/Item/Held/Rod.hs	49;"	f
 autoBS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	362;"	f
 autoCrit	src/Dodge/Creature/AutoCrit.hs	12;"	f
@@ -3531,8 +3535,8 @@ bufferPokedVBO	src/Shader/Bind.hs	19;"	f
 bufferShaderLayers	src/Shader/Bind.hs	36;"	f
 bulletBeltBracer	src/Dodge/Item/Equipment.hs	110;"	f
 bulletBeltPack	src/Dodge/Item/Equipment.hs	92;"	f
-bulletModule	src/Dodge/Item/Scope.hs	57;"	f
+bulletModule	src/Dodge/Item/Scope.hs	64;"	f
-bulletPayloadModule	src/Dodge/Item/Scope.hs	71;"	f
+bulletPayloadModule	src/Dodge/Item/Scope.hs	78;"	f
 bulletSynthesizer	src/Dodge/Item/Ammo.hs	122;"	f
 bulletWeapons	src/Dodge/Combine/Combinations.hs	247;"	f
 burstRifle	src/Dodge/Item/Held/Cane.hs	83;"	f
@@ -4231,7 +4235,7 @@ endRegex	src/Dodge/Update/Input/InGame.hs	258;"	f
 enterCombineInv	src/Dodge/DisplayInventory.hs	360;"	f
 eqConstr	src/SameConstr.hs	17;"	f
 eqPosText	src/Dodge/Equipment/Text.hs	5;"	f
-eqSiteToPositions	src/Dodge/Inventory/RBList.hs	76;"	f
+eqSiteToPositions	src/Dodge/Inventory/RBList.hs	75;"	f
 equipAllocString	src/Dodge/Render/HUD.hs	295;"	f
 equipInfo	src/Dodge/Item/Info.hs	98;"	f
 equipItemSPic	src/Dodge/Item/Draw/SPic.hs	134;"	f
@@ -4413,7 +4417,7 @@ getTiles	src/Dodge/Layout.hs	208;"	f
 getViewpoints	src/Dodge/Viewpoints.hs	29;"	f
 getWallSPic	src/Dodge/Render/Walls.hs	51;"	f
 getWindowSize	src/Dodge/WindowSize.hs	5;"	f
-gimbal	src/Dodge/Item/Scope.hs	91;"	f
+gimbal	src/Dodge/Item/Scope.hs	98;"	f
 girder	src/Dodge/Room/Foreground.hs	211;"	f
 girderV	src/Dodge/Room/Foreground.hs	182;"	f
 girderV'	src/Dodge/Room/Foreground.hs	157;"	f
@@ -4457,7 +4461,7 @@ gut3S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	368;"	f
 gut4S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	348;"	f
 gut5S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	508;"	f
 gut6S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	476;"	f
-gyroscope	src/Dodge/Item/Scope.hs	94;"	f
+gyroscope	src/Dodge/Item/Scope.hs	101;"	f
 hackOutline	src/Dodge/Render/Outline.hs	5;"	f
 halfHeight	src/Dodge/Base/Window.hs	48;"	f
 halfWidth	src/Dodge/Base/Window.hs	48;"	f
@@ -4510,7 +4514,7 @@ hitEffFromBul	src/Dodge/Bullet.hs	158;"	f
 hitS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	394;"	f
 holdForm	src/Dodge/Creature/Boid.hs	136;"	f
 holsterWeapon	src/Dodge/Creature/Volition.hs	14;"	f
-homingModule	src/Dodge/Item/Scope.hs	41;"	f
+homingModule	src/Dodge/Item/Scope.hs	42;"	f
 horPipe	src/Dodge/Placement/Instance/Pipe.hs	9;"	f
 hotkeyToScancode	src/Dodge/Creature/YourControl.hs	65;"	f
 hotkeyToString	src/Dodge/Inventory/SelectionList.hs	42;"	f
@@ -4582,6 +4586,7 @@ intersectSegSegTest	src/Geometry/Intersect.hs	122;"	f
 intersectSegsSeg	src/Geometry/Intersect.hs	232;"	f
 intervalList	src/Geometry.hs	329;"	f
 interweave	src/Justify.hs	17;"	f
+introScanner	src/Dodge/Item/Scope.hs	51;"	f
 intsToPos	src/Dodge/Room/Modify/Girder.hs	160;"	f
 invAdj	src/Dodge/Item/Grammar.hs	276;"	f
 invCursorParams	src/Dodge/ListDisplayParams.hs	36;"	f
@@ -4656,7 +4661,7 @@ itemNumberDisplay	src/Dodge/Item/Display.hs	94;"	f
 itemRooms	src/Dodge/LockAndKey.hs	39;"	f
 itemRotTreeSPic	src/Dodge/Item/Draw/SPic.hs	27;"	f
 itemSPic	src/Dodge/Item/Draw/SPic.hs	34;"	f
-itemScanner	src/Dodge/Item/Scope.hs	50;"	f
+itemScanner	src/Dodge/Item/Scope.hs	57;"	f
 itemScroll	src/Dodge/Update/Scroll.hs	66;"	f
 itemString	src/Dodge/Item/Display.hs	52;"	f
 itemToBreakLists	src/Dodge/Item/Grammar.hs	59;"	f
@@ -4672,7 +4677,7 @@ itmUsageInfo	src/Dodge/Item/Info.hs	186;"	f
 jShape	src/Dodge/Placement/Instance/LightSource.hs	85;"	f
 jaggedShape	src/Dodge/Block/Debris.hs	191;"	f
 joinItemsInList	src/Dodge/Item/Grammar.hs	246;"	f
-joystick	src/Dodge/Item/Scope.hs	87;"	f
+joystick	src/Dodge/Item/Scope.hs	94;"	f
 jps0'	src/Dodge/LevelGen/PlacementHelper.hs	60;"	f
 jps0PushPS	src/Dodge/LevelGen/PlacementHelper.hs	63;"	f
 jsps	src/Dodge/LevelGen/PlacementHelper.hs	36;"	f
@@ -5403,8 +5408,8 @@ reload1S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	442;"	f
 reloadLevelStart	src/Dodge/Save.hs	71;"	f
 reloadS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	440;"	f
 rememberSounds	src/Dodge/Creature/Perception.hs	177;"	f
-remoteDetonator	src/Dodge/Item/Scope.hs	82;"	f
+remoteDetonator	src/Dodge/Item/Scope.hs	89;"	f
-remoteScreen	src/Dodge/Item/Scope.hs	77;"	f
+remoteScreen	src/Dodge/Item/Scope.hs	84;"	f
 removeAmmoFromMag	src/Dodge/HeldUse.hs	423;"	f
 removeDot	src/ShortShow.hs	30;"	f
 removeInverseWalls	src/Dodge/LevelGen/StaticWalls.hs	25;"	f
@@ -5657,7 +5662,7 @@ shatterGunSPic	src/Dodge/Item/Draw/SPic.hs	286;"	f
 shatterWall	src/Dodge/Item/Weapon/Shatter.hs	26;"	f
 shellCollisionCheck	src/Dodge/Projectile/Update.hs	78;"	f
 shellMag	src/Dodge/Item/Ammo.hs	61;"	f
-shellModule	src/Dodge/Item/Scope.hs	63;"	f
+shellModule	src/Dodge/Item/Scope.hs	70;"	f
 shellShape	src/Dodge/Projectile/Draw.hs	34;"	f
 shellTrailCloud	src/Dodge/WorldEvent/Cloud.hs	65;"	f
 shieldWall	src/Dodge/Euse.hs	87;"	f
@@ -5745,7 +5750,7 @@ smallPillar	src/Dodge/Room/Pillar.hs	32;"	f
 smallRoom	src/Dodge/Room/RunPast.hs	31;"	f
 smg	src/Dodge/Item/Held/Stick.hs	72;"	f
 smokeCloudAt	src/Dodge/WorldEvent/Cloud.hs	41;"	f
-smokeReducer	src/Dodge/Item/Scope.hs	100;"	f
+smokeReducer	src/Dodge/Item/Scope.hs	107;"	f
 sndV2	src/Geometry/Data.hs	52;"	f
 sniperRifle	src/Dodge/Item/Held/Rod.hs	54;"	f
 someCrits	src/Dodge/LockAndKey.hs	120;"	f
@@ -5829,7 +5834,7 @@ startRoom	src/Dodge/Room/Start.hs	52;"	f
 startSeedGame	src/Dodge/StartNewGame.hs	20;"	f
 startSeedGameConc	src/Dodge/StartNewGame.hs	27;"	f
 statsModifier	src/Dodge/Creature/Info.hs	14;"	f
-stickyMod	src/Dodge/Item/Scope.hs	44;"	f
+stickyMod	src/Dodge/Item/Scope.hs	45;"	f
 stone1S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	398;"	f
 stone2S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	492;"	f
 stone3S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	422;"	f
@@ -5889,7 +5894,7 @@ targetYouCognizant	src/Dodge/Creature/ChooseTarget.hs	13;"	f
 targetYouLOS	src/Dodge/Creature/ChooseTarget.hs	7;"	f
 targetYouWhenCognizant	src/Dodge/Creature/ReaderUpdate.hs	194;"	f
 targetYouWhenCognizant	src/Dodge/Creature/SetTarget.hs	9;"	f
-targetingScope	src/Dodge/Item/Scope.hs	31;"	f
+targetingScope	src/Dodge/Item/Scope.hs	32;"	f
 telRoomLev	src/Dodge/Room/Teleport.hs	14;"	f
 teleS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	390;"	f
 termButton	src/Dodge/Placement/Instance/Terminal.hs	51;"	f
@@ -6067,7 +6072,7 @@ twoStepS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	438;"	f
 twoStepSlowS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	430;"	f
 ubyteSize	src/Shader/Parameters.hs	13;"	f
 uncurryV	src/Geometry/Data.hs	46;"	f
-underBarrelSlot	src/Dodge/Item/Scope.hs	97;"	f
+underBarrelSlot	src/Dodge/Item/Scope.hs	104;"	f
 unfoldrMID	src/MonadHelp.hs	33;"	f
 unitVectorAtAngle	src/Geometry/Vector.hs	100;"	f
 unlockInv	src/Dodge/Inventory/Lock.hs	12;"	f
@@ -6394,5 +6399,5 @@ zoomFloatingCamera	src/Dodge/Update/Camera.hs	68;"	f
 zoomFromItem	src/Dodge/Update/Camera.hs	181;"	f
 zoomInLongGun	src/Dodge/Update/Scroll.hs	104;"	f
 zoomOutLongGun	src/Dodge/Update/Scroll.hs	112;"	f
-zoomScope	src/Dodge/Item/Scope.hs	26;"	f
+zoomScope	src/Dodge/Item/Scope.hs	27;"	f
 zoomSpeed	src/Dodge/Update/Scroll.hs	101;"	f