D言語ゲーム開発入門

D言語ゲーム開発入門

コレは何？

• 目次

D言語の特徴

メリット

• ランタイムのいらない、コンパクトな実行ファイルが作れる

• ガベコレがある

• クラスを使わなくても良い

• コンパイルが爆速

デメリット

• 情報が少ない

• 未だベータ版

• ライブラリ作るのがめんどい

• 統合環境がまだまだ

インストール～Hello, world.

コンパイラとリンカのインストール

• Win32版 dmd.zip (D コンパイラ)

• Win32版 dmc.zip (リンカなどの小物ツール)

Hello, world.

void main()
{
	printf("Hello, world.");
}

SET PATH=C:\work\D\dmd\bin\;C:\work\D\dm\bin\;%PATH%
dmd test.d
pause

Hello, world.

SDLをインストール～動かす

SDLを動かす（画面を出す）

import SDL;
void main()
{
	// 初期化ー
	if( SDL_Init(SDL_INIT_VIDEO) < 0 ) {
		throw new Error("Couldn't initialize SDL");
	}
	
	// 640x480で。デフォルトのbpp。ソフトウェアで頑張る
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);
	if ( screen == null ) {
		throw new Error("Couldn't set 640x480 video mode");
	}

	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			done = e.type == SDL_QUIT;
		}
		SDL_Delay(1000/30);
	}
	SDL_Quit();
}

SET PATH=C:\work\D\dmd\bin\;C:\work\D\dm\bin\;%PATH%
dmd test.d -ISDL SDL.lib
pause

dmd test.d -ISDL SDL.lib

画像を表示

import SDL;
void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);
	
	// ビットマップ読込
	SDL_Surface *image = SDL_LoadBMP("hell.bmp");
	// 転送
	SDL_BlitSurface(image, cast(SDL_Rect*)0, screen, cast(SDL_Rect*)0);
	
	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			done = e.type == SDL_QUIT;
		}
		SDL_Delay(1000/30);
	}
	SDL_Quit();
}

マウスイベント取得

import SDL;
void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);
	
	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			switch (e.type) {
				// マウス押下イベント取得
				case SDL_MOUSEBUTTONDOWN:
					switch (e.button.button)
					{
						case SDL_BUTTON_LEFT:
							SDL_WM_SetCaption("push left", null);
							break;
						case SDL_BUTTON_RIGHT:
							SDL_WM_SetCaption("push right", null);
							break;
						default:
							break;
					}
					break;
				case SDL_QUIT:
					done = true;
					break;
				default:
					break;
			}
		}
		SDL_Delay(1000/30);
	}
	SDL_Quit();
}

マウスイベントの取得方法２

import SDL;

extern (C) int filterEventsHandler(SDL_Event* e)
{
	if ( e.type == SDL_MOUSEBUTTONDOWN ) {
		if ( e.button.button == SDL_BUTTON_LEFT ) {
			printf("MOUSEBUTTONDOWN --- SDL_BUTTON_LEFT\n");
			return 0;    /* すでに処理が終わったので捨てます */
		}
	}
	return 1;
}

void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);
	
	SDL_SetEventFilter(&filterEventsHandler);

	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			done = e.type == SDL_QUIT;
		}
		SDL_Delay(1000/30);
	}
	SDL_Quit();
}

音楽の再生

import SDL;
import SDL_mixer; // SDL_mixerを使うよー
void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);

	// 44100Hz, 16bit, ステレオ, バッファサイズ4092byte
	Mix_OpenAudio(44100, AUDIO_S16, 2, 4092);
	Mix_Music* music = Mix_LoadMUS("chimes.wav");
	// 再生。２つ目の引数に再生回数を指定。-1だと無限ループ
	if (Mix_PlayMusic(music, -1) != 0) {
		throw new Error("Couldn't play music");
	}
	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			done = e.type == SDL_QUIT;
		}
		SDL_Delay(1000/30);
	}
	// 演奏停止
	Mix_HaltMusic();
	// 曲データ開放
	Mix_FreeMusic(music);
	// サウンドデバイスクローズ
	Mix_CloseAudio();
	SDL_Quit();
}

SET PATH=C:\work\D\dmd\bin\;C:\work\D\dm\bin\;%PATH%
dmd test.d -ISDL SDL.lib SDL_mixer.lib
pause

