プチコンmkII 初心者講座サンプルプログラム７ (その４)
プログラマーからひとこと
ついにサンプルプログラムを見ていく旅もここで終わりです。RPGなら光とか青空とか出てくるムービーが始まるころですが、まだ今回もサンプルプログラムがゲームとして完成してはいないので、青空がふいにくもって真のラスボスが出てくる場面と言ったほうがいいでしょうか。
そこはどうだっていいですね。
今回はゲーム用語のいわゆる「当たり判定」から始まります。
思えばゲームっぽい話がたくさん出てくるサンプルプログラムでした。
あなたのプログラムのウデもかなり上がったんじゃないでしょうか。
これが終わったら、自分でカンタンなゲームを作ってみるのもいいかもしれません。
いまのは死亡フラグみたいなセリフでしたが、フラグのことも学んだあなたなら、このていどのフラグはFALSEにできるはずです。
当り判定を付けよう
インテリ「いままでのプログラムリストをゼンブまとめてみると、こうだったよね。」
神崎「変数ＥＭＡＸを敵の数に使うようになってるんだね。」
ハカセ「敵の数をいつ変えたくなってもいいワケじゃな。前にもちらっと話したが、変数にできるトコロは変数にしておくのはダイジな心くばりじゃ。」
ワンパク「まだデキてねェところは……ショットが敵に当たったトキ、か。」
インテリ「プログラムでショットが敵に当たるというのは、どういうコトかを考えるとわかるんじゃないかな？」
神崎「うーん、ショットの場所と、敵の場所が重なったとき……かな？」
ワンパク「ショットの場所は変数ＭＸとＭＹだったよな……。敵の場所はＥＸ（Ｉ）とＥＹ（Ｉ）だから……。つまり、こんなカンジか!?
」
0080#. ＩＦ ＭＸ＝＝ＥＸ（Ｉ） ＡＮＤ ＭＹ＝＝ＥＹ（Ｉ） ＴＨＥＮ ＧＯＳＵＢ ＠ＥＯＵＴ
配列変数（Ｉ）をツカッてるから、敵をウゴかすFOR～NEXTの中に入れないとイケねェな。」
CHKCHR()命令
ワシじゃワシじゃ、今回はやたら顔を出すハカセじゃ。ここでは話のナガレ的に出てこなかったが、当たり判定にベンリなＣＨＫＣＨＲ（）という命令があるのを知っておったかな？
このサンプルにはカンケイない話じゃが、カンタンにセツメイしておくぞい。
- CHKCHR()命令
- たとえばＡ＝ＣＨＫＣＨＲ（０，０）と書くと、そのトキ画面の（０，０）のバショにナニが表示されているか変数Ａに入るのじゃ。
（０，０）というのはＬＯＣＡＴＥ命令で使うのと同じヨコ方向とタテ方向の数じゃな。 - 文字コード
- Ａ＝ＣＨＫＣＨＲ（０，０）と書いたトキに変数Ａに入るのは、「
ASCII 文字コード」という数字じゃ。ナンのことかワカらんじゃろうが、ココのいちばん下を見てくれい。左上から順に０、１、２……と数がわりふられているのじゃぞ。今回のサンプルで使っている敵「Е」なら文字コードは６番じゃな。
もし今回のサンプルのように、ショットの場所（ＭＸ，ＭＹ）に敵「Е（文字コード００６）」がいるかどうかチェックしたければ、ＩＦ ＣＨＫＣＨＲ（ＭＸ，ＭＹ）＝＝００６ ＴＨＥＮ～とやればいいワケじゃな。
インテリ「ここまではいい調子じゃないか。敵にショットが当たったコトが分かったら、次は敵がやられるルーチン＠ＥＯＵＴだね。」
神崎「このサンプルだと、ショットが当たった敵はすぐに消えるから、敵を空白スペースで上書きすればいいのかな。
0108#. ＠ＥＯＵＴ
0109#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0110#. ＲＥＴＵＲＮ
」0109#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0110#. ＲＥＴＵＲＮ
ワンパク「タシカにそうだが……ちょっと待てよ。コレだと、次に敵のターンがきたトタンに、消えた敵もまた出てきちまうぜ！」
神崎「そうか、敵を動かすためにいつも書きなおしていたんだっけ。
いちどショットが当たった敵はＰＲＩＮＴしちゃダメってことだなあ。」
いちどショットが当たった敵はＰＲＩＮＴしちゃダメってことだなあ。」
インテリ「これも、いままでの応用でなんとかなるんじゃないかな？」
ワンパク「そうか！ フラグを使うんだな！」
神崎「敵１匹ずつに割りあたってるフラグっていうと、ＥＤ（Ｉ）だね。
」
| ED(I)=0 | 右に動く | X=31になるまでX+1 | @RI |
|---|---|---|---|
| ED(I)=1 | 下におりる | 1回だけY+1 | @DW |
| ED(I)=2 | 左に動く | X=0になるまでX-1 | @LF |
| ED(I)=3 | 下におりる | 1回だけY+1 | @DW |
インテリ「消えたっていうトクベツなフラグだから、数字には－１をあてはめようか。
110行に追加しておこう。
| ED(I)=-1 | 消えた | 表示しない | @EOUT |
|---|
0108#. ＠ＥＯＵＴ
0109#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0110#. ＥＤ（Ｉ）＝－１
0111#. ＲＥＴＵＲＮ
」0109#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0110#. ＥＤ（Ｉ）＝－１
0111#. ＲＥＴＵＲＮ
ワンパク「これでフラグは立ったから、次は敵の表示のトキにそのフラグを調べるのが……えーと、ドコがいいんだ？」
インテリ「Еを書いて消すなら、FORループの中ならどこでもいいとも言えるけど。でもどうせなら、もう表示しないってくらいがいいだろうね。」
神崎「じゃあ、最初の方だね。
」
0072#. ＦＯＲ Ｉ＝０ ＴＯ ＥＭＡＸ－１
0073#. ＩＦ ＥＤ（Ｉ）＝＝－１ ＴＨＥＮ ＠ＰＡＳＳ
#####.
0081#. ＠ＰＡＳＳ
0082#. ＮＥＸＴ
0083#. ＲＥＴＵＲＮ
これでＥＤ（Ｉ）フラグが－１のときは表示もされずに、次の敵まで飛ばされるよ！0073#. ＩＦ ＥＤ（Ｉ）＝＝－１ ＴＨＥＮ ＠ＰＡＳＳ
#####.
0081#. ＠ＰＡＳＳ
0082#. ＮＥＸＴ
0083#. ＲＥＴＵＲＮ
」
ワンパク「待てよ……？ ハハァ、ピンときたぜ！
こうなってくると敵が減れば減るほどごっそりスキップする行が多くなるよな。つまり、敵をタオせばタオすほど、ゲームのスピードが早くなるってワケだな！」
こうなってくると敵が減れば減るほどごっそりスキップする行が多くなるよな。つまり、敵をタオせばタオすほど、ゲームのスピードが早くなるってワケだな！」
ハカセ「ウムウム。どうやらショクンも、プログラムがダイブ身についてきたようじゃな。」
ワンパク「負ける気がしねェゼ！」
ハカセ「じゃが、せっかくならココで、よりコウリツのいいプログラムにチャレンジしてみんかな？」
処理のスキップをおぼえておこう
ワンパク「コウリツときやがったか。プログラムが動けばそれでいいんじゃねェの？」
ハカセ「ム……ム。そういう考えもたしかにアリじゃが。
ひとつにはプログラムの動作スピードが早くなるテクニックなので、オボエておけばアトアト「重い」プログラムを動かすのに助かる、というコトはあるぞい。」
ひとつにはプログラムの動作スピードが早くなるテクニックなので、オボエておけばアトアト「重い」プログラムを動かすのに助かる、というコトはあるぞい。」
神崎「アクションゲームにある「処理落ち」とか、そういうやつ？」
ハカセ「まあそんなトコロじゃな。もうひとつのメリットとしては、プログラムが見やすくなるコトもある、とも言えるのう。」
ワンパク「「見やすくなるコトもある」……？」
ハカセ「逆に見にくくなるコトも、ときにはあるかも……」
神崎「えー……」
ハカセ「ま、まァまァ！ じゃからこそ、シンプルプログラムのイマのうちにオボエておこうという話じゃよ。なに、たいしてムズカしいコトではないぞい。」
インテリ「ハカセが言いたいのは、たぶんこの部分ですね。
0080#. ＩＦ ＭＸ＝＝ＥＸ（Ｉ） ＡＮＤ ＭＹ＝＝ＥＹ（Ｉ） ＴＨＥＮ ＧＯＳＵＢ ＠ＥＯＵＴ
」ハカセ「さすがはインテリ君じゃな。さよう、ソコは「敵がやられたとハッキリ決まったら、やられルーチンに行って帰ってくる。それ以外は普通に進む」となっておる。」
ワンパク「それでフツウじゃねえか？」
ハカセ「しかし、こうすればどうじゃ。
0080#. ＩＦ ＭＸ！＝ＥＸ（Ｉ） ＴＨＥＮ ＠ＰＡＳＳ
0081#. ＩＦ ＭＹ！＝ＥＹ（Ｉ） ＴＨＥＮ ＠ＰＡＳＳ
0082#. ’－－－ シホ゛ウ
0083#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0084#. ＥＤ（Ｉ）＝－１
0085#. ＠ＰＡＳＳ
0086#. ＮＥＸＴ
」0081#. ＩＦ ＭＹ！＝ＥＹ（Ｉ） ＴＨＥＮ ＠ＰＡＳＳ
0082#. ’－－－ シホ゛ウ
0083#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0084#. ＥＤ（Ｉ）＝－１
0085#. ＠ＰＡＳＳ
0086#. ＮＥＸＴ
ワンパク「ン？ ……ンンン？ 83～84行目は、さっき作ったやられたトキのプログラムだよな。
80行目でＭＸ！＝ＥＸ（Ｉ）ってコトは、ショットのヨコ位置と敵のヨコ位置がチガうってコトだろ。ツマリ当たってないから、＠ＰＡＳＳに飛ぶよな。」
80行目でＭＸ！＝ＥＸ（Ｉ）ってコトは、ショットのヨコ位置と敵のヨコ位置がチガうってコトだろ。ツマリ当たってないから、＠ＰＡＳＳに飛ぶよな。」
神崎「81行目のＭＹ！＝ＥＹ（Ｉ）もタテ位置になっただけで、同じことだね。
そのどっちでもないって時は、かならずショットが当たっているって言えるから、そのままやられたことになる……」
そのどっちでもないって時は、かならずショットが当たっているって言えるから、そのままやられたことになる……」
ハカセ「さよう。もともとのＭＸ＝＝ＥＸ（Ｉ） ＡＮＤ ＭＹ＝＝ＥＹ（Ｉ）という条件式は、ハッキリしとるがそれだけチェックに時間がかかるものじゃ。
新しいプログラムじゃと、カンタンな理由さえあればザクザク切っているのがワカるじゃろう。」
新しいプログラムじゃと、カンタンな理由さえあればザクザク切っているのがワカるじゃろう。」
インテリ「やってるコトも、ＧＯＴＯで飛ぶだけだしね。
それに、まだ敵のやられチェックをカンタンにする方法は残っているよ。
」
それに、まだ敵のやられチェックをカンタンにする方法は残っているよ。
」
ワンパク「ツマリ今は「敵がゼッタイにやられてない」条件をサガせばいいってコトか？ ……やられてないトキ……逆に言えば、やられるのはショットが当たったトキだけ……よし！ ゼンゼンわからねえ！」
神崎「ものすごくあきらめちゃったけど、たぶん「ショットが画面に出ていない間は、敵はやられない」と言えるんじゃないかな。」
インテリ「ソコだね！ ショットは変数ＭＳＴで表示フラグをカンリしていたから……あとはカンタンだよね。
0080#. ＩＦ ＭＳＴ＝＝ＦＡＬＳＥ ＴＨＥＮ ＠ＰＡＳＳ
」ワンパク「ナルホドな。言われてみりゃ、そのとおりだぜ。……てことは、何も言われずにコレいきなり見たら、どういうイミなのかワカりづらくねェか？
スナオにＩＦ ＭＸ＝＝ＥＸ（Ｉ） ＡＮＤ ＭＹ＝＝ＥＹ（Ｉ）って書いてあった方がカンタンじゃねえの？」
スナオにＩＦ ＭＸ＝＝ＥＸ（Ｉ） ＡＮＤ ＭＹ＝＝ＥＹ（Ｉ）って書いてあった方がカンタンじゃねえの？」
ハカセ「ぜんぶヒテイされてもうたが……そのキモチも、ワカらんでもないわい。スピードを気にせんでいい初心者のコロなら、ムリしてまでやるコトではないのはタシカじゃ。」
インテリ「でも、人のプログラムリストを見るときに「どうしてこんな書き方を？」ってギモンはなくなるんじゃないかな。こういうプログラムの書き方があると知っておくのはムダじゃないよ。」
ハカセ「ナイスフォローじゃ、インテリ君！
プログラムの書き方にはヒトそれぞれイロイロなポリシーがあるものじゃが、そういう考え方を知っておくのもひとつのベンキョウじゃぞ。」
プログラムの書き方にはヒトそれぞれイロイロなポリシーがあるものじゃが、そういう考え方を知っておくのもひとつのベンキョウじゃぞ。」
ワンパク「ベンキョウってヒビキは気にくわねェが……ツギからこういうスキップのしかたを見てもナットクできるのはタシカか。」
当たり処理の仕上げをしよう
神崎「あれ？ このプログラムＲＵＮしてみると、ときどきショット１発で何匹も倒せることがあるよ。」
ワンパク「ホントだな。こりゃアレだぜ、パワーアップとかによくある「カンツウダン」の動きになってるな！」
インテリ「「貫通弾」だね。シューティングゲームだと、敵に当たったらそこでショットは消える方がオーソドックスかな？ このゲームならそうしないとカンタンすぎるしね。」
神崎「ええと、敵に当たったらすぐにショットを消すわけだ。
さっきもやったけどショットの表示フラグは変数ＭＳＴだったね。
さっきもやったけどショットの表示フラグは変数ＭＳＴだったね。
0083#. ’－－－ シホ゛ウ
0084#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0085#. ＥＤ（Ｉ）＝－１
0086#. ＭＳＴ＝ＦＡＬＳＥ
」0084#. ＬＯＣＡＴＥ ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ” ”
0085#. ＥＤ（Ｉ）＝－１
0086#. ＭＳＴ＝ＦＡＬＳＥ
ワンパク「１行ふやしただけか。イガイにアッサリいくんだな。」
インテリ「フラグはうまく使うと、いろいろラクになるものさ。」
神崎「あとは、敵を倒したらスコアも上げないとね。」
ワンパク「コレはそうムズカしくなさそうな気がするぜ。
とりあえず、サイショに画面の上の方に出しておくんだろ？
」
とりあえず、サイショに画面の上の方に出しておくんだろ？
0026#. ＬＯＣＡＴＥ ０，０
0027#. ＰＲＩＮＴ”ＳＣＯＲＥ： ”；ＳＣ
変数ＳＣをスコアってことにしておいたぜ。0027#. ＰＲＩＮＴ”ＳＣＯＲＥ： ”；ＳＣ
」
神崎「そして、敵がやられた時に10点プラスすれば完成かな。
0085#. ’－－－ シホ゛ウ
0086#. ＳＣ＝ＳＣ＋１０
0087#. ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
」0086#. ＳＣ＝ＳＣ＋１０
0087#. ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
ハカセ「うむ、それで合っておる。合っておるのじゃが……。」
ワンパク「ナンだ？ ＲＵＮしても、ナニもモンダイはなさそうだぜ？」
ハカセ「しかし、ワシとしてはこういうプログラムをテイアンしたい！
」
0085#. ’－－－ シホ゛ウ
0086#. ＳＶ＝ＳＶ＋１０
#####.
0110#. ＠ＳＣＯＲＥ
0111#. ＩＦ ＳＶ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
0112#. ＳＣ＝ＳＣ＋１０
0113#. ＳＶ＝ＳＶ－１０
0114#. ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
0115#. ＲＥＴＵＲＮ
メインループから＠ＳＣＯＲＥにＧＯＳＵＢすると考えてくれい。0086#. ＳＶ＝ＳＶ＋１０
#####.
0110#. ＠ＳＣＯＲＥ
0111#. ＩＦ ＳＶ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
0112#. ＳＣ＝ＳＣ＋１０
0113#. ＳＶ＝ＳＶ－１０
0114#. ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
0115#. ＲＥＴＵＲＮ
」
ワンパク「どういうこった？ 敵がやられたトキは、ただ変数ＳＶに10点プラスして終わりかよ？」
神崎「そのあとで、変数ＳＣを変えてＰＲＩＮＴするのはサブルーチン＠ＳＣＯＲＥでやるんだね。そこで変数ＳＶもー１０して、またゼロに戻る……」
ワンパク「イミがワカらねェな！ プログラムが長くなっただけじゃねえか！」
インテリ「先に言っちゃうと、これはＬＯＡＤしたサンプルプログラムだとこうなってるんですよね。」
ハカセ「さよう。なぜワシがこんな一見ムダに見えるプログラムにしたのか、ソコがワカるかの？」
ワンパク「ムググ……サイゴになってイガイなナゾトキだぜ……。どう見てもムダにしか見えねェが……。」
ハカセ「いやジッサイ、このプログラムのままじゃと、ホントにムダなのじゃ。」
ワンパク「バカにしてんのか！」
ハカセ「このサンプルプログラムはユーザーのショクンの手でカンセイさせるためのモノじゃからのう。そこでイミが出てくるように作ってあるのじゃよ。」
神崎「うーん。そうは言っても、どういう時にヤクに立つのか……」
インテリ「こういう何のためにあるのか分からないプログラムは、関係のありそうな数をデタラメでも変えてみると、あんがい目に見えて分かるコトもあるよ。」
ワンパク「というと、たとえば敵がやられたトキのＳＶ＝ＳＶ＋１０をＳＶ＝ＳＶ＋１に変えてみる、とかいうコトか？
ヤミクモにＲＵＮしてやろうじゃねェか！」
ヤミクモにＲＵＮしてやろうじゃねェか！」
インテリ「画面の前のみんなもジッサイに変えてためしてみよう！」
ワンパク「ウ、ウォオ!? 敵を１回撃ったら、スコアが上がりツヅケて止まらねー！」
神崎「そうか……考えてみればこうなるのはトウゼンではあるよね。」
ワンパク「アァ？ ブツブツ……ＳＶが１になってそのアト１０引いてまたモドッて０じゃねェからまた１０……フムフム。そりゃスコアがいつまでも上がりっぱなしにもなるな！」
インテリ「みんなもプログラムの流れを読むと、何が起きたのかだいたいわかるよね！」
ハカセ「わざとデタラメにやっておるのじゃから、おかしな動きになるのはトウゼンじゃな。
しかし、このスコアを見てナニかに気付いたのではないかの？」
しかし、このスコアを見てナニかに気付いたのではないかの？」
ワンパク「いや、ベツに……」
ハカセ「ココまでのナガレがダイナシになるのう……」
神崎「あっ！ スコアが10点ずつアニメーションで増えるように見えるよ！」
ワンパク「そりゃタシカにそう見えるけどよォ……。メインループを１回通るたびに10点増やしてんだからトウゼンじゃ……ハッ!?」
インテリ「いいトコロに気付いたね。ギャクに言えば、メインループを１回通るたびに点を増やすようにすると、アニメーションで点数が増えて見えるワケだ。」
ワンパク「ナゾがとけてきたゼ……こうすりゃハッキリするな。さっきＳＶ＝ＳＶ＋１にしたトコロをＳＶ＝ＳＶ＋１００にしてＲＵＮだ！」
ハカセ「うむ！ 止まった画面ではよくワカらんが、ミゴトに１匹倒すごとに100点が入り、それが10点ずつアニメーションしておる。」
ワンパク「サブルーチン＠ＳＣＯＲＥを通るたびに、変数ＳＶがカラになるまで10点ずつ増えてるからな！ コレはメインループの中でナンドも通ることにイミがあったってワケだ！」
ハカセ「モトモトは、たとえば１匹だけ高得点の敵がいるとして、そいつを倒したときにボーナスっぽく、と作ったブブンだったんじゃが、コレももちろんセイカイじゃぞい。」
ワンパク「まさかサイゴにこんなクイズがノコッてたとはな……。」
インテリ「プログラムをヒトに渡す時は分かりにくい処理にはコメントを付けておくのがキホンだけど、初心者向けのカダイとしては、まあ良かったんじゃないかな。」
ハカセ「ケッキョクそういうアツカイなのかのう……？」
- 当たり判定
- いちばんオーソドックスな当たり判定は、ぶつけるモノの位置とぶつかられるモノの位置を比べることです。ヨコ座標とタテ座標が一致すれば、それは当たっているということになります。
- CHKCHR()命令
- （変数）＝ＣＨＫＣＨＲ（横座標，縦座標）
画面の指定した座標に、何のキャラクターが表示されているかが、文字コードで変数に入ります。
