tune_projects @ ウィキ

SDL画像描画関連

2012-09-15T20:41:15+09:00

とりあえず画像表示できた。これをベースに色々実験してみる予定。 module Main where import Data.Word import qualified Graphics.UI.SDL as SDL import qualified Graphics.UI.SDL.Image as SDLi gameinit :: IO () gameinit = do SDL.init [SDL.InitEverything] SDL.setVideoMode 640 480 32 [] return () dispImage :: IO () dispImage = do --準備 screen <- SDL.getVideoSurface img <- SDLi.load "ue.png" --表示 SDL.blitSurface img (Just $ SDL.Rect 0 0 100 100) screen Nothing SDL.flip screen SDL.freeSurface img --画像を解放 --画面が閉じられるまで待機 e <- SDL.waitEvent if e == SDL.Quit then return () else dispImage main :: IO () main = gameinit >> dispImage >> SDL.quit ---- 拡大／回転 module Main where import Data.Word import qualified Graphics.UI.SDL as SDL import qualified Graphics.UI.SDL.Image as SDLi import qualified Graphics.UI.SDL.Rotozoomer as SDLr gameinit :: IO () gameinit = do SDL.init [SDL.InitEverything] SDL.setVideoMode 640 480 32 [] return () dispImage :: IO () dispImage = do --準備 screen <- SDL.getVideoSurface imgG <- SDLi.load "OnpuG.png" imgBG <- SDLr.rotozoom imgG 180 3 False --表示 SDL.blitSurface imgBG (Just $ SDL.Rect 0 0 300 300) screen (Just $ SDL.Rect 170 90 300 300) SDL.flip screen --画像を解放 SDL.freeSurface imgG SDL.freeSurface imgBG --画面が閉じられるまで待機 e <- SDL.waitEvent if e == SDL.Quit then return () else dispImage main :: IO () main = gameinit >> dispImage >> SDL.quit

Scenario実装参考資料

2012-08-26T15:04:54+09:00

ふみさん（@fumieval)さんより情報頂きますた。 monad-coroutineというものがあるらしい。 Suspension Functorとかゆー構造を定義すればどってんこってん。（まだちゃんと読んでない） https://github.com/fumieval/MonadicShooter/blob/master/Data/Danmaku.hs http://ideone.com/XOl3e

メニュー

2012-08-26T15:02:00+09:00

-[[トップページ]] -[[技術情報]] --[[メインループ記述]] --[[SDL画像描画関連]] --[[Scenario実装参考資料]] ***Project Bucephalas Haskell向けRPGFramework開発プロジェクト【超簡易要件定義】 -[[GAME基板開発]] -[[HaskellでRPG作る]] --[[マップ移動システム作る]] --[[イベント処理システム作る]] 【超絶簡易基本設計】 -[[GAME基板：機能概要]] 【その他】 -[[課題管理]] ---- &link_editmenu(text=ここを編集)

GAME基板：機能概要

2012-08-25T17:16:14+09:00

*GAME基板システムシステム名：Bucephalas Base このシステムは、Haskellでゲームを開発するための基板になるシステムである。 SDL/OpenGLを基板とし、より簡単に以下の処理を記述する機能を提供する。 -メインループの記述 -文字列／画像の描画 -サウンド／BGM再生 -Layerの管理（後述） -Scenarioの記述（後述） **Layer 本システムにおける「Layer」とは、実際にゲーム固有の動作が記述された関数を持つ型である。「マップ移動処理」「メニュー選択処理」「戦闘処理」等といった単位で、ある程度汎用的なシステムとして開発される。そして、具体的な「物語」や「演出」等を後述のScenarioとして各プログラマにより記述する事で、大きなプログラムを効率よく記述していく事ができる。 **Scenario 本システムにおける「Scenario」とは、マップ移動時における「物語」、メニュー画面における「各機能」等を作成するための型である。 ScenarioはMonadクラスのインスタンスとして作成し、状態へのアクセスや、画像／文字列の入出力データの受け渡しといった、Layerと本システム間の連携処理を担う。

課題管理

2012-08-25T16:06:15+09:00

【GAME基板】 -LayerとScenario --ScenarioはLayerに対してどのような処理を行えるのか --複数のLayerに跨った処理をScenarioが行う事はできるか --LayerがScenarioをキックする仕組みはどうするか --具体的にどのようにして実装するか -副作用に関する課題 --複数人数で開発する際、副作用のスコープはどのように分割すべきか --Scenarioを構成する際に、一般プログラマは何処まで自由に副作用を扱えるようにするか --それらの条件を満たす処理をどのように実装するか

GAME基板開発

2012-08-19T23:48:24+09:00

ジャンル固有のシステムを構築する前に、リアルタイム性のあるあらゆるゲームで基板となるシステムを構築する必要がある。このシステムは、ざっくりと以下の機能を持つ。 -Escキー押下、あるいは画面が閉じられるまで無限ループ --一定の間隔でゲームに関する主処理を呼出し、それに対して画面の描画処理やサウンドの再生処理を実施する -キー押下状態を監視し、主処理に渡す --主処理は「マップ移動システム」「イベント処理システム」「メニュー操作処理」等 --これらの処理は多重起動する事ができ、必要に応じ前画面と並行に実行できるものとする ---例えば、「マップ」と「イベント」は常に同時に実行されていなくてはならない ---それに対し、アイテム／ステータス等のメニュー画面操作中は、フロントの機能を停止させておかなくてはいけない

