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