Changeset 20943 for lang/haskell/nario/Player.hs

Timestamp:

10/08/08 07:34:08 (3 months ago)

Author:

mokehehe

Message:

キー入力処理変更
Sキーでスクリーンショットを取れるように

Files:

• lang/haskell/nario/Player.hs (modified) (4 diffs)

lang/haskell/nario/Player.hs

@@ -26 +26 @@
 
 import Util
-import AppUtil (KeyProc, isPressed, PadBtn(..), cellCrd, KeyState(..), getImageSurface, Rect(..), putimg)
+import AppUtil (KeyProc, padPressed, padPressing, PadBtn(..), cellCrd, KeyState(..), getImageSurface, Rect(..), putimg)
 import Const
 import Images
@@ -132 +132 @@
                 x' = max xmin $ (x self) + vx'
 
-                padd = if isPressed (kp PadD) then True else False
-                padl = if isPressed (kp PadL) then 1 else 0
-                padr = if isPressed (kp PadR) then 1 else 0
+                padd = if padPressing kp PadD then True else False
+                padl = if padPressing kp PadL then 1 else 0
+                padr = if padPressing kp PadR then 1 else 0
                 maxspd
                         | not $ stand self      = walkVx `div` 2
-                        | isPressed (kp PadB)   = runVx
+                        | padPressing kp PadB   = runVx
                         | otherwise                             = walkVx
                 nowacc
-                        | isPressed (kp PadB)   = acc2
+                        | padPressing kp PadB   = acc2
                         | otherwise                             = acc
                 xmin = (scrx self + chrSize `div` 2) * one
@@ -237 +237 @@
 doJump :: KeyProc -> Player -> Player
 doJump kp self
-        | stand self && kp PadA == Pushed       = self { vy = vy', stand = False, pat = patJump }
+        | stand self && padPressed kp PadA      = self { vy = vy', stand = False, pat = patJump }
         | otherwise                                                     = self
         where
@@ -257 +257 @@
         moveY $ scroll self $ checkX fld $ moveX kp self
         where
-                moveY = checkCeil fld . doJump kp . checkFloor fld . fall (isPressed $ kp PadA)
+                moveY = checkCeil fld . doJump kp . checkFloor fld . fall (padPressing kp PadA)
 
 -- 死亡時