メインループ記述

2012-08-19T01:56:53+09:00

SDLの場合GetTicks関数を使って1000分の1秒単位でシステム時間を取得する事ができる。これを使ってメインループを制御する。ちなみに、delay関数は1000分の１秒間隔で待機する関数。多分使わない・・・と思ったら使うかもしれない。 module Main where import Graphics.UI.SDL.Time import Control.Monad main :: IO () main = do replicateM_ 10 $ do getTicks >>= print delay 600 ---- 8/18更新：上のサンプルだとSDLをquitしてないのでgetTicksの値がアプリケーションを終えても増え続ける。実際には、ゲーム終了時にquitする事で、リセットされるらしい。メインループ内では、一定間隔で処理を実行しつつ、ユーザーからの入力を受けなくてはいけない。入力を受けるためには、pollEvents関数を使うと良い。戻り値であるEvent型については http://hackage.haskell.org/packages/archive/SDL/0.6.3/doc/html/Graphics-UI-SDL-Events.html を参照。一定間隔でgetTicksの値を出力しつつ、イベントを受け取ったらその内容も出力するサンプルを以下に示す。これをベースに、簡単にメインループを記述できるような仕組みを作る事でおよそ問題無さそう。もうちょっと内容まとめたらブログに書く。 module Main where import Data.Word import Graphics.UI.SDL.Events import Graphics.UI.SDL as SDL --initしてsetVideoModeすればとりあえず画面が表示される --setVideoModeの戻り値はSurfaceとかいう構造体で --画面の情報なんかを保持しているらしい gameinit :: IO () gameinit = do SDL.init [SDL.InitEverything] SDL.setVideoMode 640 480 32 [] >>= print --メインループ処理 mainLoop :: Word32 -> IO () mainLoop ago = do delay 1 --1000分の1ミリ秒待機、これ入れないとCPU使用率が大変な事になる ev <- pollEvent --待機せずイベントを取得、waitEventとかだと処理が継続できない printEvent ev --画面が閉じられたらメインループ終了、それ以外の場合は再帰呼び出し if ev == Quit then return () else printTicks >>= mainLoop where --イベントを出力 printEvent :: Event -> IO () printEvent NoEvent = return () printEvent ev = print ev --適当な間隔でgetTicksを出力 printTicks :: IO Word32 printTicks = do t <- getTicks if ago + 100 < t then print t >> return t else return ago ------------------------------------------------- main :: IO () main = gameinit >> getTicks >>= mainLoop >> SDL.quit ---- 同日更新：さらに詳しくブログに書いた。 http://d.hatena.ne.jp/its_out_of_tune/20120818/1345307698

マップ移動システム作る

2012-08-16T23:20:12+09:00

**基本的なこと -キャラクタエディタ必要 -マップエディタ必要 --背景／地面の層／キャラクタ層／上層／エフェクトの３層＋２枚で構成すればそれっぽくなる？ --マップチップで組み立てるのではなく、自由移動 ---旧ドラクエみたいなのではなく、クロトリみたいなイメージで ---当たり判定プログラム書かねば ---オブジェクトをしっかり敷き詰められるようにエディタには工夫が必要そう -シチュエーションや操作キャラクターによってズーム機能があると良いかと -操作感重視、多少不自然でもダンジョン内を走りまわってて気持ち良いゲームを目指す **イベントとの連携とか -カメラ位置を切り替えられるようにする --どのオブジェクトを捉えるか、そこからどのくらいずらすか・・・ ---これを使って画面を揺らして地震みたいな演出はできないだろうか -色々踏まえてイベント処理システムと並行して作ったほうがヨサゲ

HaskellでRPG作る

2012-08-16T00:48:27+09:00

想定してるのは壮大なストーリーのRPG(2D)だけど、いきなり大きなものを作ろうとすると間違いなくずっこけるので、パーツを揃えながらちょっとづつ形にしていく感じで。 **最低限作る必要があるものここで作ったものはFramework化して、後々も使えるようにする。 -マップ移動システム --マップ内歩きまわるだけでドーパミン放出しまくる操作感(期待値) --別途キャラクタ／マップエディタが必要 -イベント処理システム --キャラクターの会話とか選択肢とか --アクションRPGに発展させられるように柔軟性持たせた作りに --データのセーブとか簡単にできるようにしたい ---JSON形式で保存すればいくね？ -メニューシステム --多分ゲーム毎にカスタムできるくらいの自由度は必要 --でも基本的な選択肢なんかはチャチャっと組めるようなFrameworkにするとりあえずここまで１年半くらいで仕上げて、２年後くらいには戦闘無しの探索RPGリリースしたい簡単なものとは言え、それなりに本格的に・・・ **ゲーム毎に作る必要のありそうなもの -戦闘システム --マップシステムと連携して、キャラのレベルやステータスを共有できるようにしたいね --

技術情報

2012-08-16T00:46:00+09:00

ある程度内容が纏まったらブログに更新したりとか http://d.hatena.ne.jp/its_out_of_tune/ ここにはもっと細かなチップスとか、纏まり切ってないような事を思いついた事片っ端から書いてく