サンプルプログラム４
プログラマーからひとこと
１～３と少しずつやることをふやしてきたサンプルプログラムも、ついにゲームをプログラムするところまで来ました。ここで出てくるゲームは「数当てゲーム」とか「ハイ・ロー・ゲーム」とか言われる、ものすごく短いゲームプログラムです。
ぶっちゃけそれほどおもしろいゲームじゃないんですが、その短さだけはほめてあげていいと思います。
私もいちばん最初に作ったのがこのゲームでした。何百人ものプログラマーたちが、最初にこのあんまりおもしろくはないけど、とりあえずプログラムが短くて簡単なゲームを作って自信をつけていったものです。
今回はいつもと違って、サンプルプログラムで新しく出てくる命令はほとんどありません。
どうやってゲームを作ればいいのか、そこを楽しんで読んでみてください。
数当てゲームを遊んでみよう
サンプルプログラム４はムカシからつたわるゲーム、数当てゲームじゃ。ためしに遊んでみるとよかろう。
ＬＯＡＤ”ＳＡＭＰＬＥ４”
ＲＵＮ
ＲＵＮ
ニコチャンЖカ゛カンカ゛エタ、
０―９９マテ゛ノ スウシ゛ヲ アテテクタ゛サイ
Ж：０―９９マテ゛ノスウシ゛ハ？
０―９９マテ゛ノ スウシ゛ヲ アテテクタ゛サイ
Ж：０―９９マテ゛ノスウシ゛ハ？
１～100じゃなく０～99ってあたり、さっきオボエたコトがなんとなくカブってくるぜ！ さては＋１するのをサボりやがったな？
う、ウム。遊んだだけでBASICのクセからプログラムをスイリできるとは、ワンパク君もなかなかプログラムがワカってきたのう。よいコトじゃぞい。
なんだかゴマかされた気もするが……とにかく数字を打つゼ！ ６６なんてどうだ？
Ж：ＨＩＮＴ（チイサイヨ）
アァ？ ハズれたってことか！
正解は66より大きい数……つまり、67～99のうちどれかってコトさ。一気にしぼりこめたね。
メンドくせーコトはヌキでいくぜ！ ザックリ８０でどうだ！
Ж：ＨＩＮＴ（オオキイテ゛ス）
ということは、正解は80よりもっと小さい……
あわせて考えれば、67～79のうちどれかだね！
となると、オレのカンが７２とつげているゼ！
……というカンジで、数字をしぼっていくのじゃな。３人のアツいプレーはちょっと飛ばすぞい。
Ж：アタリ！！！！
イェー！ ７手目で当たりが出たぜ！
タンジュンだけど、ロンリ的と言えなくもないゲームだね。攻略法はすぐに見つかってあとは作業になるけど、ミスをへらすのはそれなりに楽しいんじゃないかな。
インテリ君、キミのコトバはあたってるだけにグサグサくるぞい……
BGMPLAY命令、BGMSTOP命令
それじゃあプログラムを見てみようか。はじめに表示されるメッセージまでは、もうプログラムをお手本にしないでも自分で書けるくらいだよね。
0001#. ’┌───────────┐
0002#. ’│ＳＡＭＰＬＥ４ │
0003#. ’│ カス゛アテケ゛－ム │
0004#. ’└───────────┘
0005#. ＶＩＳＩＢＬＥ １，１，０，０，０，０
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＳＴＯＰ
0007#. ＰＲＩＮＴ”┌─────────┐”
0008#. ＰＲＩＮＴ”│カス゛アテケ゛－ム│”
0009#. ＰＲＩＮＴ”└─────────┘”
0010#. ＰＲＩＮＴ”ニコチャンЖカ゛カンカ゛エタ、”
0011#. ＰＲＩＮＴ”０―９９マテ゛ノ スウシ゛ヲ アテテクタ゛サイ”
0002#. ’│ＳＡＭＰＬＥ４ │
0003#. ’│ カス゛アテケ゛－ム │
0004#. ’└───────────┘
0005#. ＶＩＳＩＢＬＥ １，１，０，０，０，０
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＳＴＯＰ
0007#. ＰＲＩＮＴ”┌─────────┐”
0008#. ＰＲＩＮＴ”│カス゛アテケ゛－ム│”
0009#. ＰＲＩＮＴ”└─────────┘”
0010#. ＰＲＩＮＴ”ニコチャンЖカ゛カンカ゛エタ、”
0011#. ＰＲＩＮＴ”０―９９マテ゛ノ スウシ゛ヲ アテテクタ゛サイ”
さらっと飛ばしやがったが、たしかに’(REM)文だのＰＲＩＮＴだの、いつものヤツってところだな。
あれ、でも１つだけ新しい命令があるよ。
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＳＴＯＰ
このＢＧＭＳＴＯＰはまだ習ってないよね？フム、ＣＬＳじゃのＣＯＬＯＲ ０じゃの、プログラムをまっさらにしている部分のことじゃの。こういうのはプログラムでは「初期化 」と言うのじゃが……
ハナシがなげェぜ！ つまりコレもプログラムのジュンビってコトだな？
ま、まあそのとおりじゃ。
コレだけだとよくわからないよね。本当はＢＧＭＰＬＡＹという命令とセットで使われる命令なんだ。
また新しいのが出てきやがった……ヤッカイなヨカンがするぜ。
そうムズカシくはないよ。ためしに、こう書きかえてみよう。
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＰＬＡＹ １
あれ!? ＲＵＮしたら音楽が鳴りはじめたよ！
ＢＧＭＰＬＡＹの「BGM」はわかるよね。あえて言えば「バックグランドミュージック 」、つまりこういう後ろでかかってる音楽のことだけど……
ガキあつかいのセツメイはゴメンだぜ！ だが、「PLAY」はサッパリわからねーな！
わからないんだ。
そもそもオーディオプレイヤーってコトバに「プレイ」って入ってるじゃねーか！ つまり、ＢＧＭＰＬＡＹはBGMを鳴らす命令ってワケか？
このプログラムで数字を変えてＲＵＮしてもスグに曲がきけるね。
それはいいが、オイちょっと待てよ？ コレ曲が止まらねェぞ！ マズいじゃねェか！
BGMだから、ループして終わらない曲も多いんだね。
そこで使うのがＢＧＭＳＴＯＰ命令！ これでＢＧＭＰＬＡＹした曲がスグに止まるんだ。
このサンプルプログラムでＢＧＭＳＴＯＰを使っているのは、もしこれより前にＢＧＭＰＬＡＹしていたら止めておく、というシンセツ心じゃな。
せっかくじゃから、今回はプログラムをちょっと書きかえて、ゲーム中にBGMをかけるようにしてみようかの。
せっかくじゃから、今回はプログラムをちょっと書きかえて、ゲーム中にBGMをかけるようにしてみようかの。
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＰＬＡＹ １
0037#. ＢＧＭＳＴＯＰ：ＥＮＤ
ゲームのおわりと同時にBGMも止まるようにしておいたぞい。0037#. ＢＧＭＳＴＯＰ：ＥＮＤ
これをＥＮＤ：ＢＧＭＳＴＯＰと書いちゃうと、BGMを止める前にプログラムが終わっちゃうから気をつけてね！
条件式のANDとOR
セイカイの数字を決めるのは14行目だな。
0013#. ’－－－ Ж：スウシ゛ヲカンカ゛エル
0014#. ＡＮＳ＝ＲＮＤ（１００）
変数ＡＮＳに０～99までのどれかを入れる。ナニもムズカシいことはねェぜ！0014#. ＡＮＳ＝ＲＮＤ（１００）
そのあとはいよいよプログラムの中心部だね。
0017#. ＠ＲＥＴＲＹ
0018#. ＰＲＩＮＴ””
0019#. ＩＮＰＵＴ”Ж：０―９９マテ゛ノスウシ゛ハ”；ＮＯ
0020#. ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹ
0021#. ＩＦ ＮＯ＝＝ＡＮＳ ＴＨＥＮ ＠ＢＩＮＧＯ
0022#. ＩＦ ＮＯ＜ＡＮＳ ＴＨＥＮ ＠ＳＭＡＬＬ
0018#. ＰＲＩＮＴ””
0019#. ＩＮＰＵＴ”Ж：０―９９マテ゛ノスウシ゛ハ”；ＮＯ
0020#. ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹ
0021#. ＩＦ ＮＯ＝＝ＡＮＳ ＴＨＥＮ ＠ＢＩＮＧＯ
0022#. ＩＦ ＮＯ＜ＡＮＳ ＴＨＥＮ ＠ＳＭＡＬＬ
ラベルがあって、１行あけて、変数ＮＯに数字を入力させて……19行目まではカンタンだね。
だが20行目のIF文の使い方は見たことがねェぜ、また新しい書き方かよチキショー！
ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＴＨＥＮという使い方だね。
この行を２つに分けて考えてみようか。
ＩＦ ＮＯ＜０ ＴＨＥＮ ＠ＲＥＴＲＹや、ＩＦ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹと書かれればイミはわかるよね。
この行を２つに分けて考えてみようか。
ＩＦ ＮＯ＜０ ＴＨＥＮ ＠ＲＥＴＲＹや、ＩＦ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹと書かれればイミはわかるよね。
ただのIF文じゃねえか、ラクショーだぜ！ 「もしも変数ＮＯのナカミが０より小さければ」「もしも変数ＮＯのナカミが９９より大きければ」どっちでもラベル＠ＲＥＴＲＹに行くってコトだろ？
モンダイは間に入っていたＯＲだね。
それがカンタンなのさ。ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹと書いたら、それは「もしも変数ＮＯのナカミが０より小さければ」「もしも変数ＮＯのナカミが９９より大きければ」どっちでもラベル＠ＲＥＴＲＹに行くってコトなんだからね。
そりゃオレの言ったこととソックリ同じじゃねェか！……ハッ!?
わかってきたかな。「OR 」というのは英語で「または」ってこと。「ＩＦ ～ ＯＲ ～ ＴＨＥＮ」は「もしも～または～ならば」というイミになるね。
20行目で言えば「もしもＮＯ＜０またはＮＯ＞９９ならば＠ＲＥＴＲＹに行く」ってコトだな。
０より小さくても９９より多くても、ゲームには関係ない数字だから＠ＲＥＴＲＹに帰ってやりなおすんだね。そうか、前にやった「例外処理」だね！
ウム。まあ１０００と入力されてもゲームが止まるワケではないが、ルールでは０～99の数字でやりくりすることになっておるからこうしとるワケじゃな。
サンプルでは使ってないけど、「ＩＦ ～ ＡＮＤ ～ ＴＨＥＮ」という使い方もあるんだよ。「AND 」はもうわかるよね。つまり……
「もしも～で、さらに～ならば」ってトコロだな！ コトバどおりだぜ、ワカりやすいじゃねェか！
どうやらバッチリのようじゃな。IF文のORとANDは使いこなせばなかなかベンリじゃぞい。
ジツはこの２つは「論理積」「論理和」と言って、もっとオクのフカい使い方もあるのじゃが……さすがにムズカシすぎるのでいまは考えんでよかろう。
ジツはこの２つは「論理積」「論理和」と言って、もっとオクのフカい使い方もあるのじゃが……さすがにムズカシすぎるのでいまは考えんでよかろう。
残りの行はこれまでのおさらいでわかるね。
0021#. ＩＦ ＮＯ＝＝ＡＮＳ ＴＨＥＮ ＠ＢＩＮＧＯ
0022#. ＩＦ ＮＯ＜ＡＮＳ ＴＨＥＮ ＠ＳＭＡＬＬ
0022#. ＩＦ ＮＯ＜ＡＮＳ ＴＨＥＮ ＠ＳＭＡＬＬ
21行目の入力された変数ＮＯと答の変数ＡＮＳが同じってコトは、正解したってコトだね。この先にあるラベル＠ＢＩＮＧＯに行くんだ。
22行目は入力された変数ＮＯが答の変数ＡＮＳより小せえトキ……ま、そのマンマじゃねェの？ ラベル＠ＳＭＡＬＬに行く、と。
どちらの条件も数当てゲームのキホンじゃな。
あれ？ でも、答に当たった時と、答より小さい時……まだ「答より大きい時」のIF文がないよ!?
ほっほっほ。これも例外処理のトキにオボエたやり方じゃぞい。
答に当たった時はラベル＠ＢＩＮＧＯに行く。答より小さければラベル＠ＳＭＡＬＬに行く。……もし、変数ＮＯが答より大きかったら、どっちのラベルにも行かないハズじゃな？
答に当たった時はラベル＠ＢＩＮＧＯに行く。答より小さければラベル＠ＳＭＡＬＬに行く。……もし、変数ＮＯが答より大きかったら、どっちのラベルにも行かないハズじゃな？
そのままプログラムの先に行くと……あっ！
さよう。その２つの条件をすり抜けたということは、変数ＮＯは答より大きいに決まっておる。じゃから、IF文を使うまでもなく、そのまま24行まで進んでいいのじゃよ。
３つのサブルーチン
24～27行までは、入力された数が答より大きかった時のプログラムだね。
0024#. ＠ＢＩＧ
0025#. ＢＥＥＰ ４
0026#. ＰＲＩＮＴ”Ж：ＨＩＮＴ（オオキイテ゛ス）”
0027#. ＧＯＴＯ ＠ＲＥＴＲＹ
0025#. ＢＥＥＰ ４
0026#. ＰＲＩＮＴ”Ж：ＨＩＮＴ（オオキイテ゛ス）”
0027#. ＧＯＴＯ ＠ＲＥＴＲＹ
ムズカシイことは何もなさそうだね。音を鳴らして、文字を書いて、また入力のためにラベル＠ＲＥＴＲＹに戻る……。
うむうむ。さすがにここまで来ると、みんなよくワカってきたようじゃな。
29～32行目もほとんど同じだな！
0029#. ＠ＳＭＡＬＬ
0030#. ＢＥＥＰ ６
0031#. ＰＲＩＮＴ”Ж：ＨＩＮＴ（チイサイヨ）”
0032#. ＧＯＴＯ ＠ＲＥＴＲＹ
入力された数が答より小さいトキはこうするってダケだぜ！0030#. ＢＥＥＰ ６
0031#. ＰＲＩＮＴ”Ж：ＨＩＮＴ（チイサイヨ）”
0032#. ＧＯＴＯ ＠ＲＥＴＲＹ
もう気がついてると思うけど、ラベルの名前に使ってる英語は「BIG （大きい）」「SMALL （小さい）」「RETRY （やり直し）」というふうに、ナカミをあらわしてるんだ。
ラベルの名前はわかりやすいのがイチバンじゃな。
ところで29～32行はラベル＠ＳＭＡＬＬに飛んできて、ひととおり動いたらまた＠ＲＥＴＲＹに帰るワケじゃが、こういう行って帰ってくる小さなプログラムのブロックを「サブルーチン」と呼ぶのじゃぞ。豆チシキじゃ。
ところで29～32行はラベル＠ＳＭＡＬＬに飛んできて、ひととおり動いたらまた＠ＲＥＴＲＹに帰るワケじゃが、こういう行って帰ってくる小さなプログラムのブロックを「サブルーチン」と呼ぶのじゃぞ。豆チシキじゃ。
チッ！ ただでさえイロイロつめこんでるサイチュウなのに、いらねえチシキまでふやされちゃタマらねーぜ！
まあまあ。サブルーチンの考え方は、プログラムにはダイジなものさ。これからも出てくるセンモン用語だから、オボエておいてソンはないよ。
ルーチン
「処理 」ってコトバがスデにセンモン用語っぽいが……ヨウするに「コンピューターにやらせるコト」は全部ショリか。
34行から終わりまでの４行は、どこかに帰るワケじゃないけど、小さなブロックだからサブルーチンと言っていいのかな？
BINGO （当たり）」っていうラベル名どおり、当たった時のプログラムだよね。
0034#. ＠ＢＩＮＧＯ
0035#. ＢＥＥＰ ３４
0036#. ＰＲＩＮＴ”Ж：アタリ！！！！”
0037#. ＢＧＭＳＴＯＰ：ＥＮＤ
「0035#. ＢＥＥＰ ３４
0036#. ＰＲＩＮＴ”Ж：アタリ！！！！”
0037#. ＢＧＭＳＴＯＰ：ＥＮＤ
まあ「行って帰る」のがサブルーチンとは言ったが、あまりムズカシく考えず、これもサブルーチンのひとつでいいじゃろうな。
＠ＢＩＧも「行って帰る」の「行って」があるかというとビミョウじゃが、これもサブルーチンではあるしのう。
＠ＢＩＧも「行って帰る」の「行って」があるかというとビミョウじゃが、これもサブルーチンではあるしのう。
ザックリしすぎて、ワカるようなワカんねえようなハナシだぜェ……。
こういうのはフンイキでおぼえておけばＯＫ！ もう少しあとでサブルーチンがクローズアップされるから、その時まではザックリでいこうね。
もうひとくふう
さて、ここまででサンプルプログラムがどう書かれているかはゼンブ見おわったかのう。
RND命令で決めた答を、INPUT文で当てさせるのが中心でしたね。
当たったかどうかはIF～THEN文でしらべて……
デカいか、小せえか、当たったか、サブルーチンでケッカを出すってワケだ。
けっこうタンジュンじゃねえの？
けっこうタンジュンじゃねえの？
ここまで来たショクンなら、そうじゃろう。思えばズイブン成長したものじゃわい。
このさいじゃから、ひとつテストを出してみようかの。
このさいじゃから、ひとつテストを出してみようかの。
テ、テスト!?
このゲームは少ない回数で答にたどりつくほどエラいわけじゃが、「何回使ってクリアしたか」がヒョウジされておらん。そこで、ゲームクリアしたら回数をヒョウジするようにしてもらおうかの。
つ、つまりゲームとしておもしろくするためのクフウってヤツか。そういうコトならノゾむところだゼ！
（わりとタンジュンだなあ……）
１回答えるたびに数字がふえていく、つまり数字がヘンカしていく……ということは、何を使えばいいかもうわかるね。
オウ！ 変数のデバンってワケだな！
とりあえず、変数名はＳＣＯＲＥ（スコア）でいいかな。
ウッカリ「スコレ」と読みそうなことをのぞけば、わかりやすいぜ。
う、うん。とりあえず、スコアを書くところだけやっておこうか。
0037#. ＰＲＩＮＴ ＳＣＯＲＥ；”カイテ゛クリア”
0038#. ＢＧＭＳＴＯＰ：ＥＮＤ
いまの37行をひとつ下にずらして、その上に書いておいたよ。0038#. ＢＧＭＳＴＯＰ：ＥＮＤ
まだトチュウだが、このままクリアするとどうなるんだ？
ＲＵＮ
ワンパク君、なかなかサエておるな。カンセイするまで待たずに、ちょっとずつテストしてみるのもプログラムにはダイジじゃぞ。
Ж：アタリ！！！！
０カイテ゛クリア
ＯＫ
０カイテ゛クリア
ＯＫ
ウォオー！ ハイスコアをたたき出しちまったぜ！ スゲエ！
……どんだけテンネンなのじゃ。アキラカにそのケッカはおかしいぞい。
そういえば変数は、なにもしないままだとゼロになるんだったね。じゃあ、ダイジな「１回答えるたびに１増える」プログラムを足していこう。
プレイヤーが答えるというと、この行だね。
0019#. ＩＮＰＵＴ”Ж：０―９９マテ゛ノスウシ゛ハ”；ＮＯ
そうだね。このあとに変数ＳＣＯＲＥを１ふやすことにしよう！
いまゼロの変数を１にふやす……ツマリＳＣＯＲＥ＝１……か？
……それだと、２にふやすことができないんじゃないかな。
この方法はサンプルプログラム３で出てきたね。ＳＣＯＲＥ＝ＳＣＯＲＥ＋１と書けば、１ずつふえていくハズだよ。
0020#. ＳＣＯＲＥ＝ＳＣＯＲＥ＋１
お、オウ。オレとしたコトが、ウッカリしていたぜ。
とにかく、コレでスコアが出るようになったハズだゼ！
とにかく、コレでスコアが出るようになったハズだゼ！
ＲＵＮ
フフフ。それはどうじゃろうな？
ナニをキショク悪いワラい方してやがる……。見やがれ、うまく動いてるゼ！
Ж：アタリ！！！！
７カイテ゛クリア
ＯＫ
７カイテ゛クリア
ＯＫ
うん。そこまではモンダイないんだけど……
ＲＵＮ
……あっ！ そうか！
なんのハナシだ？ もう１回やっても……オ、オォ!?
Ж：アタリ！！！！
１５カイテ゛クリア
ＯＫ
１５カイテ゛クリア
ＯＫ
な、なぜだ！ いまオレはタシカに８回でクリアしたハズだぜ！ サスガに15回もかけるほどねぼけちゃいねえ！
アリガチなシッパイじゃったな。変数はプログラムがＥＮＤで終わっても、変わらずにプチコンの中にノコっているのじゃよ。
……つまり、最初にクリアした７回からまた数えはじめて、１ずつプラスしちまってたのか……。
だが、ゲンインがワカればコワくねえゼ！ ゲームを始めるたびにリセットすりゃいいんだろ？
だが、ゲンインがワカればコワくねえゼ！ ゲームを始めるたびにリセットすりゃいいんだろ？
0015#. ＳＣＯＲＥ＝０
ゲームが始まるマエにこう書いとけば、カイケツだゼ！ワンパク君……！ イガイにもセイカイじゃぞ！ これでテストはクリアーじゃ。
もっともボクのシュミとしては、プログラムのはじめにＣＬＥＡＲ命令を使って、変数をまるごとリセットする方が好きかな。
0006#. ＣＬＳ：ＣＯＬＯＲ ０：ＢＧＭＰＬＡＹ １：ＣＬＥＡＲ
インテリ君……！ どっちかと言えば、そっちの方がなおセイカイじゃ！
ナットクいかねェー!!
ウーム……。このチョウシでプログラムにまた何か書きたしていくと、変数が増えるたびにリセットの命令を書くのがメンドウじゃからな。ＣＬＥＡＲと１回書いておけば、もうシンパイないというコトじゃ。
チッ……、フロントマンのおカブをウバわれちまったぜ。こうなったらもうブンなぐるしかねェか？
キミのパンクスピリットはかたよってると思うぞい……。
- BGMPLAY命令、BGMSTOP命令
- ＢＧＭＰＬＡＹ （曲番号）
０～29の音楽を鳴らします。
ＢＧＭＳＴＯＰ
BGMPLAY命令で再生している音楽を止めます。 - 条件式のANDとOR
- ＩＦ （条件式） ＯＲ （条件式） ＴＨＥＮ （命令）
条件式のどちらかが一致していれば命令を実行します。
ＩＦ （条件式） ＡＮＤ （条件式） ＴＨＥＮ （命令）
全部の条件式が一致したときだけ命令を実行します。