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

Timestamp:

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

Author:

mokehehe

Message:

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

Files:

• lang/haskell/nario/Actor/Kinoko.hs (modified) (1 diff)

lang/haskell/nario/Actor/Kinoko.hs

@@ -32 +32 @@
                         (x', y', vx', vy') = updateActorBase fld (x self, y self, vx self, vy self)
 
-        render self imgres scrx sur = do
-                putimg sur imgres imgtype ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - ofsH - 8)
-                return ()
-                where
-                        imgtype = ImgKinoko
+        render self imgres scrx sur =
+                putimg sur imgres ImgKinoko ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - ofsH - 8)
 
         bDead self = y self >= (screenHeight + chrSize * 3) * one || x self <= -chrSize * one