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

Toukou/音バスケット の変更点

パンくずリスト


#title(音バスケット)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
//-----------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2012年4月14日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : hoy@kayama
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,音ゲー,ゲーム,QRコード,mkII専用);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

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

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

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

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

** 操作 [#Komidashi1]
ピアノ:Yボタン マリンバ:Xボタン バイオリン:Aボタン

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

/////////////////////////////////

* スクリーンショット・動画 [#ScreenShots]


// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
#ref(sIMGP6973.jpg)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#QR]
プチコンmkII 向けの QR コードです。

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
1/2
#ref(qrE0.png,,300%)
2/2
#ref(qrE1.png,,300%)


// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
// |&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|&ref(qr2.png,,200%);|

/////////////////////////////////

* プログラムリスト [#List]
#basic{{
'----------------------
'|    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 ---------

}}

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

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

#comment

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