Add simple flamethrower upgrade path

2022-03-03 15:11:20 +00:00
parent 08389ad4e0
commit fd622b4b80
6 changed files with 136 additions and 74 deletions
@@ -91,8 +91,7 @@ moveFlame rotd w pt
        , _ptPos = ep
        , _ptCrIgnore = Nothing
        , _ptVel = speed *.* vel    }
-    damcrs = foldr (\cr -> fst . hiteff [(ep,Left cr)]) w 
-        $ IM.filter closeCrs $ _creatures w
+    damcrs = foldr (\cr -> fst . hiteff [(ep,Left cr)]) w $ IM.filter closeCrs $ _creatures w
    closeCrs cr = dist ep (_crPos cr) 
                    < _crRad cr + 10 - min 9 (max 0 (fromIntegral time - 80))
                                + 5 * angleCoeff (angleVV (ep -.- _crPos cr) rotd)