VisualBasic 2015 入門

34．メテオ４ 隕石の移動と当たり判定

今回は [ メテオ３ Timer と自機の操作 ] の続きです。

プログラミングできるようになるには、プログラミングするのが一番です。
ピアノが弾けるようになりたいのに、けん盤や楽譜だけ見ていても上達しません。

当サイトでサンプルを入力し改造するのも勉強になりますが、
他にもプログラミングした方がいいでしょう。
何を作ればいいのか分からない場合には、よく使うアプリやゲームを
マネて自作してみるのはどうでしょうか？
ただ、同じものを作るのはむずかしいと思います。
そんな時はデフォルメすればいいのです。
ほんの一部の機能（または遊び）だけを再現してみましょう。自分のできる範囲で制作するのです。

隕石の表示と移動

隕石ですが１０個表示することにします。
まずはプログラムを次のように変更してください。

実行してみましょう。
隕石が画面の上から下へ移動します。

配列とは

隕石を１０個動かすために、配列を使います。
配列とは、同じ名前の変数を複数使うために用意されたものです。

変数と同じく宣言をしますが、カッコ（）を付けます。
中の数値はいくつ用意するか指定しています。

enX (9) としたなら、enX (0) から enX (9) まで使えるようになります。
つまり１０個の変数が用意されたことになります。

配列を使う理由は、まとめて処理しやすいところです。
１０個の隕石のために、１０個の変数を宣言して、それぞれに値を代入するとなると、２０行ものプログラムになります。

配列を使えば、宣言に１行、代入に３行程度で済みます。
今回のプログラムでも For 文を使って、１０個の隕石座標にセットしています。

隕石の発生について

サブルーチン gameInit 内で行っている隕石座標の処理を見てみましょう。
enX にはｘ座標をセットします。
画面サイズ（pBase のサイズ）は横 480 なので、これにおさまるように
乱数を使います。
隕石のサイズも考えて、480 より小さい 450 としました。

次はＹ座標です。
乱数を１から 900 までの間で発生させ 1000 を引いています。
これは画面の上、画面外から隕石を発生させるためにしています。
１から 900 までの長さにした理由は、隕石落下にバラツキを持たせるためです。

隕石の移動について

移動については簡単です。
Ｙ座標 enY に＋５して下方向へ移動させます。
この値が大きければ移動が速くなります。
あとは g.DrawImage を使って隕石を描画するだけです。

変数 RR は隕石の半径なので２倍しています。
enY が pBase.Height よりも大きいときは、隕石が画面外へ出たことになるので
画面の上に戻す処理を入れてます。
初期設定のときより乱数の幅が狭いのは、すでに散らばっているからです。

自機と隕石の当たり判定をしよう

自機と隕石の当たり判定をします。
プログラムを次のように変更してください。
サブルーチン hitCheck を作成して、Timer1_Tick の最後で呼び出します。

実行してみましょう。
当たり判定ができているか調べるために、タイトルに hit 表示するようにしました。
確認してみましょう。

当たり判定のしくみ

当たり判定の方法はいろいろあります。
前回の突破ゲームでは、２つの四角い範囲が当たっているか調べました。
しかし今回は隕石が丸いため、あまり良い方法ではありません。
ここは２点間の距離による当たり判定をおこないます。
しくみについては次のページでくわしく説明しています。

[ ２点間の距離による当たり判定 ]

プログラムは次のようになっています。

当たり判定として重要なのは、どの距離と比較するかです。
今回は隕石の半径と比較しました。
つまり、自機の厚みは計算に入れてません。

隕石の半径と比較しているため、自機の絵が隕石と重なっていても（右図）
当たっていないことになります。
自機の中心が隕石の半径距離に入って「当たっている」となるのです（左図）

当たったら処理を止めよう

自機と隕石が当たったら処理を止めるようにします。
プレイヤーのやられかたは色々ありますが、当たったことがはっきりと分かるように動きを止めることにします。

当たり判定用のフラグ hitFlg を作ります。
タイプを Boolean で宣言していることに注意してください。
このようなフラグを作成したときには、初期処理 gameInit の中で初期化しましょう。
これは基本ですね。

処理を止めるのは簡単で Timer1_Tick の中の処理をさせなければいいのです。
ということで hitFlg が真（True）ならばサブルーチンを抜けるようにします。
あとは当たり判定の中で、フラグを立てる（True にする）だけです。
タイトルを使って hit 表示していた部分は削除してください。

これで自機と隕石が当たったら画面が止まります。
自機の操作もできなくなります。
実行して確認してみましょう。