Changeset 20943 for lang/haskell/nario/Main.hs

Timestamp:

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

Author:

mokehehe

Message:

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

Files:

• lang/haskell/nario/Main.hs (modified) (4 diffs)

lang/haskell/nario/Main.hs

@@ -86 +86 @@
 
 
--- キー入力を処理して描画コマンドを返す
+-- キー入力全体を処理して描画コマンド列を返す
 process :: [[SDLKey]] -> IO [Scr]
 process kss = do
@@ -93 +93 @@
 
         let tmpscrs = doTitle fldmap kss
-
-        let scrs = map (\scr sur -> scr imgres sur >> flipSurface sur >> return ()) $ tmpscrs
-        return $ scrs ++ [(\sur -> do {releaseImageResource imgres})]
-
+        let scrs = zipWith (common imgres) tmpscrs kss
+        return $ scrs ++ [final imgres]
+
+        where
+                -- 共通動作
+                common imgres scr ks sur = do
+                        scr imgres sur
+                        if SDLK_s `elem` ks
+                                then saveBMP sur "ss.bmp" >> return ()
+                                else return ()
+                        flipSurface sur
+                        return ()
+                -- 後始末
+                final imgres sur = releaseImageResource imgres
 
 -- タイトル
@@ -172 +182 @@
                 -- 更新
                 updateProc :: KeyProc -> GameGame -> (ImageResource -> Scr, GameGame)
-                updateProc kp gs = (renderProc gs', gs')
+                updateProc kp gs = (scr', gs')
                         where
                                 time' = max 0 (time gs - 1)
@@ -186 +196 @@
                                 gstmp = gs { pl = pl'', fld = fld', actors = actors'', time = time' }
                                 gs' = procEvent gstmp (plev ++ ev' ++ screv' ++ ev'')
+                                scr' = renderProc gs'
 
                 initialState = GameGame { pl = newPlayer, fld = fldmap, actors = [], time = 400 * timeBase }