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

Timestamp:

10/02/08 01:25:33 (3 months ago)

Author:

mokehehe

Message:

タイトル画面とゲーム中を作成
プレーヤーが画面外に落ちたりタイムアップならゲームオーバー

Files:

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

lang/haskell/nario/Player.hs

@@ -7 +7 @@
         updatePlayer,
         renderPlayer,
-        getScrollPos
+        getScrollPos,
+        getPlayerYPos,
+        getPlayerMedal,
+        getPlayerScore
 ) where
 
@@ -14 +17 @@
 import Util
 import AppUtil
-import SDLUtil
 import Const
 import Images
@@ -37 +39 @@
         stand :: Bool,
 
+        medal :: Int,
+        score :: Int,
+
         lr :: Int,
         pat :: Int,
@@ -49 +54 @@
         scrx = 0,
         stand = False,
+
+        medal = 0,
+        score = 0,
 
         lr = 1,
@@ -160 +168 @@
 checkCeil fld player
         | stand player || vy player >= 0 || not isCeil  = (player, [])
-        | otherwise = (player { vy = 0 }, [EvHitBlock ImgBlock2 cx cy])
+        | otherwise = (player { vy = 0, score = (score player) + 10 }, [EvHitBlock ImgBlock2 cx cy])
         where
                 ytmp = y player - one * chrSize
@@ -188 +196 @@
 getScrollPos player = (scrx player) `div` one
 
+-- Ｙ座標取得
+getPlayerYPos :: Player -> Int
+getPlayerYPos = (`div` one) . y
+
+-- メダル枚数取得
+getPlayerMedal :: Player -> Int
+getPlayerMedal = medal
+
+-- スコア取得
+getPlayerScore :: Player -> Int
+getPlayerScore = score
+
 -- 描画
 renderPlayer sur imgres scrx player = do