Ｃｈａｐｔｅｒ.５９ [ シューティングゲーム１９：最後の仕上げへ ]
■コードの修正と追加
前回に引き続き、ボスキャラクターの処理に関してやっていきます。
修正する箇所が多くなりますので、ちょっと大変ですが頑張っていってみましょう。
まずは、敵キャラクターの出現を管理しているプロシージャ、
今の状態では、ゲームを止めるまで、永遠に敵キャラクターが出現し続ける仕様になっています。これを、ボスキャラクターが登場する仕様に修正して変更します。
上から順番に説明します。
まず�，良�分。ゲームが開始されてから、１回ループするごとに変数
ここでは、『
この余りをうまく利用して、
その次は変数
もしも、変数
そして、もし変数
ここでは、変数
そして最後に��の部分で、変数
■ボスキャラクターの管理
さて、次はボスキャラクターを管理するプロシージャの作成です。こちらは結構長いプロシージャですが、今までやってきたことを応用したものに過ぎません。よく見てひとつずつ理解していってください。
さて、�，�ら見ていきましょう。
�，良�分から、次の�△泙任隆屬良�分では、ボスキャラクターの移動処理を行っています。今回のコードでは、単純に左右に往復するだけの動きになっています。
画面の外からボスキャラクターが登場し、縦位置が３０を超えると左右往復の動きへと移行します。そして左右往復の動作に移ったあとは、構造体の要素
構造体の要素
�△良�分では、敵キャラクターの出現管理と同じ手法を使って、ボスキャラクターの攻撃パターンを作っています。
変数
ショットについてはちょっと置いといて、次の��を見てみましょう。�０聞澆良�分では、ボスキャラクターが破壊された場合の処理を行っています。これは、プレイヤーキャラクターの爆発エフェクトのときに、詳しく仕組みを解説しましたね。(Chapter55を参照)あれと同様の手法です。
ここでは、ループが１００回まわるまで、１０ループごとに爆発エフェクトを発生させています。ボスキャラクターなので、たくさん爆発が起こったほうが、それっぽい感じがするでしょ？ 多分……。
そして最後に�い良�分。ここでは、ボスキャラクターが完全に消えたところで、ゲームの進行状況を『ゲームのクリア』を表す状態に変更しています。『
これをやっておかないと、ボスキャラクターを破壊したのに、ゲームがクリアできないという状態になってしまいます。忘れずに設定しておきましょう。
さて、これで残すはショット関連の処理だけです。
ボスキャラクターを含めた敵キャラクターが放つショットの修正、そしてプレイヤーキャラクターが放つショットの修正。このふたつを行えば、晴れてシューティングゲームが完成します。
内容的にかなり縦長になってしまいますので、これは次回です。ちょっとまどろっこしい気もしますが、今回の内容をまずはしっかり理解してください。
目新しい技術は特にありません。全てが今までの応用になっています。一見するとわかりにくい部分でも、ゆっくり順番に条件分岐などを踏まえて考えていけば、おのずと何をやろうとしているのかわかるはずです。ここまで地道に進めてきてくださっていれば尚更です。
いきなりこのページから見始めている方にとっては、ちょっと難しい内容になっているかもしれません。わからないことがあれば、必要に応じて過去の講座に戻ってやってみるといいでしょう。なんにしても焦りは禁物です。自分のレベルに合わせて、わかるところからじっくり取り組みましょう。
次回はいよいよシューティングゲーム講座の最終回。あと少しだけ、頑張ってほしいと思います。
■格言
わかることからコツコツと
次回はいよいよ完成させます。
自分で言うのもなんですが、長かったなぁ……。
前回に引き続き、ボスキャラクターの処理に関してやっていきます。
修正する箇所が多くなりますので、ちょっと大変ですが頑張っていってみましょう。
まずは、敵キャラクターの出現を管理しているプロシージャ、
Stage_Countの修正からです。今の状態では、ゲームを止めるまで、永遠に敵キャラクターが出現し続ける仕様になっています。これを、ボスキャラクターが登場する仕様に修正して変更します。
Sub Stage_Count()
Dim TCMOD As Long
Randomize
TCMOD = Total_Count Mod 1000
If Total_Count < 2000 Then
Select Case TCMOD
Case 100, 150, 600, 650, 700, 750
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 1)
Case 200, 350, 450, 500, 800, 950
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 2)
Case 250, 300, 400, 550, 850, 900
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 3)
End Select
Else
If Total_Count = 2000 Then
With Boss_Data
.X = 100
.Y = -20
.W = 8
.H = 8
.Lif = 50
.Par = 0
.Typ = 0
End With
Boss_Begin = True
UserForm1.Boss.Visible = True
End If
End If
End Sub
Dim TCMOD As Long
Randomize
TCMOD = Total_Count Mod 1000
'��If Total_Count < 2000 Then
Select Case TCMOD
Case 100, 150, 600, 650, 700, 750
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 1)
Case 200, 350, 450, 500, 800, 950
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 2)
Case 250, 300, 400, 550, 850, 900
Call Enemy_Begin(Int(Rnd * 120) + 40, -10, 3)
End Select
Else
If Total_Count = 2000 Then
'��With Boss_Data
.X = 100
.Y = -20
.W = 8
.H = 8
.Lif = 50
.Par = 0
.Typ = 0
End With
Boss_Begin = True
'��UserForm1.Boss.Visible = True
End If
End If
End Sub
上から順番に説明します。
まず�，良�分。ゲームが開始されてから、１回ループするごとに変数
Total_Countはプラス１ずつ増えていきます。そして、この変数の値を元にMod演算した結果が、変数TCMODに入ります。ここでは、『
TCMOD = Total_Count Mod 1000』という代入を行っていますので、変数TCMODに入る値は常に０〜９９９の範囲に制限されます。ここまでは大丈夫ですか？Mod演算子を使った計算では、『除算の余り』を得ることができます。つまり、ループのたびに無制限に増え続ける変数Total_Countを１０００で割ると、その余りは『割り切れた場合の０』から『割り切れなかった場合の余り９９９』までの間におさまるというわけですね。この余りをうまく利用して、
Select Caseでの分岐を行いながら処理を行っているのです。その次は変数
Total_Countの値に応じて処理が分かれます。もしも、変数
Total_Countが２０００よりも小さい数だった場合には、ザコ敵キャラクターの出現処理に移ります。ここでは、先ほど登場した変数TCMODの値を元にザコ敵キャラクターを出現させています。そして、もし変数
Total_Countが２０００以上の数値になった場合、ここからがボスキャラクターの出現処理です。これが�△良�分ですね。ここでは、変数
Total_Countが２０００ちょうどだった場合にだけ、ボスキャラクターの出現処理を行っています。構造体の各要素に、値を設定します。そして最後に��の部分で、変数
Boss_BeginをTrueにしています。これ以降は、この変数を参照することによって、ボスが出現しているということを判断することができるようになりました。■ボスキャラクターの管理
さて、次はボスキャラクターを管理するプロシージャの作成です。こちらは結構長いプロシージャですが、今までやってきたことを応用したものに過ぎません。よく見てひとつずつ理解していってください。
Sub Boss_Action()
Dim L As Long
Dim LL As Long
Dim S As Single
Dim SS As Single
Dim TCMOD
Randomize
TCMOD = Total_Count Mod 500
With Boss_Data
If .Lif > 0 Then
If .Y < 30 Then
.Y = .Y + 1
Else
If .Par > 0 Then
.X = .X + 2
If .X > 160 Then
.X = 160
.Par = 0
End If
Else
.X = .X - 2
If .X < 40 Then
.X = 40
.Par = 1
End If
End If
End If
Select Case TCMOD
Case 50, 70, 90, 110, 130, 150
.Typ = 1
Case 60, 80, 100, 140
.Typ = 2
Case 80, 120, 160
.Typ = 3
Case 200, 230, 260, 290, 320
.Typ = 4
Case 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450
.Typ = 5
Case Else
.Typ = 0
End Select
If .Typ <> 0 Then Call E_Shot_Begin(.X, .Y + 5, .Typ)
Else
.Par = .Par + 1
If .Par < 100 Then
If .Par Mod 10 = 0 Then
S = Int(Rnd * 25) - 13
SS = Int(Rnd * 25) - 13
Call Burst_Begin(.X + S, .Y + SS)
End If
Else
Game_Mode = 3
Boss_Begin = False
End If
End If
End With
With UserForm1.Boss
If Boss_Begin Then
.Left = Boss_Data.X - Boss_size
.Top = Boss_Data.Y - Boss_size
Else
.Visible = False
End If
End With
End Sub
Dim L As Long
Dim LL As Long
Dim S As Single
Dim SS As Single
Dim TCMOD
Randomize
TCMOD = Total_Count Mod 500
With Boss_Data
If .Lif > 0 Then
If .Y < 30 Then
'��.Y = .Y + 1
Else
If .Par > 0 Then
.X = .X + 2
If .X > 160 Then
.X = 160
.Par = 0
End If
Else
.X = .X - 2
If .X < 40 Then
.X = 40
.Par = 1
End If
End If
End If
Select Case TCMOD
'��Case 50, 70, 90, 110, 130, 150
.Typ = 1
Case 60, 80, 100, 140
.Typ = 2
Case 80, 120, 160
.Typ = 3
Case 200, 230, 260, 290, 320
.Typ = 4
Case 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450
.Typ = 5
Case Else
.Typ = 0
End Select
If .Typ <> 0 Then Call E_Shot_Begin(.X, .Y + 5, .Typ)
Else
.Par = .Par + 1
'��If .Par < 100 Then
If .Par Mod 10 = 0 Then
S = Int(Rnd * 25) - 13
SS = Int(Rnd * 25) - 13
Call Burst_Begin(.X + S, .Y + SS)
End If
Else
Game_Mode = 3
'��Boss_Begin = False
End If
End If
End With
With UserForm1.Boss
If Boss_Begin Then
.Left = Boss_Data.X - Boss_size
.Top = Boss_Data.Y - Boss_size
Else
.Visible = False
End If
End With
End Sub
さて、�，�ら見ていきましょう。
�，良�分から、次の�△泙任隆屬良�分では、ボスキャラクターの移動処理を行っています。今回のコードでは、単純に左右に往復するだけの動きになっています。
画面の外からボスキャラクターが登場し、縦位置が３０を超えると左右往復の動きへと移行します。そして左右往復の動作に移ったあとは、構造体の要素
Parの状態によって、今現在、左に向かって動いているのか、それとも右に向かって動いているのかを決めています。構造体の要素
Parの値が、０より大きい(つまり１以上)のときは、ボスキャラクターが右に向かって移動します。逆に、０以下の数値が設定されているときは左に向かって移動します。�△良�分では、敵キャラクターの出現管理と同じ手法を使って、ボスキャラクターの攻撃パターンを作っています。
Mod演算をうまく活用しているのがわかりますね。変数
TCMODの値によって、全部で５種類のショットを発射するようになっています。ちなみに、今はまだショットの種類が３種類しか定義されていません。４番目と５番目のショットについては、次の項でやります。ショットについてはちょっと置いといて、次の��を見てみましょう。�０聞澆良�分では、ボスキャラクターが破壊された場合の処理を行っています。これは、プレイヤーキャラクターの爆発エフェクトのときに、詳しく仕組みを解説しましたね。(Chapter55を参照)あれと同様の手法です。
ここでは、ループが１００回まわるまで、１０ループごとに爆発エフェクトを発生させています。ボスキャラクターなので、たくさん爆発が起こったほうが、それっぽい感じがするでしょ？ 多分……。
そして最後に�い良�分。ここでは、ボスキャラクターが完全に消えたところで、ゲームの進行状況を『ゲームのクリア』を表す状態に変更しています。『
Game_Mode = 3』の部分ですね。これをやっておかないと、ボスキャラクターを破壊したのに、ゲームがクリアできないという状態になってしまいます。忘れずに設定しておきましょう。
さて、これで残すはショット関連の処理だけです。
ボスキャラクターを含めた敵キャラクターが放つショットの修正、そしてプレイヤーキャラクターが放つショットの修正。このふたつを行えば、晴れてシューティングゲームが完成します。
内容的にかなり縦長になってしまいますので、これは次回です。ちょっとまどろっこしい気もしますが、今回の内容をまずはしっかり理解してください。
目新しい技術は特にありません。全てが今までの応用になっています。一見するとわかりにくい部分でも、ゆっくり順番に条件分岐などを踏まえて考えていけば、おのずと何をやろうとしているのかわかるはずです。ここまで地道に進めてきてくださっていれば尚更です。
いきなりこのページから見始めている方にとっては、ちょっと難しい内容になっているかもしれません。わからないことがあれば、必要に応じて過去の講座に戻ってやってみるといいでしょう。なんにしても焦りは禁物です。自分のレベルに合わせて、わかるところからじっくり取り組みましょう。
次回はいよいよシューティングゲーム講座の最終回。あと少しだけ、頑張ってほしいと思います。
■格言
Mod演算子を活用するわかることからコツコツと
次回はいよいよ完成させます。
自分で言うのもなんですが、長かったなぁ……。
