module EventCheck (eventResetCheck) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import States
import VectorMaps
import PositionMaps
import Control.Applicative 
import qualified Data.Map as Map


----リセットイベントの条件のチェック
eventResetCheck :: MState -> KState ->  Bool
eventResetCheck mst kst  = if (downKey kst) == (Just (Char 'r')) 
				then	True
				else	False