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

音バスケット

パンくずリスト

2012年4月14日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム 音ゲー ゲーム QRコード mkII専用

概要

左右正しくイヤホンを装着して聞いてください。 耳で聞いて遊ぶゲームです。画面には音は表示されません。 眼をつぶった方が集中しやすいかもしれません。

3種類の音が流れてきます。 最初に1つスチールドラムの音が左端(または右端)で鳴ります。 そちら側から6つの音が流れてきます。2つずつ、左(または右)、中央、右(または左)です。

ピアノの音は左、マリンバは中央、バイオリンは右のカゴに入れます。

速すぎる場合は132行目以下のTEMP$の値を減らしてください。

操作

ピアノ:Yボタン マリンバ:Xボタン バイオリン:Aボタン

それぞれの音のカゴの位置に来たとき、ボタンを押してください。 3回失敗するとゲームオーバーです。

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

sIMGP6973.jpg

QR コード

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

1/2

qrE0.png

2/2

qrE1.png

プログラムリスト

  1. ’−−−−−−−−−−−−−−−−−−−−−−
  2. ’|    OTO BASKET      |
  3. ’|     Ver 1.0        |
  4. ’| by hoy 2012.04.14  |
  5. ’−−−−−−−−−−−−−−−−−−−−−−
  6. CLEAR
  7. GOSUB @INIT
  8. ?”    Tones flow from a side”
  9. ?”       to another side”
  10. ?” Put tones into proper basket”
  11. ?”   LEFT    CENTER  RIGHT 
  12. ?”   Piano  Marimba  Violin
  13. ?”    Y       X      A button” 
  14. ?” Note: Set Earpieces correctly. ”
  15. ?”     < <  OTO Basket  > >”
  16. @MATI0
  17. LOCATE 1,17
  18. ?”     PUSH ANY BUTTON !!”
  19. WAIT 60
  20. TALK”@V50ヒ゜アノノ オト”
  21. BGMSET 128,”T50V40P30@0R4C8C8C8C8R4”
  22. BGMPLAY 128
  23. @MATIA
  24. B=BUTTON()
  25. IF B!=0 THEN GOTO @EXIT0
  26. IF BGMCHK(0) GOTO @MATIA
  27. TALK”@V50マリンハ゛ノ オト”
  28. BGMSET 128,”T50V40P64@12R4C8C8C8C8R4”
  29. BGMPLAY 128
  30. @MATIB
  31. B=BUTTON()
  32. IF B!=0 THEN GOTO @EXIT0
  33. IF BGMCHK(0) GOTO @MATIB
  34. TALK”@V50ハ゛イオリンノ オト”
  35. BGMSET 128,”T50V40P97@40R4C8C8C8C8R4”
  36. BGMPLAY 128
  37. @MATIC
  38. B=BUTTON()
  39. IF B!=0 THEN GOTO @EXIT0
  40. IF BGMCHK(0) GOTO @MATIC
  41. GOTO @MATI0
  42. @EXIT0
  43. LOCATE 1,17
  44. ?”                         ”
  45. @MATID
  46. IF BGMCHK(0) GOTO @MATID
  47. LOCATE 0,7
  48. ?”   LEFT    CENTER  RIGHT 
  49. ?”   Piano  Marimba  Violin
  50. ?”    Y       X      A button” 
  51. LOCATE 0,12
  52. ? ”         High Score: ”;HSC”         ”
  53. LOCATE 0,15
  54. ?”     < <  OTO Basket  > >”
  55. LOCATE 10,17
  56. ? ”SCORE :”;0
  57. LOCATE 10,18
  58. ? ”MISS   :”;0
  59. WAIT 120
  60. ’−−−−− MAIN LOOP −−−−−−
  61. @LOOP
  62. IF BASYO==0 OR BASYO==7 THEN GOSUB @RANSU2
  63. GOSUB @PLAY2TONES
  64. @MATI
  65. B=BUTTON()
  66. IF B!=0 AND OSU==0 THEN GOSUB @HANTEI
  67. IF BGMCHK(0) GOTO @MATI
  68. BASYO=BASYO+MUKI
  69. IF MUKI==1 AND BASYO==7 THEN GOSUB @HANTEI
  70. IF MUKI==−1 AND BASYO==0 THEN GOSUB @HANTEI
  71. GOTO @LOOP
  72. ’−−−−−−−− SUB −−−−−−−−−
  73. @RANSU2 
  74. M=RND(10)
  75. IF M<5 THEN MUKI=1 ELSE MUKI=−1
  76. N=RND(3)
  77. IF N==0 THEN NEIRO$=”@0”
  78. IF N==1 THEN NEIRO$=”@12”
  79. IF N==2 THEN NEIRO$=”@40”
  80. IF MUKI==1 THEN BASYO=0
  81. IF MUKI==−1 THEN BASYO=7
  82. OSU=0
  83. RETURN
  84. @PLAY2TONES
  85. IF BASYO==0 THEN FLOW$=”@114V30P0R8C8”
  86. IF BASYO==1 THEN FLOW$=”V50P30C8”
  87. IF BASYO==2 THEN FLOW$=”V60P40C8”
  88. IF BASYO==3 THEN FLOW$=”V75P60C8”
  89. IF BASYO==4 THEN FLOW$=”V75P68C8”
  90. IF BASYO==5 THEN FLOW$=”V60P87C8”
  91. IF BASYO==6 THEN FLOW$=”V50P97C8”
  92. IF BASYO==7 THEN FLOW$=”@114V30P127R8C8”
  93. BGMSET 128,TEMP$,NEIRO$,FLOW$
  94. BGMPLAY 128
  95. RETURN
  96. @HANTEI
  97. IF B==128 AND (BASYO==1 OR BASYO==2) AND NEIRO$==”@0” THEN @ATARI
  98. IF B==64 AND (BASYO==3 OR BASYO==4) AND NEIRO$==”@12” THEN @ATARI
  99. IF B==16 AND (BASYO==5 OR BASYO==6) AND NEIRO$==”@40” THEN @ATARI
  100. IF OSU!=1 THEN GOSUB @HAZURE
  101. RETURN
  102. @ATARI
  103. SCORE=SCORE+1
  104. LOCATE 10,17
  105. ? ”SCORE :”;SCORE
  106. BEEP 3,,50
  107. IF SCORE>10 THEN TEMP$=”T70”
  108. IF SCORE>20 THEN TEMP$=”T100”
  109. IF SCORE>30 THEN TEMP$=”T140”
  110. IF SCORE>40 THEN TEMP$=”T180”
  111. IF SCORE>50 THEN TEMP$=”T240”
  112. OSU=1
  113. RETURN
  114. @HAZURE
  115. MISS=MISS+1
  116. LOCATE 10,18
  117. ? ”MISS   :”;MISS
  118. BEEP 06,,50
  119. IF MISS==3 THEN GOTO @OWARI
  120. OSU=1
  121. RETURN
  122. @INIT
  123. ACLS 
  124. BGMSTOP
  125. PNLTYPE”OFF”
  126. TEMP$=”T50”
  127. GPAGE 0
  128. GCLS 20
  129. GPAGE 1
  130. GCLS 20
  131. RETURN
  132. @OWARI
  133. IF SCORE<HSC THEN BEEP 69,,50:WAIT 100
  134. LOCATE 8,19
  135. ? ”!! GAME OVER !!”
  136. LOCATE 0,19
  137. IF SCORE>HSC THEN ? ”  !! You’ve got High Score !!  ”
  138. IF SCORE>HSC THEN WAIT 60: BEEP 7,,50: WAIT 30: BEEP 7,,50:WAIT 30
  139. IF SCORE>HSC THEN HSC=SCORE
  140. LOCATE 0,12
  141. ? ”         High Score: ”;HSC”         ”
  142. WAIT 90
  143. IF SCORE>50 THEN TALK ”@V50スコ゛イ テ゛スネ”: GOTO @EXIT2
  144. IF SCORE>30 THEN TALK ”@V50ナカナカ テ゛スネ”: GOTO @EXIT2
  145. IF SCORE<HSC AND SCORE<31 THEN TALK ”@V50マタ゛マタ゛ テ゛スネ”: GOTO @EXIT2
  146. @EXIT2
  147. IF SCORE>HSC THEN HSC=SCORE
  148. LOCATE 8,21
  149. ? ”PUSH ANY BUTTON!”
  150. IF BUTTON()==0 THEN GOTO @EXIT2
  151. GOSUB @INIT
  152. SCORE=0: MISS=0
  153. GOTO @EXIT0
  154. ’−−−−−−−  END −−−−−−−−−

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

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

  • hoy : 最初に耳慣らしとして音色を鳴らすように修正しました。TALK文も使ってみました。 (2012/04/15 (日) 16:39:58)
  • 名無しさん : 最後の”マダマダ デスネ”がムカツク (2012/04/17 (火) 17:25:57)
  • 名無しさん : 41点だしたら、”ナカナカ デスネ”と言われました。 (2012/04/26 (木) 19:38:23)
  • おさやん : 視力の良くない人でも遊べそうですね。再スタート機能もあれば・・・。 (2012/04/30 (月) 08:53:29)
  • hoy : コメントありがとう。再スタート機能をつけました。 (2012/04/30 (月) 10:49:14)
  • おさやん : 対応ありがとうございます。じっくり遊べます。 (2012/04/30 (月) 21:59:39)
  • hoy : ハイスコアを表示するように直しました。 (2012/05/02 (水) 22:51:03)
  • おさやん : ハイスコアでもマダマダデスネを聞きたいような・・・。あるいは、ハイスコアの初期値を設定しておくか?私は40ぐらいがせいいっぱい。 (2012/05/12 (土) 07:30:22)

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