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