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