プチコン3号&BIG 非公式初心者講座 : 第13章 サンプルプログラム7 (その1)
プログラマーからひとこと
いよいよサンプルプログラム７、この講座ではこれが最後のサンプルです。
サンプルプログラム５や６はやってませんけど……。
うーん、エピソード１~３を飛ばしてエピソード４からストーリーが始まる的な？
いや、そういうものでもないですね。
サンプル５と６は、「グラフィック面」や「ＢＧ面」といった、これまでとはだいぶ違うものの話になるので、この講座ではいったんおいておきます。
新しくおぼえる命令がドーンと出てくるので、そういうのって思わずくじけちゃいそうじゃないですか。
それよりは先にスパッとアクションゲームを作ってしまいましょう。
そうです、そういえばサンプルプログラム７はゲームです。それもアクションゲームです。
いよいよって感じですね。
だいたいは、これまでにおぼえたことの組み合わせで、できるようになっています。
と言っても、応用そしてまた応用なのはたしかなので、何回にもわけてじっくりやっていくことにしましょう。
どんなゲームなのか、とりあえず見てみましょう。
サンプルを遊んでみよう
いよいよクライマックスというカンジじゃのう。これは今のショクンにピッタリのサンプルプログラムじゃろう。
- ＬＯＡＤ”ＳＹＳ／ＥＸ７ＡＬＩＥＮ”
- ＯＫ
- ＲＵＮ
自機を左右に動かしながら、上からせまる敵をショットで打つゲームだね。
十字ボタン左右で移動。Ａボタンでショットなんだね。
いや……ちょっと待て、コレおかしいぞ！ どうやっても負けにならねーじゃねェか！
じゃから、タイトルが「侵略者 (しんりゃくしゃ) もどき」となっとるじゃろ。カレらは、最後までシンリャクできなかったのじゃよ。カナしい話じゃな。
いやそうじゃねェだろ！ ナンのための残機ヒョウジだよ！ だいたい敵をゼンブ倒しても特にナニも起きねー！
ウム……、コレはそもそもユーザーショクンのチカラで、未完成のプログラムを完成させようというシュシなのじゃ……が……ちょっとムリがあったじゃろうか。
まあ、そういうコトなら……いいの……かな？
そういうことにしておこうよ。今のところ気になるポイントは、
・敵にせめ込まれてもダメージがない
・敵をゼンブ倒しても終わらない
この２つかな？
・敵のスピードが速い
ってのもモンダイだぜ。
・自機のスピードが速すぎる
のもやっぱりやりづらいよね。
ワシが言うのもなんじゃが、テキカクなシテキじゃな。
ホカにもプラスアルファのためにいくつか変数をしこんでおるんじゃが……
それはイイや、コレ以上ふやすとタイヘンそうだしな！
ワシが言うコトでないかもしれんが、テキカクじゃのう……。
再現をはじめてみよう
プログラムを改造するには、まずプログラムをリカイした方がいいよね。せっかく総まとめのプログラムなんだから、イチから自分で作るつもりでやってみようか！
- ＮＥＷ
- ＯＫ
カンタンそうに言うなあ……。
ムズカシく見えても、だいたいはこれまでのおさらいでデキるプログラムだよ。
たとえば、プログラムのサイショに何をすればいいのかはもうわかるよね。
そこはイマまでのサンプルと同じパターンでイケるだろうな。
- ’┌────────────┐
- ’│ ＥＸＡＭＰＬＥ７ │
- ’│ しんりやくしゃもどき │
- ’└────────────┘
- ＸＳＣＲＥＥＮ ０
- ＶＩＳＩＢＬＥ １，１，１，１
- ＣＬＳ
- ＣＯＬＯＲ １５
だいたいこんなモンか。本当はこのアトにＤＩＭ命令がくるんだろうが……。
- ＤＩＭ ？？？
配列変数のヨテイが立ってないから、トクに思いつかねェぜ！
そのあたりは後で出てくるだろうから、今はまだいいかな。 REMの’を行のはじめに入れて、メモとして残しておこうか。
- ’ＤＩＭ ？？？
いわゆる「コメントアウト」じゃな。プログラムを組みながらなら、こういうコメントの使い方もユウコウじゃぞ。
動かしてみよう
ウーム……とりあえずプレイヤー機を出してはみたが……
- ’−−−
- ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
- ＬＯＣＡＴＥ ０，２２
- ＰＲＩＮＴ”─”＊５０；
サンプルプログラム１のころにおぼえたコトだね。
このプレイヤーを動かすプログラムがいるだろうね。いまのうちにメインループを作っておこう。
- ’−−−
- ＠ＬＯＯＰ
- ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
- ＧＯＴＯ ＠ＬＯＯＰ
このラベル＠ＭＹＳＨＩＰ（自機）で、プレイヤーを動かすサブルーチンを作るんだね。
サンプル３の方法で左右に動かすなら、こんなカンジだろ？
- ’−−− じぶん
- ＠ＭＹＳＨＩＰ
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ？？？
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ？？？
- ＲＥＴＵＲＮ
だが、わからねえ！ このIF文をどうすりゃ、プレイヤーが動くんだ？
そういえば、まだキャラクターが動くタイプのプログラムはやったことがなかったね。少しじっくり作ってみようか。
- ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
まずはこの行に注目かな。
イチバンはじめのトコロじゃねェか！ オレのヤリ方にモンクでもあるってのかよ！
このＬＯＣＡＴＥの数字を変えると、プレイヤー機のバショも変わるのはなんとなくイメージできるかな？
まあ、それくらいなら。
たとえばＬＯＣＡＴＥ １１，２１：ＰＲＩＮＴ”Г”；と書けばもう１文字ぶん右に行くよね。
ソレと押されたボタンを組み合わせるのか……ツマリ、ＢＵＴＴＯＮ（）が押されたらＬＯＣＡＴＥの数字を変える……？ しかしＬＯＣＡＴＥの数字を変えるには……
あ、変数を使うんだ！
！ ……「数」が「変」わるから「変数」。そういうコトか……！
そうマチガってるワケでもないかな。数字がたびたび変わるようなトコロは、変数で作っておくとベンリだね。
ということは、この行も……？
- ＬＯＣＡＴＥ １０，２１：ＰＲＩＮＴ”Г”；
こんな感じがいいんじゃないかな。
- ＰＸ＝１０：ＰＹ＝２１
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
変数の名前に使ったＰはプレイヤーのＰ。ＸとＹはヨコ方向・タテ方向のイミだよ。
数学で「座標」のヨコ方向に「ｘ」、タテ方向に「ｙ」を使うコトがモトモトのイミかのう。コンピューターのセカイでもヨコといえばＸ、タテといえばＹ、というコトが多いのじゃ。
リクツはワカッてきたぜ。ボタンのあたりは、こうすりゃイイんだな？
- ’−−− じぶん
- ＠ＭＹＳＨＩＰ
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＰＸ＝ＰＸ−１
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＰＸ＝ＰＸ＋１
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
- ＲＥＴＵＲＮ
左ボタンを押せばＰＸから１引いて、右ボタンを押せばＰＸに１足すってワケだ。そのアトにＬＯＣＡＴＥしてＰＲＩＮＴすればバッチリだぜ！
さて、どうかのう？ ためしにＲＵＮしてみるかの。
ウ、ウォオー！ ナンだコリャアー！
アイデアはまちがってなかったけど、いくつかダイジなところが抜けていたね。
まず、Ｂ＝ＢＵＴＴＯＮ（）から戻ってくるまでのループが早すぎるってこと。ボタンをチョンと押しただけで、ものすごいスピードで何度も押したことになってるんだな。
そういえばサンプルプログラム３でも、そんなコトがあったね。
となると、思い出すこともあるんじゃないかな？
- ＠ＬＯＯＰ
- ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
- ＶＳＹＮＣ １
- ＧＯＴＯ ＠ＬＯＯＰ
メインループの中にＶＳＹＮＣ命令をふやしたよ。
60分の１秒だけプログラムの動きを止めるんだったね。早すぎるループをわざと遅らせるのはワカるけど……60分の１秒って、そんなあっと言う間でいいの？
そのくらいでも、アクションゲームならイガイとちょうど良かったりするんだよ。ものたりなければ、増やせばすむコトだしね。
ナルホドな。とにかくモンダイはカイケツだぜ。ＲＵＮ！
カイケツしきってねェー！
ここまでのプログラムリスト
| ここまでのプログラムリストを表示 |
動かし方のコツを学ぼう
ナニがおきておるのか、20行目をＶＳＹＮＣ ２０ぐらいに変えて見るとハッキリするじゃろう。
こういう「重し」をかけるのは、テストにはユウコウじゃぞい。
な……ナンとなくはワカッたな。ヨコに動かすと、プレイヤー機が分身するみたいに増えていっちまうんだ。
いちど画面にＰＲＩＮＴした字は、消さなきゃずっとそこに残っちゃうのさ。
言われてみれば当たり前だけど……じゃあどうやって消せばいいの？
それはカンタンさ。” ”つまりスペースを同じ場所にＰＲＩＮＴすれば、Гはなくなるってワケだね。
消すっつーか、上書きするっつーか、だな。
このプログラムだと、モトの場所にスペースを書けばイイんだから……ン？ ブツブツ……ボタンが押されたらもうＰＸを変えてるワケで……モトの場所を消さないとイケねェんだけど、ボタンを押してないのに消したらマズいワケで……
イマイチわかんねェぞ！
これは、もっとプログラムを書き足さないといけないね。
- ’−−− じぶん
- ＠ＭＹＳＨＩＰ
- Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝−１
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”；
- ＰＸ＝ＰＸ＋ＶＸ
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
- ＲＥＴＵＲＮ
わかるかな？ クッションになる変数ＶＸを新しく作ったよ。
ええと、ふだん変数ＶＸは０で、ボタンを押したときだけ−１か１になるんだね。
変数ＰＸはまだ変わってねェから、まずスペースで消して……あらためてＰＸにＶＸを合わせてからＬＯＣＡＴＥしなおしてГをＰＲＩＮＴするってワケか！
ワレながら、英語の多いコトバをしゃべっちまったぜ！
英語ついでに言うと、変数ＶＸの「Ｖ」は「動く方向と量」という意味の「ベクター」のコトじゃな。プログラムではよく使われるコトバじゃが、広義のベクトルと違って……
ちょ、ちょっと待って！ センモン的なハナシはいいんじゃないかな。
それより、ボタンが押されてない時にもいったんスペースで消して、同じ場所にもういちどГを書いているよね。これはいいの？
ＲＵＮしてみるとわかるけど、すごいスピードで消しては書いてるから、そう気にはならないね。 でも、それがベストかというとビミョウかな。こう書くのが正しいのかもね。
- ’−−− じぶん
- ＠ＭＹＳＨＩＰ
- Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝−１
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝１
- ＩＦ ＶＸ＝＝０ ＴＨＥＮ ＠ＮＯＴＭＯＶＥ
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”；
- ＰＸ＝ＰＸ＋ＶＸ
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
- ’−−−
- ＠ＮＯＴＭＯＶＥ
- ＲＥＴＵＲＮ
ボタンが押されていないときは、イッキにラベル＠ＮＯＴＭＯＶＥ（動かない）まで飛んで、プレイヤー機をＰＲＩＮＴし直さないことにしたよ。
コレで動きはバッチリってコトだな。ＲＵＮしてみるゼ！
チ、チキショー！
画面のハジまで動かしたら、エラーになっちまったぜ！
このＯｕｔ ｏｆ ｒａｎｇｅ (アウト・オブ・レンジ) エラーというのは、命令にわたした数値が範囲からはずれてしまった、というエラーだね。
それは、変数ＰＸが画面を飛びこしちゃったのがゲンインかな？
ＰＸが０のときに−１しちゃったり、ＰＸが４９のときに＋１しちゃったり、だね。
テメーら、もっとわかりやすいコトバでしゃべりヤガレー！ 画面のハジまで行ったら、それよりムコウに動かさないようにすればいいだけじゃねえか！
これはワンパク君の言うとおりだね。ГをＰＲＩＮＴする前に、IF文を２行用意しておこうか。
- ＰＸ＝ＰＸ＋ＶＸ
- ＩＦ ＰＸ＜０ ＴＨＥＮ ＰＸ＝０
- ＩＦ ＰＸ＞４９ ＴＨＥＮ ＰＸ＝４９
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
これでプレイヤーの動きはモンダイなくなったね。
コレはコレで、動いてねェプレイヤー機を消しては書いちまってるが……、モトのサンプルプログラムがこうだからシカタねェのか？
し、しもうたァ━━ッ！
ま、まあそのあたりはコンゴのカダイとして……。
いったん、ココまでのプログラムをまとめておこう。
どういうイミなのか考えながらジッサイに打ち込んでみると、もっとよくワカると思うよ！ モニタの前のみんなもやってみてね！
サンプルプログラム7 (その1) でできたリスト
| プログラムリストを表示 |
今回のまとめ
- キャラクターを動かすには
- たとえばＬＯＣＡＴＥの位置を変数にして、ＢＵＴＴＯＮ（）の入力に合わせてＩＦ文で変数を足したり引いたりすると、動いて見えます。
動く前にいた場所に、空白スペースを上書きして消してやると自然に見えそうですね。
ＬＯＣＡＴＥする場所が画面をはみださないように注意！ - VSYNC命令とアクションゲームの関係
- プログラムを一時停止するＶＳＹＮＣ命令で、スピードを落とせます。早すぎて操作が追いつかない時にはとてもよく使いますね。
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.382 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:04 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30