imj-game-hamazed-0.1.0.2: src/Imj/Game/Hamazed/Loop/Event/Priorities.hs

{-# OPTIONS_HADDOCK hide #-}

{-# LANGUAGE NoImplicitPrelude #-}

module Imj.Game.Hamazed.Loop.Event.Priorities
        ( deadlinePriority
        , playerEventPriority
        ) where

import           Imj.Prelude

import           Imj.Game.Hamazed.Loop.Event.Types

playerEventPriority :: Int
playerEventPriority = 40

-- Note that if changing priorities here you should also change 'getDeadlinesByDecreasingPriority'
deadlinePriority :: DeadlineType -> Int
deadlinePriority AnimateUI              = playerEventPriority + 30
deadlinePriority DisplayContinueMessage = playerEventPriority + 20
deadlinePriority MoveFlyingItems        = playerEventPriority + 10
deadlinePriority Animate                = playerEventPriority - 10