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

Timestamp:

10/04/08 14:32:30 (3 months ago)

Author:

mokehehe

Message:

プレーヤーとの当たり判定追加

Files:

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

lang/haskell/nario/Player.hs

@@ -8 +8 @@
         getScrollPos,
         getPlayerYPos,
+        getPlayerHitRect,
         getPlayerMedal,
         getPlayerScore
 ) where
 
-import Multimedia.SDL hiding (Event)
+import Multimedia.SDL (blitSurface, pt)
 
 import Util
-import AppUtil
+import AppUtil (KeyProc, isPressed, PadBtn(..), cellCrd, KeyState(..), getImageSurface, Rect(..))
 import Const
 import Images
@@ -200 +201 @@
 getPlayerYPos = (`div` one) . y
 
+-- 当たり判定用矩形
+getPlayerHitRect :: Player -> Rect
+getPlayerHitRect self = Rect (xx - 6) (yy - 16) (xx + 6) yy
+        where
+                xx = x self `div` one
+                yy = y self `div` one
+
 -- メダル枚数取得
 getPlayerMedal :: Player -> Int