Added tank textures

1 files changed, 3 insertions, 3 deletions

diff --git a/src/HTanks.hs b/src/HTanks.hs
index c9525b9..82338a4 100644
--- a/src/HTanks.hs
+++ b/src/HTanks.hs
@@ -27,7 +27,8 @@ import Data.Obj3D.GL
 main :: IO ()
 main = do
   let theLevel = testLevel
-  --hwiidPlayer <- newHWiidPlayer
+  --humanPlayer <- newHWiidPlayer
+  let humanPlayer = DefaultPlayer S.empty 0 0 False
   gl <- initGL $ glxDriver (levelWidth theLevel) (levelHeight theLevel)
   
   when (initialized gl) $ do
@@ -36,8 +37,7 @@ main = do
                                                               , Tank 5.0 3.5 0 0 1.5 270 False 3 1 5 1
                                                               ], bullets = []}
              mainstate = MainState {run = True, driver = SomeDriver gl, time = currentTime, players =
-                                          [ SomePlayer $ DefaultPlayer S.empty 0 0 False
-                                            --SomePlayer $ hwiidPlayer
+                                          [ SomePlayer humanPlayer
                                           , SomePlayer $ CPUPlayer 0
                                           ], textures = M.empty, models = M.empty, gameState = gamestate}