Excel/VBAでパックマンを作る–壁と点数付け

2017/09/23

前回に続き、Excel方眼紙を使ったパックマンを製作中です。

今回は壁を作って迷路上をパックマンが動くようにしたことと、ポイントを食べて点数が上がるようになっています。前回同様、パックマンはパソコンの矢印キーで動きます。

[ad#top-1]

ソースコードはGitHubにて公開しております。順次更新していきますが、現時点のソースコードは「packman_main_20170923.bas」となります。

あと、動画をYoutubeにアップしましたので動きをご覧ください。

動作説明

今回よりプレイするステージを選択できるようにしております。今時点では「Stage1」の１つしかありません。

こんな風にステージのフォーマットは別シートに作られています。プレイ開始時に指定ステージがコピペされるわけです。シート名の先頭を「Stage」であれば認識してリストに入ります。

ゲームプレイ開始前にExcelのリボンを閉じてください。ステージが画面に入りきらないので。（プレイ中はスクロールできません。）

「Start」ボタンを押せばプレイ開始です。青いポイントを食べて点数を上げていってください。（まだ敵キャラはいません。）

左上に以下のようなダイアログが現れるので、こいつをダブルクリックするとプレイが終了します。

あとは敵キャラだけです。

ただ、敵キャラは今まで以上に難易度は高く、少なくとも以下をクリアしなければなりません。

１はパソコン能力的に大丈夫か心配なのですが、実は一番難解なのは３です。

パックマンのようにキャラが通った後に青ポイントを消す方がはるかに楽で、それを残すとなると、通る前に青ポイントの座標を記憶しておいて、通り過ぎたら再描画するというプログラムを組まなければなりません。

うまくやらないと動きが渋くなりそうです。どうやってやろうか…?　ちょっと考えます。

■GitHubにて公開中■

[ad#ad-1]