Implement targeting launcher shells using separate item

src/Dodge/Data/Laser.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Laser where
 
+import NewInt
+import Dodge.Data.Item.Location
 import Color
 import Control.Lens
 import Data.Aeson
@@ -13,7 +15,7 @@ import Geometry.Data
 
 data LaserType
     = DamageLaser {_laserTypeDamage :: Int}
-    | TargetingLaser
+    | TargetingLaser {_laserEmmiter :: NewInt ItmInt}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data LaserStart = LaserStart