#14 Article 375 Posted at 1990/06/07 20:46:25 by あかねちゃん (MAP641) [MAPLE.BAS]
Subject: Ｍ２５・Ｍ２８用ＢＡＳＩＣ版の・・・・・
すいません、うまく作れませんでした。特にＡパート・・・・ Ｂパートの方は、多分これでいいと思うのですが、Ａパートの方は音が上がって いくところはもう完全にコードの理論から出しているので実際の音とは結構 雰囲気が変わっちゃっています。初心者ということで許してやって下さいまし。 それと、Ｍ２５・Ｍ２８系ベーシックで書かれています。若干の変更で他機種でも 使えると思います。ＰＣ系統は書き換えをしないと駄目ですが。 メインはＡパート（４ｃｈ）に充ててあります。単音の方はそれだけ鳴らしても ちゃんと音は出ます。あと、ｑコマンドを使っているので使えない方は取って 下さい。 ＭＡＰ６４１ まちばりあかね 10 ' Mapletown Story Eyecatch BGM Akanechan.(MAP641) 20 play init 'ＭＭＬ初期化 30 ' A part Eyecatch Music 40 A1$="t130o5l16 a8>d<af+8a8b8>e<bg8>e8l32c+dc+dc+dc+dc+ddc+<l16b>c+ l16<a>c+ea>c+ea>c+ l32<<f+a>d4" 50 B1$="t130q6 o5 l4 f+d ge a2 a2 q8f+" 60 C1$="t130q6 o5 l4 af+ bg>c+2 c+2 q8d" 70 play ,,,A1$,B1$,C1$ 80 play ,,,"r4" 90 ' B part Eyecatch Music 100 A2$="t130o6l16 a8>d<af+8a8b8>e<bg8>e8l32c+dc+dc+dc+dc+ddc+<l16b>c+d4" 110 B2$="t130q6 o5 l4 f+dgeaa q8f+" 120 C2$="t130q6 o5 l4 af+ bg>c+c+ q8d" 130 play ,,,A2$,B2$,C2$