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

Timestamp:

10/05/08 16:27:31 (3 months ago)

Author:

mokehehe

Message:

エフェクトオブジェクト（コイン取得、スコア加算、ブロック破壊）追加

Files:

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

lang/haskell/nario/Actor/AnimBlock.hs

@@ -14 +14 @@
 import Event
 
--- ============================================================================
--- AnimBlock
---      ブロックを叩いたときのバウンド演出
 
 data AnimBlock = AnimBlock {
@@ -40 +37 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres $ chr2img $ chr self) Nothing sur (pt ((x self) `div` one - scrx) ((y self) `div` one - 8))
+                blitSurface (getImageSurface imgres $ chr2img $ chr self) Nothing sur (pt (x self `div` one - scrx) (y self `div` one - 8))
                 return ()