本講座の最後として、簡単なシューティングゲームを作ります。

ルール

• 雑魚が3種類出てきます。
• 自機の弾は単発（画面内に1発だけ存在できる）です。
• 一定の距離進むとステージクリアです。
• ステージが進む毎に敵の数が増えます。
• 残機は3機で、すべて失うとゲームオーバーです。

手順

• サブルーチンを作る
• プログラム実行時の初期設定
• タイトル画面の表示
• ゲームスタート時の初期設定
• ステージスタート時の初期設定
• 自機の移動
• 自機の弾の射出
• 自機の弾の移動
• 敵の出現
• 敵の移動
• 敵の弾の射出
• 敵の弾の移動
• 敵と自機の弾の当たり判定
• 敵が爆発中の処理
• 自機と敵、敵の弾との当たり判定
• 自機が爆発中の処理
• 自機が復活中の処理
• ESCキーで終了
• 画面の更新
• ステージクリア処理

	;画面のクリア
*Clear_Screen
	color 0, 0, 0
	boxf 0, 0, 639, 479
	return

	;メッセージの表示
*Write_Message
	;msx,msy	: 表示する座標
	;message	: メッセージの内容
	pos msx, msy
	color 255, 255, 255
	font "ＭＳ 明朝", 16
	mes message
	return

	;指定した絵を描画
*Graphic_Draw
	;gdx, gdy	: 描画する座標
	;wid		: ウィンドウID
	;div_no		: 分割画像No.
	pos gdx, gdy
	gmode 2
	celput wid, div_no
	return

	;キー、ジョイパッドの入力
*Input_Key
	pre_zkey = zkey
	pre_upkey = upkey
	pre_downkey = downkey

	zkey = 0
	upkey = 0
	downkey = 0
	leftkey = 0
	rightkey = 0

	getkey key, 90
	if key == 1 { zkey = 1 }
	getkey key, 37
	if key == 1 { leftkey = 1 }
	getkey key, 38
	if key == 1 { upkey = 1 }
	getkey key, 39
	if key == 1 { rightkey = 1 }
	getkey key, 40
	if key == 1 { downkey = 1 }
	getkey esckey, 27
	
	if n_joy > 0 {
		digetjoystate joy, 0
		if (joy & 16) != 0 { zkey = 1 }
		if (joy & 1) != 0 { upkey = 1 }
		if (joy & 2) != 0 { downkey = 1 }
		if (joy & 4) != 0 { leftkey = 1 }
		if (joy & 8) != 0 { rightkey = 1 }
	}
	return

　今回新たに「キー、ジョイパッドの入力」サブルーチンを追加しています。「ジョイパッドの入力」で説明したものを矢印キーの上（upkey）、下（downkey）、左（leftkey）、右（rightkey）、ジョイパッドの十字キー（矢印キーと同様）にも対応しただけです。ESCキーでゲームを終了できるように、ESCキーの状態（esckey）もこのサブルーチンで取得するようにしています。

	pre_zkey = zkey
	pre_upkey = upkey
	pre_downkey = downkey

　Zキーの他に上キー、下キーもトリガータイプの入力にも対応するようにしています。例えばタイトル画面にSTART、OPTION、RANKING、EXITというメニュー項目があったとすると、押しっぱなしで反応してしまうと、下を押すとあっという間に一番下の項目にカーソルが行ってしまいます。下キーを1回押すたびに一つ下の項目に行くようにすべきです。

　キーと対応するキーコードです。

　ジョイパッドのボタンと対応するビットを再掲します。

　1は1 * 2の0乗、2は1 * 2の1乗、4は1 * 2の2乗……です。