Ｃｈａｐｔｅｒ.５２ [ シューティングゲーム１２：敵の攻撃 ]
■継ぎ足し継ぎ足し
前回の講座で、プレイヤーの放ったショットと敵キャラクターの衝突判定が完成しました。だいぶゲームらしくなりましたね。
今回は、敵キャラクターが攻撃してくるようにしてみたいと思います。
実は今回解説する内容は、今までやってきたことの復習みたいな感じになります。なぜなら、今まで紹介してきたノウハウがあれば、敵キャラクターが攻撃してくる仕組みを作るのは、けして難しくないからです。
プレイヤーキャラクターがショットを撃てるようにしたときと同じように、プロシージャを部品化しながら、落ち着いて書き足していけば大丈夫です。もしかしたら、もう既に作ってしまったという人も、中にはいるかもしれませんね。
コードの意味や考え方など、細かな部分は既に説明している内容がほとんどです。今回は簡単な説明を添えながら、一気に作ってしまいましょう。
■材料を準備する
それでは、まずユーザーフォームに、敵ショット用のイメージコントロールを準備するところから始めましょう。
プレイヤーキャラクターの時と同様に、ユーザーフォーム上にコントロールを１０個配置します。画像は、下の小さい青弾を使いましょう。この青い弾は8×8ピクセルのgif画像です。
これをユーザーフォーム上に配置したイメージコントロールにロードしておきます。8ピクセル四方の画像ですから、イメージコントロールの大きさ(
ここで配置した１０個のイメージコントロールは、名前を変更するのを忘れずに。
今回は、敵キャラクター用のショットなので、『
これで、画面の準備はOKです。
イメージコントロールの数からもわかるように、今回のゲームでは、敵キャラクターのショットの最大数を１０個にします。それを踏まえて次に進みましょう。
■コードの記述
敵が撃てるショットの数は１０個です。
そこで、この敵用ショットを管理する変数を宣言します。
変数の型に使用している『
いつものパターンだと、ここで定数なども宣言しますね。でも今回は全てプレイヤー用のショットで宣言したものを流用できますから、下準備はこれで完了です。簡単ですね。
さて、テンポよくいきましょう。次はプロシージャの準備です。
プレイヤーキャラクターがショットを撃てるようにしたとき、どのように処理していたか覚えているでしょうか。
ショットの『生成』と『移動』を分けて管理していたんでしたね。
ショットの生成と移動を分けて管理することで、あとあと非常に楽になります。
敵キャラクターの処理を行っている最中に、一定の規則にのっとって『ショット生成プロシージャ』を呼び出せば、あとは勝手にショットが移動していってくれます。プログラマーである我々は、どのタイミングで、どのタイプのショットを発射させるか、これだけを考えればいいわけですね。
もちろん、ショットの軌道を凝ったものにしようと思ったら、ショットの移動プロシージャを修正しなくてはいけません。ですが、そのような場合でも、軌道の計算だけに集中すればいいですから、気持ち的にも管理が楽になります。
それでは早速コードを見ていきましょう。
まずは『ショット生成プロシージャ』からです。これは、構造的にはほとんどプレイヤー用のものと同じです。
このプロシージャは引数を３つ取ります。
ひとつめは『 X ……横位置 』。ふたつめは『 Y ……縦位置 』。そしてみっつめが『 Typ ……ショットのタイプ 』の３つですね。
まずはプロシージャが開始されると、
最初に引数として受け取ったデータを、�△良�分で変数に格納します。ここで格納したデータを元に、この次に作成する『ショットの移動管理プロシージャ』が処理を行いますので、ここでは��で示すように、イメージコントロールの
そして何気に大切なのが�い良�分。ここで『
次は『ショットの移動管理プロシージャ』を準備します。
こちらは、ちょっとコードが長くなりますが、落ち着いて見ていけば大丈夫なはずです。知っておくべきことは既にすべて解説しています。
さぁどうでしょうか。なんとなくやっていることが想像できるでしょうか。
敵キャラクター用のショットは１０個ありますから、このプロシージャでもまずは
そして、ショットが見えているかどうか、�，波獣任靴討い泙垢諭８�えていない場合は何もせずに素通りします。見えている場合は、その後の処理に進みます。
もしもショットが現在見えている状態だった場合には、そのショットを動かさなくてはいけません。
今回は、敵用のショットを３種類用意してみましょう。
ショットのタイプによって、移動の仕方を３種類に分別します。
タイプ１は『まっすぐ進むショット』。タイプ２は『右斜め下に向かって進むショット』で、タイプ３は『左斜め下に向かって進むショット』になります。横位置や縦位置をどのように変化させているかをよく見れば、おのずとわかると思います。
次に�△良�分で、ショットが画面の外に出てしまっていないかチェックしています。上下左右全ての方向でチェックします。
��ではプレイヤーキャラクターとの『衝突判定』を行っています。
一見すると複雑に見えるかもしれませんが、単に文字数が少し多いだけですから、落ち着いて計算しましょうね。必ずわかるはずです。
衝突判定を行った結果、ショットとプレイヤーキャラクターが接触していた場合には、�い良�分に処理が進みます。
今回は、暫定的な処理として、メッセージを表示するようにしておきます。最終的には、ここで爆発のエフェクトなどを入れて、キャラクターが撃墜されてしまったような演出にする予定です。今はテスト段階ということで、メッセージを表示するようにしておきましょう。
そして�ァ△海海浪萍名紊離ぅ瓠璽献灰鵐肇蹇璽襪鮟萢�している部分ですね。
今まで上のほうで計算してきたのは、あくまでもデータ上での計算です。この部分で、実際にイメージコントロールを移動したり、消したりするわけです。
細かな部分でわからないことがある場合は、面倒でも、以前のChapterに戻って復習してみてくださいね。わからないまま進めてしまうと、さらにわからなくなっていってしまいますので。
■敵キャラクターの処理を修正
さて、ショットの『生成』と『移動』に関する処理が完成しました。
あとは、ショットを実際に発射する敵キャラクターの処理を変更します。
とは言っても、たった１行、処理を追加するだけです。
次のコードで緑文字になっている部分、この１行が肝ですよ。
このプロシージャの詳しい解説は、以前の講座で行っています。もしわからないという人は、そちらをご覧ください(Chapter49を参照)。
今回は緑の文字で表示されている部分だけ、簡単に解説します。
ここでは、先ほど作成した『ショット生成プロシージャ』を呼び出しています。ただそれだけです。実際。
今現在の敵キャラクターの座標、そして、敵キャラクターのタイプをそのままショットのタイプとして、引数に渡しています。
敵キャラクターが今現在いる座標上に、タイプに応じてショットが生成されるわけです。
敵のタイプによって、ショットの移動も連動して変化するのですね。
まっすぐ進むタイプの敵は、まっすぐ進むショットを撃ちます。斜めに移動する敵は、斜め方向に進むショットを撃ちます。
■まとめ、全コード掲載
それでは最後に、ここまでの全てのコードを掲載します。
いつもどおり、追加した部分は色が変わっています。講座を見ながら作成している人は、色の変化している部分に注意しながら、適宜コードを追加してみましょう。
ユーザーフォームの方の準備、各種変数の初期化を追加することも忘れずに。
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Type Chara
X As Single
Y As Single
W As Single
H As Single
Lif As Long
Typ As Long
Par As Long
End Type
Type Shot
X As Single
Y As Single
Vis As Boolean
Typ As Long
End Type
Public Player_Data As Chara
Public Enemy_Data(9) As Chara
Public P_Shot_Data(4) As Shot
Public E_Shot_Data(9) As Shot
Public Shot_Interval As Long
Public Total_Count As Long
Public Const Left_Key As Long = 37
Public Const Up_Key As Long = 38
Public Const Right_Key As Long = 39
Public Const Down_Key As Long = 40
Public Const Esc_Key As Long = 27
Public Const Shot_Key As Long = 90
Public Const Player_Size As Single = 9
Public Const Shot_Size As Single = 3
Public Const Enemy_Size As Single = 9
Sub Init()
With Player_Data
.X = 100
.Y = 180
.W = 3
.H = 3
.Lif = 1
.Typ = 0
.Par = 0
End With
Erase P_Shot_Data
Erase E_Shot_Data
Erase Enemy_Data
Shot_Interval = 0
Total_Count = 0
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
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
Sub Stage_Count()
Randomize
Select Case Total_Count Mod 200
Case 0
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 1)
Case 50
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 2)
Case 100
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 3)
End Select
End Sub
Sub Player_Action()
With Player_Data
If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
If Shot_Interval = 0 Then
If GetAsyncKeyState(Shot_Key) < 0 Then
Call P_Shot_Begin(.X, .Y, 0)
Shot_Interval = 1
End If
Else
Shot_Interval = Shot_Interval + 1
If Shot_Interval > 7 Then Shot_Interval = 0
End If
End With
With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
Sub P_Shot_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 4
With P_Shot_Data(L)
If Not .Vis Then
.X = X
.Y = Y
.Typ = Typ
.Vis = True
UserForm1.Controls("P_Shot" & L + 1).Visible = True
Exit For
End If
End With
Next
End Sub
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)
.Lif = 0
End With
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 Enemy_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 9
With Enemy_Data(L)
If .Lif = 0 Then
.X = X
.Y = Y
.W = 5
.H = 5
.Typ = Typ
.Lif = 1
.Par = 0
With UserForm1.Controls("Enemy" & L + 1)
.Visible = True
Select Case Typ
Case 1
.Picture = UserForm1.Enemy_s1.Picture
Case 2, 3
.Picture = UserForm1.Enemy_s2.Picture
End Select
End With
Exit For
End If
End With
Next
End Sub
Sub Enemy_Action()
Dim L As Long
Dim TCMOD
TCMOD = Total_Count Mod 30
For L = 0 To 9
With Enemy_Data(L)
If .Lif > 0 Then
Select Case .Typ
Case 1
.Y = .Y + 1.5
Case 2
.X = .X + 0.5
.Y = .Y + 1
Case 3
.X = .X - 0.5
.Y = .Y + 1
End Select
If .X > 220 Then .Lif = 0
If .Y > 220 Then .Lif = 0
If .X < -20 Then .Lif = 0
If .Y < -20 Then .Lif = 0
If TCMOD = 0 Then
Select Case .Typ
Case 2
.Typ = 3
Case 3
.Typ = 2
End Select
Call E_Shot_Begin(.X, .Y + 2, .Typ)
End If
End If
End With
With UserForm1.Controls("Enemy" & L + 1)
If Enemy_Data(L).Lif > 0 Then
.Left = Enemy_Data(L).X - Enemy_Size
.Top = Enemy_Data(L).Y - Enemy_Size
Else
.Visible = False
End If
End With
Next
End Sub
Sub E_Shot_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 9
With E_Shot_Data(L)
If Not .Vis Then
.X = X
.Y = Y
.Typ = Typ
.Vis = True
With UserForm1.Controls("E_Shot" & L + 1)
.Visible = True
End With
Exit For
End If
End With
Next
End Sub
Sub E_Shot_Action()
Dim L As Long
Dim LL As Long
For L = 0 To 9
With E_Shot_Data(L)
If .Vis Then
Select Case .Typ
Case 1
.Y = .Y + 4.5
Case 2
.X = .X + 0.5
.Y = .Y + 3.5
Case 3
.X = .X - 0.5
.Y = .Y + 3.5
End Select
If .X > 205 Then .Vis = 0
If .Y > 205 Then .Vis = 0
If .X < -5 Then .Vis = 0
If .Y < -5 Then .Vis = 0
If .X - 2 < Player_Data.X + Player_Data.W Then
If .X + 2 > Player_Data.X - Player_Data.W Then
If .Y - 2 < Player_Data.Y + Player_Data.H Then
If .Y + 2 > Player_Data.Y - Player_Data.H Then
.Vis = False
MsgBox "Hit!"
End If
End If
End If
End If
With UserForm1.Controls("E_Shot" & L + 1)
If E_Shot_Data(L).Vis Then
.Left = E_Shot_Data(L).X - Shot_Size
.Top = E_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
Private Sub Com_Start_Click()
Com_Start.Enabled = False
Call Main
Unload UserForm1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
Private Sub UserForm_Initialize()
UserForm1.Width = 220
End Sub
いやぁ……これは長いですね。
でも、修正している箇所に絞って考えれば、それほどでもないはずです。
初期化処理や、変数の宣言箇所などは忘れやすいですから注意しましょう。
それから、敵キャラクターとプレイヤーキャラクターに、あたり判定部分を設定しなければならないので、キャラクター構造体の、要素 W と要素 H に値を設定するのも忘れずにやっておきましょう。
これをやっておかないと、キャラクターとショットの衝突が正しく判定されませんのでね。
さて、どうですか？ 皆さんうまくいったでしょうか。
今回の講座の内容を実装させたら、見た目上はほとんど完璧にシューティングゲームになったはずです。
敵が攻撃してくる、それを避けながらプレイヤーがショットを撃つ……。これはもうシューティングゲームの基盤を実装できている状態、と言っていいでしょう。
実践講座１として、全１９回にわたってシューティングゲームを作成してきました。実践講座１は、これにて修了とします。ここまでがんばってきた皆さん、お疲れ様でした。
そして、当初の約束では、もう少し凝った内容のシューティングゲームを作成することになっていました。それらの発展系技術は、実践講座２として、引き続きお送りしていく予定です。
実践講座２では、演出などの技術を中心に、さらに上を目指して取り組んでいきます。
実践講座１の内容をしっかりと理解し、とりあえず、ここまでを完璧に作ってみてください。ちゃんと遊べる状態になりましたので、それなりの達成感も味わえるはずです。
講座内で何度も言っていますが、プログラミングに限らず、全ての学習は『諦めず』そして『自分のレベルに合ったものから取り組む』ことが非常に大切です。
より良いものを完成させるためには、焦りは禁物です。じっくりゆっくりで構いません。自分にとって最良のレベルの内容をしっかり見極めて、突き進んでいってくださいね。
とりあえず、ここまで長いこと、本当にお疲れ様でした。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
必要に応じて過去の講座を復習
焦らず、そして諦めず！
結局最後はこんなありきたりな格言になってしまいました……。
実践講座２もお楽しみに。
前回の講座で、プレイヤーの放ったショットと敵キャラクターの衝突判定が完成しました。だいぶゲームらしくなりましたね。
今回は、敵キャラクターが攻撃してくるようにしてみたいと思います。
実は今回解説する内容は、今までやってきたことの復習みたいな感じになります。なぜなら、今まで紹介してきたノウハウがあれば、敵キャラクターが攻撃してくる仕組みを作るのは、けして難しくないからです。
プレイヤーキャラクターがショットを撃てるようにしたときと同じように、プロシージャを部品化しながら、落ち着いて書き足していけば大丈夫です。もしかしたら、もう既に作ってしまったという人も、中にはいるかもしれませんね。
コードの意味や考え方など、細かな部分は既に説明している内容がほとんどです。今回は簡単な説明を添えながら、一気に作ってしまいましょう。
■材料を準備する
それでは、まずユーザーフォームに、敵ショット用のイメージコントロールを準備するところから始めましょう。
プレイヤーキャラクターの時と同様に、ユーザーフォーム上にコントロールを１０個配置します。画像は、下の小さい青弾を使いましょう。この青い弾は8×8ピクセルのgif画像です。
これをユーザーフォーム上に配置したイメージコントロールにロードしておきます。8ピクセル四方の画像ですから、イメージコントロールの大きさ(
Width・Height )は6ポイントになります。これはもう説明しなくても大丈夫ですね。ここで配置した１０個のイメージコントロールは、名前を変更するのを忘れずに。
今回は、敵キャラクター用のショットなので、『
E_Shot1 〜 E_Shot10』までの連番で名前をつけておきます。これで、画面の準備はOKです。
イメージコントロールの数からもわかるように、今回のゲームでは、敵キャラクターのショットの最大数を１０個にします。それを踏まえて次に進みましょう。
■コードの記述
敵が撃てるショットの数は１０個です。
そこで、この敵用ショットを管理する変数を宣言します。
Public E_Shot_Data(9) As Shot
変数の型に使用している『
Shot』は、プレイヤーキャラクターのショットで使用した構造体と同じものです。そのまま使いまわしできます。１０個のデータを管理するので、要素数１０個の配列として宣言しています。いつものパターンだと、ここで定数なども宣言しますね。でも今回は全てプレイヤー用のショットで宣言したものを流用できますから、下準備はこれで完了です。簡単ですね。
さて、テンポよくいきましょう。次はプロシージャの準備です。
プレイヤーキャラクターがショットを撃てるようにしたとき、どのように処理していたか覚えているでしょうか。
ショットの『生成』と『移動』を分けて管理していたんでしたね。
ショット生成プロシージャを準備する
▼
ショットの移動管理プロシージャを準備する
▼
任意の箇所で、座標やタイプを決めて、ショット生成プロシージャを呼び出す
▼
ショットの移動管理プロシージャを準備する
▼
任意の箇所で、座標やタイプを決めて、ショット生成プロシージャを呼び出す
ショットの生成と移動を分けて管理することで、あとあと非常に楽になります。
敵キャラクターの処理を行っている最中に、一定の規則にのっとって『ショット生成プロシージャ』を呼び出せば、あとは勝手にショットが移動していってくれます。プログラマーである我々は、どのタイミングで、どのタイプのショットを発射させるか、これだけを考えればいいわけですね。
もちろん、ショットの軌道を凝ったものにしようと思ったら、ショットの移動プロシージャを修正しなくてはいけません。ですが、そのような場合でも、軌道の計算だけに集中すればいいですから、気持ち的にも管理が楽になります。
それでは早速コードを見ていきましょう。
まずは『ショット生成プロシージャ』からです。これは、構造的にはほとんどプレイヤー用のものと同じです。
Sub E_Shot_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 9
With E_Shot_Data(L)
If Not .Vis Then
.X = X
.Y = Y
.Typ = Typ
.Vis = True
With UserForm1.Controls("E_Shot" & L + 1)
.Visible = True
End With
Exit For
End If
End With
Next
End Sub
Dim L As Long
For L = 0 To 9
With E_Shot_Data(L)
If Not .Vis Then
'��.X = X
'��.Y = Y
.Typ = Typ
.Vis = True
With UserForm1.Controls("E_Shot" & L + 1)
'��.Visible = True
End With
Exit For
'��End If
End With
Next
End Sub
このプロシージャは引数を３つ取ります。
ひとつめは『 X ……横位置 』。ふたつめは『 Y ……縦位置 』。そしてみっつめが『 Typ ……ショットのタイプ 』の３つですね。
まずはプロシージャが開始されると、
For文による繰り返し処理が始まります。ショットを管理する変数E_Shot_Dataの、要素Visの状態を調べて、内容がFalseだった場合(ショットが見えていない＝まだ撃たれていない)は次に進みます。ここが�，任垢諭�最初に引数として受け取ったデータを、�△良�分で変数に格納します。ここで格納したデータを元に、この次に作成する『ショットの移動管理プロシージャ』が処理を行いますので、ここでは��で示すように、イメージコントロールの
VisibleプロパティをTrueにしておけば大丈夫ですね。そして何気に大切なのが�い良�分。ここで『
Exit For』を使って繰り返し処理を抜けていますね。こうしておかないと、非表示のショットが全て一度に発射されてしまいますので注意しましょう。次は『ショットの移動管理プロシージャ』を準備します。
こちらは、ちょっとコードが長くなりますが、落ち着いて見ていけば大丈夫なはずです。知っておくべきことは既にすべて解説しています。
Sub E_Shot_Action()
Dim L As Long
Dim LL As Long
For L = 0 To 9
With E_Shot_Data(L)
If .Vis Then
Select Case .Typ
Case 1
.Y = .Y + 4.5
Case 2
.X = .X + 0.5
.Y = .Y + 3.5
Case 3
.X = .X - 0.5
.Y = .Y + 3.5
End Select
If .X > 205 Then .Vis = 0
If .Y > 205 Then .Vis = 0
If .X < -5 Then .Vis = 0
If .Y < -5 Then .Vis = 0
If .X - 2 < Player_Data.X + Player_Data.W Then
If .X + 2 > Player_Data.X - Player_Data.W Then
If .Y - 2 < Player_Data.Y + Player_Data.H Then
If .Y + 2 > Player_Data.Y - Player_Data.H Then
.Vis = False
MsgBox "Hit!"
End If
End If
End If
End If
With UserForm1.Controls("E_Shot" & L + 1)
If E_Shot_Data(L).Vis Then
.Left = E_Shot_Data(L).X - Shot_Size
.Top = E_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
Dim L As Long
Dim LL As Long
For L = 0 To 9
With E_Shot_Data(L)
If .Vis Then
'��Select Case .Typ
Case 1
.Y = .Y + 4.5
Case 2
.X = .X + 0.5
.Y = .Y + 3.5
Case 3
.X = .X - 0.5
.Y = .Y + 3.5
End Select
If .X > 205 Then .Vis = 0
'��If .Y > 205 Then .Vis = 0
If .X < -5 Then .Vis = 0
If .Y < -5 Then .Vis = 0
If .X - 2 < Player_Data.X + Player_Data.W Then
'��If .X + 2 > Player_Data.X - Player_Data.W Then
If .Y - 2 < Player_Data.Y + Player_Data.H Then
If .Y + 2 > Player_Data.Y - Player_Data.H Then
.Vis = False
MsgBox "Hit!"
'��End If
End If
End If
End If
With UserForm1.Controls("E_Shot" & L + 1)
'��If E_Shot_Data(L).Vis Then
.Left = E_Shot_Data(L).X - Shot_Size
.Top = E_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
さぁどうでしょうか。なんとなくやっていることが想像できるでしょうか。
敵キャラクター用のショットは１０個ありますから、このプロシージャでもまずは
For文の繰り返し処理が始まります。そして、ショットが見えているかどうか、�，波獣任靴討い泙垢諭８�えていない場合は何もせずに素通りします。見えている場合は、その後の処理に進みます。
もしもショットが現在見えている状態だった場合には、そのショットを動かさなくてはいけません。
今回は、敵用のショットを３種類用意してみましょう。
ショットのタイプによって、移動の仕方を３種類に分別します。
タイプ１は『まっすぐ進むショット』。タイプ２は『右斜め下に向かって進むショット』で、タイプ３は『左斜め下に向かって進むショット』になります。横位置や縦位置をどのように変化させているかをよく見れば、おのずとわかると思います。
次に�△良�分で、ショットが画面の外に出てしまっていないかチェックしています。上下左右全ての方向でチェックします。
��ではプレイヤーキャラクターとの『衝突判定』を行っています。
一見すると複雑に見えるかもしれませんが、単に文字数が少し多いだけですから、落ち着いて計算しましょうね。必ずわかるはずです。
衝突判定を行った結果、ショットとプレイヤーキャラクターが接触していた場合には、�い良�分に処理が進みます。
今回は、暫定的な処理として、メッセージを表示するようにしておきます。最終的には、ここで爆発のエフェクトなどを入れて、キャラクターが撃墜されてしまったような演出にする予定です。今はテスト段階ということで、メッセージを表示するようにしておきましょう。
そして�ァ△海海浪萍名紊離ぅ瓠璽献灰鵐肇蹇璽襪鮟萢�している部分ですね。
今まで上のほうで計算してきたのは、あくまでもデータ上での計算です。この部分で、実際にイメージコントロールを移動したり、消したりするわけです。
細かな部分でわからないことがある場合は、面倒でも、以前のChapterに戻って復習してみてくださいね。わからないまま進めてしまうと、さらにわからなくなっていってしまいますので。
■敵キャラクターの処理を修正
さて、ショットの『生成』と『移動』に関する処理が完成しました。
あとは、ショットを実際に発射する敵キャラクターの処理を変更します。
とは言っても、たった１行、処理を追加するだけです。
次のコードで緑文字になっている部分、この１行が肝ですよ。
Sub Enemy_Action()
Dim L As Long
Dim LL As Long
Dim TCMOD
TCMOD = Total_Count Mod 30
For L = 0 To 9
With Enemy_Data(L)
If .Lif > 0 Then
Select Case .Typ
Case 1
.Y = .Y + 1.5
Case 2
.X = .X + 0.5
.Y = .Y + 1
Case 3
.X = .X - 0.5
.Y = .Y + 1
End Select
If .X > 220 Then .Lif = 0
If .Y > 220 Then .Lif = 0
If .X < -20 Then .Lif = 0
If .Y < -20 Then .Lif = 0
If TCMOD = 0 Then
Select Case .Typ
Case 2
.Typ = 3
Case 3
.Typ = 2
End Select
Call E_Shot_Begin(.X, .Y + 2, .Typ)
End If
End If
End With
With UserForm1.Controls("Enemy" & L + 1)
If Enemy_Data(L).Lif > 0 Then
.Left = Enemy_Data(L).X - Enemy_Size
.Top = Enemy_Data(L).Y - Enemy_Size
Else
.Visible = False
End If
End With
Next
End Sub
Dim L As Long
Dim LL As Long
Dim TCMOD
TCMOD = Total_Count Mod 30
For L = 0 To 9
With Enemy_Data(L)
If .Lif > 0 Then
Select Case .Typ
Case 1
.Y = .Y + 1.5
Case 2
.X = .X + 0.5
.Y = .Y + 1
Case 3
.X = .X - 0.5
.Y = .Y + 1
End Select
If .X > 220 Then .Lif = 0
If .Y > 220 Then .Lif = 0
If .X < -20 Then .Lif = 0
If .Y < -20 Then .Lif = 0
If TCMOD = 0 Then
Select Case .Typ
Case 2
.Typ = 3
Case 3
.Typ = 2
End Select
Call E_Shot_Begin(.X, .Y + 2, .Typ)
End If
End If
End With
With UserForm1.Controls("Enemy" & L + 1)
If Enemy_Data(L).Lif > 0 Then
.Left = Enemy_Data(L).X - Enemy_Size
.Top = Enemy_Data(L).Y - Enemy_Size
Else
.Visible = False
End If
End With
Next
End Sub
このプロシージャの詳しい解説は、以前の講座で行っています。もしわからないという人は、そちらをご覧ください(Chapter49を参照)。
今回は緑の文字で表示されている部分だけ、簡単に解説します。
ここでは、先ほど作成した『ショット生成プロシージャ』を呼び出しています。ただそれだけです。実際。
今現在の敵キャラクターの座標、そして、敵キャラクターのタイプをそのままショットのタイプとして、引数に渡しています。
敵キャラクターが今現在いる座標上に、タイプに応じてショットが生成されるわけです。
敵のタイプによって、ショットの移動も連動して変化するのですね。
まっすぐ進むタイプの敵は、まっすぐ進むショットを撃ちます。斜めに移動する敵は、斜め方向に進むショットを撃ちます。
■まとめ、全コード掲載
それでは最後に、ここまでの全てのコードを掲載します。
いつもどおり、追加した部分は色が変わっています。講座を見ながら作成している人は、色の変化している部分に注意しながら、適宜コードを追加してみましょう。
ユーザーフォームの方の準備、各種変数の初期化を追加することも忘れずに。
'標準モジュール先頭部分
'◆API 宣言Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
'■キャラクター 構造体宣言Type Chara
X As Single
Y As Single
W As Single
H As Single
Lif As Long
Typ As Long
Par As Long
End Type
'■ショット 構造体宣言Type Shot
X As Single
Y As Single
Vis As Boolean
Typ As Long
End Type
'●キャラクター 変数宣言Public Player_Data As Chara
Public Enemy_Data(9) As Chara
'●ショット 変数宣言Public P_Shot_Data(4) As Shot
Public E_Shot_Data(9) As Shot
'◎その他 変数宣言Public Shot_Interval As Long
Public Total_Count As Long
'ゲーム中のカウンタ'▲定数宣言Public Const Left_Key As Long = 37
'カーソル左Public Const Up_Key As Long = 38
'カーソル上Public Const Right_Key As Long = 39
'カーソル右Public Const Down_Key As Long = 40
'カーソル下Public Const Esc_Key As Long = 27
'ＥｓｃキーPublic Const Shot_Key As Long = 90
'ＺキーPublic Const Player_Size As Single = 9
'プレイヤーキャラクターの実際の大きさPublic Const Shot_Size As Single = 3
'弾各種の実際の大きさPublic Const Enemy_Size As Single = 9
'敵キャラクターの実際の大きさ'初期化を担当するプロシージャSub Init()
With Player_Data
.X = 100
.Y = 180
.W = 3
.H = 3
'プレイヤーの内部的な大きさ.Lif = 1
.Typ = 0
.Par = 0
End With
Erase P_Shot_Data
Erase E_Shot_Data
Erase Enemy_Data
Shot_Interval = 0
Total_Count = 0
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
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
'敵キャラクターの出現管理プロシージャSub Stage_Count()
Randomize
Select Case Total_Count Mod 200
Case 0
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 1)
Case 50
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 2)
Case 100
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 3)
End Select
End Sub
'プレイヤーキャラクターを担当するプロシージャSub Player_Action()
With Player_Data
'キー入力判定と移動処理 If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
'はみだし防止処理 If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
'ショット生成If Shot_Interval = 0 Then
If GetAsyncKeyState(Shot_Key) < 0 Then
Call P_Shot_Begin(.X, .Y, 0)
Shot_Interval = 1
End If
Else
Shot_Interval = Shot_Interval + 1
If Shot_Interval > 7 Then Shot_Interval = 0
End If
End With
'フォーム上の『Player』を実際に移動する処理 With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
'ショット生成プロシージャSub P_Shot_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 4
With P_Shot_Data(L)
If Not .Vis Then
.X = X
.Y = Y
.Typ = Typ
.Vis = True
UserForm1.Controls("P_Shot" & L + 1).Visible = True
Exit For
End If
End With
Next
End Sub
'ショット移動管理プロシージャ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)
.Lif = 0
End With
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 Enemy_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 9
With Enemy_Data(L)
If .Lif = 0 Then
.X = X
.Y = Y
.W = 5
.H = 5
'敵キャラクターの内部的な大きさ.Typ = Typ
.Lif = 1
.Par = 0
With UserForm1.Controls("Enemy" & L + 1)
.Visible = True
Select Case Typ
Case 1
.Picture = UserForm1.Enemy_s1.Picture
Case 2, 3
.Picture = UserForm1.Enemy_s2.Picture
End Select
End With
Exit For
End If
End With
Next
End Sub
'敵キャラクターを担当するプロシージャSub Enemy_Action()
Dim L As Long
Dim TCMOD
TCMOD = Total_Count Mod 30
For L = 0 To 9
With Enemy_Data(L)
If .Lif > 0 Then
Select Case .Typ
Case 1
.Y = .Y + 1.5
Case 2
.X = .X + 0.5
.Y = .Y + 1
Case 3
.X = .X - 0.5
.Y = .Y + 1
End Select
If .X > 220 Then .Lif = 0
If .Y > 220 Then .Lif = 0
If .X < -20 Then .Lif = 0
If .Y < -20 Then .Lif = 0
If TCMOD = 0 Then
Select Case .Typ
Case 2
.Typ = 3
Case 3
.Typ = 2
End Select
Call E_Shot_Begin(.X, .Y + 2, .Typ)
End If
End If
End With
With UserForm1.Controls("Enemy" & L + 1)
If Enemy_Data(L).Lif > 0 Then
.Left = Enemy_Data(L).X - Enemy_Size
.Top = Enemy_Data(L).Y - Enemy_Size
Else
.Visible = False
End If
End With
Next
End Sub
'敵キャラクターショット生成プロシージャSub E_Shot_Begin(X As Single, Y As Single, Typ As Long)
Dim L As Long
For L = 0 To 9
With E_Shot_Data(L)
If Not .Vis Then
.X = X
.Y = Y
.Typ = Typ
.Vis = True
With UserForm1.Controls("E_Shot" & L + 1)
.Visible = True
End With
Exit For
End If
End With
Next
End Sub
'敵キャラクターショット移動管理プロシージャSub E_Shot_Action()
Dim L As Long
Dim LL As Long
For L = 0 To 9
With E_Shot_Data(L)
If .Vis Then
Select Case .Typ
Case 1
.Y = .Y + 4.5
Case 2
.X = .X + 0.5
.Y = .Y + 3.5
Case 3
.X = .X - 0.5
.Y = .Y + 3.5
End Select
If .X > 205 Then .Vis = 0
If .Y > 205 Then .Vis = 0
If .X < -5 Then .Vis = 0
If .Y < -5 Then .Vis = 0
If .X - 2 < Player_Data.X + Player_Data.W Then
If .X + 2 > Player_Data.X - Player_Data.W Then
If .Y - 2 < Player_Data.Y + Player_Data.H Then
If .Y + 2 > Player_Data.Y - Player_Data.H Then
.Vis = False
MsgBox "Hit!"
End If
End If
End If
End If
With UserForm1.Controls("E_Shot" & L + 1)
If E_Shot_Data(L).Vis Then
.Left = E_Shot_Data(L).X - Shot_Size
.Top = E_Shot_Data(L).Y - Shot_Size
Else
.Visible = False
End If
End With
End If
End With
Next
End Sub
'標準モジュールはここまで'ここから下はフォームモジュールに記述'コマンドボタンのクリックイベントPrivate Sub Com_Start_Click()
Com_Start.Enabled = False
Call Main
Unload UserForm1
End Sub
'ユーザーフォームのクエリクロースイベントPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
'ユーザーフォームのイニシャライズイベントPrivate Sub UserForm_Initialize()
UserForm1.Width = 220
End Sub
いやぁ……これは長いですね。
でも、修正している箇所に絞って考えれば、それほどでもないはずです。
初期化処理や、変数の宣言箇所などは忘れやすいですから注意しましょう。
それから、敵キャラクターとプレイヤーキャラクターに、あたり判定部分を設定しなければならないので、キャラクター構造体の、要素 W と要素 H に値を設定するのも忘れずにやっておきましょう。
これをやっておかないと、キャラクターとショットの衝突が正しく判定されませんのでね。
さて、どうですか？ 皆さんうまくいったでしょうか。
今回の講座の内容を実装させたら、見た目上はほとんど完璧にシューティングゲームになったはずです。
敵が攻撃してくる、それを避けながらプレイヤーがショットを撃つ……。これはもうシューティングゲームの基盤を実装できている状態、と言っていいでしょう。
実践講座１として、全１９回にわたってシューティングゲームを作成してきました。実践講座１は、これにて修了とします。ここまでがんばってきた皆さん、お疲れ様でした。
そして、当初の約束では、もう少し凝った内容のシューティングゲームを作成することになっていました。それらの発展系技術は、実践講座２として、引き続きお送りしていく予定です。
実践講座２では、演出などの技術を中心に、さらに上を目指して取り組んでいきます。
実践講座１の内容をしっかりと理解し、とりあえず、ここまでを完璧に作ってみてください。ちゃんと遊べる状態になりましたので、それなりの達成感も味わえるはずです。
講座内で何度も言っていますが、プログラミングに限らず、全ての学習は『諦めず』そして『自分のレベルに合ったものから取り組む』ことが非常に大切です。
より良いものを完成させるためには、焦りは禁物です。じっくりゆっくりで構いません。自分にとって最良のレベルの内容をしっかり見極めて、突き進んでいってくださいね。
とりあえず、ここまで長いこと、本当にお疲れ様でした。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
必要に応じて過去の講座を復習
焦らず、そして諦めず！
結局最後はこんなありきたりな格言になってしまいました……。
実践講座２もお楽しみに。