BGMとSEを同時に鳴らす

import SDL;
import SDL_mixer; // SDL_mixerを使うよー
void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface *screen = SDL_SetVideoMode(640, 480, 0, SDL_SWSURFACE);

	// 44100Hz, 16bit, ステレオ, バッファサイズ4092byte
	Mix_OpenAudio(44100, AUDIO_S16, 2, 4092);
	// BGM
	Mix_Music* music = Mix_LoadMUS("bgm.ogg");
	if (!music) {
		throw new Error("Couldn't load music");
	}
	// 再生。２つ目の引数に再生回数を指定。-1だと無限ループ
	if (Mix_PlayMusic(music, -1) != 0) {
		throw new Error("Couldn't play music");
	}
	// SE
	Mix_Chunk* chunk = Mix_LoadWAV("chimes.wav");
	if (!chunk) {
		throw new Error("Couldn't load chunk");
	}

	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) {
			switch (e.type) {
				case SDL_MOUSEBUTTONDOWN:
					// 再生する。第１引数はチャンネル番号（-1で自動割り当て）
					// 第３の引数には再生回数（「0」は1 回再生。「-1」 なら無限ループ）
					Mix_PlayChannel(-1, chunk, 0);
					break;
				case SDL_QUIT:
					done = true;
					break;
				default:
					break;
			}
		}
		SDL_Delay(1000/30);
	}
	// サウンド停止
	Mix_HaltChannel(-1);
	Mix_HaltMusic();
	// サウンドデータ開放
	Mix_FreeChunk(chunk);
	Mix_FreeMusic(music);
	// サウンドデバイスクローズ
	Mix_CloseAudio();
	SDL_Quit();
}

test.obj(test)
 Error 42: Symbol Undefined _Mix_LoadWAV
test.obj(test)
 Error 42: Symbol Undefined _Mix_PlayChannel
--- errorlevel 2

dmd -c -ISDL SDL_mixer.d

dmd test.d -ISDL SDL.lib SDL_mixer.lib SDL_mixer.obj

コンソールを消す

-L/exet:nt/su:windows:4.0

SET PATH=C:\work\D\dmd\bin\;C:\work\D\dm\bin\;%PATH%
dmd -L/exet:nt/su:windows:4.0 -ISDL test.d SDL.lib
pause

EXEファイルにリソースアイコンを埋め込む

test ICON PRELOAD "test.ico"

SET PATH=C:\borland\bcc55\Bin;%PATH%
brcc32 test.rc
pause

dmd -ISDL test.d SDL.lib test.res

モジュール分割・ディレクトリ階層を作って配置する

Javaランタイムのインストール

Antのダウンロード・インストール

build.xmlを書く

<!-- Antを使ってビルドするよー（http://www.jajakarta.org/ant/ant-1.6.1/docs/ja/） -->
<project name="d_build" default="all" basedir=".">
	<!-- ターゲット名（実行ファイル名） -->
	<property name="name" value="test"/>
	<property name="prog" value="${name}.exe"/>
	<!-- ライブラリディレクトリ -->
	<property name="libsdir" value="lib\"/>
	<!-- ここに使うライブラリを追加します -->
	<property name="libs" value="${libsdir}SDL.lib"/>
	<!-- 「.d」のあるインポートディレクトリ -->
	<property name="import" location="SDL"/>
	<!-- ソースファイルのディレクトリ -->
	<property name="src" location="src"/>
	<!-- リソースのディレクトリ -->
	<property name="resource" location="resource"/>
	<!-- インポートライブラリのディレクトリ -->
	<property name="builtimport" value="SDL_mixer.d"/>

	<!-- 全部ビルド -->
	<target name="all" depends="compile, link"/>
	<target name="rebuild" depends="clean, compile, link"/>
	<target name="compile">
		<apply executable="dmd" dir="${src}" dest="${src}" parallel="true" failonerror="true" skipemptyfilesets="true">
			<mapper type="glob" from="*.d" to="*.obj"/>
			<fileset dir="${src}" includes="**/*.d"/>
			<arg value="-c"/>
			<arg value="-I${import}"/>
			<arg value="-op"/>
			<arg value="-O"/>
			<arg value="-release"/>
			<arg value="-version=Win32_release"/>
			<srcfile/>
		</apply>
	</target>
	<target name="link">
		<apply executable="dmd" dir="." parallel="true" failonerror="true">
			<fileset dir="${src}" includes="**/*.obj"/>
			<fileset dir="${import}" includes="**/*.obj"/>
			<fileset dir="${resource}" includes="test.RES"/> <!-- アイコンリソース -->
			<fileset dir="${resource}" includes="test.def"/> <!-- コンソールを表示させない定義ファイル -->
			<arg value="${prog}"/>
			<arg value="${libs}"/>
			<srcfile/>
		</apply>
	</target>

	<!-- クリーン -->
	<target name="clean">
		<delete file="${prog}"/>
		<delete file="${name}.map"/>
		<delete>
			<fileset dir="${src}" includes="**/*.obj"/>
		</delete>
	</target>

	<!-- 実行 -->
	<target name="run">
		<exec executable="${name}" dir=".">
		</exec>
	</target>

	<!-- インポートディレクトリのモジュールをビルド -->
	<target name="buildlib">
		<apply executable="dmd" dir="${import}" dest="${import}" parallel="false" failonerror="false">
			<mapper type="glob" from="*.d" to="*.obj"/>
			<fileset dir="${import}" includes="${builtimport}"/>
			<arg value="-c"/>
			<arg value="-I${import}"/>
			<arg value="-op"/>
			<srcfile/>
		</apply>	
	</target>
