tracer/src/Types/NPCState.hs

module Types.NPCState where

import Control.Concurrent.MVar (MVar)
import Linear (V2)

data NPCMoveState
  = NPCWalking
    { npcWalkPath :: [V2 Int]
    }
  | NPCStanding
    { npcStandTime  :: Double
    , npcFuturePath :: MVar [V2 Int]
    }

data NPCActionState
  = ASWork
  | ASToilet
  | ASDrink
  | ASEat
  | ASRandWalk
  deriving (Eq)

data NPCStats = NPCStats
  { statConcentration :: Double
  , statBladder       :: Double
  , statThirst        :: Double
  , statHunger        :: Double
  , statFood          :: Double
  , statDrink         :: Double
  }