18 lines
545 B
Haskell
18 lines
545 B
Haskell
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)
|