</project>

• ソースコードは「src」ディレクトリに入れる（src\test.d）
• インポートモジュール（SDL関連）は「SDL」ディレクトリに入れる（そのまま）
• ライブラリは「lib」ディレクトリに入れる（lib\SDL.libなど）
• リソース（.def/.res）は「resource」ディレクトリに入れる

SET PATH=C:\work\D\ant\bin;%PATH%
SET PATH=C:\work\D\dmd\bin\;C:\work\D\dm\bin\;%PATH%
ant
pause

ant

ant clean

ant run

ant buildlib

• Apache Ant 1.6.1 マニュアル

SDL小技

• ESCキー：終了
• F5キー：ボスが来た！モード
• F9キー：フルスクリーン・ウィンドウモード切替
• F10キー：マウスカーソル表示切替
• F12キー：スクリーンショット保存

import SDL;

static int g_width = 640;
static int g_height = 480;
static int g_videoBpp = 0;
static int g_videoFlags = SDL_SWSURFACE;

/**
 * フルスクリーンモード切替
 */
void toggleFullScreen(SDL_Surface* screen, SDL_Surface* buffer)
{
	// バッファに保存
	SDL_BlitSurface(screen, cast(SDL_Rect*)0, buffer, cast(SDL_Rect*)0);
	g_videoFlags ^= SDL_FULLSCREEN; // フルスクリーンフラグ反転
	// スクリーン生成
	screen = SDL_SetVideoMode(g_width, g_height, g_videoBpp, g_videoFlags);
	// 再描画
	SDL_BlitSurface(buffer, cast(SDL_Rect*)0, screen, cast(SDL_Rect*)0);
}

/**
 * マウスカーソル表示切替
 */
void toggleShowCursor()
{
	if(SDL_ShowCursor(SDL_QUERY) == SDL_ENABLE) SDL_ShowCursor(SDL_DISABLE);
	else                                        SDL_ShowCursor(SDL_ENABLE);
}

void main()
{
	SDL_Init(SDL_INIT_VIDEO);
	SDL_Surface* screen = SDL_SetVideoMode(g_width, g_height, g_videoBpp, g_videoFlags);
	// バックバッファ生成
	SDL_Surface* buffer = SDL_ConvertSurface(screen, screen.format, g_videoFlags);
	// 赤い四角を描いてみる
	SDL_Rect rect;
	rect.x = 100; rect.y = 200; rect.w = 200; rect.h = 100;
	SDL_FillRect(screen, &rect, SDL_MapRGB(screen.format, 0xff, 0x00, 0x00));
	// イベントループ
	bool done = false;
	SDL_Event e;
	while ( !done ) {
		while ( SDL_PollEvent(&e) ) done = e.type == SDL_QUIT;
		int numkeys;
		Uint8* keystate = SDL_GetKeyState(&numkeys);
		if(keystate[SDLK_F9])          toggleFullScreen(screen, buffer);      // フルスクリーン切替
		else if(keystate[SDLK_F10])    toggleShowCursor();                    // マウスカーソル表示切替
		else if(keystate[SDLK_F12])    SDL_SaveBMP(screen, "screenshot.bmp"); // スクリーンショット保存
		else if(keystate[SDLK_F5])     SDL_WM_IconifyWindow();                // ボスが来た！
		else if(keystate[SDLK_ESCAPE]) done = true;                           // 終了
		SDL_Delay(1000/30);
	}
	SDL_Quit();
}

