Changeset 20003 for lang/haskell/tetris/Player.hs

Timestamp:

09/27/08 09:31:17 (3 months ago)

Author:

mokehehe

Message:

ソースの文字コードを utf-8 に変更

Files:

• lang/haskell/tetris/Player.hs (modified) (12 diffs)

lang/haskell/tetris/Player.hs

@@ -11 +11 @@
 -- constant definition
 
--- �t���[�����[�g
+-- フレームレート
 frameRate = 40
 
--- �Z���̕\���T�C�Y
+-- セルの表示サイズ
 cellWidth  = 16
 cellHeight = 16
 
--- �f�t�H���g�̗������x
+-- デフォルトの落下速度
 defaultFallSpeed = 1
 
--- �������E���^
+-- 落ちるカウンタ
 blockFallCount = 40
 
--- �u���b�N�����n���Ă����肳���܂ł̎���fixedTimer = frameRate `div` 2
+-- ブロックが着地してから固定されるまでの時間
+fixedTimer = frameRate `div` 2
 
 --------------------------------
@@ -39 +40 @@
 scaleColor s (r,g,b) = (s*r, s*g, s*b)
 
--- ���̈����Ԃ�
+-- 矩形領域塗りつぶし
 fill x y w h (r,g,b) = do
         color3i r g b
@@ -53 +54 @@
                 iy2 = fromInteger $ toInteger $ y + h
 
--- �Z������i������
+-- セルを描く（明暗あり）
 renderCell col@(r,g,b) ix iy = do
         fill x y (cellWidth-1) (cellHeight-1) col
@@ -73 +74 @@
                 y = iy * cellHeight
 
--- �t�B�[���h�`��enderBoard board = mapM_ lineProc $ zip [0..] board
+-- フィールド描画
+renderBoard board = mapM_ lineProc $ zip [0..] board
         where
                 lineProc (iy, line) = mapM_ (cellProc iy) $ zip [0..] line
@@ -79 +81 @@
                 cellProc iy (ix, cell)  = renderCell (cellColor cell) ix iy
 
--- �u���b�N��‚��ŕ`��enderBlockTypeCol col blktype ix iy rot = do
+-- ブロックを色つきで描画
+renderBlockTypeCol col blktype ix iy rot = do
         sequence_ $ concat $ idxmap2 proc pat
         where
@@ -112 +115 @@
 }
 
--- �u���b�N��b�h�ňړ�
+-- ブロックをパッドで移動
 updateBlock :: Board -> Pad -> Block -> Block
 updateBlock board pad block =
@@ -164 +167 @@
                 oldycnt = ycnt block
 
--- �u���b�N���n�ʂɂ‚��ČŒ肳�ꂽ���H
+-- ブロックが地面について固定されたか？
 isBlockFixed block = (fixedcnt block) > fixedTimer
 
--- ���쒆�̃u���b�N�`��enderBlock block =
+-- 操作中のブロック描画
+renderBlock block =
         renderBlockType (blktype_of block) (x block) (y block) (rot block)
 
--- �S�[�X�g�u���b�N�`��enderGhostBlock board block =
+-- ゴーストブロック描画
+renderGhostBlock board block =
         renderBlockTypeCol col (blktype_of block) (x block) landY (rot block)
         where
@@ -220 +225 @@
         }
 
--- �ʏ펞
+-- 通常時
 updatePlayerNormal pad player
-        -- �ʏ�| not (isBlockFixed block)        = return $ player { block_of = block' }
-        -- �ڒn�����Ƃ��F�t�B�[���h�Ɋi�[���Ď��̃u���b�N���
+        -- 通常
+        | not (isBlockFixed block)      = return $ player { block_of = block' }
+        -- 接地したとき：フィールドに格納して次のブロックを出す
         | otherwise     = do
                 if null filled
@@ -239 +245 @@
                 filled = getFilledLines storedBoard
 
--- ���������C������������ԑ҂�
+-- そろったラインを消した後の時間待ち
 updatePlayerErase filled pad player =
         if (not $ null filled) && (cnt player) < (frameRate `div` 2)
@@ -248 +254 @@
                 score' = (score player) + 10 * square (length filled)
 
--- ���������C������ĉ��ɋl�߂������ԑ҂�
+-- そろったラインを消して下に詰めた後の時間待ち
 updatePlayerErase2 pad player =
         if (cnt player) < (frameRate `div` 2)
@@ -254 +260 @@
                 else    setupNextBlock player
 
--- ���S
+-- 死亡
 updatePlayerDead pad player = return player
 
--- ���̃u���b�N���
+-- 次のブロックを出す
 setupNextBlock player = do
         if canMove board nxtblk (x nxtBlock) (y nxtBlock) (rot nxtBlock)
-                then do         -- �o������             nxt' <- randBlockType           -- ���̎��̃u���b�N�𗐐��őI��                       return $ player { block_of = nxtBlock, nxtblktype = nxt', stat = PlNormal, updater = updatePlayerNormal }
-                else do         -- �l�܂�Ă����S
+                then do         -- 登場できる
+                        nxt' <- randBlockType           -- 次の次のブロックを乱数で選ぶ
+                        return $ player { block_of = nxtBlock, nxtblktype = nxt', stat = PlNormal, updater = updatePlayerNormal }
+                else do         -- 詰まってる：死亡
                         let storedBoard = storeBlock board nxtblk (x nxtBlock) (y nxtBlock) (rot nxtBlock)
                         return $ player { board_of = storedBoard, stat = PlDead, updater = updatePlayerDead }
         where
-                nxtblk = nxtblktype player              -- ���̃u���b�N�̎�
+                nxtblk = nxtblktype player              -- 次のブロックの種類
                 nxtBlock = newBlock nxtblk nxtFallSpd
                 nxtFallSpd = if curFallSpd < blockFallCount then curFallSpd + 1 else defaultFallSpeed
@@ -272 +280 @@
 
 
--- �X�V
+-- 更新
 updatePlayer :: Pad -> Player -> IO Player
 updatePlayer pad player = (updater player) pad player