module MainState (newMState ) where

import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import States
import VectorMaps
import qualified Data.Map as Map
import MStateGameMain (newMStateGameMain)


-----新しいMStateの作成
newMState :: MState -> KState -> DState -> MState
newMState mst kst dst = newMState' mst kst dst


-----新しいMStateの作成
newMState' :: MState -> KState -> DState -> MState
newMState' mst kst dst = case (gameMode mst) of	
		----ゲームモードのよる分類	
		GameMain	-> newMStateGameMain mst kst dst