プチコンまとめWiki (初代/mkII)

投稿プログラム : ジャンケンゲーム

2014年07月12日投稿 / 投稿者 : Tachesci / タグ : 投稿プログラム 初心者 ゲーム ジャンケン

概要

ただ単にコンピュータとじゃんけんをするだけのゲームです。
他のじゃんけんゲームと違うところは、スコアがあることと倍率が中途半端なところくらいです。
ちなみに、プログラムは前回のモグラたたきのほぼ流用です。

操作方法

大抵は画面の指示に従えばOKです。
勝ったりあいこだった場合は、どれかボタンを押すと次に進みます。

プログラムリスト

  1. ACLS
  2. SCORE=0
  3. PRINT ”シ゛ャンケンケ゛ーム Ver.1.0”
  4. PRINT ”(C)2014 TACHESCI’s GAMES”
  5. PRINT ”HI−SCORE”
  6. PRINT HI
  7. PRINT ”SCORE”
  8. PRINT SCORE
  9. PRINT ”アイテ”
  10. PRINT ”ク゛ー”
  11. PRINT
  12. AITE=1
  13. BAIRITSU=100
  14. GOTO @KAISHI
  15. @MAIN
  16. WAIT 1
  17. IF HI<SCORE THEN HI=SCORE
  18. LOCATE 0,3
  19. PRINT HI
  20. LOCATE 0,5
  21. PRINT SCORE
  22. IF BUTTON(1)==0 THEN @MAIN
  23. @KAISHI
  24. LOCATE 0,11
  25. PRINT ”   ”
  26. LOCATE 0,9
  27. PRINT ”ク゛ー=1 チョキ=2 ハ゜ー=3 オワリ=0”
  28. INPUT ”ト゛レヲ タ゛ス”;ME
  29. IF ME==1 THEN LOCATE 0,11:PRINT ”ク゛ー”:GOTO @SHORI
  30. IF ME==2 THEN LOCATE 0,11:PRINT ”チョキ”:GOTO @SHORI
  31. IF ME==3 THEN LOCATE 0,11:PRINT ”ハ゜ー”:GOTO @SHORI
  32. IF ME==0 THEN @OWATA
  33. GOTO @KAISHI
  34. @SHORI
  35. AITE=RND(3)+1
  36. IF AITE==1 THEN LOCATE 0,7:PRINT ”ク゛ー”
  37. IF AITE==2 THEN LOCATE 0,7:PRINT ”チョキ”
  38. IF AITE==3 THEN LOCATE 0,7:PRINT ”ハ゜ー”
  39. IF ME==1 AND AITE==3 THEN ME=4
  40. IF ME==3 AND AITE==1 THEN AITE=4
  41. IF ME==AITE THEN SCORE=FLOOR(SCORE+BAIRITSU/3.2):GOTO @MAIN
  42. IF ME<AITE THEN @KACHI
  43. IF ME>AITE THEN @OWATA
  44. @KACHI
  45. SCORE=FLOOR(SCORE+BAIRITSU)
  46. BAIRITSU=BAIRITSU*1.2
  47. GOTO @MAIN
  48. @OWATA
  49. LOCATE 0,13
  50. PRINT ”GAME OVER”
  51. IF ME!=0 THEN @CONTINUE
  52. END
  53. @CONTINUE
  54. LOCATE 0,16
  55. PRINT ”*スコア ハ゛イリツ ハ 1/10 ニナリマス”
  56. LOCATE 0,14
  57. INPUT ”コンテニウ シマスカ (Y/N)”;CON$
  58. IF CON$!=”Y” THEN LOCATE 0,17:END
  59. BAIRITSU=BAIRITSU/10
  60. LOCATE 0,13
  61. FOR KURI=1 TO 8
  62. PRINT ”                       ”
  63. NEXT
  64. GOTO @KAISHI

よくありそうな質問

よくありそうな質問をまとめてみました。
コメント欄に質問があった場合、追加していきます。

QRコードにJPEGやPNGはないの?

すみません。変換したQRコードをJPEG等にする方法がわかりません。

なぜ、こんなにスコアが半端なの?

私のプログラミングが下手だからです。

「コンテニウ」って?

continueのことです。レトロ感を出してみました。

QRコード

カウンタ

今日:1人
今まで:1139人

コメント (感想・要望・バグ情報など)

  • Tachesci : 感想・要望・バグ等がありましたら、コメントをお願いします。 (2014/07/12 (土) 15:41:59)
  • 今は名無し : zipをそのまま解凍したらQRできるはず (2014/11/14 (金) 14:54:53)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.024 秒 | このページの最終更新 : 2017/02/24 (金) 17:37:24 (876d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30