diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-03-09 06:45:02 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-03-09 06:45:02 +0100 |
commit | 4993b2ef07ad22f299c60eeec1d96f94cfe4a47c (patch) | |
tree | 0320d7a0bb96f9f01c8d210e3d80155dc85eb632 /src/Game.hs | |
parent | 89e87826a8b5874cee1ce370315e0af4b9297000 (diff) | |
download | htanks-4993b2ef07ad22f299c60eeec1d96f94cfe4a47c.tar htanks-4993b2ef07ad22f299c60eeec1d96f94cfe4a47c.zip |
Reflect bullets at the level border
Diffstat (limited to 'src/Game.hs')
-rw-r--r-- | src/Game.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Game.hs b/src/Game.hs index 9aef422..248287b 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -17,13 +17,13 @@ import qualified Data.Map as M data Tank = Tank - { tankX :: !Micro - , tankY :: !Micro - , tankDir :: !Micro - , tankAim :: !Micro - , tankSpeed :: !Micro - , tankTurnspeed :: !Micro - , tankMoving :: !Bool + { tankX :: !Micro + , tankY :: !Micro + , tankDir :: !Micro + , tankAim :: !Micro + , tankSpeed :: !Micro + , tankTurnspeed :: !Micro + , tankMoving :: !Bool , tankBulletSpeed :: !Micro , tankBulletBounces :: !Int , tankBulletsLeft :: !Int @@ -41,7 +41,7 @@ data Bullet = Bullet data GameState = GameState { level :: !Level , tanks :: ![Tank] - , bullets :: ![Bullet] + , bullets :: ![Bullet] , textures :: !(M.Map Texture TextureObject) } deriving (Show) |