Cleanup

2025-10-15 20:40:16 +01:00
parent fe95bf381b
commit b8006b44cf
5 changed files with 2 additions and 38 deletions
@@ -62,7 +62,6 @@ followImpulse cr w imp = case imp of
    DropItem -> undefined
    ChangeStrategy strat -> crup $ cr & crActionPlan . apStrategy .~ strat
    AddGoal gl -> crup $ cr & crActionPlan . apGoal .:~ gl
-    ArbitraryImpulseEffect f -> (doCrWdWd f cr, cr)
    ImpulseUseTarget f -> fromMaybe (crup cr) $ do
        i <- cr ^? crIntention . targetCr . _Just
        tcr <- w ^? cWorld . lWorld . creatures . ix i