22 lines
No EOL
763 B
Haskell
22 lines
No EOL
763 B
Haskell
-- Allows to play a game using RPGEngine.
|
|
-- Includes all logic and rendering.
|
|
|
|
module RPGEngine
|
|
( playRPGEngine
|
|
) where
|
|
|
|
import RPGEngine.Config ( bgColor, winDimensions, winOffsets )
|
|
import RPGEngine.Render ( initWindow, render, initGame )
|
|
import RPGEngine.Input ( handleAllInput )
|
|
|
|
import Graphics.Gloss ( play )
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- This is the game loop.
|
|
-- It can receive input and update itself. It is rendered by a renderer.
|
|
playRPGEngine :: String -> Int -> IO()
|
|
playRPGEngine title fps = do
|
|
play window bgColor fps initGame render handleAllInput step
|
|
where window = initWindow title winDimensions winOffsets
|
|
step _ g = g -- TODO Do something with step? Check health etc. |