gameMap :: IORef (GameMap v) -- a map (background)
gameState :: IORef u -- initial game state
gameFlags :: IORef GameFlags -- initial game flags
objManagers :: IORef [(ObjectManager s)] -- some object -- managers
textList :: IORef [Text] -- some texts
quadricObj :: QuadricPrimitive -- a quadric thing
windowConfig :: IORef WindowConfig -- a config for the main -- window
gameAttribute :: IORef t -- a game attribute
pictureList :: IORef [TextureObject] -- some -- pictures
fpsInfo :: IORef (Int,Int,Float) -- only for -- debugging
-- newtype IOGame t s u v a = IOG (Game t s u v -> IO (Game t s u v,a)) ---- -- The name IOGame was chosen to remind that each action deals with a -- Game, but an IO operation can also be performed between game actions -- (such as the reading of a file or printing something in the prompt). data IOGame t s u v a createGame :: GameMap v -> [ObjectManager s] -> WindowConfig -> u -> t -> FilePictureList -> IO (Game t s u v) runIOGame :: IOGame t s u v a -> Game t s u v -> IO (Game t s u v, a) runIOGameM :: IOGame t s u v a -> Game t s u v -> IO () liftIOtoIOGame :: IO a -> IOGame t s u v a liftIOtoIOGame' :: (a -> IO ()) -> a -> IOGame t s u v () getGameState :: IOGame t s u v u setGameState :: u -> IOGame t s u v () getGameAttribute :: IOGame t s u v t setGameAttribute :: t -> IOGame t s u v () getGameFlags :: IOGame t s u v GameFlags setGameFlags :: GameFlags -> IOGame t s u v () enableGameFlags :: IOGame t s u v () disableGameFlags :: IOGame t s u v () enableMapDrawing :: IOGame t s u v () disableMapDrawing :: IOGame t s u v () enableObjectsDrawing :: IOGame t s u v () disableObjectsDrawing :: IOGame t s u v () enableObjectsMoving :: IOGame t s u v () disableObjectsMoving :: IOGame t s u v () -- | draws the background map drawMap :: IOGame t s u v () -- | paint the whole screen with a specified RGB color clearScreen :: GLclampf -> GLclampf -> GLclampf -> IOGame t s u v () -- | returns a mapTile, given its index (x,y) in the tile map getTileFromIndex :: (Int, Int) -> IOGame t s u v (Tile v) -- | returns a mapTile, given its pixel position (x,y) in the screen getTileFromWindowPosition :: (GLdouble, GLdouble) -> IOGame t s u v (Tile v) -- | set the current map for a MultiMap setCurrentMapIndex :: Int -> IOGame t s u v () getObjectManagers :: IOGame t s u v [ObjectManager s] setObjectManagers :: [ObjectManager s] -> IOGame t s u v () -- | draws all visible objects drawAllObjects :: IOGame t s u v () -- | draw one object drawObject :: GameObject s -> IOGame t s u v () -- | changes objects position according to its speed moveAllObjects :: IOGame t s u v () -- | destroys objects from the game destroyObjects :: [GameObject s] -> IOGame t s u v () -- | destroys an object from the game destroyObject :: GameObject s -> IOGame t s u v () -- | returns the list of all objects from the group whose name is given getObjectsFromGroup :: String -> IOGame t s u v [GameObject s] -- | adds an object to a previously created group addObjectsToGroup :: [GameObject s] -> String -> IOGame t s u v () -- | adds an object to a new group addObjectsToNewGroup :: [GameObject s] -> String -> IOGame t s u v () -- | returns an object manager of the game, given its name (internal use) findObjectManager :: String -> IOGame t s u v (ObjectManager s) -- | returns an object of the game, given its name and is object manager -- name findObject :: String -> String -> IOGame t s u v (GameObject s) -- | there is no need to search through the managers, because the name of -- an object is never modified so the result of this function will always -- be safe. getObjectName :: GameObject s -> IOGame t s u v String -- | because an object can have its group (manager) name modified, it is -- necessary to search through the managers to find it, otherwise this -- functions won't be safe. getObjectGroupName :: GameObject s -> IOGame t s u v String -- | because an object can have its sleeping status modified, it is -- necessary to search through the managers to find it, otherwise this -- functions won't be safe. getObjectAsleep :: GameObject s -> IOGame t s u v Bool -- | because an object can have its size modified, it is necessary to -- search through the managers to find it, otherwise this functions won't -- be safe. getObjectSize :: GameObject s -> IOGame t s u v (GLdouble, GLdouble) -- | because an object can have its position modified, it is necessary to -- search through the managers to find it, otherwise this functions won't -- be safe. getObjectPosition :: GameObject s -> IOGame t s u v (GLdouble, GLdouble) -- | because an object can have its speed modified, it is necessary to -- search through the managers to find it, otherwise this functions won't -- be safe. getObjectSpeed :: GameObject s -> IOGame t s u v (GLdouble, GLdouble) -- | because an object can have its attribute modified, it is necessary to -- search through the managers to find it, otherwise this functions won't -- be safe. getObjectAttribute :: GameObject s -> IOGame t s u v s -- | changes the position of an object, given its new position setObjectPosition :: (GLdouble, GLdouble) -> GameObject s -> IOGame t s u v () -- | changes the sleeping status of an object, given its new status setObjectAsleep :: Bool -> GameObject s -> IOGame t s u v () -- | changes the speed of an object, given its new speed setObjectSpeed :: (GLdouble, GLdouble) -> GameObject s -> IOGame t s u v () -- | changes the current picture of a multitextured object setObjectCurrentPicture :: Int -> GameObject s -> IOGame t s u v () -- | changes the attribute of an object, given its new attribute setObjectAttribute :: s -> GameObject s -> IOGame t s u v () -- | replaces an object by a new one, given the old object and the function -- that must be applied to it. replaceObject :: GameObject s -> (GameObject s -> GameObject s) -> IOGame t s u v () reverseXSpeed :: GameObject s -> IOGame t s u v () reverseYSpeed :: GameObject s -> IOGame t s u v () -- | checks the collision between two objects objectsCollision :: GameObject s -> GameObject s -> IOGame t s u v Bool -- | checks the collision between two objects in the next game cicle objectsFutureCollision :: GameObject s -> GameObject s -> IOGame t s u v Bool objectListObjectCollision :: [GameObject s] -> GameObject s -> IOGame t s u v Bool objectListObjectFutureCollision :: [GameObject s] -> GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the top of the map objectTopMapCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the bottom of the map objectBottomMapCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the right side of the map objectRightMapCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the left side of the map objectLeftMapCollision :: GameObject s -> IOGame t s u v Bool pointsObjectCollision :: GLdouble -> GLdouble -> GLdouble -> GLdouble -> GameObject s -> IOGame t s u v Bool pointsObjectListCollision :: GLdouble -> GLdouble -> GLdouble -> GLdouble -> [GameObject s] -> IOGame t s u v Bool -- | checks the collision between an object and the top of the map in the -- next game cicle objectTopMapFutureCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the bottom of the map in -- the next game cicle objectBottomMapFutureCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the right side of the map -- in the next game cicle objectRightMapFutureCollision :: GameObject s -> IOGame t s u v Bool -- | checks the collision between an object and the left side of the map in -- the next game cicle objectLeftMapFutureCollision :: GameObject s -> IOGame t s u v Bool -- | prints a string in the prompt printOnPrompt :: Show a => a -> IOGame t s u v () -- | prints a string in the current window printOnScreen :: String -> BitmapFont -> (GLdouble, GLdouble) -> GLclampf -> GLclampf -> GLclampf -> IOGame t s u v () -- | internal use of the engine printText :: IOGame t s u v () randomFloat :: (Float, Float) -> IOGame t s u v Float randomInt :: (Int, Int) -> IOGame t s u v Int randomDouble :: (Double, Double) -> IOGame t s u v Double -- | shows the frame rate (or frame per seconds) showFPS :: BitmapFont -> (GLdouble, GLdouble) -> GLclampf -> GLclampf -> GLclampf -> IOGame t s u v () -- | delay for N seconds while continuing essential game functions wait :: Int -> IOGame t s u v () -- | Given a fungen Game and IOGame step action, generate a GLUT display -- callback that steps the game and renders its resulting state. -- funInit runs this automatically. display :: Game t s u v -> IOGame t s u v () -> DisplayCallback texCoord2 :: GLdouble -> GLdouble -> IO () vertex3 :: GLdouble -> GLdouble -> GLdouble -> IO () texStuff :: [TextureObject] -> [AwbfBitmap] -> IO () toRad :: Float -> Float randInt :: (Int, Int) -> IO Int randFloat :: (Float, Float) -> IO Float randDouble :: (Double, Double) -> IO Double shiftLeft :: String -> Int -> String toDecimal :: String -> GLsizei pow2 :: GLsizei -> GLsizei toBinary :: Int -> String make0 :: Int -> String dropGLsizei :: GLsizei -> [a] -> [a] ord2 :: Char -> GLubyte -- | to be used when no invisibility must be added when loading a file addNoInvisibility :: [FilePath] -> [(FilePath, Maybe ColorList3)] racMod :: GLdouble -> GLdouble -> GLdouble matrixToList :: [[a]] -> [a] -- | return the max indexes of a matrix (assumed that its lines have the -- same length) matrixSize :: [[a]] -> (Int, Int) inv2color3 :: InvList -> Maybe ColorList3 pathAndInv2color3List :: (FilePath, InvList) -> (FilePath, Maybe ColorList3) point2DtoVertex3 :: [Point2D] -> [Vertex3 GLdouble] isEmpty :: [a] -> Bool when :: Monad m => Bool -> m () -> m () unless :: Monad m => Bool -> m () -> m () bindTexture :: TextureTarget2D -> TextureObject -> IO () -- | trace an expression using a custom show function tracewith :: (a -> String) -> a -> a -- | trace a showable expression strace :: Show a => a -> a -- | labelled trace - like strace, with a label prepended ltrace :: Show a => String -> a -> a -- | monadic trace - like strace, but works as a standalone line in a monad mtrace :: (Monad m, Show a) => a -> m a