Changeset 20670 for lang/haskell/nario/Actor/AnimBlock.hs

Timestamp:

10/04/08 13:02:36 (3 months ago)

Author:

mokehehe

Message:

きのこ追加

Files:

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

lang/haskell/nario/Actor/AnimBlock.hs

@@ -7 +7 @@
 import Multimedia.SDL hiding (Event)
 
-import Actor
+import Actor (Actor(..))
 import Const
 import AppUtil
@@ -27 +27 @@
 
 instance Actor AnimBlock where
-        update self
+        update fld self
                 | not (bDead self)      = (self', ev')
                 | otherwise                     = (self, [])
@@ -51 +51 @@
                 cc = case c of
                         '?'     -> '#'
+                        'K'     -> '#'
                         x       -> x