Ｃｈａｐｔｅｒ.５６ [ シューティングゲーム１６：スコアの表示 ]
■いまさら基本的な部分
シューティングゲームの講座も、そろそろ終わりが見えてきました。
基本的な部分がだいぶ完成して、あとはスコアとタイトルの実装、そして、ボスの登場にてフィニッシュです。あと少し、根気を出してがんばってほしいと思います。
さて、今回のテーマは『スコア』です。
『スコア』の実装は非常に簡単です。さっくり実装させてしまいましょう。
スコアの表示には、変数をひとつ加える必要があります。この変数にスコアの状態を保持しておき、ループするごとに画面を更新すればいいのです。
この変数
敵キャラクターが破壊されるかどうか、それを判定しているのは『プレイヤーのショット移動管理プロシージャ』です。プレイヤーキャラクターが放ったショットが、敵キャラクターにヒットしていた場合には、その時点で敵キャラクターが破壊されます。このとき、同時にスコアをプラスすれば、それだけでスコアの実装はほとんど完成したといってもいいでしょう。
Sub P_Shot_Action()
Dim L As Long
Dim LL As Long
For L = 0 To 4
With P_Shot_Data(L)
If .Vis Then
.Y = .Y - 6
If .Y < -5 Then .Vis = False
For LL = 0 To 9
If Enemy_Data(LL).Lif > 0 Then
If .X - 2 < Enemy_Data(LL).X + Enemy_Data(LL).W Then
If .X + 2 > Enemy_Data(LL).X - Enemy_Data(LL).W Then
If .Y - 2 < Enemy_Data(LL).Y + Enemy_Data(LL).H Then
If .Y + 2 > Enemy_Data(LL).Y - Enemy_Data(LL).H Then
.Vis = False
With Enemy_Data(LL)
Call Burst_Begin(.X, .Y)
.Lif = 0
End With
Score = Score + 100
Exit For
End If
End If
End If
End If
End If
Next
With UserForm1.Controls("P_Shot" & L + 1)
If P_Shot_Data(L).Vis Then
.Left = P_Shot_Data(L).X - Shot_Size
.Top = P_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
はい、こんだけ。簡単ですね。
今回は敵キャラクターを１体破壊するごとに、１００点入るようにしました。これは自由に変更すればいいでしょう。
ショット移動管理プロシージャに関しては、本当にこれだけです。敵キャラクターとの衝突判定を行い、衝突していた場合には敵キャラクターを破壊しますが、それと同時に変数
さて、まさかこれで完了ではありません。
油断せずに次に行きましょう。
■初期化処理を修正
スコアは、ゲームが開始されるときにはリセットされていないとおかしいですね。前回のプレイ時に稼いだスコアが、そのまま次に残ってしまっていては変です。
そこで、初期化処理はしっかりやっておきましょう。
初期化処理を担当するプロシージャ、『
Sub Init()
With Player_Data
.X = 100
.Y = 210
.W = 3
.H = 3
.Lif = 1
.Typ = 0
.Par = 1
End With
Erase P_Shot_Data
Erase E_Shot_Data
Erase Enemy_Data
Erase Burst_Data
Shot_Interval = 0
Total_Count = 0
Player_Stock = 2
Score = 0
With UserForm1.Player
.Visible = True
.Top = 200
End With
UserForm1.Lab_Score.Caption = "00000000"
End Sub
変数
そして、注目すべきはその下です。
ユーザーフォームの上段に配置している、スコア表示のためのラベルが『
このラベルは、ゲーム中にスコアを表示するために使います。そして、ラベルに表示される文字列を管理するプロパティが『
ポイントは、
上のコードを見てもらえればわかると思いますが、ダブルクォーテーション( コレ ⇒
■ゲーム中の更新処理
ゲームが実際に始まったら、スコアはリアルタイムに更新する必要があります。そこで、ここではメインプロセスを管理しているプロシージャを修正することになります。
ここも、実際のコードを載せますのでまずは見てみてください。
Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Call Init
Flg = False
Do Until Flg
Stm = GetTickCount
Total_Count = Total_Count + 1
Call Stage_Count
Call Player_Action
Call P_Shot_Action
Call Enemy_Action
Call E_Shot_Action
Call Burst_Action
UserForm1.Lab_Score.Caption = Format(Score, "00000000")
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
さて、ここでポイントとなるのが
この関数は、文字列を整形してくれる関数で、主に日付や時刻の表示に関する機能が充実しています。同じ日付でも『
さらに、この関数では日付や時刻以外にも、文字列を様々な形式に整形することができます。
細かい使い方を全部説明してしまうと、それだけでひとつの講座ができてしまうぐらいのボリュームになってしまうので、興味のある方は自力でヘルプを見てみるなり、ネットで検索するなりして調べてください。
今回は、スコアの数値を整形するために
まず、先ほどのコードから、
スコア表示用のラベルに、整形した文字列を設定している部分ですね。
今回は、第一引数に、スコアの値を保持している変数
仮に、変数
もうおわかりですね？
シューティングゲームなどのスコア表示では、どんなにスコアが少ないときでも、足りない桁数の部分は０で埋まっていることが多いですよね。
先ほども書きましたが、
この講座では解説しませんが、調べるといろんなことがわかると思いますので、興味のあるかたはがんばって調べてみましょうね。
スコアについては簡単ですがこれで完了です。全体のコードは載せませんが、色つきの部分を追加してやれば、それだけでうまくいくようになっているはずです。
次回はタイトル画面を作ります。お楽しみに。
■格言
スコアだけでなく、タイムを表示したい場合などにも応用できます。
シューティングゲームの講座も、そろそろ終わりが見えてきました。
基本的な部分がだいぶ完成して、あとはスコアとタイトルの実装、そして、ボスの登場にてフィニッシュです。あと少し、根気を出してがんばってほしいと思います。
さて、今回のテーマは『スコア』です。
『スコア』の実装は非常に簡単です。さっくり実装させてしまいましょう。
スコアの表示には、変数をひとつ加える必要があります。この変数にスコアの状態を保持しておき、ループするごとに画面を更新すればいいのです。
Public Score As Long
'ゲームのスコアこの変数
Scoreに、現在のスコアの状態を保持します。そして、当然のことながら敵キャラクターを破壊したときに、この変数に得点をプラスしていきます。ということは、どのプロシージャを修正すればいいのかわかりますね？敵キャラクターが破壊されるかどうか、それを判定しているのは『プレイヤーのショット移動管理プロシージャ』です。プレイヤーキャラクターが放ったショットが、敵キャラクターにヒットしていた場合には、その時点で敵キャラクターが破壊されます。このとき、同時にスコアをプラスすれば、それだけでスコアの実装はほとんど完成したといってもいいでしょう。
'ショット移動管理プロシージャSub P_Shot_Action()
Dim L As Long
Dim LL As Long
For L = 0 To 4
With P_Shot_Data(L)
If .Vis Then
.Y = .Y - 6
If .Y < -5 Then .Vis = False
For LL = 0 To 9
If Enemy_Data(LL).Lif > 0 Then
If .X - 2 < Enemy_Data(LL).X + Enemy_Data(LL).W Then
If .X + 2 > Enemy_Data(LL).X - Enemy_Data(LL).W Then
If .Y - 2 < Enemy_Data(LL).Y + Enemy_Data(LL).H Then
If .Y + 2 > Enemy_Data(LL).Y - Enemy_Data(LL).H Then
.Vis = False
With Enemy_Data(LL)
Call Burst_Begin(.X, .Y)
.Lif = 0
End With
Score = Score + 100
Exit For
End If
End If
End If
End If
End If
Next
With UserForm1.Controls("P_Shot" & L + 1)
If P_Shot_Data(L).Vis Then
.Left = P_Shot_Data(L).X - Shot_Size
.Top = P_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
はい、こんだけ。簡単ですね。
今回は敵キャラクターを１体破壊するごとに、１００点入るようにしました。これは自由に変更すればいいでしょう。
ショット移動管理プロシージャに関しては、本当にこれだけです。敵キャラクターとの衝突判定を行い、衝突していた場合には敵キャラクターを破壊しますが、それと同時に変数
Scoreを加算しているだけです。さて、まさかこれで完了ではありません。
油断せずに次に行きましょう。
■初期化処理を修正
スコアは、ゲームが開始されるときにはリセットされていないとおかしいですね。前回のプレイ時に稼いだスコアが、そのまま次に残ってしまっていては変です。
そこで、初期化処理はしっかりやっておきましょう。
初期化処理を担当するプロシージャ、『
Init』を変更します。'初期化を担当するプロシージャSub Init()
With Player_Data
.X = 100
.Y = 210
.W = 3
.H = 3
.Lif = 1
.Typ = 0
.Par = 1
End With
Erase P_Shot_Data
Erase E_Shot_Data
Erase Enemy_Data
Erase Burst_Data
Shot_Interval = 0
Total_Count = 0
Player_Stock = 2
Score = 0
With UserForm1.Player
.Visible = True
.Top = 200
End With
UserForm1.Lab_Score.Caption = "00000000"
End Sub
変数
Scoreには０を設定しておきます。これは説明不要ですね。そして、注目すべきはその下です。
ユーザーフォームの上段に配置している、スコア表示のためのラベルが『
Lab_Score』です。一番最初の頃に配置したものなので、忘れてしまった方もいるかもしれませんね。このラベルは、ゲーム中にスコアを表示するために使います。そして、ラベルに表示される文字列を管理するプロパティが『
Captionプロパティ』です。このプロパティは既に何度か出てきていますね。ここにも初期値となる値を設定しておきます。ポイントは、
Captionプロパティには文字列を設定する、ということです。上のコードを見てもらえればわかると思いますが、ダブルクォーテーション( コレ ⇒
" )で囲んでいますよね。つまり、数値のデータとしての０ではなく、文字列の『 00000000 』を設定しているわけですね。補足コラム：Captionプロパティ
Captionプロパティは、ラベルなどのコントロールに文字列を表示するプロパティです。このプロパティに何かしらの文字列を設定していると、その内容がコントロール上に文字として表示されます。
ちなみに、ラベル、及びコマンドボタンなどでは、Captionプロパティに設定された文字列がコントロール上にそのまま表示されますが、コントロールの種類によっては、文字列が表示される位置がそれぞれに異なります。
ラベルなどフレームマルチページなど
これらの違いをよく理解しておきましょう。■ゲーム中の更新処理
ゲームが実際に始まったら、スコアはリアルタイムに更新する必要があります。そこで、ここではメインプロセスを管理しているプロシージャを修正することになります。
ここも、実際のコードを載せますのでまずは見てみてください。
'メインプロセスを担当するプロシージャSub Main()
Dim Flg As Boolean
Dim Stm As Long
Call Init
Flg = False
Do Until Flg
Stm = GetTickCount
Total_Count = Total_Count + 1
Call Stage_Count
Call Player_Action
Call P_Shot_Action
Call Enemy_Action
Call E_Shot_Action
Call Burst_Action
UserForm1.Lab_Score.Caption = Format(Score, "00000000")
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
さて、ここでポイントとなるのが
Format関数です。この関数は、文字列を整形してくれる関数で、主に日付や時刻の表示に関する機能が充実しています。同じ日付でも『
2008/03/16』と表記したい場合と『Mar 16 2008』と表記したい場合などがあると思います。このような表示形式の違いなどを自由に整形することができるわけです。さらに、この関数では日付や時刻以外にも、文字列を様々な形式に整形することができます。
細かい使い方を全部説明してしまうと、それだけでひとつの講座ができてしまうぐらいのボリュームになってしまうので、興味のある方は自力でヘルプを見てみるなり、ネットで検索するなりして調べてください。
今回は、スコアの数値を整形するために
Format関数を利用しています。ここを少し詳しく解説しましょう。まず、先ほどのコードから、
Format関数を使っている部分を抜き出してもう一度見てみましょう。UserForm1.Lab_Score.Caption = Format(Score, "00000000")
スコア表示用のラベルに、整形した文字列を設定している部分ですね。
Format関数は、第一引数として与えられたデータを、第二引数の書式で整形して、結果を返してくれます。今回は、第一引数に、スコアの値を保持している変数
Scoreを指定しています。そして、第二引数には、『 "00000000" 』と指定されています。仮に、変数
Scoreの値が『 1000 』だった場合には、Format関数は『 00001000 』という文字列を返してきます。変数Scoreが『 543210 』だったら『 00543210 』を返してきます。もうおわかりですね？
Format関数の第二引数で８桁の数値という書式を指定しているので、変数Scoreの値が何桁の数値であっても、必ず８桁の文字列に整形されているわけです。シューティングゲームなどのスコア表示では、どんなにスコアが少ないときでも、足りない桁数の部分は０で埋まっていることが多いですよね。
Format関数をうまく使うことによって、簡単にこれが実現できるというわけです。この関数は、戻り値として内部的な文字列型を返してくるので、Captionプロパティとの相性もいいのです。先ほども書きましたが、
Format関数は実に奥が深くて、そんな使い方があるのか！ とつい言いたくなるようなことができたりします。一度調べてみることをオススメします。わからないことはとりあえず調べてみる、これはプログラマーには欠かせない習性のひとつと言っていいでしょう。この講座では解説しませんが、調べるといろんなことがわかると思いますので、興味のあるかたはがんばって調べてみましょうね。
スコアについては簡単ですがこれで完了です。全体のコードは載せませんが、色つきの部分を追加してやれば、それだけでうまくいくようになっているはずです。
次回はタイトル画面を作ります。お楽しみに。
■格言
Captionには文字列を指定するFormat関数を有効に利用スコアだけでなく、タイムを表示したい場合などにも応用できます。
