Petit Ski by honoP

再生

 3行(300文字)で組まれたシンプルなスキーゲームだ。
 十字ボタン左右で移動。カベにぶつからないようにコースを維持しよう。
 次第にスピードが上がっていき、しかもコース自体が狭くなっていくぞ。はたしてどこまでスコアを伸ばせるかな?

私が作りました

honoP

もっぱら1行、3行、1画面プログラムの作成に燃えてます。貴方もぜひ挑戦してみませんか?


 CHECK POiNT 

博士
3行プログラムとは力作じゃな。M●X-F●N時代を思い出すのう。これだけの中にBGMからハイスコア表示まで入れるとはやりおるわい。

神崎
実際に入力するときは改行を入れればリストも見やすくなるね。

ワンパク
なるほど……行番号制じゃなくラベル制だから自由に改行できるってワケか! 結果的に良かったじゃねえか! 結果的にな!

博士
おお、おおお……。

インテリ
どんな工夫でリストを短くしているか、プログラムを追ってみると参考になるよ。短いだけに調べやすいしね。

プログラムリスト

  1. CLS:S=0:X=15:V=7:BGMPLAY 2:FOR I=0TO 1:S=S+1:H=H+(H<S)*(S-H):R=S/99:V=V+RND(2+(V-R<14))-(V>0):W=3-R
  2. W=W*(W>0):LOCATE V,23:?”ВВ”+MID$(”(13文字分のスペース)”,0,13-R)+”ВВ”:LOCATE 0,0:?”HI:”H:?”SC:”S:B=BUTTON()
  3. X=X+(B==8)*(X<28)-(B==4)*(X>2):I=CHKCHR(X,7)==3:LOCATE X,7:?”г”:VSYNC 2+W:NEXT:BGMPLAY 5:VSYNC 60