Improve low level flamer

2022-03-15 08:54:23 +00:00
parent 4c116a82c9
commit b71579441e
10 changed files with 78 additions and 47 deletions
@@ -80,7 +80,7 @@ moveFlame rotd w pt
    | time <= 0 = (makeFlamerSmokeAt (addZ 20 ep) w, Nothing)
    | otherwise = case thingsHitExceptCr (_ptCrIgnore pt) sp ep w of
        ((_,Left _):_)      -> (doSound $ damwls damcrs             , mvPt 0.7)
-        (th@(p,Right wl):_) -> (doSound . fst $ hiteff [th] damcrs  , rfl wl p)
+        ((p,Right wl):_) -> (doSound $ damwls damcrs  , rfl wl p)
        _                   -> (flameFlicker pt . damwls $ doSound damcrs    , mvPt 0.98)
  where 
    time = _ptTimer pt