diff options
Diffstat (limited to 'HTanks.hs')
-rw-r--r-- | HTanks.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -39,7 +39,7 @@ runMain st (MainT a) = runStateT a st main :: IO () main = do - gl <- initGL glxDriver + gl <- initGL $ glxDriver 10 10 when (initialized gl) $ do currentTime <- getCurrentTime @@ -47,8 +47,8 @@ main = do [ SomePlayer $ DefaultPlayer S.empty 0 0 , SomePlayer $ CPUPlayer 0 ]} - gameState = GameState {level = testLevel, tanks = [ Tank 0.0 0.0 0 0 2 360 False - , Tank 0.0 (-1.5) 0 0 2 360 False + gameState = GameState {level = testLevel, tanks = [ Tank 5.0 5.0 0 0 2 360 False + , Tank 5.0 3.5 0 0 2 360 False ], textures = M.empty} runGame gameState $ do |