module Dodge.Creature.Update 
    ( updateCreature
    ) where

import Dodge.Barreloid
import Dodge.Data.World
import Dodge.Humanoid
import Dodge.Lampoid

updateCreature :: Creature -> World -> World
updateCreature cr = case _crType cr of
    Lampoid{} -> updateLampoid cr
    Humanoid{} -> updateHumanoid cr
    Barreloid{} -> updateBarreloid cr
    NonDrawnCreature -> id