福野泰介の一日一創

こちらのステキ会場は、SAPジャパンさんのご協力！

慣れない英語もタイピングも、好奇心がぐいぐい引っ張る！

ゲームの改造の楽しさ、伝わったようで何より！

11月からIchigoJamを使った本格教室のトライアルに向けて好感触です！

下記は、本日の復習を兼ねて、補習教材。

10 LC RND(32),RND(22) 20 ?RND(10) 30 GOTO 10 RUN

20行の?は画面に表示するコマンド
RNDはでたらめな数を返すコマンド、これで0〜9のどれかが表示されます
10行のLCはLOCATEの略で次に表示する位置を決めます（RNDを使って画面内にランダムに）
30行はおなじみGOTO（ゴートゥー）、10行に戻します！

20 ?CHR$(224+RND(16)) LIST 10 LC RND(32),RND(22) 20 ?CHR$(224+RND(16)) 30 GOTO 10 RUN

すでに書いてある行番号を書いてプログラムを書くと、上書きされます（LISTで確認！）
CHR$（キャラ）は数から文字に変換するコマンド
224〜255の数字を文字にすると、ステキなキャラが！

25 IF BTN() SCROLL RIGHT LIST 10 LC RND(32),RND(22) 20 ?CHR$(224+RND(16)) 25 IF BTN() SCROLL RIGHT 30 GOTO 10 RUN

「もし、〜ならば」を表すIF（イフ）コマンドでBTN（ボタン）が押されていればSCROLL（スクロール）
20行と30行の間にプログラムを追加したいときは、その間の数、例えば25と書き始めればOKです！
こうしていろいろなコマンドを組み合わせていくことをプログラミングと言います。
もっとやってみたくなりました！？

おまけ。
ちょっとプログラムは長めですが、熱くなれるタイピングゲームになってます。

名づけて「TYCOPTER / タイコプター」

1 'TYCOPTER 10 P=0:R=0:W=32:A=0 20 C=65+RND(26):X=31 30 CLS:LC 10,6:?"SCORE:";P 40 IF R>1 LC 10,9:?R;" COMBO" 50 LC A,13:?CHR$(243) 60 LC X,13:?CHR$(C) 70 K=INKEY() 80 IF K=C R=R+1:P=P+R:W=W-(W>0):A=A+(W=0):GOTO 20 90 IF K!=0 R=0 100 WAIT W/3+3 110 X=X-1:IF X!=A GOTO 30 120 IF P>H H=P:?"HIGH SCORE!"

速すぎるーって人は、100行の+3を+5とか+8とか大きくしましょう。
友達や家族と対戦してみると楽しいですよ！