diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-24 21:50:32 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-24 21:50:32 +0200 |
| commit | 83f0606ea9dfd6b493097dc97330055dff4a2867 (patch) | |
| tree | 464d7f3ed2c02f48b6463d1528e3e0b5f50e79c6 /src/HTanks.hs | |
| parent | d7971385e844e24d9d851d3d142895b5cb89c91b (diff) | |
| download | htanks-83f0606ea9dfd6b493097dc97330055dff4a2867.tar htanks-83f0606ea9dfd6b493097dc97330055dff4a2867.zip | |
Added Transformable class to simplify collision calculation
Diffstat (limited to 'src/HTanks.hs')
| -rw-r--r-- | src/HTanks.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index 110a2b1..0974ffd 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -20,6 +20,7 @@ import qualified Data.Map as M import qualified Data.Set as S import Data.Time +import Vector main :: IO () main = do @@ -30,14 +31,14 @@ main = do when (initialized gl) $ do currentTime <- getCurrentTime - 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 + let gamestate = GameState {level = theLevel, tanks = [ Tank (Vertex 7.0 4.0) (Vector 1 0) (Vector 1 0) 1.5 (270*pi/180) False 3 1 5 1 + , Tank (Vertex 4.0 4.0) (Vector 1 0) (Vector 1 0) 1.5 (270*pi/180) False 3 1 5 1 + , Tank (Vertex 10.0 4.0) (Vector 1 0) (Vector 1 0) 1.5 (270*pi/180) False 3 1 5 1 ], bullets = []} mainstate = MainState {run = True, driver = SomeDriver gl, time = currentTime, players = [ SomePlayer humanPlayer - , SomePlayer $ CPUPlayer (-90) - , SomePlayer $ CPUPlayer 90 + , SomePlayer $ CPUPlayer $ Vector 0 (-1) + , SomePlayer $ CPUPlayer $ Vector 0 1 ], textures = M.empty, models = M.empty, gameState = gamestate} runMain mainstate $ do |