Work on mapper item, simpler generation of items from console

src/Dodge/Data/Item/Combine.hs

@@ -24,6 +24,7 @@ data ItemType
     | ITEMSCAN
     | MAPPER
     | INTROSCAN {_ibtIntroScanType :: IntroScanType}
+    | DETECTOR {_ibtDetector :: Detector}
     deriving (Eq, Ord, Show, Read)
 
 data IntroScanType
@@ -161,7 +162,6 @@ data HeldItemType
     | TORCH
     | FLATSHIELD
     | KEYCARD Int
-    | DETECTOR Detector
     | BLINKER
     | BLINKERUNSAFE
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Use.hs

@@ -15,6 +15,7 @@ module Dodge.Data.Item.Use (
     module Dodge.Data.Item.BulletMod
 ) where
 
+import qualified Data.Set as S
 import Dodge.Data.Item.BulletMod
 import Dodge.Data.Item.Scope
 import Control.Lens
@@ -44,6 +45,9 @@ data ItemUse
     | UseScope { _uScope :: Scope }
     | UseBulletMod { _ubMod :: BulletMod }
     | UseToggle {_useToggle :: Bool}
+    | UseMapper { _useMapperLines :: S.Set (Point2,Point2) 
+        , _useMapperPoints :: S.Set Point2
+        }
     deriving (Eq, Show, Read)
 
 data HeldUseEffect