Implement dual laser tesla

src/Dodge/Item/Weapon/Remote.hs

@@ -7,16 +7,12 @@ module Dodge.Item.Weapon.Remote
 import Dodge.Data
 import Dodge.Default
 import Geometry
+import Dodge.Item.Location
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe
 
-pointToItem :: Applicative f =>
-                     ItemPos -> (Item -> f Item) -> World -> f World
-pointToItem (InInv cid invid) = creatures . ix cid . crInv . ix invid
-pointToItem (OnFloor flid) = floorItems . ix flid . flIt
-
 retireRemoteProj :: (Item -> Creature -> World -> World) 
     -> Int -> Int -> Int -> World -> World
 retireRemoteProj resetFire itid 0 pjid w = w