module Dodge.RandImpulse where

import Control.Monad.State
import Dodge.Data.ActionPlan
import RandomHelp

doRandImpulse :: RandImpulse -> State StdGen Impulse
doRandImpulse ri = case ri of
    RandImpulseList xs -> takeOne xs
    RandImpulseCircMove r -> Move <$> randInCirc r