module Game.Entities.Tracker (mkTracker) where

import Game.Entities.Const
import Game.Entities.Runner
import Game.Entities.Types
import Game.Sprites qualified as S

mkTracker :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> Collision -> IsBlocked -> IsBlocked -> IO Entity
mkTracker sprites x y d playerCollision facingPlayerLower isBlocked isBlockedDeadly = do
  s <- S.get sprites "tracker"
  runner <- mkRunner sprites x y d playerCollision isBlocked isBlockedDeadly
  pure runner {sprite = s, update = updateTracker runner.update facingPlayerLower isBlocked}

updateTracker :: (Entity -> IO Entity) -> Collision -> IsBlocked -> Entity -> IO Entity
updateTracker updateRunner facingPlayerLower isBlocked ent = do
  e <- updateRunner ent
  facing <- facingPlayerLower e
  pure $
    if facing
      && e.gravity == gravityOff
      && not (isBlocked (isBlockedX e) (e.y - 1))
      && not (isBlocked (e.x + 8) (e.y - 1))
      && isBlocked (isBlockedX e) e.y
      && isBlocked (e.x + 8) e.y
      then
        e
          { gravity = gravityUp,
            frame = jumpFrame,
            actions = [ActionAddEffect ent.x (ent.y + 8) "dust"]
          }
      else e
  where
    isBlockedX :: Entity -> Int
    isBlockedX e = if e.dir == DirLeft then e.x + 16 else e.x - 1