Add file, fix lamp doDamage space leak

2021-05-12 20:48:55 +02:00
parent ead87af3c1
commit 9b3fbba393
13 changed files with 165 additions and 226 deletions
@@ -42,6 +42,11 @@ crHasTargetLOS (w,cr) = case cr ^? crTarget . _Just of
    Just i -> crCanSeeCID i (w,cr) 
    Nothing -> False

+crSafeDistFromTarg :: Float -> (World,Creature) -> Bool
+crSafeDistFromTarg d (w,cr) = case cr ^? crTarget . _Just of
+    Just i -> dist (_crPos cr) (_crPos $ _creatures w IM.! i) > d
+    Nothing -> True
+
 crStratConMatches :: Strategy -> (World,Creature) -> Bool
 crStratConMatches strat (_,cr) = eqConstr strat (_crStrategy $ _crActionPlan cr)