Cleanup

src/Dodge/Projectile/Update.hs

@@ -30,7 +30,7 @@ import Control.Lens
 updateProjectile :: Proj -> World -> World
 updateProjectile pj = case pj of
     Shell{} -> updateShell pj . decTimMvVel pj . upsProjectile pj
-    RemoteShell{} -> _prjUpdate pj pj
+    RemoteShell{} -> updateShell pj . decTimMvVel pj . upsProjectile pj
 
 updateShell :: Proj -> World -> World
 updateShell pj w
@@ -72,7 +72,7 @@ upProjectile pu pj = case pu of
     PJSetScope itid -> setRemoteScope itid (_prjPos pj)
   where
     time = _prjTimer pj
-    act st et = time >= st && time <= et
+    act st et = time <= st && time >= et
     ain t = time == t
 
 setRemoteDir :: Int -> Int -> Proj -> World -> World