diff options
Diffstat (limited to 'src/HTanks.hs')
| -rw-r--r-- | src/HTanks.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index c7cf8a8..660f03c 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -7,6 +7,7 @@ import Render import Player import CPUPlayer import DefaultPlayer +import WiimotePlayer import Simulation import Tank @@ -20,20 +21,21 @@ import qualified Data.Map as M import qualified Data.Set as S import Data.Time - main :: IO () main = do let theLevel = testLevel + wiimotePlayer <- newWiimotePlayer gl <- initGL $ glxDriver (levelWidth theLevel) (levelHeight theLevel) when (initialized gl) $ do currentTime <- getCurrentTime let mainState = MainState {run = True, driver = SomeDriver gl, time = currentTime, players = - [ SomePlayer $ DefaultPlayer S.empty 0 0 False + [ --SomePlayer $ DefaultPlayer S.empty 0 0 False + SomePlayer $ wiimotePlayer , SomePlayer $ CPUPlayer 0 ]} - gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 2 270 False 3 1 5 1 - , Tank 5.0 3.5 0 0 2 270 False 3 1 5 1 + 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} runGame gameState $ do |