From 90b8d87e02bfb0d1d3d10c3b824df8fd8ce37a9f Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Mon, 15 Mar 2010 14:46:14 +0100 Subject: Reorganized code to add Debris class --- src/Tank.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 src/Tank.hs (limited to 'src/Tank.hs') diff --git a/src/Tank.hs b/src/Tank.hs new file mode 100644 index 0000000..21bc0da --- /dev/null +++ b/src/Tank.hs @@ -0,0 +1,17 @@ +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 + } deriving Show -- cgit v1.2.3