Added Wiimote support
This commit is contained in:
parent
736ad91b32
commit
c0d2d54ea1
8 changed files with 76 additions and 31 deletions
|
@ -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
|
||||
|
|
Reference in a new issue