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