Separate out ammo data

src/Dodge/Item/Weapon/Remote.hs

@@ -1,6 +1,5 @@
 module Dodge.Item.Weapon.Remote
     ( pointToItem
-    , retireRemoteProj
     , setRemoteScope
     , setRemoteBombScope
     ) where
@@ -11,25 +10,6 @@ import Dodge.Item.Location
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Data.Maybe
-
-retireRemoteProj :: (Item -> Creature -> World -> World) 
-    -> Int -> Int -> Int -> World -> World
-retireRemoteProj resetFire itid 0 pjid w = w
-    & pointToItem (_itemPositions w IM.! itid) %~ 
-        ( (itScope . scopePos .~ V2 0 0)
-        . (itUse . rUse .~ resetFire)
-        )
-    & props %~ IM.delete pjid
-retireRemoteProj resetFire itid t pjid w = setScope w 
-    & props . ix pjid . pjUpdate .~ (\_ -> retireRemoteProj resetFire itid (t-1) pjid)
-  where
-    setScope w' = case _itemPositions w' IM.! itid of
-        InInv cid invid -> w' 
-            & creatures . ix cid . crInv . ix invid . itScope 
-                    . scopePos .~ (pos -.- _crPos (_creatures w' IM.! cid))
-        _   -> w'
-    pos = fromMaybe (V2 0 0) $ w ^? props . ix pjid . prPos
 
 setRemoteBombScope :: Int -> Prop -> World -> World
 setRemoteBombScope itid pj w' = case _itemPositions w' IM.! itid of