diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 16:25:27 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 16:25:27 +0200 |
commit | d2be8eb4103f266eb2078135960779bcbb82c492 (patch) | |
tree | 34caa580d6fc2eec1d3761225fd0fae164c1d556 /src/HTanks.hs | |
parent | 2ff529b0b12e176f02c976833c53a50ef6bad789 (diff) | |
download | htanks-d2be8eb4103f266eb2078135960779bcbb82c492.tar htanks-d2be8eb4103f266eb2078135960779bcbb82c492.zip |
Renamed WiimotePlayer to HWiidPlayer
Diffstat (limited to 'src/HTanks.hs')
-rw-r--r-- | src/HTanks.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index e02b247..2fcdb66 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -7,7 +7,7 @@ import Render import Player import CPUPlayer import DefaultPlayer -import WiimotePlayer +import HWiidPlayer import Simulation import Tank @@ -27,14 +27,14 @@ import Foreign.C.Types main :: IO () main = do let theLevel = testLevel - wiimotePlayer <- newWiimotePlayer + hwiidPlayer <- newHWiidPlayer 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 $ wiimotePlayer + SomePlayer $ hwiidPlayer , 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 |