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

Timestamp:

10/04/08 18:09:41 (3 months ago)

Author:

mokehehe

Message:

敵との当たり判定追加

Files:

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

lang/haskell/nario/Player.hs

@@ -9 +9 @@
         getScrollPos,
         getPlayerYPos,
+        getPlayerVY,
         getPlayerHitRect,
         getPlayerMedal,
         getPlayerScore,
         getPlayerType,
-        setPlayerType
+        setPlayerType,
+        setPlayerDamage,
+        stampPlayer
 ) where
 
 import Multimedia.SDL (blitSurface, pt)
+import Data.Bits ((.&.))
 
 import Util
@@ -34 +38 @@
 scrollMaxX = 8 * chrSize
 gravity2 = one `div` 4          -- Aを長押ししたときの重力
-
+stampVy = -8 * gravity
+undeadFrame = frameRate * 2
+
+-- 種類
 data PlayerType = SmallNario | SuperNario | FireNario
         deriving (Eq)
 
+-- 状態
+data PlayerState = Normal | Dead
+        deriving (Eq)
+
+-- 構造体
 data Player = Player {
         pltype :: PlayerType,
+        plstate :: PlayerState,
         x :: Int,
         y :: Int,
@@ -46 +59 @@
         scrx :: Int,
         stand :: Bool,
+        undeadCount :: Int,
 
         medal :: Int,
@@ -57 +71 @@
 newPlayer = Player {
         pltype = SmallNario,
+        plstate = Normal,
         x = 3 * chrSize * one,
         y = 13 * chrSize * one,
@@ -63 +78 @@
         scrx = 0,
         stand = False,
+        undeadCount = 0,
 
         medal = 0,
@@ -80 +96 @@
 patSit = patSlip + 1
 patShot = patSit + 1
+patDead = patShot + 2
 
 imgTableSmall = [
@@ -102 +119 @@
                 else self'
         where
-                ax = (-padl + padr) * acc
+                ax = if padd then 0 else (-padl + padr) * acc
                 vx'
                         | ax /= 0                       = rangeadd (vx self) ax (-maxspd) maxspd
@@ -114 +131 @@
                 scrollPos = (max vx' 0) * (scrollMaxX - scrollMinX) `div` runVx + scrollMinX
 
+                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
@@ -130 +148 @@
                                 1       -> 1
                 pat'
+                        | padd && pltype self /= SmallNario     = patSit
                         | vx' == 0                              = patStop
                         | vx' > 0 && lr' == 0   = patSlip
@@ -158 +177 @@
 
 -- 重力による落下
-fall :: KeyProc -> Player -> Player
-fall kp self
+fall :: Bool -> Player -> Player
+fall abtn self
         | stand self    = self
         | otherwise             = self { y = y', vy = vy' }
         where
                 ay
-                        | vy self < 0 && isPressed (kp PadA)    = gravity2
-                        | otherwise                                                             = gravity
+                        | vy self < 0 && abtn   = gravity2
+                        | otherwise                             = gravity
                 vy' = min maxVy $ vy self + ay
                 y' = y self + vy'
@@ -211 +230 @@
 updatePlayer :: KeyProc -> Field -> Player -> (Player, [Event])
 updatePlayer kp fld self =
+        case plstate self of
+                Normal  -> updateNormal kp fld self'
+                Dead    -> updateDead kp fld self'
+        where
+                self' = decUndead self
+                decUndead pl = pl { undeadCount = max 0 $ undeadCount pl - 1 }
+
+-- 通常時
+updateNormal :: KeyProc -> Field -> Player -> (Player, [Event])
+updateNormal kp fld self =
         moveY $ checkX fld $ moveX kp self
         where
-                moveY = checkCeil fld . doJump kp . checkFloor fld . fall kp
+                moveY = checkCeil fld . doJump kp . checkFloor fld . fall (isPressed $ kp PadA)
+
+-- 死亡時
+updateDead :: KeyProc -> Field -> Player -> (Player, [Event])
+updateDead kp fld self = (fall False self, [])
 
 -- スクロール位置取得
@@ -223 +256 @@
 getPlayerYPos = (`div` one) . y
 
+-- Ｙ速度取得
+getPlayerVY :: Player -> Int
+getPlayerVY = vy
+
 -- 当たり判定用矩形
 getPlayerHitRect :: Player -> Rect
@@ -246 +283 @@
 setPlayerType t self = self { pltype = t }
 
+-- ダメージを与える
+setPlayerDamage :: Player -> Player
+setPlayerDamage self
+        | undeadCount self > 0                  = self
+        | pltype self == SmallNario             = self { plstate = Dead, pat = patDead, vy = jumpVy, stand = False }
+        | otherwise                                             = self { pltype = SmallNario, undeadCount = undeadFrame }
+
+-- 敵を踏み潰した
+stampPlayer :: Player -> Player
+stampPlayer self = self { vy = stampVy }
+
 -- 描画
 renderPlayer sur imgres scrx self = do
-        blitSurface (getImageSurface imgres imgtype) Nothing sur pos
+        if undeadCount self == 0 || (undeadCount self .&. 1) /= 0
+                then blitSurface (getImageSurface imgres imgtype) Nothing sur pos >> return ()
+                else return ()
         where
                 pos = case pltype self of
                         SmallNario      -> pt sx $ sy - chrSize + 1
                         otherwise       -> pt sx $ sy - chrSize * 2 + 1
-                imgtype = imgtbl !! lr self !! pat self
+                imgtype
+                        | plstate self == Dead  = ImgNarioDead
+                        | otherwise                             = imgtbl !! lr self !! pat self
                 imgtbl = case pltype self of
                         SmallNario      -> imgTableSmall