summaryrefslogtreecommitdiffstats
path: root/Game.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Game.hs')
-rw-r--r--Game.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/Game.hs b/Game.hs
index 1f85376..b31009e 100644
--- a/Game.hs
+++ b/Game.hs
@@ -17,16 +17,16 @@ import qualified Data.Map as M
data Tank = Tank
- { posx :: !Micro
- , posy :: !Micro
- , dir :: !Micro
- , aim :: !Micro
- , speed :: !Micro
- , turnspeed :: !Micro
- , moving :: !Bool
+ { tankX :: !Micro
+ , tankY :: !Micro
+ , tankDir :: !Micro
+ , tankAim :: !Micro
+ , tankSpeed :: !Micro
+ , tankTurnspeed :: !Micro
+ , tankMoving :: !Bool
, tankShootSpeed :: !Micro
, tankShootBounces :: !Int
- , shootsLeft :: !Int
+ , tankShootsLeft :: !Int
} deriving Show
data Shoot = Shoot
@@ -34,7 +34,7 @@ data Shoot = Shoot
, shootY :: !Micro
, shootDir :: !Micro
, shootSpeed :: !Micro
- , bouncesLeft :: !Int
+ , shootBouncesLeft :: !Int
, shootTank :: !Int
} deriving Show