90/05/25 23:54:06 くろ   コール30 般若
 
 STSの般若さんが、コール30というゲームをパソコンと出来るようにされた
ものです。ルールは、1から30までの数を交互に言っていき最後に30を言った
ものが負け。言う時は1つから最高3つまでの数が言えます。
例 Aさん 1
  Bさん 2、3、4
  Aさん 5、6
  Bさん 7
  Aさん 8、9、10
  ・・・・・・・
  Aさん 29
  Bさん あれー負けじゃ
 というのを、パソコンとやるわけです。
1000 'save "call30"
1010 '    by Hannya 1990.5.21
1020 CONSOLE 0,25,0,1
1030 WHILE(I <= 30)
1040 ' C = INT(RND(1) * 3 ) + 1
1050 COLOR 5
1060 PRINT "わたしの数は ";
1070 ' FOR J = 1 TO C
1071  WHILE(I MOD 4 <> 1)
1080   I = I + 1
1090   PRINT I,
1100   IF I = 30 THEN F = 1 : GOTO *GAMESET
1110 ' NEXT
1111  WEND
1120 PRINT
1130 COLOR 7
1140 INPUT "あなたの数は?(空白で区切って入力してね。半角文字だよ)",K$
1150 P1 = INSTR(K$," ")
1160 P0 = P1
1170 WHILE(P1 <> 0)
1180   P1 = INSTR(P0 + 1,K$," ")
1190   IF P1 <> 0 THEN P0 = P1
1200 WEND
1210 K$ = MID$(K$,P0 + 1)
1220 I = VAL(K$)
1230 IF I>= 30 THEN F = 0 : GOTO *GAMESET
1240 WEND
1250 '
1260 *GAMESET
1270 COLOR 4
1280 PRINT
1290 IF F = 1 THEN PRINT "ありゃー わたしの負けですね。まいりました"  ELSE PRI
NT "へへへ わたしの勝ちですね"
1300 COLOR 7
1310 END
 
これは、BASICの勉強にも使えると思います。各自で工夫してみて下さい。
<くろ>

松下村塾 Yicin-Net
■もどる inserted by FC2 system