プチコンmkII 初心者講座サンプルプログラム７ (その１)
プログラマーからひとこと
いよいよサンプルプログラム７、この講座ではこれが最後のサンプルです。サンプルプログラム５や６はやってませんけど……。
うーん、エピソード１〜３を飛ばしてエピソード４からストーリーが始まる的な？
いや、そういうものでもないですね。
サンプル５と６は、「グラフィック面」や「ＢＧ面」といった、これまでとはだいぶ違うものの話になるので、この講座ではいったんおいておきます。
新しくおぼえる命令がドーンと出てくるので、そういうのって思わずくじけちゃいそうじゃないですか。
それよりは先にスパッとアクションゲームを作ってしまいましょう。
そうです、そういえばサンプルプログラム７はゲームです。それもアクションゲームです。
いよいよって感じですね。
だいたいは、これまでにおぼえたことの組み合わせで、できるようになっています。
と言っても、応用そしてまた応用なのはたしかなので、何回にもわけてじっくりやっていくことにしましょう。
どんなゲームなのか、とりあえず見てみましょう。
サンプルを遊んでみよう
ハカセ「いよいよクライマックスというカンジじゃのう。これは今のショクンにピッタリのサンプルプログラムじゃろう。」
ＬＯＡＤ”ＳＡＭＰＬＥ７”
ＯＫ
ＲＵＮ
ＯＫ
ＲＵＮ
インテリ「自機を左右に動かしながら、上からせまる敵をショットで打つゲームだね。」
神崎「十字ボタン左右で移動。画面タッチでショットっていうのはめずらしいね。」
ワンパク「いや……ちょっと待て、コレおかしいぞ！ どうやっても負けにならねーじゃねェか！」
ハカセ「じゃから、タイトルが「侵略未遂 」となっとるじゃろ。カレらは、最後までシンリャクできなかったのじゃよ。カナしい話じゃな。」
ワンパク「いやそうじゃねェだろ！ ナンのための残機ヒョウジだよ！ だいたい敵をゼンブ倒しても特にナニも起きねー！」
ハカセ「ウム……、コレはそもそもユーザーショクンのチカラで、未完成のプログラムを完成させようというシュシなのじゃ……が……ちょっとムリがあったじゃろうか。」
神崎「まあ、そういうコトなら……いいの……かな？」
インテリ「そういうことにしておこうよ。今のところ気になるポイントは、
・敵にせめ込まれてもダメージがない
・敵をゼンブ倒しても終わらない
この２つかな？」
・敵にせめ込まれてもダメージがない
・敵をゼンブ倒しても終わらない
この２つかな？」
ワンパク「・敵のスピードが早すぎる
ってのもモンダイだぜ。」
ってのもモンダイだぜ。」
神崎「・Ａボタンでショットにならない
のもやっぱりやりづらいよね。」
のもやっぱりやりづらいよね。」
ハカセ「ワシが言うのもなんじゃが、テキカクなシテキじゃな。
ホカにもプラスアルファのためにいくつか変数をしこんでおるんじゃが……」
ホカにもプラスアルファのためにいくつか変数をしこんでおるんじゃが……」
ワンパク「それはイイや、コレ以上ふやすとタイヘンそうだしな！」
ハカセ「ワシが言うコトでないかもしれんが、テキカクじゃのう……。」
再現をはじめてみよう
インテリ「プログラムを改造するには、まずプログラムをリカイした方がいいよね。せっかく総まとめのプログラムなんだから、イチから自分で作るつもりでやってみようか！」
神崎「カンタンそうに言うなあ……。」
インテリ「ムズカシく見えても、だいたいはこれまでのおさらいでデキるプログラムだよ。
たとえば、プログラムのサイショに何をすればいいのかはもうわかるよね。」
たとえば、プログラムのサイショに何をすればいいのかはもうわかるよね。」
ワンパク「そこはイマまでのサンプルと同じパターンでイケるだろうな。
」
0001#. ’┌──────────┐
0002#. ’│ＳＡＭＰＬＥ７ │
0003#. ’│ シンリャクミスイ │
0004#. ’└──────────┘
0005#. ＶＩＳＩＢＬＥ １，１，０，０，０，０
0006#. ＣＬＳ：ＣＯＬＯＲ ０
0007#. ＣＬＥＡＲ
だいたいこんなモンか。本当はこのアトにＤＩＭ命令がくるんだろうが……。0002#. ’│ＳＡＭＰＬＥ７ │
0003#. ’│ シンリャクミスイ │
0004#. ’└──────────┘
0005#. ＶＩＳＩＢＬＥ １，１，０，０，０，０
0006#. ＣＬＳ：ＣＯＬＯＲ ０
0007#. ＣＬＥＡＲ
0008#. ＤＩＭ ？？？
配列変数のヨテイが立ってないから、トクに思いつかねェぜ！」
インテリ「そのあたりは後で出てくるだろうから、今はまだいいかな。
REMの’を行のはじめに入れて、メモとして残しておこうか。
REMの’を行のはじめに入れて、メモとして残しておこうか。
0008#. ’ＤＩＭ ？？？
」ハカセ「いわゆる「コメントアウト」じゃな。プログラムを組みながらなら、こういうコメントの使い方もユウコウじゃぞ。」
動かしてみよう
ワンパク「ウーム……とりあえずプレイヤー機を出してはみたが……
0010#. ’－－－
0011#. ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
0012#. ＬＯＣＡＴＥ ０，２２
0013#. ＰＲＩＮＴ”────────────────────────────────”；
」0011#. ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
0012#. ＬＯＣＡＴＥ ０，２２
0013#. ＰＲＩＮＴ”────────────────────────────────”；
神崎「サンプルプログラム１のころにおぼえたコトだね。」
インテリ「このプレイヤーを動かすプログラムがいるだろうね。いまのうちにメインループを作っておこう。
0020#. ’－－－
0021#. ＠ＬＯＯＰ
0022#. ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
0023#. ＧＯＴＯ ＠ＬＯＯＰ
」0021#. ＠ＬＯＯＰ
0022#. ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
0023#. ＧＯＴＯ ＠ＬＯＯＰ
神崎「このラベル＠ＭＹＳＨＩＰ（自機 ）で、プレイヤーを動かすサブルーチンを作るんだね。」
ワンパク「サンプル３の方法で左右に動かすなら、こんなカンジだろ？
」
0025#. ’－－－ シ゛フ゛ン
0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ？？？
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ？？？
0030#. ＲＥＴＵＲＮ
だが、わからねえ！ このIF文をどうすりゃ、プレイヤーが動くんだ？0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ？？？
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ？？？
0030#. ＲＥＴＵＲＮ
」
インテリ「そういえば、まだキャラクターが動くタイプのプログラムはやったことがなかったね。少しじっくり作ってみようか。
」
0011#. ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
まずはこの行に注目かな。」
ワンパク「イチバンはじめのトコロじゃねェか！ オレのヤリ方にモンクでもあるってのかよ！」
インテリ「このＬＯＣＡＴＥの数字を変えると、プレイヤー機のバショも変わるのはなんとなくイメージできるかな？」
神崎「まあ、それくらいなら。
たとえばＬＯＣＡＴＥ １１，２１：ＰＲＩＮＴ”Г”；と書けばもう１文字ぶん右に行くよね。」
たとえばＬＯＣＡＴＥ １１，２１：ＰＲＩＮＴ”Г”；と書けばもう１文字ぶん右に行くよね。」
ワンパク「ソレと押されたボタンを組み合わせるのか……ツマリ、ＢＵＴＴＯＮ（）が押されたらＬＯＣＡＴＥの数字を変える……？ しかしＬＯＣＡＴＥの数字を変えるには……」
神崎「あ、変数を使うんだ！」
ワンパク「！ ……「数」が「変」わるから「変数」。そういうコトか……！」
インテリ「そうマチガってるワケでもないかな。数字がたびたび変わるようなトコロは、変数で作っておくとベンリだね。」
神崎「ということは、この行も……？
0011#. ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
」インテリ「こんな感じがいいんじゃないかな。
プレイヤー のＰ。ＸとＹはヨコ方向・タテ方向のイミだよ。
」
0011#. ＰＸ＝１０：ＰＹ＝２１
0012#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
変数の名前に使ったＰは0012#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
」
ハカセ「数学で「座標」のヨコ方向に「ｘ」、タテ方向に「ｙ」を使うコトがモトモトのイミかのう。コンピューターのセカイでもヨコといえばＸ、タテといえばＹ、というコトが多いのじゃ。」
ワンパク「リクツはワカッてきたぜ。ボタンのあたりは、こうすりゃイイんだな？
」
0025#. ’－－－ シ゛フ゛ン
0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＰＸ＝ＰＸ－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＰＸ＝ＰＸ＋１
0030#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0031#. ＲＥＴＵＲＮ
左ボタンを押せばＰＸから１引いて、右ボタンを押せばＰＸに１足すってワケだ。そのアトにＬＯＣＡＴＥしてＰＲＩＮＴすればバッチリだぜ！0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＰＸ＝ＰＸ－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＰＸ＝ＰＸ＋１
0030#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0031#. ＲＥＴＵＲＮ
」
ハカセ「さて、どうかのう？ ためしにＲＵＮしてみるかの。」
ワンパク「ウ、ウォオー！ ナンだコリャアー！」
インテリ「アイデアはまちがってなかったけど、いくつかダイジなところが抜けていたね。
まず、Ｂ＝ＢＵＴＴＯＮ（）から戻ってくるまでのループが早すぎるってこと。ボタンをチョンと押しただけで、ものすごいスピードで何度も押したことになってるんだな。」
まず、Ｂ＝ＢＵＴＴＯＮ（）から戻ってくるまでのループが早すぎるってこと。ボタンをチョンと押しただけで、ものすごいスピードで何度も押したことになってるんだな。」
神崎「そういえばサンプルプログラム３でも、そんなコトがあったね。」
インテリ「となると、思い出すこともあるんじゃないかな？
」
0021#. ＠ＬＯＯＰ
0022#. ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
0023#. ＶＳＹＮＣ １
0024#. ＧＯＴＯ ＠ＬＯＯＰ
メインループの中にＶＳＹＮＣ命令をふやしたよ。0022#. ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
0023#. ＶＳＹＮＣ １
0024#. ＧＯＴＯ ＠ＬＯＯＰ
」
神崎「60分の１秒だけプログラムの動きを止めるんだったね。早すぎるループをわざと遅らせるのはワカるけど……60分の１秒って、そんなあっと言う間でいいの？」
インテリ「そのくらいでも、アクションゲームならイガイとちょうど良かったりするんだよ。ものたりなければ、増やせばすむコトだしね。」
ワンパク「ナルホドな。とにかくモンダイはカイケツだぜ。ＲＵＮ！」
ワンパク「カイケツしきってねェー！」
動かし方のコツを学ぼう
ハカセ「ナニがおきておるのか、23行目をＶＳＹＮＣ ２０ぐらいに変えて見るとハッキリするじゃろう。
こういう「重し 」をかけるのは、テストにはユウコウじゃぞい。」
こういう「
ワンパク「な……ナンとなくはワカッたな。ヨコに動かすと、プレイヤー機が分身するみたいに増えていっちまうんだ。」
インテリ「いちど画面にＰＲＩＮＴした字は、消さなきゃずっとそこに残っちゃうのさ。」
神崎「言われてみれば当たり前だけど……じゃあどうやって消せばいいの？」
インテリ「それはカンタンさ。” ”つまりスペースを同じ場所にＰＲＩＮＴすれば、Гはなくなるってワケだね。」
ワンパク「消すっつーか、上書きするっつーか、だな。
このプログラムだと、モトの場所にスペースを書けばイイんだから……ン？ ブツブツ……ボタンが押されたらもうＰＸを変えてるワケで……モトの場所を消さないとイケねェんだけど、ボタンを押してないのに消したらマズいワケで……
イマイチわかんねェぞ！」
このプログラムだと、モトの場所にスペースを書けばイイんだから……ン？ ブツブツ……ボタンが押されたらもうＰＸを変えてるワケで……モトの場所を消さないとイケねェんだけど、ボタンを押してないのに消したらマズいワケで……
イマイチわかんねェぞ！」
インテリ「これは、もっとプログラムを書き足さないといけないね。
」
0025#. ’－－－ シ゛フ゛ン
0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
0030#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
0031#. ＰＸ＝ＰＸ＋ＶＸ
0032#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0033#. ＲＥＴＵＲＮ
わかるかな？ クッションになる変数ＶＸを新しく作ったよ。0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
0030#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
0031#. ＰＸ＝ＰＸ＋ＶＸ
0032#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0033#. ＲＥＴＵＲＮ
」
神崎「ええと、ふだん変数ＶＸは０で、ボタンを押したときだけ－１か１になるんだね。」
ワンパク「変数ＰＸはまだ変わってねェから、まずスペースで消して……あらためてＰＸにＶＸを合わせてからＬＯＣＡＴＥしなおしてГをＰＲＩＮＴするってワケか！
ワレながら、英語の多いコトバをしゃべっちまったぜ！」
ワレながら、英語の多いコトバをしゃべっちまったぜ！」
ハカセ「英語ついでに言うと、変数ＶＸの「Ｖ」は「動く方向と量」という意味の「ベクター 」のコトじゃな。プログラムではよく使われるコトバじゃが、広義のベクトルと違って……」
神崎「ちょ、ちょっと待って！ センモン的なハナシはいいんじゃないかな。
それより、ボタンが押されてない時にもいったんスペースで消して、同じ場所にもういちどГを書いているよね。これはいいの？」
それより、ボタンが押されてない時にもいったんスペースで消して、同じ場所にもういちどГを書いているよね。これはいいの？」
インテリ「ＲＵＮしてみるとわかるけど、すごいスピードで消しては書いてるから、そう気にはならないね。
でも、それがベストかというとビミョウかな。こう書くのが正しいのかもね。
動かない ）まで飛んで、プレイヤー機をＰＲＩＮＴし直さないことにしたよ。
」
でも、それがベストかというとビミョウかな。こう書くのが正しいのかもね。
0025#. ’－－－ シ゛フ゛ン
0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
0030#. ＩＦ ＶＸ＝＝０ ＴＨＥＮ ＠ＮＯＴＭＯＶＥ
0031#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
0032#. ＰＸ＝ＰＸ＋ＶＸ
0033#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0034#. ’－－－
0035#. ＠ＮＯＴＭＯＶＥ
0036#. ＲＥＴＵＲＮ
ボタンが押されていないときは、イッキにラベル＠ＮＯＴＭＯＶＥ（0026#. ＠ＭＹＳＨＩＰ
0027#. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
0028#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝－１
0029#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
0030#. ＩＦ ＶＸ＝＝０ ＴＨＥＮ ＠ＮＯＴＭＯＶＥ
0031#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
0032#. ＰＸ＝ＰＸ＋ＶＸ
0033#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0034#. ’－－－
0035#. ＠ＮＯＴＭＯＶＥ
0036#. ＲＥＴＵＲＮ
」
ワンパク「コレで動きはバッチリってコトだな。ＲＵＮしてみるゼ！」
ワンパク「チ、チキショー！
画面のハジまで動かしたら、オカシなコトになっちまったぜ！」
画面のハジまで動かしたら、オカシなコトになっちまったぜ！」
神崎「それは、変数ＰＸが画面を飛びこしちゃったのがゲンインかな？」
インテリ「ＰＸが０のときに－１しちゃったり、ＰＸが３１のときに＋１しちゃったり、だね。」
ワンパク「テメーら、もっとわかりやすいコトバでしゃべりヤガレー！ 画面のハジまで行ったら、それよりムコウに動かさないようにすればいいだけじゃねえか！」
インテリ「これはワンパク君の言うとおりだね。ГをＰＲＩＮＴする前に、IF文を２行用意しておこうか。」
0032#. ＰＸ＝ＰＸ＋ＶＸ
0033#. ＩＦ ＰＸ＜０ ＴＨＥＮ ＰＸ＝０
0034#. ＩＦ ＰＸ＞３１ ＴＨＥＮ ＰＸ＝３１
0035#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
0033#. ＩＦ ＰＸ＜０ ＴＨＥＮ ＰＸ＝０
0034#. ＩＦ ＰＸ＞３１ ＴＨＥＮ ＰＸ＝３１
0035#. ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
神崎「これでプレイヤーの動きはモンダイなくなったね。」
ワンパク「コレはコレで、動いてねェプレイヤー機を消しては書いちまってるが……、モトのサンプルプログラムがこうだからシカタねェのか？」
ハカセ「し、しもうたァ━━ッ！」
インテリ「ま、まあそのあたりはコンゴのカダイとして……。
いったん、ココまでのプログラムをまとめておこう。
どういうイミなのか考えながらジッサイに打ち込んでみると、もっとよくワカると思うよ！ モニタの前のみんなもやってみてね！」
いったん、ココまでのプログラムをまとめておこう。
どういうイミなのか考えながらジッサイに打ち込んでみると、もっとよくワカると思うよ！ モニタの前のみんなもやってみてね！」
- キャラクターを動かすには
- たとえばＬＯＣＡＴＥの位置を変数にして、ＢＵＴＴＯＮ（）の入力に合わせてＩＦ文で変数を足したり引いたりすると、動いて見えます。
動く前にいた場所に、空白スペースを上書きして消してやると自然に見えそうですね。
ＬＯＣＡＴＥする場所が画面をはみださないように注意！ - VSYNC命令とアクションゲームの関係
- プログラムを一時停止するＶＳＹＮＣ命令で、スピードを落とせます。早すぎて操作が追いつかない時にはとてもよく使いますね。
