39 lines
1,005 B
Haskell
39 lines
1,005 B
Haskell
-- Allows to play a game using RPGEngine.
|
|
-- Includes all logic and rendering.
|
|
|
|
module RPGEngine
|
|
( playRPGEngine
|
|
) where
|
|
|
|
import Game
|
|
import Render
|
|
import Graphics.Gloss (
|
|
Color(..)
|
|
, white
|
|
, play
|
|
)
|
|
|
|
----------------------------- Constants ------------------------------
|
|
|
|
-- Dimensions for main window
|
|
winDimensions :: (Int, Int)
|
|
winDimensions = (1280, 720)
|
|
|
|
-- Offsets for main window
|
|
winOffsets :: (Int, Int)
|
|
winOffsets = (0, 0)
|
|
|
|
-- Game background color
|
|
bgColor :: Color
|
|
bgColor = white
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- This is the gameloop.
|
|
-- 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 handleInputs step
|
|
where window = initWindow title winDimensions winOffsets
|
|
step _ g = g -- TODO Do something with step?
|
|
handleInputs _ g = g -- TODO Implement inputHanlders
|