diff options
Diffstat (limited to 'Game.hs')
-rw-r--r-- | Game.hs | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -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 |