12 lines
326 B
Haskell
12 lines
326 B
Haskell
module Dodge.RandImpulse where
|
|
|
|
--import Control.Monad.State
|
|
import Control.Monad.Trans.State.Lazy
|
|
import Dodge.Data.ActionPlan
|
|
import RandomHelp
|
|
|
|
doRandImpulse :: RandImpulse -> State StdGen Impulse
|
|
doRandImpulse ri = case ri of
|
|
RandImpulseList xs -> takeOne xs
|
|
RandImpulseCircMove r -> MoveNoStride <$> randInCirc r
|