diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 14:17:08 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 14:17:08 +0200 |
commit | 546da85814945ed2188e670ddf9c2dfd409d6241 (patch) | |
tree | 266627f8d0de15a5507ebb441e8ad9091be10510 /src/HTanks.hs | |
parent | 083619cc87aa24b6ad32b92cf40798efc11d4ff9 (diff) | |
download | htanks-546da85814945ed2188e670ddf9c2dfd409d6241.tar htanks-546da85814945ed2188e670ddf9c2dfd409d6241.zip |
Added player cursor
Diffstat (limited to 'src/HTanks.hs')
-rw-r--r-- | src/HTanks.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index f018a8c..e02b247 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -36,14 +36,14 @@ main = do [ --SomePlayer $ DefaultPlayer S.empty 0 0 False SomePlayer $ wiimotePlayer , SomePlayer $ CPUPlayer 0 - ]} + ], textures = M.empty} gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 1.5 270 False 3 1 5 1 , Tank 5.0 3.5 0 0 1.5 270 False 3 1 5 1 - ], bullets = [], textures = M.empty} + ], bullets = []} - runGame gameState $ do + runGame gameState $ runMain mainState $ do setup - runMain mainState mainLoop + mainLoop deinitGL gl @@ -56,7 +56,7 @@ mainLoop = do t <- gets time handleEvents - lift render + render liftIO $ swapBuffers gl |