30 lines
905 B
Haskell
30 lines
905 B
Haskell
module Dodge.Creature.Update where
|
|
import Dodge.Data
|
|
import Dodge.Creature.State
|
|
import Dodge.Creature.Impulse
|
|
import Dodge.Creature.ChainUpdates
|
|
import Dodge.Lampoid
|
|
import Dodge.Humanoid
|
|
import Dodge.Turretoid
|
|
import Dodge.Barreloid
|
|
import LensHelp
|
|
|
|
import System.Random
|
|
|
|
updateCreature :: Creature -> World -> World
|
|
updateCreature cr = case _crType cr of
|
|
Lampoid{} -> updateLampoid cr
|
|
Humanoid{} -> updateHumanoid cr
|
|
Turretoid{} -> updateTurretoid cr
|
|
Barreloid{} -> updateBarreloid cr
|
|
NonDrawnCreature -> id
|
|
|
|
|
|
-- bit of a hack to get new random generators after each creature's update
|
|
defaultImpulsive :: [World -> Creature -> Creature]
|
|
-> Creature -> World -> World
|
|
defaultImpulsive = fmap (fmap updateRandGen) . stateUpdate . impulsiveAIBefore . chainCreatureUpdates
|
|
where
|
|
updateRandGen w = let (_,g) = randomR (0,1::Int) (_randGen w)
|
|
in w & randGen .~ g
|