13 lines
361 B
Haskell
13 lines
361 B
Haskell
module Dodge.ArcStep where
|
|
|
|
import Control.Monad.State
|
|
import Dodge.Data.ArcStep
|
|
import Dodge.Data.World
|
|
import Dodge.Tesla.Arc.Default
|
|
import System.Random
|
|
|
|
doStep :: NextArcStep -> ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
|
|
doStep nas = case nas of
|
|
DefaultArcStep -> defaultArcStep
|
|
EndArc -> const $ const $ const $ return Nothing
|