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

Timestamp:

10/05/08 16:27:31 (3 months ago)

Author:

mokehehe

Message:

エフェクトオブジェクト（コイン取得、スコア加算、ブロック破壊）追加

Files:

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

lang/haskell/nario/Player.hs

@@ -7 +7 @@
         updatePlayer,
         renderPlayer,
+        playerGetCoin,
+        addScore,
         getScrollPos,
         getPlayerYPos,
         getPlayerVY,
         getPlayerHitRect,
-        getPlayerMedal,
+        getPlayerCoin,
         getPlayerScore,
         getPlayerType,
@@ -61 +63 @@
         undeadCount :: Int,
 
-        medal :: Int,
+        coin :: Int,
         score :: Int,
 
@@ -80 +82 @@
         undeadCount = 0,
 
-        medal = 0,
+        coin = 0,
         score = 0,
 
@@ -206 +208 @@
 checkCeil fld self
         | stand self || vy self >= 0 || not isCeil      = (self, [])
-        | otherwise = (self { vy = 0, score = (score self) + 10 }, [EvHitBlock ImgBlock2 cx cy (pltype self /= SmallNario)])
+        | otherwise = (self { y = y', vy = 0 }, [EvHitBlock ImgBlock2 cx cy (pltype self /= SmallNario)])
         where
                 yofs = case pltype self of
-                        SmallNario      -> 15
-                        SuperNario      -> 30
-                        FireNario       -> 30
+                        SmallNario      -> 14
+                        SuperNario      -> 28
+                        FireNario       -> 28
                 ytmp = y self - yofs * one
 
@@ -218 +220 @@
                 isCeil = isBlock $ fieldRef fld cx cy
                 yground y = (cellCrd y) * (chrSize * one)
+                y' = ((cy + 1) * chrSize + yofs) * one
 
 
@@ -267 +270 @@
                 yy = y self `div` one
 
--- メダル枚数取得
-getPlayerMedal :: Player -> Int
-getPlayerMedal = medal
+-- コイン枚数取得
+getPlayerCoin :: Player -> Int
+getPlayerCoin = coin
 
 -- スコア取得
@@ -293 +296 @@
 stampPlayer :: Player -> Player
 stampPlayer self = self { vy = stampVy }
+
+-- コイン取得
+playerGetCoin :: Player -> Player
+playerGetCoin self = self { coin = (coin self + 1) `mod` 100 }
+
+-- スコア加算
+addScore :: Int -> Player -> Player
+addScore a self = self { score = score self + a }
 
 -- 描画