プチコン3号&BIG 非公式初心者講座 : 第16章 サンプルプログラム7 (その4)
プログラマーからひとこと
ついにサンプルプログラムを見ていく旅もここで終わりです。
RPGなら光とか青空とか出てくるムービーが始まるころですが、まだ今回もサンプルプログラムがゲームとして完成してはいないので、青空がふいにくもって真のラスボスが出てくる場面と言ったほうがいいでしょうか。
そこはどうだっていいですね。
今回はゲーム用語のいわゆる「当たり判定」から始まります。
思えばゲームっぽい話がたくさん出てくるサンプルプログラムでした。
あなたのプログラムのウデもかなり上がったんじゃないでしょうか。
これが終わったら、自分でカンタンなゲームを作ってみるのもいいかもしれません。
いまのは死亡フラグみたいなセリフでしたが、フラグのことも学んだあなたなら、このていどのフラグはFALSEにできるはずです。
敵を出してみよう
いままでのプログラムリストをゼンブまとめてみると、こうだったよね。
| プログラムリスト |
変数ＥＭＡＸを敵の数に使うようになってるんだね。
敵の数をいつ変えたくなってもいいワケじゃな。前にもちらっと話したが、変数にできるトコロは変数にしておくのはダイジな心くばりじゃ。
まだデキてねェところは……ショットが敵に当たったトキ、か。
プログラムでショットが敵に当たるというのは、どういうコトかを考えるとわかるんじゃないかな？
うーん、ショットの場所と、敵の場所が重なったとき……かな？
ショットの場所は変数ＭＸとＭＹだったよな……。敵の場所はＥＸ［Ｉ］とＥＹ［Ｉ］だから……。つまり、こんなカンジか!?
- ＩＦ ＭＸ＝＝ＥＸ［Ｉ］ ＡＮＤ ＭＹ＝＝ＥＹ［Ｉ］ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＯＵＴ
配列変数をツカッてるから、敵をウゴかすFOR~NEXTの中に入れないとイケねェな。
CHKCHR()命令
ワシじゃワシじゃ、今回はやたら顔を出すハカセじゃ。
ここでは話のナガレ的に出てこなかったが、当たり判定にベンリなＣＨＫＣＨＲ（）という命令があるのを知っておったかな？
このサンプルにはカンケイない話じゃが、カンタンにセツメイしておくぞい。
- CHKCHR()命令
- たとえばＡ＝ＣＨＫＣＨＲ（０，０）と書くと、そのトキ画面の（０，０）のバショにナニが表示されているか変数Ａに入るのじゃ。
（０，０）というのはＬＯＣＡＴＥ命令で使うのと同じヨコ方向とタテ方向の数じゃな。
- 文字コード
- Ａ＝ＣＨＫＣＨＲ（０，０）と書いたトキに変数Ａに入るのは、「文字コード」という数字じゃ。ナンのことかワカらんじゃろうが、実はプチコンでは1つ1つの文字に番号がわりふられているのじゃぞ。
- ASC()命令
- 文字コードを調べる命令がASC()じゃ。
()の中に調べたい文字を入れると、その文字のコードがわかるのじゃ。例えば「Е」の文字コードを調べたければダイレクトモードでPRINT ASC(”Е”)と書いて実行すればいいのじゃ。57862と表示されるぞ。 - CHR$()命令
- ASC()とは逆に文字コードから文字を調べる命令がCHR$()じゃ。
例えばPRINT CHR$(57862)を実行すると「Е」が表示されるぞい。
今回のサンプルでは使い道はなさそうじゃが、覚えておいてソンはないじゃろう。
もし今回のサンプルのように、ショットの場所（ＭＸ，ＭＹ）に敵「Е」がいるかどうかチェックしたければ、ＩＦ ＣＨＫＣＨＲ（ＭＸ，ＭＹ）＝＝ＡＳＣ（”Е”） ＴＨＥＮ~とやればいいワケじゃな。
ここまではいい調子じゃないか。敵にショットが当たったコトが分かったら、次は敵がやられるルーチン＠ＥＯＵＴだね。
- ＠ＥＯＵＴ
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＲＥＴＵＲＮ
タシカにそうだが……ちょっと待てよ。コレだと、次に敵のターンがきたトタンに、消えた敵もまた出てきちまうぜ！
そうか、敵を動かすためにいつも書きなおしていたんだっけ。
いちどショットが当たった敵はＰＲＩＮＴしちゃダメってことだなあ。
これも、いままでの応用でなんとかなるんじゃないかな？
そうか！ フラグを使うんだな！
| ED[I]=0 | 右に動く | X=49になるまで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 |
| ED[I]=-1 | 消えた | 表示しない | @EOUT |
|---|
- ＠ＥＯＵＴ
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＥＤ［Ｉ］＝−１
- ＲＥＴＵＲＮ
これでフラグは立ったから、次は敵の表示のトキにそのフラグを調べるのが……えーと、ドコがいいんだ？
Еを書いて消すなら、FORループの中ならどこでもいいとも言えるけど。でもどうせなら、もう表示しないってくらいがいいだろうね。
- ＦＯＲ Ｉ＝０ ＴＯ ＥＭＡＸ−１
- ＩＦ ＥＤ［Ｉ］＝＝−１ ＴＨＥＮ ＠ＰＡＳＳ
- ＠ＰＡＳＳ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
待てよ……？ ハハァ、ピンときたぜ！
こうなってくると敵が減れば減るほどごっそりスキップする行が多くなるよな。つまり、敵をタオせばタオすほど、ゲームのスピードが早くなるってワケだな！
ウムウム。どうやらショクンも、プログラムがダイブ身についてきたようじゃな。
負ける気がしねェゼ！
じゃが、せっかくならココで、よりコウリツのいいプログラムにチャレンジしてみんかな？
処理のスキップをおぼえておこう
コウリツときやがったか。プログラムが動けばそれでいいんじゃねェの？
ム……ム。そういう考えもたしかにアリじゃが。
ひとつにはプログラムの動作スピードが早くなるテクニックなので、オボエておけばアトアト「重い」プログラムを動かすのに助かる、というコトはあるぞい。
アクションゲームにある「処理落ち」とか、そういうやつ？
まあそんなトコロじゃな。もうひとつのメリットとしては、プログラムが見やすくなるコトもある、とも言えるのう。
「見やすくなるコトもある」……？
逆に見にくくなるコトも、ときにはあるかも……
えー……
ま、まァまァ！ じゃからこそ、シンプルプログラムのイマのうちにオボエておこうという話じゃよ。なに、たいしてムズカしいコトではないぞい。
ハカセが言いたいのは、たぶんこの部分ですね。
- ＩＦ ＭＸ＝＝ＥＸ［Ｉ］ ＡＮＤ ＭＹ＝＝ＥＹ［Ｉ］ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＯＵＴ
さすがはインテリ君じゃな。さよう、ソコは「敵がやられたとハッキリ決まったら、やられルーチンに行って帰ってくる。それ以外は普通に進む」となっておる。
それでフツウじゃねえか？
しかし、こうすればどうじゃ。
- ＩＦ ＭＸ！＝ＥＸ［Ｉ］ ＴＨＥＮ ＠ＰＡＳＳ
- ＩＦ ＭＹ！＝ＥＹ［Ｉ］ ＴＨＥＮ ＠ＰＡＳＳ
- ’−−− しぼう
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＥＤ［Ｉ］＝−１
- ＠ＰＡＳＳ
- ＮＥＸＴ
ン？ ……ンンン？ 85~86行目は、さっき作ったやられたトキのプログラムだよな。
82行目でＭＸ！＝ＥＸ[Ｉ]ってコトは、ショットのヨコ位置と敵のヨコ位置がチガうってコトだろ。ツマリ当たってないから、＠ＰＡＳＳに飛ぶよな。
83行目のＭＹ！＝ＥＹ[Ｉ]もタテ位置になっただけで、同じことだね。
そのどっちでもないって時は、かならずショットが当たっているって言えるから、そのままやられたことになる……
さよう。もともとのＭＸ＝＝ＥＸ[Ｉ] ＡＮＤ ＭＹ＝＝ＥＹ[Ｉ]という条件式は、ハッキリしとるがそれだけチェックに時間がかかるものじゃ。
新しいプログラムじゃと、カンタンな理由さえあればザクザク切っているのがワカるじゃろう。
やってるコトも、ＧＯＴＯで飛ぶだけだしね。
それに、まだ敵のやられチェックをカンタンにする方法は残っているよ。
ツマリ今は「敵がゼッタイにやられてない」条件をサガせばいいってコトか？ ……やられてないトキ……逆に言えば、やられるのはショットが当たったトキだけ……よし！ ゼンゼンわからねえ！
ものすごくあきらめちゃったけど、たぶん「ショットが画面に出ていない間は、敵はやられない」と言えるんじゃないかな。
ソコだね！ ショットは変数ＭＳＴで表示フラグをカンリしていたから……あとはカンタンだよね。
- ＩＦ ＭＳＴ＝＝ＦＡＬＳＥ ＴＨＥＮ ＠ＰＡＳＳ
ナルホドな。言われてみりゃ、そのとおりだぜ。……てことは、何も言われずにコレいきなり見たら、どういうイミなのかワカりづらくねェか？
スナオにＩＦ ＭＸ＝＝ＥＸ[Ｉ] ＡＮＤ ＭＹ＝＝ＥＹ[Ｉ]って書いてあった方がカンタンじゃねえの？
ぜんぶヒテイされてもうたが……そのキモチも、ワカらんでもないわい。スピードを気にせんでいい初心者のコロなら、ムリしてまでやるコトではないのはタシカじゃ。
でも、人のプログラムリストを見るときに「どうしてこんな書き方を？」ってギモンはなくなるんじゃないかな。こういうプログラムの書き方があると知っておくのはムダじゃないよ。
ナイスフォローじゃ、インテリ君！
プログラムの書き方にはヒトそれぞれイロイロなポリシーがあるものじゃが、そういう考え方を知っておくのもひとつのベンキョウじゃぞ。
ベンキョウってヒビキは気にくわねェが……ツギからこういうスキップのしかたを見てもナットクできるのはタシカか。
当たり処理の仕上げをしよう
あれ？ このプログラムＲＵＮしてみると、ときどきショット１発で何匹も倒せることがあるよ。
ホントだな。こりゃアレだぜ、パワーアップとかによくある「カンツウダン」の動きになってるな！
「貫通弾」だね。シューティングゲームだと、敵に当たったらそこでショットは消える方がオーソドックスかな？ このゲームならそうしないとカンタンすぎるしね。
ええと、敵に当たったらすぐにショットを消すわけだ。
さっきもやったけどショットの表示フラグは変数ＭＳＴだったね。
- ’−−− しぼう
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＥＤ［Ｉ］＝−１
- ＭＳＴ＝ＦＡＬＳＥ
１行ふやしただけか。イガイにアッサリいくんだな。
フラグはうまく使うと、いろいろラクになるものさ。
あとは、敵を倒したらスコアも上げないとね。
コレはそうムズカしくなさそうな気がするぜ。
とりあえず、サイショに画面の上の方に出しておくんだろ？
- ＬＯＣＡＴＥ ０，０
- ＰＲＩＮＴ”ＳＣＯＲＥ： ”；ＳＣ
変数ＳＣをスコアってことにしておいたぜ。
そして、敵がやられた時に10点プラスすれば完成かな。
- ’−−− しぼう
- ＳＣ＝ＳＣ＋１０
- ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
うむ、それで合っておる。合っておるのじゃが……。
ナンだ？ ＲＵＮしても、ナニもモンダイはなさそうだぜ？
しかし、ワシとしてはこういうプログラムをテイアンしたい！
- ’−−− しぼう
- ＳＶ＝ＳＶ＋１０
- ＠ＳＣＯＲＥ
- ＩＦ ＳＶ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＳＣ＝ＳＣ＋１０
- ＳＶ＝ＳＶ−１０
- ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＳＣ
- ＲＥＴＵＲＮ
メインループから＠ＳＣＯＲＥにＧＯＳＵＢすると考えてくれい。
どういうこった？ 敵がやられたトキは、ただ変数ＳＶに10点プラスして終わりかよ？
そのあとで、変数ＳＣを変えてＰＲＩＮＴするのはサブルーチン＠ＳＣＯＲＥでやるんだね。そこで変数ＳＶもー１０して、またゼロに戻る……
イミがワカらねェな！ プログラムが長くなっただけじゃねえか！
先に言っちゃうと、これはＬＯＡＤしたサンプルプログラムだとこうなってるんですよね。
さよう。なぜワシがこんな一見ムダに見えるプログラムにしたのか、ソコがワカるかの？
ムググ……サイゴになってイガイなナゾトキだぜ……。どう見てもムダにしか見えねェが……。
いやジッサイ、このプログラムのままじゃと、ホントにムダなのじゃ。
バカにしてんのか！
このサンプルプログラムはユーザーのショクンの手でカンセイさせるためのモノじゃからのう。そこでイミが出てくるように作ってあるのじゃよ。
うーん。そうは言っても、どういう時にヤクに立つのか……
こういう何のためにあるのか分からないプログラムは、関係のありそうな数をデタラメでも変えてみると、あんがい目に見えて分かるコトもあるよ。
というと、たとえば敵がやられたトキのＳＶ＝ＳＶ＋１０をＳＶ＝ＳＶ＋１に変えてみる、とかいうコトか？
ヤミクモにＲＵＮしてやろうじゃねェか！
画面の前のみんなもジッサイに変えてためしてみよう！
ウ、ウォオ!? 敵を１回撃ったら、スコアが上がりツヅケて止まらねー！
そうか……考えてみればこうなるのはトウゼンではあるよね。
アァ？ ブツブツ……ＳＶが１になってそのアト１０引いてまたモドッて０じゃねェからまた１０……フムフム。そりゃスコアがいつまでも上がりっぱなしにもなるな！
みんなもプログラムの流れを読むと、何が起きたのかだいたいわかるよね！
わざとデタラメにやっておるのじゃから、おかしな動きになるのはトウゼンじゃな。
しかし、このスコアを見てナニかに気付いたのではないかの？
いや、ベツに……
ココまでのナガレがダイナシになるのう……
あっ！ スコアが10点ずつアニメーションで増えるように見えるよ！
そりゃタシカにそう見えるけどよォ……。メインループを１回通るたびに10点増やしてんだからトウゼンじゃ……ハッ!?
いいトコロに気付いたね。ギャクに言えば、メインループを１回通るたびに点を増やすようにすると、アニメーションで点数が増えて見えるワケだ。
ナゾがとけてきたゼ……こうすりゃハッキリするな。さっきＳＶ＝ＳＶ＋１にしたトコロをＳＶ＝ＳＶ＋１００にしてＲＵＮだ！
うむ！ 止まった画面ではよくワカらんが、ミゴトに１匹倒すごとに100点が入り、それが10点ずつアニメーションしておる。
サブルーチン＠ＳＣＯＲＥを通るたびに、変数ＳＶがカラになるまで10点ずつ増えてるからな！ コレはメインループの中でナンドも通ることにイミがあったってワケだ！
モトモトは、たとえば１匹だけ高得点の敵がいるとして、そいつを倒したときにボーナスっぽく、と作ったブブンだったんじゃが、コレももちろんセイカイじゃぞい。
まさかサイゴにこんなクイズがノコッてたとはな……。
プログラムをヒトに渡す時は分かりにくい処理にはコメントを付けておくのがキホンだけど、初心者向けのカダイとしては、まあ良かったんじゃないかな。
ケッキョクそういうアツカイなのかのう……？
今回のまとめ
- 当たり判定
- いちばんオーソドックスな当たり判定は、ぶつけるモノの位置とぶつかられるモノの位置を比べることです。ヨコ座標とタテ座標が一致すれば、それは当たっているということになります。
- CHKCHR()命令
- 画面の指定した座標に、何のキャラクターが表示されているかが、文字コードで変数に入ります。
- （変数）＝ＣＨＫＣＨＲ（横座標，縦座標）
- ASC()命令
- 入力した文字の文字コードが変数に入ります。
- （変数）＝ＡＳＣ（”文字”）
- CHR$()命令
- 入力した文字コードの文字が変数に入ります。
- （変数）＝ＣＨＲ＄（文字コード）
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.348 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:34 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30