プチコン3号&BIG 非公式初心者講座 : 第10章 サンプルプログラム4
プログラマーからひとこと
１~３と少しずつやることをふやしてきたサンプルプログラムも、ついにゲームをプログラムするところまで来ました。
ここで出てくるゲームは「数当てゲーム」とか「ハイ・ロー・ゲーム」とか言われる、ものすごく短いゲームプログラムです。
ぶっちゃけそれほどおもしろいゲームじゃないんですが、その短さだけはほめてあげていいと思います。
私もいちばん最初に作ったのがこのゲームでした。何百人ものプログラマーたちが、最初にこのあんまりおもしろくはないけど、とりあえずプログラムが短くて簡単なゲームを作って自信をつけていったものです。
今回はいつもと違って、サンプルプログラムで新しく出てくる命令はほとんどありません。
どうやってゲームを作ればいいのか、そこを楽しんで読んでみてください。
数当てゲームを遊んでみよう
サンプルプログラム４はムカシからつたわるゲーム、数当てゲームじゃ。ためしに遊んでみるとよかろう。
- ＬＯＡＤ”ＳＹＳ／ＥＸ４ＮＵＭＧＡＭＥ”
- ＲＵＮ
- Ж：ニコチャンが かんがえた、
- ０―９９までの すうじを あててください
-
- ０―９９までの すうじは？
１~100じゃなく０~99ってあたり、さっきオボエたコトがなんとなくカブってくるぜ！ さては＋１するのをサボりやがったな？
う、ウム。遊んだだけでBASICのクセからプログラムをスイリできるとは、ワンパク君もなかなかプログラムがワカってきたのう。よいコトじゃぞい。
なんだかゴマかされた気もするが……とにかく数字を打つゼ！ ６６なんてどうだ？
- Ж：ＨＩＮＴ（ちいさいよ）
アァ？ ハズれたってことか！
ヒント（HINT）っていうのは、ワンパク君の６６がЖの考えた数字よりも小さいってことだね。
正解は66より大きい数……つまり、67~99のうちどれかってコトさ。一気にしぼりこめたね。
メンドくせーコトはヌキでいくぜ！ ザックリ８０でどうだ！
- Ж：ＨＩＮＴ（おおきいです）
ということは、正解は80よりもっと小さい……
あわせて考えれば、67~79のうちどれかだね！
となると、オレのカンが７２とつげているゼ！
……というカンジで、数字をしぼっていくのじゃな。３人のアツいプレーはちょっと飛ばすぞい。
- Ж：あたり！！！！
イェー！ ７手目で当たりが出たぜ！
タンジュンだけど、ロンリ的と言えなくもないゲームだね。攻略法はすぐに見つかってあとは作業になるけど、ミスをへらすのはそれなりに楽しいんじゃないかな。
インテリ君、キミのコトバはあたってるだけにグサグサくるぞい……
BGMPLAY命令、BGMSTOP命令
それじゃあプログラムを見てみようか。はじめに表示されるメッセージまでは、もうプログラムをお手本にしないでも自分で書けるくらいだよね。
- ’┌──────────┐
- ’│ ＥＸＡＭＰＬＥ４ │
- ’│ かずあてゲーム │
- ’└──────────┘
- ＸＳＣＲＥＥＮ ０
- ＶＩＳＩＢＬＥ １，１，１，１
- ＣＬＳ
- ＣＯＬＯＲ １５
- ＰＲＩＮＴ”┌───────┐”
- ＰＲＩＮＴ”│かずあてゲーム│”
- ＰＲＩＮＴ”└───────┘”
- ＰＲＩＮＴ”Ж：ニコチャンが かんがえた”
- ＰＲＩＮＴ”０―９９までの すうじを あててください”
さらっと飛ばしやがったが、たしかに’(REM)文だのＰＲＩＮＴだの、いつものヤツってところだな。
フム、ＣＬＳじゃのＣＯＬＯＲ １５じゃの、プログラムをまっさらにしている部分のことじゃの。こういうのはプログラムでは「初期化」と言うのじゃが……
ハナシがなげェぜ！ つまりコレもプログラムのジュンビってコトだな？
すっかりオナジミすぎて、シンセンミがたりねェな！
じゃあ、せっかくだから新しいことをしようか。ためしに、こう書きかえてみよう。
- ＣＬＳ：ＢＧＭＰＬＡＹ １
サッソク新しいのが出てきやがった……ヤッカイなヨカンがするぜ。
そんなにムズカシくはないよ。そのままＲＵＮしてごらん。
あれ!? 音楽が鳴りはじめたよ！
ＢＧＭＰＬＡＹの「BGM」はわかるよね。あえて言えば「バックグランドミュージック」、つまりこういう後ろでかかってる音楽のことだけど……
ガキあつかいのセツメイはゴメンだぜ！ だが、「PLAY」はサッパリわからねーな！
わからないんだ。
プレイ (PLAY) と読めばわかるんじゃないかな。オーディオプレイヤーにも「再生」ボタンにPLAYと書いてあったりするよね。
そもそもオーディオプレイヤーってコトバに「プレイ」って入ってるじゃねーか！ つまり、ＢＧＭＰＬＡＹはBGMを鳴らす命令ってワケか？
そういうコト！ プチコンにはＢＧＭＰＬＡＹ ０~ＢＧＭＰＬＡＹ ４２までの43曲が入っているよ。
どんな曲があるかは、画面の下にある 
SMILE(スマイル)ボタンを押してスマイルツールを起動して、画面下のほうのBGMと書かれたボタンを押してみてね。
このプログラムで数字を変えてＲＵＮしてもスグに曲がきけるね。
それはいいが、オイちょっと待てよ？ コレ曲が止まらねェぞ！ マズいじゃねェか！
BGMだから、ループして終わらない曲も多いんだね。
そこで使うのがＢＧＭＳＴＯＰ命令！ これでＢＧＭＰＬＡＹした曲がスグに止まるんだ。
せっかくじゃから、今回はプログラムをちょっと書きかえて、ゲーム中にBGMをかけるようにしてみようかの。
- ＣＬＳ：ＢＧＭＰＬＡＹ １
- ＢＧＭＳＴＯＰ：ＥＮＤ
ゲームのおわりと同時にBGMも止まるようにしておいたぞい。
これをＥＮＤ：ＢＧＭＳＴＯＰと書いちゃうと、BGMを止める前にプログラムが終わっちゃうから気をつけてね！
条件式のANDとOR
セイカイの数字を決めるのは17行目だな。
- ＡＮＳ＝ＲＮＤ（１００）
変数ＡＮＳに０~99までのどれかを入れる。ナニもムズカシいことはねェぜ！
そのあとはいよいよプログラムの中心部だね。
- ＠ＲＥＴＲＹ
- ＰＲＩＮＴ””
- ＩＮＰＵＴ”Ж：０―９９までの すうじは”；ＮＯ
- ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＧＯＴＯ ＠ＲＥＴＲＹ
- ＩＦ ＮＯ＝＝ＡＮＳ ＧＯＴＯ ＠ＢＩＮＧＯ
- ＩＦ ＮＯ＜ＡＮＳ ＧＯＴＯ ＠ＳＭＡＬＬ
ラベルがあって、１行あけて、変数ＮＯに数字を入力させて……22行目まではカンタンだね。
だが23行目のIF文の使い方は見たことがねェぜ、また新しい書き方かよチキショー！
ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＧＯＴＯという使い方だね。
この行を２つに分けて考えてみようか。
ＩＦ ＮＯ＜０ ＧＯＴＯ ＠ＲＥＴＲＹや、ＩＦ ＮＯ＞９９ ＧＯＴＯ ＠ＲＥＴＲＹと書かれればイミはわかるよね。
ただのIF文じゃねえか、ラクショーだぜ！ 「もしも変数ＮＯのナカミが０より小さければ」「もしも変数ＮＯのナカミが９９より大きければ」どっちでもラベル＠ＲＥＴＲＹに行くってコトだろ？
モンダイは間に入っていたＯＲだね。
それがカンタンなのさ。ＩＦ ＮＯ＜０ ＯＲ ＮＯ＞９９ ＴＨＥＮ ＠ＲＥＴＲＹと書いたら、それは「もしも変数ＮＯのナカミが０より小さければ」「もしも変数ＮＯのナカミが９９より大きければ」どっちでもラベル＠ＲＥＴＲＹに行くってコトなんだからね。
そりゃオレの言ったこととソックリ同じじゃねェか！……ハッ!?
わかってきたかな。「OR」というのは英語で「または」ってこと。「ＩＦ ~ ＯＲ ~ ＴＨＥＮ」は「もしも~または~ならば」というイミになるね。
23行目で言えば「もしもＮＯ＜０またはＮＯ＞９９ならば＠ＲＥＴＲＹに行く」ってコトだな。
０より小さくても９９より多くても、ゲームには関係ない数字だから＠ＲＥＴＲＹに帰ってやりなおすんだね。そうか、前にやった「例外処理」だね！
ウム。まあ１０００と入力されてもゲームが止まるワケではないが、ルールでは０~99の数字でやりくりすることになっておるからこうしとるワケじゃな。
サンプルでは使ってないけど、「ＩＦ ~ ＡＮＤ ~ ＴＨＥＮ」という使い方もあるんだよ。「AND」はもうわかるよね。つまり……
「もしも~で、さらに~ならば」ってトコロだな！ コトバどおりだぜ、ワカりやすいじゃねェか！
どうやらバッチリのようじゃな。IF文のORとANDは使いこなせばなかなかベンリじゃぞい。
ジツはこの２つは「論理積」「論理和」と言って、もっとオクのフカい使い方もあるのじゃが……さすがにムズカシすぎるのでいまは考えんでよかろう。
残りの行はこれまでのおさらいでわかるね。
- ＩＦ ＮＯ＝＝ＡＮＳ ＧＯＴＯ ＠ＢＩＮＧＯ
- ＩＦ ＮＯ＜ＡＮＳ ＧＯＴＯ ＠ＳＭＡＬＬ
24行目の入力された変数ＮＯと答の変数ＡＮＳが同じってコトは、正解したってコトだね。この先にあるラベル＠ＢＩＮＧＯに行くんだ。
25行目は入力された変数ＮＯが答の変数ＡＮＳより小せえトキ……ま、そのマンマじゃねェの？ ラベル＠ＳＭＡＬＬに行く、と。
どちらの条件も数当てゲームのキホンじゃな。
あれ？ でも、答に当たった時と、答より小さい時……まだ「答より大きい時」のIF文がないよ!?
ほっほっほ。これも例外処理のトキにオボエたやり方じゃぞい。
答に当たった時はラベル＠ＢＩＮＧＯに行く。答より小さければラベル＠ＳＭＡＬＬに行く。……もし、変数ＮＯが答より大きかったら、どっちのラベルにも行かないハズじゃな？
そのままプログラムの先に行くと……あっ！
さよう。その２つの条件をすり抜けたということは、変数ＮＯは答より大きいに決まっておる。じゃから、IF文を使うまでもなく、そのまま27行の＠ＢＩＧまで進んでいいのじゃよ。
３つのサブルーチン
27~30行までは、入力された数が答より大きかった時のプログラムだね。
- ＠ＢＩＧ
- ＢＥＥＰ ４
- ＰＲＩＮＴ”Ж：ＨＩＮＴ（おおきいです）”
- ＧＯＴＯ ＠ＲＥＴＲＹ
ムズカシイことは何もなさそうだね。音を鳴らして、文字を書いて、また入力のためにラベル＠ＲＥＴＲＹに戻る……。
うむうむ。さすがにここまで来ると、みんなよくワカってきたようじゃな。
32~35行目もほとんど同じだな！
- ＠ＳＭＡＬＬ
- ＢＥＥＰ ６
- ＰＲＩＮＴ”Ж：ＨＩＮＴ（ちいさいよ）”
- ＧＯＴＯ ＠ＲＥＴＲＹ
入力された数が答より小さいトキはこうするってダケだぜ！
もう気がついてると思うけど、ラベルの名前に使ってる英語は「BIG（大きい）」「SMALL（小さい）」「RETRY（やり直し）」というふうに、ナカミをあらわしてるんだ。
ラベルの名前はわかりやすいのがイチバンじゃな。
ところで32~35行はラベル＠ＳＭＡＬＬに飛んできて、ひととおり動いたらまた＠ＲＥＴＲＹに帰るワケじゃが、こういう行って帰ってくる小さなプログラムのブロックを「サブルーチン」と呼ぶのじゃぞ。豆チシキじゃ。
チッ！ ただでさえイロイロつめこんでるサイチュウなのに、いらねえチシキまでふやされちゃタマらねーぜ！
まあまあ。サブルーチンの考え方は、プログラムにはダイジなものさ。これからも出てくるセンモン用語だから、オボエておいてソンはないよ。
ルーチンは日本語で「きまりきった仕事」という意味になるけど、コンピューター用語では「ひと通りのきまった処理」ってところかな。
「処理」ってコトバがスデにセンモン用語っぽいが……ヨウするに「コンピューターにやらせるコト」は全部ショリか。
37行から終わりまでは、どこかに帰るワケじゃないけど、小さなブロックだからサブルーチンと言っていいのかな？
- ＠ＢＩＮＧＯ
- ＢＥＥＰ ３４
- ＰＲＩＮＴ ”Ж：あたり！！！！”
- ＰＲＩＮＴ ”ＰＵＳＨ Ａ ＢＵＴＴＯＮ”
- ＷＨＩＬＥ （ＢＵＴＴＯＮ（）！＝１６）
- ＶＳＹＮＣ １
- ＷＥＮＤ
- ＢＧＭＳＴＯＰ：ＥＮＤ
「BINGO（ビンゴ・当たり）」っていうラベル名どおり、当たった時のプログラムだよね。
ちなみに41~43行目に見慣れない命令があるけど、ここではＡボタンを押すまでループして進まないようにしているんだ。でもここは、いきなりプログラムが終わらないようにアトからつけたした部分なので、今は説明をとばすよ。
まあ「行って帰る」のがサブルーチンとは言ったが、あまりムズカシく考えず、これもサブルーチンのひとつでいいじゃろうな。
＠ＢＩＧも「行って帰る」の「行って」があるかというとビミョウじゃが、これもサブルーチンではあるしのう。
ザックリしすぎて、ワカるようなワカんねえようなハナシだぜェ……。
こういうのはフンイキでおぼえておけばＯＫ！ もう少しあとでサブルーチンがクローズアップされるから、その時まではザックリでいこうね。
もうひとくふう
さて、ここまででサンプルプログラムがどう書かれているかはゼンブ見おわったかのう。
RND命令で決めた答を、INPUT文で当てさせるのが中心でしたね。
当たったかどうかはIF~THEN文でしらべて……
デカいか、小せえか、当たったか、サブルーチンでケッカを出すってワケだ。
けっこうタンジュンじゃねえの？
ここまで来たショクンなら、そうじゃろう。思えばズイブン成長したものじゃわい。
このさいじゃから、ひとつテストを出してみようかの。
テ、テスト!?
このゲームは少ない回数で答にたどりつくほどエラいわけじゃが、「何回使ってクリアしたか」が表示されておらん。つまりはスコアじゃな。そこで、ゲームクリアしたら「何回使ってクリアしたか」表示するようにしてもらおうかの。
つ、つまりゲームとしておもしろくするためのクフウってヤツか。そういうコトならノゾむところだゼ！
（わりとタンジュンだなあ……）
１回答えるたびに数字がふえていく、つまり数字がヘンカしていく……ということは、何を使えばいいかもうわかるね。
オウ！ 変数のデバンってワケだな！
とりあえず、変数名はＳＣＯＲＥ（スコア）でいいかな。
ウッカリ「スコレ」と読みそうなことをのぞけば、わかりやすいぜ。
う、うん。とりあえず、スコアを書くところだけやっておこうか。
- ＰＲＩＮＴ ”Ж：あたり！！！！”
- ＰＲＩＮＴ ＳＣＯＲＥ；”かい で クリア”
- ＰＲＩＮＴ ”ＰＵＳＨ Ａ ＢＵＴＴＯＮ”
いまの40行をひとつ下にずらして、その上に書いておいたよ。
まだトチュウだが、このままクリアするとどうなるんだ？
- ＲＵＮ
ワンパク君、なかなかサエておるな。カンセイするまで待たずに、ちょっとずつテストしてみるのもプログラムにはダイジじゃぞ。
- Ж：あたり！！！！
- ０かい で クリア
- ＰＵＳＨ Ａ ＢＵＴＴＯＮ
- ＯＫ
ウォオー！ ハイスコアをたたき出しちまったぜ！ スゲエ！
……どんだけテンネンなのじゃ。アキラカにそのケッカはおかしいぞい。
そういえば変数は、なにもしないままだとゼロになるんだったね。じゃあ、ダイジな「１回答えるたびに１増える」プログラムを足していこう。
プレイヤーが答えるというと、この行だね。
- ＩＮＰＵＴ”０―９９までの すうじは”；ＮＯ
そうだね。このあとに変数ＳＣＯＲＥを１ふやすことにしよう！
いまゼロの変数を１にふやす……ツマリＳＣＯＲＥ＝１……か？
……それだと、２にふやすことができないんじゃないかな。
この方法はサンプルプログラム３で出てきたね。ＳＣＯＲＥ＝ＳＣＯＲＥ＋１と書けば、１ずつふえていくハズだよ。
- ＠ＲＥＴＲＹ
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋１
- ＰＲＩＮＴ””
お、オウ。オレとしたコトが、ウッカリしていたぜ。
とにかく、コレでスコアが出るようになったハズだゼ！
- ＲＵＮ
フフフ。それはどうじゃろうな？
ナニをキショク悪いワラい方してやがる……。見やがれ、うまく動いてるゼ！
- Ж：あたり！！！！
- ７かい で クリア
- ＰＵＳＨ Ａ ＢＵＴＴＯＮ
- ＯＫ
ショクンもなかなかやるのう。よし、ではいよいよサイゴのモンダイじゃ。
いまは、クリアするとすぐにプログラムが終了するのじゃが、そのままもう一度プレイできるようにしてもらおうかのう。
まったく、しつけえジジイだぜ！ そんなモンダイ、インテリにかかればあっというまにオワリだぜ！
けっきょくインテリ君にたよるんだね。
……じゃあ、はじめに画面を消す前のところにラベル＠ＳＴＡＲＴをおいて、クリアしたあと、ＧＯＴＯ命令で戻るようにしてみようか。
- ＶＩＳＩＢＬＥ １，１，１，１
- ＠ＳＴＡＲＴ
- ＣＬＳ：ＢＧＭＰＬＡＹ １
- ＷＥＮＤ
- ＧＯＴＯ ＠ＳＴＡＲＴ
- ’ＢＧＭＳＴＯＰ：ＥＮＤ
はじめとおわりにこの２行を追加してね。おわりのＥＮＤはどうせ通らないけど、ややこしいのでコメントにしておいたよ。
- ＲＵＮ
ウォー！ これでレンゾクでプレイできるぜ！
- Ж：あたり！！！！
- ７かい で クリア
- ＰＵＳＨ Ａ ＢＵＴＴＯＮ
Ａボタンを押すと、プログラムが終わらずにもう一度あそべるようになったね。
うん。そこまではモンダイないんだけど……
……あっ！ そうか！
なんのハナシだ？ もう１回やっても……オ、オォ!?
- Ж：あたり！！！！
- １５かい で クリア
- ＰＵＳＨ Ａ ＢＵＴＴＯＮ
やっぱり。
な、なぜだ！ いまオレはタシカに８回でクリアしたハズだぜ！ サスガに15回もかけるほどねぼけちゃいねえ！
アリガチなシッパイじゃったな。変数はプログラムをＲＵＮしたときにゼンブ消えるが、ＧＯＴＯ命令ではじめにもどるだけでは、前のままなのじゃよ。
……つまり、最初にクリアした７回からまた数えはじめて、１ずつプラスしちまってたのか……。 だが、ゲンインがワカればコワくねえゼ！ ゲームを始めるたびにリセットすりゃいいんだろ？
- ＡＮＳ＝ＲＮＤ（１００）
- ＳＣＯＲＥ＝０
ゲームが始まるマエにこう書いとけば、カイケツだゼ！
ワンパク君……！ イガイにもセイカイじゃぞ！ これでテストはクリアーじゃ。
ヨッシャー！
プログラムをただしく動かすのも、なかなかタイヘンだったろう。
みんなも聞いたことがあると思うけど、こういったシッパイは「バグ」っていうんだ。バグのタイヘンさは、プログラムを書いてみないと、なかなかジッカンできないものだよね。
そんなの、オレのパンクスピリットにかかればどうってことねェぜ！ ヘイカモーン！
このテストをといてくれたのはほとんどインテリ君じゃったけどな……。
今回のまとめ
BGMPLAY命令、BGMSTOP命令
- ＢＧＭＰＬＡＹ （曲番号）
０~29の音楽を鳴らします。
- ＢＧＭＳＴＯＰ
BGMPLAY命令で再生している音楽を止めます。
条件式のANDとOR
- ＩＦ （条件式） ＯＲ （条件式） ＴＨＥＮ （命令）
条件式のどちらかが一致していれば命令を実行します。
- ＩＦ （条件式） ＡＮＤ （条件式） ＴＨＥＮ （命令）
全部の条件式が一致したときだけ命令を実行します。
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.441 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:14 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30