Cleanup

2025-10-15 20:29:43 +01:00
parent 5e6ed1d793
commit 4d12d6cf2b
6 changed files with 150 additions and 161 deletions
@@ -65,10 +65,10 @@ followImpulse cr w imp = case imp of
    ArbitraryImpulseFunction f -> crup $ doWdCrCr f w cr
    ArbitraryImpulse f -> followImpulse cr w (doCrWdImp f cr w)
    ArbitraryImpulseEffect f -> (doCrWdWd f cr, cr)
-    ImpulseUseTargetCID f -> fromMaybe (crup cr) $ do
-        i <- cr ^? crIntention . targetCr . _Just
-        tcr <- w ^? cWorld . lWorld . creatures . ix i
-        return $ followImpulse cr w (doIntImp f $ _crID tcr)
+--    ImpulseUseTargetCID f -> fromMaybe (crup cr) $ do
+--        i <- cr ^? crIntention . targetCr . _Just
+--        tcr <- w ^? cWorld . lWorld . creatures . ix i
+--        return $ followImpulse cr w (doIntImp f $ _crID tcr)
    ImpulseUseTarget f -> fromMaybe (crup cr) $ do
        i <- cr ^? crIntention . targetCr . _Just
        tcr <- w ^? cWorld . lWorld . creatures . ix i