Changeset 20641 for lang/haskell/nario/Field.hs

Timestamp:

10/03/08 23:41:05 (3 months ago)

Author:

mokehehe

Message:

ブロックを叩いたときのアニメをマシにした

Files:

• lang/haskell/nario/Field.hs (modified) (3 diffs)

lang/haskell/nario/Field.hs

@@ -13 +13 @@
         fieldSet,
         isBlock,
-        renderField
+        renderField,
+        chr2img,
+        hardBlock
 ) where
 
@@ -40 +42 @@
 chr2img 'X' = ImgBlock3
 chr2img '?' = ImgBlock4
+chr2img '#' = ImgBlock5
 chr2img '_' = ImgMt02
 chr2img '/' = ImgMt11
@@ -64 +67 @@
 
 isBlock :: Cell -> Bool
-isBlock c = c `elem` "@OX?[]l|*"
+isBlock = (`elem` "@OX?#[]l|*")
+
+hardBlock :: Cell -> Bool
+hardBlock = (`elem` "#X@*")
 
 inField :: Field -> Int -> Int -> Bool