RANKING by すがぁら。

再生

　ちょっと懐かしい、３文字ネーム制のハイスコアランキング処理の投稿だ。
　説明不要かもしれないが、スコアの高い順に１位～10位までのネームが並び、そこに割り込めるスコアが出れば名前を入力させ、以下は下にズラしながら再び１位～10位まで並べ直す、というプログラムになっている。
　自分のゲームにハイスコア処理を入れておきたい、けど１から作るのはメンドくさいなあ……というモノグサ君はぜひ組み込んでもらいたい。

私が作りました

すがぁら。
twitter

約20年ぶりにBASICでプログラミングしました。


 CHECK POiNT 

ワンパク
ナンだ？　勝手に足し算が始まって、ネームエントリーが始まったぞ？

インテリ
このプログラムは、そのネームエントリーとランキング部分だけ抽出した投稿なのさ。プチコンプログラマーのみんなに応用してもらうためのモノだね。

博士
つまり足し算の部分は仮にスコアを出すためのサンプルじゃな。
実際にはそこに各自のゲームを入れ替えて使う、というワケじゃ。変数名などがかぶらないよう要注意じゃが。

神崎
ランキング画面はゲーム本体じゃなくってプラスアルファの部分だから、わざわざ作らなくても……って気になっちゃうのはわかるなあ。自分用の取っかかりにこういうのがあると助かるよね。

プログラムリスト

  1. ’
  2. ’　　　　ランキンク゛　フ゜ロク゛ラム
  3. ’
  4. ＧＯＳＵＢ　＠ＳＨＯＫＩ
  6. ’カリノ　フ゜ロク゛ラム
  7. ＦＯＲ　Ａ＝１　ＴＯ　１０
  8. ＲＥＡＤ　Ｃ（Ａ）
  9. ＮＥＸＴ　Ａ
  10. ＦＯＲ　Ａ＝１　ＴＯ　１０
  11. ＲＥＡＤ　Ｎ＄（Ａ）
  12. ＮＥＸＴ　Ａ
  14. ＠ＧＡＭＥ
  15. Ｘ＝ＲＮＤ（４０）：Ｙ＝ＲＮＤ（４０）：Ｚ＝Ｘ＋Ｙ
  16. ＬＯＣＡＴＥ　２，３：ＰＲＩＮＴ　Ｘ；”＋”；Ｙ；”＝”；Ｚ
  17. Ｐ＝０
  19. ＠ＬＯＯＰ
  20. Ｐ＝Ｐ＋１
  21. ＩＦ　Ｚ　＜　Ｃ（１０）　ＧＯＴＯ　＠ＲＡＮＫＩＮＧ
  22. ＩＦ　Ｚ　＜　Ｃ（Ｐ）　ＡＮＤ　Ｐ＜１１　ＧＯＴＯ　＠ＬＯＯＰ
  23. ＩＦ　Ｚ　＞＝　Ｃ（Ｐ）　ＡＮＤ　Ｐ＜１１　ＧＯＴＯ　＠ＲＡＮＫ
  25. ＠ＲＡＮＫＩＮＧ
  26. ＣＬＳ
  27. ＦＯＲ　Ｘ＝１　ＴＯ　１０
  28. ＩＦ　Ｘ＜１０　ＴＨＥＮ　ＬＯＣＡＴＥ　１６，Ｘ＋３：ＰＲＩＮＴ　Ｘ；”．”；Ｃ（Ｘ）；”┠”；Ｎ＄（Ｘ）
  29. ＩＦ　Ｘ＝＝１０　ＴＨＥＮ　ＬＯＣＡＴＥ　１５，Ｘ＋３：ＰＲＩＮＴ　Ｘ；”．”；Ｃ（Ｘ）；”┠”；Ｎ＄（Ｘ）
  30. ＮＥＸＴ　Ｘ
  31. ＧＯＴＯ　＠ＧＡＭＥ
  33. ＠ＢＴＮ
  34. ＢＴ＝ＢＵＴＴＯＮ（）
  35. ＩＦ　ＢＴ　＝＝　１６　ＧＯＴＯ　＠ＧＡＭＥ
  36. ＧＯＴＯ　＠ＢＴＮ
  38. ＠ＲＡＮＫ
  39. ＬＯＣＡＴＥ　３，１８：ＰＲＩＮＴ　”ＮＥＷ　ＲＥＣＯＲＤ！！”：ＩＮＰＵＴ　”ナマエヲ　イレテクタ゛サイ”；ＮＭ＄
  40. ＮＭ＄＝ＭＩＤ＄（ＮＭ＄，０，３）
  41. ＦＯＲ　Ｑ＝１０　ＴＯ　Ｐ＋１　ＳＴＥＰ　－１
  42. Ｃ（Ｑ）＝Ｃ（Ｑ－１）
  43. Ｎ＄（Ｑ）＝Ｎ＄（Ｑ－１）
  44. ＮＥＸＴ　Ｑ
  45. Ｃ（Ｐ）＝Ｚ：Ｎ＄（Ｐ）＝ＮＭ＄
  46. ＧＯＴＯ　＠ＲＡＮＫＩＮＧ
  48. ＠ＳＨＯＫＩ
  49. ＣＬＳ：ＣＬＥＡＲ
  50. ＤＩＭ　Ｃ（１１），Ｎ＄（１１）
  51. ＤＡＴＡ　４０，３５，３０，２２，２１，１８，１６，８，３，０
  52. ＤＡＴＡ　”ＳＵＧ”，”ＢＵＮ”，”ＴＡＫ”，”ＪＯＨ”，”ＢＩＧ”，”ＬＥＮ”，”ＡＩИ”，”マサト”，”トム”，”ＳＡＭ”
  53. ＲＥＴＵＲＮ