Add haddocks and/or cleanup

2021-04-04 16:26:06 +02:00
parent 1231939482
commit 3b417c4966
10 changed files with 174 additions and 116 deletions
@@ -111,7 +111,7 @@ createBarrelSpark time colid pos dir maycid w = over worldEvents

 damCrsOnLine :: Int -> Point2 -> Point2 -> World -> World
 damCrsOnLine dam p1 p2 = over creatures (IM.map damIfOnLine)
-    where damIfOnLine cr | circOnLine p1 p2 (_crPos cr) (_crRad cr) 
+    where damIfOnLine cr | circOnSeg p1 p2 (_crPos cr) (_crRad cr) 
                                     = over crHP (\hp -> hp - dam) cr
                         | otherwise = cr