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
@@ -147,6 +147,12 @@ performAction cr w ac = case ac of
        Just tcid -> let tcr = _creatures w IM.! tcid
            in ([TurnTo (_crPos tcr +.+ rotateV (_crDir tcr) p)], Nothing)
        _  -> ([], Nothing)
+    FleeFrom cid -> case w ^? creatures . ix cid of
+        Just tcr -> ([MoveForward 3, TurnToward ((2 *.* _crPos cr) -.- _crPos tcr) (pi/4)], Nothing)
+        _ -> ([], Nothing)
+    UseTargetCID f -> case cr ^? crTarget . _Just of
+        Just tcid -> performAction cr w (f tcid)
+        _ -> ([],Nothing)
    _ -> ([], Nothing)
  where
    cpos = _crPos cr