簡単なすごろくゲームのプログラムです。
本物のさいころで遊んでもいいですし、以前紹介した電子さいころを使っても面白いでしょう。
遊び方
- 実行すると、プレイヤーの人数を聞かれるので、1～9の人数を入力します。画面左側にプレイヤーの駒、右側にゴールの線が表示されます。
- プレイヤーごとにさいころの目を聞かれるので、1～6で入力します。プレイヤーの駒が、入力した目の数だけ進みます。
- プレイヤーの誰かがゴールにたどり着くと終了します。
プログラム
10 '*SUGOROKU 20 CLV 30 INPUT "NINZU=",N 40 CLS 50 FOR P=1 TO N 60 LC 0,P:?P 70 LC 30,P:?"|" 80 NEXT 90 P=0 100 P=P+1:IF P>N P=1 110 LC 0,18:?"PLAYER=";P 120 ?CHR$(24); 130 INPUT "SAIKORO=",S 140 LC [P]+1,P 150 FOR X=1 TO S 160 ?CHR$(8);".";P; 170 NEXT 180 [P]=[P]+S 190 IF [P]<30 GOTO 100 200 LC 0,20:?"GOAL!" 210 BEEP 10,30
15人対応版
プレイヤーの表示を16進数表示（1～F）にしました。15人まで対応します。
10 '*SUGOROKU15 20 CLV 30 INPUT "NINZU=",N 40 CLS 50 FOR P=1 TO N 60 LC 0,P:?HEX$(P) 70 LC 30,P:?"|" 80 NEXT 90 P=0 100 P=P+1:IF P>N P=1 110 LC 0,18:?"PLAYER=";HEX$(P) 120 ?CHR$(24); 130 INPUT "SAIKORO=",S 140 LC [P]+1,P 150 FOR X=1 TO S 160 ?CHR$(8);".";HEX$(P); 170 NEXT 180 [P]=[P]+S 190 IF [P]<30 GOTO 100 200 LC 0,20:?"GOAL!" 210 BEEP 10,30
