じゃんけんゲーム(メダルカジノ仕様)(僕が自作ホームページに載せています)

 投稿者:小杉 崇夫  投稿日:2013年12月18日(水)08時14分56秒
  1 RANDOMIZE
10 REM じゃんけんゲーム
20 INPUT PROMPT "メダルを何枚購入しますか?半角で入力":m
25 DO UNTIL  m=<0
30    INPUT PROMPT "何枚賭けるの?半角入力。持ち数より多かったり、またマイナス入力時、再度入力。0入力でゲーム中止。":n
35    IF n=0 THEN 560
40    IF n>m OR n<0 THEN 30

70    INPUT PROMPT "じゃんけんします。「グー」「チョキ」「パー」を入力。":o$
80    LET p=INT(3*RND+1)
90    IF p=1 THEN
100       PRINT "コンピュータは「グー」です。"
110       IF o$="グー"  THEN
120          PRINT "あいこです。"
130       END IF
140       IF o$="チョキ" THEN
150          PRINT "あなたの負けです"
160          LET m=m-n
170       END IF
180       IF o$="パー" THEN
190          PRINT "あなたの勝ちです。"
200          LET m=m+n
210       END IF
220    END IF
230    IF p=2 THEN
240       PRINT "コンピュータは「チョキ」です。"
250       IF o$="グー" THEN
260          PRINT "あなたの勝ちです。"
270          LET m=m+n
280       END IF
290       IF o$="チョキ" THEN
300          PRINT "あいこです。"
310       END IF
320       IF o$="パー" THEN
330          PRINT "あなたの負けです。"
340          LET m=m-n
350       END IF
360    END IF
370    IF p=3 THEN
380       PRINT "コンピュータは「パー」です。"
390       IF o$="グー" THEN
400          PRINT "あなたの負けです。"
410          LET m=m-n
420       END IF
430       IF o$="チョキ" THEN
440          PRINT "あなたの勝ちです。"
450          LET m=m+n
460       END IF
470       IF o$="パー" THEN
480          PRINT "あいこです。"
490       END IF
500    END IF
510    PRINT "あなたの持ちメダルは";m;"枚です。"
515
520 LOOP

530 IF m=<0 THEN
540    PRINT "すっからかん!"
550 END IF
560 IF n=0 THEN
570    PRINT "あなたの持ちメダルは";m;"枚です。"
580 END IF








END

http://www2.accsnet.ne.jp/~kosugi15833/original-program.html

 

戻る