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)