Limit number of bullets/tank; save tank number with shoot

1 files changed, 14 insertions, 12 deletions

diff --git a/Game.hs b/Game.hs
index c782465..1f85376 100644
--- a/Game.hs
+++ b/Game.hs
@@ -17,23 +17,25 @@ import qualified Data.Map as M
 
 
 data Tank = Tank
-          { posx  :: !Micro
-          , posy  :: !Micro
-          , dir   :: !Micro
-          , aim   :: !Micro
-          , speed :: !Micro
-          , turnspeed :: !Micro
-          , moving :: !Bool
-          , tankShootSpeed :: !Micro
+          { posx             :: !Micro
+          , posy             :: !Micro
+          , dir              :: !Micro
+          , aim              :: !Micro
+          , speed            :: !Micro
+          , turnspeed        :: !Micro
+          , moving           :: !Bool
+          , tankShootSpeed   :: !Micro
           , tankShootBounces :: !Int
+          , shootsLeft       :: !Int
           } deriving Show
 
 data Shoot = Shoot
-    { shootX   :: !Micro
-    , shootY   :: !Micro
-    , shootDir :: !Micro
-    , shootSpeed :: !Micro
+    { shootX      :: !Micro
+    , shootY      :: !Micro
+    , shootDir    :: !Micro
+    , shootSpeed  :: !Micro
     , bouncesLeft :: !Int
+    , shootTank   :: !Int
     } deriving Show
 
 data GameState = GameState