#18 & massive structure overhaul

lib/RPGEngine/Internals/Data/State.hs

@@ -0,0 +1,34 @@
+-- Describes the current state of the game, 
+-- e.g. Main menu, game, pause, win or lose
+-- Allows to easily go to a next state and change rendering accordingly
+
+module RPGEngine.Internals.Data.State 
+( State(..)
+, defaultState
+
+, nextState
+) where
+
+----------------------------- Constants ------------------------------
+
+-- Current state of the game.
+data State = Menu
+           | Playing
+           | Pause
+           | Win
+           | Lose
+
+-- Default state of the game, Menu
+defaultState :: State
+defaultState = Menu
+
+----------------------------------------------------------------------
+
+-- Get the next state based on the current state
+nextState :: State -> State
+nextState Menu = Playing
+nextState Playing = Pause
+nextState Pause = Playing
+nextState _ = Menu
+
+----------------------------------------------------------------------