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

投稿プログラム : 1000で止めろ!ゲーム Part2

2013年3月28日投稿 / 投稿者 : 道産子の初心者 / タグ : 投稿プログラム ゲーム QRコード mkII専用

お知らせ

今さらですが、ACLSを使っているため、初代に対応していないことに気づき、あわててタグを直しました。

概要

1000で止めろ!ゲームが完全リメイクして帰ってきました!!

パート2では・・・

得点制となりました。得点は下記の通りです。

1000との差評価得点
±0EXCELLENT!500点
±1〜2GOOD!200点
±3〜5CLEAR!100点
±6〜FALSE-200点

また、ハイスコアの保存機能もついています。

課題点

  • 1回のゲーム時間が長い
  • 画面があまりにも寂しい

スクリーンショット・動画

載せたいです。

QR コード

プチコンmkII 向けの QR コードです。

PRG:DS1000ST
1/22/2
qr0.pngqr1.png

プログラムリスト

  1. LOAD ”MEM:DS1000SC”,FALSE
  2. HI=VAL(MEM$)
  3. IF RESULT==FALSE THEN HI=0
  4. @TOP
  5. ACLS:A=0
  6. BGMPLAY 7
  7. PRINT ”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”
  8. COLOR 13
  9. PRINT ”┐┌┐┌┐┌┐─゛│ ││ ┌┐│
  10. PRINT ”│││││││┬ ├┐└┼┐│││
  11. PRINT ”│└┘└┘└┘┘ │ ─┘│├┤.
  12. COLOR 0
  13. PRINT ”ル−ル:1000ニナッタラАヲオセ!ニアヒ゜ンハ+−5マテ゛!”
  14. PRINT ”HISCORE:” ;HI
  15. PRINT ”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”
  16. PRINT ”PUSH А BUTTON GAME START
  17. PRINT ”PUSH Б BUTTON HISCORE CLEAR
  18. @TOPBU
  19. IF BUTTON(2)==16 THEN BEEP 3
  20. IF BUTTON(3)==16 THEN GOTO @START
  21. IF BUTTON(2)==32 THEN BEEP 3
  22. IF BUTTON(3)==32 THEN GOTO @SCCLR
  23. VSYNC 1
  24. GOTO @TOPBU
  25. @START
  26. BGMSTOP 
  27. CLS
  28. BEEP 0:LOCATE 0,0:PRINT ”┏┫”
  29. BEEP 0:LOCATE 0,1:PRINT ”┏┫”
  30. BEEP 0:LOCATE 0,2:PRINT ”┠┗”
  31. WAIT 60
  32. BEEP 0:LOCATE 0,0:PRINT ”┗┫”
  33. BEEP 0:LOCATE 0,1:PRINT ”┳┗”
  34. BEEP 0:LOCATE 0,2:PRINT ”┯┠”
  35. WAIT 60
  36. BEEP 0:LOCATE 0,0:PRINT ”┳┛”
  37. BEEP 0:LOCATE 0,1:PRINT ” ┛”
  38. BEEP 0:LOCATE 0,2:PRINT ”┳┯”
  39. WAIT 60
  40. BEEP 5
  41. LOCATE 0,0:COLOR 13:PRINT ”┗┏┃╋┏┳┏┓┣┫┃╋┏┻
  42. LOCATE 0,1:COLOR 13:PRINT ”┫┓ ┻ ┻┏┛┷━ ┻ ┻
  43. LOCATE 0,2:COLOR 13:PRINT ”┠┗ ┻ ┻ ┛┛┫ ┻ ┳
  44. WAIT 40
  45. SC=20
  46. C=0
  47. BGMPLAY 3
  48. @GAME
  49. CLS
  50. BEEP 2
  51. COLOR 0
  52. A=0
  53. PRINT ”アト” ;SC; ”カイ”
  54. PRINT ”SCORE:” ;C
  55. @LOOP
  56. A=A+1:LOCATE 0,2:COLOR 0:PRINT A
  57. B=BUTTON(2)
  58. IF B==16 THEN GOTO @HAN
  59. IF B==1024 THEN GOTO @POZ
  60. VSYNC 1:GOTO @LOOP
  61. @HAN
  62. ON A−995 GOTO @CL,@CL,@CL,@CL2,@CL2,@CL3,@CL2,@CL2,@CL,@CL,@CL
  63. COLOR 13:PRINT ”┣┏┳┏┓┛ ┳┏━┣┏
  64. COLOR 13:PRINT ”┣┏┻┏┛┛ ┃┠ ┣┏
  65. COLOR 13:PRINT ”┛ ┻ ┛┯┠┳┠━┯┠
  66. BEEP 6
  67. C=C−200
  68. @KAISU
  69. WAIT 50
  70. SC=SC−1
  71. IF SC==0 THEN GOTO @ENDGAME
  72. GOTO @GAME
  73. @CL
  74. BEEP 5
  75. COLOR 7:PRINT ”┗┏┻  ┣┏┳┏┓┣┫┻
  76. COLOR 7:PRINT ”┛ ┻  ┣┏┻┏┛┷━┻
  77. COLOR 7:PRINT ”┫┠┻┠┓┯┠┻ ┛┛┫┳
  78. C=C+100
  79. GOTO @KAISU
  80. @CL2
  81. BEEP 5
  82. COLOR 4:PRINT ”┗┏┳┏┓┗┫┻┏┓┛
  83. COLOR 4:PRINT ”┛╋┻ ┛┛┻┻ ┛┛
  84. COLOR 4:PRINT ”┫┨┃┠━┫┗┻┠━┓
  85. C=C+200
  86. GOTO @KAISU
  87. @CL3
  88. BEEP 55
  89. COLOR 3:PRINT ”┣┏┻ ┛┗┏┻┏━┛ ┻  ┣┏┻┓┛┏┣━┛
  90. COLOR 3:PRINT ”┣┏┃┠━┛ ┻┏━┛ ┻  ┣┏┻┃┛ ┛ ┛
  91. COLOR 3:PRINT ”┯┠┻ ┛┫┠┻┠┓┯┠┻┠┓┯┠┻ ┛ ┛ ┓
  92. C=C+500
  93. GOTO @KAISU
  94. @ENDGAME
  95. CLS
  96. BGMPLAY 5
  97. COLOR 0
  98. PRINT ”シュウリョウ!”
  99. PRINT ”カクトクSCORE:” ;C
  100. WAIT 200
  101. IF HI<C THEN GOTO @HISCORE
  102. GOTO @TOP
  103. @HISCORE
  104. BGMPLAY 8
  105. COLOR 3:PRINT ”┯┻┻┏━┛┛┛ ┣┫┻┏━┗┏┳┏┓┣┫┻┏┓┛
  106. COLOR 3:PRINT ”┛╋┻┏━┛┛┛ ┷━┻┏━┛ ┻ ┛┷━┻ ┛┛
  107. COLOR 3:PRINT ”┛┻┻┠┓┫┫━ ┛┫┻┠┓┫┠┃┠━┛┫┻┠━┓
  108. COLOR 0:PRINT ”シンキロク オメテ゛トウコ゛サ゛イマス!!”
  109. WAIT 400
  110. PRINT ”キロクヲホソ゛ンシマス。”
  111. MEM$=STR$(C)
  112. @SCSV
  113. SAVE ”MEM:DS1000SC”
  114. IF RESULT==CANCEL THEN GOTO @SCSV
  115. HI=C
  116. GOTO @TOP
  117. @POZ
  118. BEEP 3
  119. LOCATE 0,2:PRINT ”ホ゜−ス゛ Бテ゛サイカイ
  120. @POZBT
  121. B=BUTTON(2)
  122. IF B==32 THEN LOCATE 0,2:PRINT ”             ”:BEEP 3:GOTO @LOOP
  123. VSYNC 1
  124. GOTO @POZBT
  125. @SCCLR
  126. WAIT 5:BGMSTOP
  127. CLS
  128. PRINT ”ハイスコアヲケシテヨロシイテ゛スカ?”
  129. PRINT ”А→ハイ
  130. PRINT ”Б→イイエ
  131. @CLRBU
  132. IF BUTTON(3)==16 THEN BEEP 3:GOTO @SCDE
  133. IF BUTTON(3)==32 THEN BEEP 4:WAIT 5:GOTO @TOP
  134. VSYNC 1
  135. GOTO @CLRBU
  136. @SCDE
  137. DELETE ”MEM:DS1000SC
  138. IF RESULT==CANCEL THEN GOTO @SCDE
  139. HI=0
  140. GOTO @TOP

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : ・・・。 (2013/03/28 (木) 08:15:54)
  • 名無しさん : 自分のサイトへのリンクのみ公開ってルール違反なのでは? (2013/03/28 (木) 10:58:03)
  • 道産子の初心者 : ↑対応しました。 (2013/03/28 (木) 11:29:51)
  • 名無しさん : ふざけてのか?これ? (2013/03/28 (木) 11:46:41)
  • 道産子の初心者 : ↑? (2013/03/28 (木) 14:05:48)
  • 道産子の初心者 : リストを載せてくださった方、ありがとうございます。 (2013/03/28 (木) 14:06:15)
  • 名無しさん : ・・・。 (2013/03/28 (木) 15:12:40)
  • 道産子 : 唐突で申し訳ありません。明日か明後日に、「1000で止めろ!フィーバー」を公開します。フィーバー制度を設けました。課題点がちょこちょこありますが、皆さんの意見をお聞きするため、投稿させて頂きます。 (2013/04/30 (火) 21:58:58)
  • ももけん : 1000を500に変えれば… +−10でセーフ(効果音 派ふっ)+−20でミス(−200点 効果音てーてーてーれ それ以上離れるとOUT(即終了 (2013/05/01 (水) 06:56:57)
  • 道産子 : ↑ご意見ありがとうございます。 (2013/05/11 (土) 13:27:00)

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