diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 13:28:38 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 13:28:38 +0200 |
commit | c0d2d54ea1687a80ff76fa032ad4dc89670d2988 (patch) | |
tree | fce2ebd5d0fea025004e666a083fa38207c23663 /src/DefaultPlayer.hs | |
parent | 736ad91b328c23287b6065f6dc8f75c424d84b8b (diff) | |
download | htanks-c0d2d54ea1687a80ff76fa032ad4dc89670d2988.tar htanks-c0d2d54ea1687a80ff76fa032ad4dc89670d2988.zip |
Added Wiimote support
Diffstat (limited to 'src/DefaultPlayer.hs')
-rw-r--r-- | src/DefaultPlayer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/DefaultPlayer.hs b/src/DefaultPlayer.hs index 49371dc..756ba88 100644 --- a/src/DefaultPlayer.hs +++ b/src/DefaultPlayer.hs @@ -26,7 +26,7 @@ instance Player DefaultPlayer where move = (x /= 0 || y /= 0) angle = if move then Just $ fromRational $ round ((atan2 y x)*1000000*180/pi)%1000000 else Nothing aangle = if (ax /= 0 || ay /= 0) then Just $ fromRational $ round ((atan2 ay ax)*1000000*180/pi)%1000000 else Nothing - in (DefaultPlayer keys aimx aimy False, angle, move, aangle, shoot) + in return (DefaultPlayer keys aimx aimy False, angle, move, aangle, shoot) handleEvent (DefaultPlayer keys aimx aimy shoot) ev | Just (KeyPressEvent key) <- fromEvent ev = DefaultPlayer (S.insert key keys) aimx aimy shoot |