Reorganized code to add Debris class

1 files changed, 17 insertions, 0 deletions

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