This repository has been archived on 2025-03-03. You can view files and clone it, but you cannot make any changes to it's state, such as pushing and creating new issues, pull requests or comments.
htanks/src/Game.hs
2010-03-18 09:14:32 +01:00

39 lines
889 B
Haskell

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Game ( Bullet(..)
, GameState(..)
, Game
, runGame
) where
import Level
import Tank
import Texture
import Control.Monad
import Control.Monad.State
import Data.Fixed
import qualified Data.Map as M
data Bullet = Bullet
{ bulletX :: !Micro
, bulletY :: !Micro
, bulletDir :: !Micro
, bulletSpeed :: !Micro
, bulletBouncesLeft :: !Int
, bulletTank :: !Int
} deriving (Eq, Show)
data GameState = GameState
{ level :: !Level
, tanks :: ![Tank]
, bullets :: ![Bullet]
, textures :: !(M.Map Texture TextureObject)
} deriving (Show)
newtype Game a = Game (StateT GameState IO a)
deriving (Monad, MonadIO, MonadState GameState)
runGame :: GameState -> Game a -> IO (a, GameState)
runGame st (Game a) = runStateT a st