Reorganise modules. Broken layout-- to be diagnosed

2021-03-27 23:36:39 +01:00
parent 88dcf7e6f1
commit bacaded2a5
7 changed files with 502 additions and 459 deletions
@@ -56,3 +56,11 @@ penWalls crEff wlEff ffEff pt hitThings w = case hitThings of
          trl = _btTrail' pt
          wth = _btWidth' pt
          newP = head trl +.+ _btVel' pt
+
+doFlameDam :: Int -> Particle' -> Point2 -> Creature -> World -> World
+doFlameDam amount pt p cr = over (creatures . ix (_crID cr) . crState . crDamage)
+                                 ((:) $ Flaming amount sp p ep)
+        where sp = _btPos' pt
+              ep = sp +.+ _btVel' pt
+
+noEff _ _ _ = id