2012年4月14日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム 音ゲー ゲーム QRコード mkII専用
左右正しくイヤホンを装着して聞いてください。 耳で聞いて遊ぶゲームです。画面には音は表示されません。 眼をつぶった方が集中しやすいかもしれません。
3種類の音が流れてきます。 最初に1つスチールドラムの音が左端(または右端)で鳴ります。 そちら側から6つの音が流れてきます。2つずつ、左(または右)、中央、右(または左)です。
ピアノの音は左、マリンバは中央、バイオリンは右のカゴに入れます。
速すぎる場合は132行目以下のTEMP$の値を減らしてください。
ピアノ:Yボタン マリンバ:Xボタン バイオリン:Aボタン
それぞれの音のカゴの位置に来たとき、ボタンを押してください。 3回失敗するとゲームオーバーです。
プチコンmkII 向けの QR コードです。
1/2
2/2
- ’−−−−−−−−−−−−−−−−−−−−−−
- ’| OTO BASKET |
- ’| Ver 1.0 |
- ’| by hoy 2012.04.14 |
- ’−−−−−−−−−−−−−−−−−−−−−−
- CLEAR
- GOSUB @INIT
- ?
- ?
- ?” Tones flow from a side”
- ?” to another side”
- ?
- ?” Put tones into proper basket”
- ?
- ?” LEFT CENTER RIGHT
- ?” Piano Marimba Violin
- ?
- ?” Y X A button”
- ?
- ?” Note: Set Earpieces correctly. ”
- ?
- ?” < < OTO Basket > >”
- @MATI0
- LOCATE 1,17
- ?” PUSH ANY BUTTON !!”
- WAIT 60
- TALK”@V50ヒ゜アノノ オト”
- BGMSET 128,”T50V40P30@0R4C8C8C8C8R4”
- BGMPLAY 128
- @MATIA
- B=BUTTON()
- IF B!=0 THEN GOTO @EXIT0
- IF BGMCHK(0) GOTO @MATIA
- TALK”@V50マリンハ゛ノ オト”
- BGMSET 128,”T50V40P64@12R4C8C8C8C8R4”
- BGMPLAY 128
- @MATIB
- B=BUTTON()
- IF B!=0 THEN GOTO @EXIT0
- IF BGMCHK(0) GOTO @MATIB
- TALK”@V50ハ゛イオリンノ オト”
- BGMSET 128,”T50V40P97@40R4C8C8C8C8R4”
- BGMPLAY 128
- @MATIC
- B=BUTTON()
- IF B!=0 THEN GOTO @EXIT0
- IF BGMCHK(0) GOTO @MATIC
- GOTO @MATI0
- @EXIT0
- LOCATE 1,17
- ?” ”
- @MATID
- IF BGMCHK(0) GOTO @MATID
- LOCATE 0,7
- ?” LEFT CENTER RIGHT
- ?” Piano Marimba Violin
- ?
- ?” Y X A button”
- LOCATE 0,12
- ? ” High Score: ”;HSC” ”
- LOCATE 0,15
- ?” < < OTO Basket > >”
- LOCATE 10,17
- ? ”SCORE :”;0
- LOCATE 10,18
- ? ”MISS :”;0
- WAIT 120
- ’−−−−− MAIN LOOP −−−−−−
- @LOOP
- IF BASYO==0 OR BASYO==7 THEN GOSUB @RANSU2
- GOSUB @PLAY2TONES
- @MATI
- B=BUTTON()
- IF B!=0 AND OSU==0 THEN GOSUB @HANTEI
- IF BGMCHK(0) GOTO @MATI
- BASYO=BASYO+MUKI
- IF MUKI==1 AND BASYO==7 THEN GOSUB @HANTEI
- IF MUKI==−1 AND BASYO==0 THEN GOSUB @HANTEI
- GOTO @LOOP
- ’−−−−−−−− SUB −−−−−−−−−
- @RANSU2
- M=RND(10)
- IF M<5 THEN MUKI=1 ELSE MUKI=−1
- N=RND(3)
- IF N==0 THEN NEIRO$=”@0”
- IF N==1 THEN NEIRO$=”@12”
- IF N==2 THEN NEIRO$=”@40”
- IF MUKI==1 THEN BASYO=0
- IF MUKI==−1 THEN BASYO=7
- OSU=0
- RETURN
- @PLAY2TONES
- IF BASYO==0 THEN FLOW$=”@114V30P0R8C8”
- IF BASYO==1 THEN FLOW$=”V50P30C8”
- IF BASYO==2 THEN FLOW$=”V60P40C8”
- IF BASYO==3 THEN FLOW$=”V75P60C8”
- IF BASYO==4 THEN FLOW$=”V75P68C8”
- IF BASYO==5 THEN FLOW$=”V60P87C8”
- IF BASYO==6 THEN FLOW$=”V50P97C8”
- IF BASYO==7 THEN FLOW$=”@114V30P127R8C8”
- BGMSET 128,TEMP$,NEIRO$,FLOW$
- BGMPLAY 128
- RETURN
- @HANTEI
- IF B==128 AND (BASYO==1 OR BASYO==2) AND NEIRO$==”@0” THEN @ATARI
- IF B==64 AND (BASYO==3 OR BASYO==4) AND NEIRO$==”@12” THEN @ATARI
- IF B==16 AND (BASYO==5 OR BASYO==6) AND NEIRO$==”@40” THEN @ATARI
- IF OSU!=1 THEN GOSUB @HAZURE
- RETURN
- @ATARI
- SCORE=SCORE+1
- LOCATE 10,17
- ? ”SCORE :”;SCORE
- BEEP 3,,50
- IF SCORE>10 THEN TEMP$=”T70”
- IF SCORE>20 THEN TEMP$=”T100”
- IF SCORE>30 THEN TEMP$=”T140”
- IF SCORE>40 THEN TEMP$=”T180”
- IF SCORE>50 THEN TEMP$=”T240”
- OSU=1
- RETURN
- @HAZURE
- MISS=MISS+1
- LOCATE 10,18
- ? ”MISS :”;MISS
- BEEP 06,,50
- IF MISS==3 THEN GOTO @OWARI
- OSU=1
- RETURN
- @INIT
- ACLS
- BGMSTOP
- PNLTYPE”OFF”
- TEMP$=”T50”
- GPAGE 0
- GCLS 20
- GPAGE 1
- GCLS 20
- RETURN
- @OWARI
- IF SCORE<HSC THEN BEEP 69,,50:WAIT 100
- LOCATE 8,19
- ? ”!! GAME OVER !!”
- LOCATE 0,19
- IF SCORE>HSC THEN ? ” !! You’ve got High Score !! ”
- IF SCORE>HSC THEN WAIT 60: BEEP 7,,50: WAIT 30: BEEP 7,,50:WAIT 30
- IF SCORE>HSC THEN HSC=SCORE
- LOCATE 0,12
- ? ” High Score: ”;HSC” ”
- WAIT 90
- IF SCORE>50 THEN TALK ”@V50スコ゛イ テ゛スネ”: GOTO @EXIT2
- IF SCORE>30 THEN TALK ”@V50ナカナカ テ゛スネ”: GOTO @EXIT2
- IF SCORE<HSC AND SCORE<31 THEN TALK ”@V50マタ゛マタ゛ テ゛スネ”: GOTO @EXIT2
- @EXIT2
- IF SCORE>HSC THEN HSC=SCORE
- LOCATE 8,21
- ? ”PUSH ANY BUTTON!”
- IF BUTTON()==0 THEN GOTO @EXIT2
- GOSUB @INIT
- SCORE=0: MISS=0
- GOTO @EXIT0
- ’−−−−−−− END −−−−−−−−−
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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