16 lines
374 B
Haskell
16 lines
374 B
Haskell
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
|