2014年07月12日投稿 / 投稿者 : Tachesci / タグ : 投稿プログラム 初心者 ゲーム ジャンケン
ただ単にコンピュータとじゃんけんをするだけのゲームです。
他のじゃんけんゲームと違うところは、スコアがあることと倍率が中途半端なところくらいです。
ちなみに、プログラムは前回のモグラたたきのほぼ流用です。
大抵は画面の指示に従えばOKです。
勝ったりあいこだった場合は、どれかボタンを押すと次に進みます。
- ACLS
- SCORE=0
- PRINT ”シ゛ャンケンケ゛ーム Ver.1.0”
- PRINT ”(C)2014 TACHESCI’s GAMES”
- PRINT ”HI−SCORE”
- PRINT HI
- PRINT ”SCORE”
- PRINT SCORE
- PRINT ”アイテ”
- PRINT ”ク゛ー”
- PRINT
- AITE=1
- BAIRITSU=100
- GOTO @KAISHI
- @MAIN
- WAIT 1
- IF HI<SCORE THEN HI=SCORE
- LOCATE 0,3
- PRINT HI
- LOCATE 0,5
- PRINT SCORE
- IF BUTTON(1)==0 THEN @MAIN
- @KAISHI
- LOCATE 0,11
- PRINT ” ”
- LOCATE 0,9
- PRINT ”ク゛ー=1 チョキ=2 ハ゜ー=3 オワリ=0”
- INPUT ”ト゛レヲ タ゛ス”;ME
- IF ME==1 THEN LOCATE 0,11:PRINT ”ク゛ー”:GOTO @SHORI
- IF ME==2 THEN LOCATE 0,11:PRINT ”チョキ”:GOTO @SHORI
- IF ME==3 THEN LOCATE 0,11:PRINT ”ハ゜ー”:GOTO @SHORI
- IF ME==0 THEN @OWATA
- GOTO @KAISHI
- @SHORI
- AITE=RND(3)+1
- IF AITE==1 THEN LOCATE 0,7:PRINT ”ク゛ー”
- IF AITE==2 THEN LOCATE 0,7:PRINT ”チョキ”
- IF AITE==3 THEN LOCATE 0,7:PRINT ”ハ゜ー”
- IF ME==1 AND AITE==3 THEN ME=4
- IF ME==3 AND AITE==1 THEN AITE=4
- IF ME==AITE THEN SCORE=FLOOR(SCORE+BAIRITSU/3.2):GOTO @MAIN
- IF ME<AITE THEN @KACHI
- IF ME>AITE THEN @OWATA
- @KACHI
- SCORE=FLOOR(SCORE+BAIRITSU)
- BAIRITSU=BAIRITSU*1.2
- GOTO @MAIN
- @OWATA
- LOCATE 0,13
- PRINT ”GAME OVER”
- IF ME!=0 THEN @CONTINUE
- END
- @CONTINUE
- LOCATE 0,16
- PRINT ”*スコア ハ゛イリツ ハ 1/10 ニナリマス”
- LOCATE 0,14
- INPUT ”コンテニウ シマスカ (Y/N)”;CON$
- IF CON$!=”Y” THEN LOCATE 0,17:END
- BAIRITSU=BAIRITSU/10
- LOCATE 0,13
- FOR KURI=1 TO 8
- PRINT ” ”
- NEXT
- GOTO @KAISHI
よくありそうな質問をまとめてみました。
コメント欄に質問があった場合、追加していきます。
すみません。変換したQRコードをJPEG等にする方法がわかりません。
私のプログラミングが下手だからです。
continueのことです。レトロ感を出してみました。
今日:1人
今まで:1543人
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.117 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:57 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30