サンプルプログラム７ (その４)
プログラマーからひとこと
ついにサンプルプログラムを見ていく旅もここで終わりです。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()命令
- （変数）＝ＣＨＫＣＨＲ（横座標，縦座標）
画面の指定した座標に、何のキャラクターが表示されているかが、ASCII文字コードで変数に入ります。