Changeset 20925 for lang/haskell/nario/Actor/CoinGet.hs

Timestamp:

10/07/08 20:42:00 (3 months ago)

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Actor/CoinGet.hs

@@ -1 @@
--- -*- mode: haskell; Encoding: UTF-8 -*-
+-- -*- mode: haskell; Encoding: UTF-8 -*-
 -- コインを取ったときの演出コイン
 
@@ -9 +9 @@
 
 import Actor (Actor(..))
-import AppUtil
+import AppUtil (putimg)
 import Const
 import Images
-import Event
+import Event (Event(..))
 
 
@@ -33 +33 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres imgtype) Nothing sur (pt (sx self - scrx) (y self `div` one - 8))
+                putimg sur imgres imgtype (sx self - scrx) (y self `div` one - 8)
                 return ()
                 where