Changeset 20925 for lang/haskell/nario/Player.hs

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Player.hs

@@ -26 +26 @@
 
 import Util
-import AppUtil (KeyProc, isPressed, PadBtn(..), cellCrd, KeyState(..), getImageSurface, Rect(..))
+import AppUtil (KeyProc, isPressed, PadBtn(..), cellCrd, KeyState(..), getImageSurface, Rect(..), putimg)
 import Const
 import Images
@@ -120 +120 @@
 moveX :: KeyProc -> Player -> Player
 moveX kp self =
-        if (stand self)
+        if stand self
                 then self' { lr = lr', pat = pat', anm = anm' }
                 else self'
@@ -324 +324 @@
 renderPlayer sur imgres scrx self = do
         if undeadCount self == 0 || (undeadCount self .&. 1) /= 0
-                then blitSurface (getImageSurface imgres imgtype) Nothing sur pos >> return ()
+                then putimg sur imgres imgtype sx posy
                 else return ()
         where
-                pos = case pltype self of
-                        SmallNario      -> pt sx $ sy - chrSize + 1
-                        otherwise       -> pt sx $ sy - chrSize * 2 + 1
+                posy = case pltype self of
+                        SmallNario      -> sy - chrSize + 1
+                        otherwise       -> sy - chrSize * 2 + 1
                 imgtype
                         | plstate self == Dead  = ImgNarioDead