Reflect bullets at the level border

2010-03-09 06:45:02 +01:00 · 2010-03-09 06:45:02 +01:00 · 4993b2ef07
commit 4993b2ef07
parent 89e87826a8
2 changed files with 32 additions and 23 deletions
--- 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)