diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-16 03:08:48 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-16 03:08:48 +0200 |
commit | a19dc0d6aa982d138f46305cdea6443cb45a5fd3 (patch) | |
tree | eb846615b4d22e2f1e76272b1460cc879f52f937 /src/HTanks.hs | |
parent | 5951108c0a47fed6d78e442ae4233d9d34eafe13 (diff) | |
download | htanks-a19dc0d6aa982d138f46305cdea6443cb45a5fd3.tar htanks-a19dc0d6aa982d138f46305cdea6443cb45a5fd3.zip |
Added more models and render with perspective transform now
Diffstat (limited to 'src/HTanks.hs')
-rw-r--r-- | src/HTanks.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index 82338a4..2fd2148 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -33,12 +33,14 @@ main = do when (initialized gl) $ do currentTime <- getCurrentTime - let 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 + let gamestate = GameState {level = theLevel, tanks = [ Tank 7.0 4.0 0 0 1.5 270 False 3 1 5 1 + , Tank 4.0 4.0 0 0 1.5 270 False 3 1 5 1 + , Tank 10.0 4.0 0 0 1.5 270 False 3 1 5 1 ], bullets = []} mainstate = MainState {run = True, driver = SomeDriver gl, time = currentTime, players = [ SomePlayer humanPlayer - , SomePlayer $ CPUPlayer 0 + , SomePlayer $ CPUPlayer (-90) + , SomePlayer $ CPUPlayer 90 ], textures = M.empty, models = M.empty, gameState = gamestate} runMain mainstate $ do |