Reorganise rendering in Dodge

2021-04-01 11:28:53 +02:00
parent e62ff391a5
commit 1e9a07d1c8
13 changed files with 217 additions and 113 deletions
@@ -167,6 +167,7 @@ moveFlamelet w pt
                     & btPassThrough' .~ Nothing
                     & btVel'         .~ 0.8 *.* vel
    damcrs = foldr ($) w $ map dodam $ filter closeCrs $ IM.elems $ _creatures w
+--    damcrs = w
    closeCrs cr = dist ep (_crPos cr) < _crRad cr + size
    dodam cr = over (creatures . ix (_crID cr) . crState . crDamage)
                    ((:) $ Flaming 3 sp ep ep)