src/Tank.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Tank ( Tank(..)
            ) where

import Data.Fixed

data Tank = Tank
          { tankX             :: !Micro
          , tankY             :: !Micro
          , tankDir           :: !Micro
          , tankAim           :: !Micro
          , tankSpeed         :: !Micro
          , tankTurnspeed     :: !Micro
          , tankMoving        :: !Bool
          , tankBulletSpeed   :: !Micro
          , tankBulletBounces :: !Int
          , tankBulletsLeft   :: !Int
          , tankLife          :: !Int
          } deriving (Eq, Show)