Work on mapper item, simpler generation of items from console

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