参考（D言語）

• プログラミング言語 D--D言語リファレンスマニュアルです。
• D言語研究室--やね先生のD言語研究室。マニアックな情報がたっぷりあります
• D言語研究--D言語のWikiページ
• D言語入門--D言語の文法について細かく書いてあります
• D Memo--これも、D言語の文法について。情報がやや古いですが、参考になる内容も多いです
• ABA Games--D言語で作ったゲームがたくさん。ソースコードを公開されているので、それが膨大なドキュメントです。
• MacでSDLアプリケーションの作り方
  • MacOSXで動かしたい人向け。基本.app形式を作成することになります。

参考（SDL）

• SDLドキュメント（日本語訳）

コメント

• マウスイベント取得はポンプでくみ上げる以外の方法ってあるんですよね？自分で調べればいいんだけど...マウスイベントハンドラの実装例をおねがいします -- わんきち (2006-10-24 13:19:26)
• 初回コメント特典でやり方を書いておきましたー -- kenmo (2006-10-24 15:20:03)
• やり方ありがとうございます。続けて質問、SDL_MOUSEBUTTONDOWNにあたる部分が見当たらないのですが、、、あぁ今度こそ自分で探しますよｗ -- わんきち (2006-10-24 17:04:36)
• SDL_GetMouseStateするためのトリガーとして最低SDL_MOUSEBUTTONDOWNは拾えってことですね -- わんきち (2006-10-24 17:14:07)
• 何が言いたかったかっていうと、Javaのイベントリスナーみたいな実装が希望だったんですが、自分でやれってことですね、うん -- わんきち (2006-10-24 17:20:05)
• あ、勘違いしてました…。うーん、SDL_PeepEventsする処理をSDL_AddTimerすればいいのかなー -- kenmo (2006-10-24 18:16:44)
• ふー、頑張って取れたよ。＞マウスイベントハンドラ -- kenmo (2006-10-24 20:16:34)
• おぉ、ありがとうございます。タイマースレッドで管理ですね。D言語の精度がどれくらいなのかしらないのでなんともなんですが、ご存知のとおり、タイマーはタイマーイベントをメッセージキューに投げるだけなので緊急度の高いメッセージがキューに投げ込まれると後送りにされてしまいます。できればスレッド制御にしたいですね。あとで調べてみます。スレッド版。 -- わんきち (2006-10-24 21:24:32)
• yaneSDK4Dはだいぶ古くなってるので http://shinh.skr.jp/ のD言語始めました、からインポートヘッダ取ってきたほうがいいかもしれません。importの仕様とか結構変わったので。 -- みかげ (2006-10-24 22:34:20)
• あと、SDL.dllもバージョンアップしてるみたいなんで本家から取ってきて上書きするといいかもしれません。SDL_SetVideoMode() の引数で０入れるとウィンドウがデスクトップのサイズになったりとか。 -- みかげ (2006-10-24 22:38:59)
• あうあー、早とちりだー書いてあるのに・・・申し訳ないです。 -- みかげ (2006-10-24 22:45:31)
• http://zinnia.dyndns.org/~cvsweb/sdldoc-jp/guideeventexamples.html 試していないのですが、もっとシンプルにSDL_SetEventFilterでマウスイベントを別スレッドでとることができるみたいですね。 -- kenmo (2006-10-25 19:13:58)
• SDL_SetEventFilterで処理する方法を追加しました。 -- kenmo (2006-10-25 20:11:32)
• おぉ、まさにハンドラなハンドラ！コレを期待してました。ありがとうございます。 -- わんきち (2006-10-25 21:26:39)
• 小技便利ですね。実装させて頂きます -- HIZ (2006-10-26 20:38:23)
• ディレクトリ名にスペースが入っていても、dos形式の方のパスにcdしてからantを起動すればなんとかなるようです(C:\Documents and.. -> c:\docume~1 みたいに) -- zzz (2008-07-20 20:30:06)