Cleanup

src/Dodge/Item/Weapon/Remote.hs

@@ -1,16 +0,0 @@
-module Dodge.Item.Weapon.Remote (
---    setRemoteScope,
-) where
-
---import Control.Lens
---import Dodge.Data.World
---import Geometry
-
---setRemoteScope :: Int -> Point2 -> World -> World
---setRemoteScope itid pos w = case w ^? cWorld . lWorld . itemLocations . ix itid of
---    Just (InInv cid' invid _ _ _) ->
---        w
---            & cWorld . lWorld . creatures . ix cid' . crInv . ix invid . itScope
---                . remotePos
---            .~ (pos -.- (w ^?! cWorld . lWorld . creatures . ix cid' . crPos))
---    _ -> w

src/Dodge/Item/Weapon/Shell.hs

@@ -1,19 +0,0 @@
-module Dodge.Item.Weapon.Shell (
-    decTimMvVel,
-) where
-
-import Control.Lens
-import Dodge.Data.World
-import Geometry.Vector
-
-decTimMvVel :: Proj -> World -> World
-decTimMvVel pj =
-    cWorld . lWorld . projectiles . ix pjid
-        %~ ( (prjTimer -~ 1)
-                . (prjPos %~ (+.+ vel))
-                . (prjAcc %~ rotateV rot)
-           )
-  where
-    rot = _prjSpin pj
-    vel = _prjVel pj
-    pjid = _prjID pj