Start allowing for more granular control of remote projectiles, cleanup

src/Dodge/Projectile/Update.hs

@@ -25,8 +25,8 @@ updateProjectile pj w = foldl' (\w' pu -> upProjectile pu pj w') w (_prjUpdates
 
 upProjectile :: ProjectileUpdate -> Projectile -> World -> World
 upProjectile pu pj = case pu of
-    CollisionEffectPU mscreenid -> shellCollisionCheck 
-        mscreenid pj
+    CollisionEffectPU mcontrolid mdetonatorid mscreenid -> shellCollisionCheck 
+        mcontrolid mdetonatorid mscreenid pj
     TimePU -> decTimMvVel pj
     ThrustPU st et
         | act st et -> doThrust pj
@@ -47,14 +47,17 @@ upProjectile pu pj = case pu of
     act st et = time <= st && time >= et
 
 --shellCollisionCheck :: (Projectile -> World -> World) -> Projectile -> World -> World
-shellCollisionCheck :: Maybe (NewInt ItmInt) -> Projectile -> World -> World
-shellCollisionCheck f pj w
+shellCollisionCheck :: Maybe (NewInt ItmInt) 
+    -> Maybe (NewInt ItmInt) 
+    -> Maybe (NewInt ItmInt) 
+    -> Projectile -> World -> World
+shellCollisionCheck controlid detid screenid pj w
     | time > 330 && circOnSomeWall oldPos 4 w = g
     | time <= 330 && anythingHitCirc 2 oldPos newPos w = g
     | time <= 0 = g
     | otherwise = w
   where
-    g = explodeShell f pj w
+    g = explodeShell controlid detid screenid pj w
     time = _prjTimer pj
     oldPos = _prjPos pj
     newPos = oldPos +.+ _prjVel pj
@@ -154,12 +157,25 @@ decTimMvVel pj =
     vel = _prjVel pj
     pjid = _prjID pj
 
-explodeShell :: Maybe (NewInt ItmInt) -> Projectile -> World -> World
-explodeShell mitid pj w =
+explodeShell :: Maybe (NewInt ItmInt) -> 
+    Maybe (NewInt ItmInt) -> 
+    Maybe (NewInt ItmInt) -> 
+    Projectile -> World -> World
+explodeShell controlid mdetid screenid pj w =
     w
-        & cWorld . lWorld . projectiles . ix pjid . prjUpdates .~ [DestroyPU mitid 30]
+        & cWorld . lWorld . projectiles . ix pjid . prjUpdates .~ [DestroyPU screenid 30]
         & cWorld . lWorld . projectiles . ix pjid . prjDraw .~ DrawBlankProjectile
         & usePayload (_prjPayload pj) (_prjPos pj) (_prjVel pj)
         & stopSoundFrom (ShellSound pjid)
+        & updatedetonator
+        & updatecontroller
   where
+    updatedetonator = fromMaybe id $ do
+        detid <- mdetid
+        return $ pointerToItemID detid . itUse . uaParams . apLinkedProjectile %~ deleteif
+    deleteif (Just x) | x == pjid = Nothing
+    deleteif x = x
+    updatecontroller = fromMaybe id $ do
+        cid <- controlid
+        return $ pointerToItemID cid . itUse . uaParams . apLinkedProjectile %~ deleteif
     pjid = pj ^. prjID