Changeset 20943 for lang/haskell/nario/Actor/Kuribo.hs

Timestamp:

10/08/08 07:34:08 (3 months ago)

Author:

mokehehe

Message:

キー入力処理変更
Sキーでスクリーンショットを取れるように

Files:

• lang/haskell/nario/Actor/Kuribo.hs (modified) (2 diffs)

lang/haskell/nario/Actor/Kuribo.hs

@@ -32 +32 @@
                         (x', y', vx', vy') = updateActorBase fld (x self, y self, vx self, vy self)
 
-        render self imgres scrx sur = do
+        render self imgres scrx sur =
                 putimg sur imgres imgtype (x self `div` one - chrSize `div` 2 - scrx) (y self `div` one - ofsH - 8)
-                return ()
                 where
                         imgtype = [ImgKuri0, ImgKuri1] !! (cnt self `mod` 16 `div` 8)
@@ -66 +65 @@
         update fld self = (self { ccnt = ccnt self + 1 }, [])
 
-        render self imgres scrx sur = do
+        render self imgres scrx sur =
                 putimg sur imgres ImgKuriDead (sx self - scrx) (sy self - 7 - 8)
-                return ()
 
         bDead self = ccnt self >= frameRate `div` 2