競馬ゲーム

年末年始の日本縦断の旅の最中に作った競馬ゲームを、改めてまとめます。

遊び方

• 起動すると、出走数を聞かれます。出走する馬の数を5～20頭の範囲で入力してください。
• 馬がスタートして、ランダムに走ります。全頭がゴールすると、ゴール順の番号が表示されて終了します。

プログラムリスト

IchigoJam RやPなど高速な環境では、125行を「WAIT 1」にしてください。

10 CLV:CLS
20 POKE #700,#60,#E0,#31,#7E,#7E,#42,#82,#41
30 @M
40 INPUT "ｼｭｯｿｳｽｳ(5-20)=",M
50 IF M<5 OR M>20 CLS:GOTO @M
60 FOR H=1 TO M
70 LC 0,H:?H 
80 [H]=29:LC 29,H:?CHR$(224)
90 NEXT:H=1
100 @LOOP
110 IF RND(2) && [H]>2 [H]=[H]-1:LC [H],H:?CHR$(224,0):IF [H]=2 N=N+1:[20+N]=H 
120 H=H+1:IF H>M H=1 
125 WAIT 0 
130 IF N<M GOTO @LOOP
140 LC 0,21
150 FOR H=1 TO M
160 ?[20+H];" ";
170 NEXT

プログラムリスト２

スタート時のファンファーレを追加しました。

10 CLV:CLS
20 POKE #700,#60,#E0,#31,#7E,#7E,#42,#82,#41
30 @M
40 INPUT "ｼｭｯｿｳｽｳ(5-20)=",M
50 IF M<5 OR M>20 CLS:GOTO @M
60 FOR H=1 TO M
70 LC 0,H:?H 
80 [H]=29:LC 29,H:?CHR$(224)
90 NEXT:H=1
95 PLAY "T200G<CE G8R8G8G8G8R8 E8R8E8E8E8R8 CEC>G1R2 G<CE G8R8G8G8G8R8 GEC>G8R8G8G8G8R8<C1R2"
97 IF SOUND() CONT
100 @LOOP
110 IF RND(2) && [H]>2 [H]=[H]-1:LC [H],H:?CHR$(224,0):IF [H]=2 N=N+1:[20+N]=H
120 H=H+1:IF H>M H=1
125 WAIT 0
130 IF N<M GOTO @LOOP
140 LC 0,21
150 FOR H=1 TO M
160 ?[20+H];" ";
170 NEXT