AWAWA！ | playncブログ

<body style='display:none'> ハウジング用楽譜製作 <hr> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048042_0219.jpg"><BR></P> <P>ハウジング面白いですね～。</P> <P> </P> <P>とくに音楽を流すのが楽しくって、楽譜作りに夢中になっています。</P> <P> </P> <P> </P> <P> </P> <P> </P> <P> </P> <P>とはいえ、</P> <P> </P> <P>　「 <STRONG>>c4+rf4.+g4+g16+g16</STRONG> 」</P> <P> </P> <P>こんな記号の羅列で楽譜を書くのは難しい。</P> <P>たった３小節の書くのに丸１日かかってしまいました。</P> <P> </P> <P> </P> <P align=center><STRONG>しかし３人の救世主が現れた…！</STRONG></P> <P> </P> <P> </P> <P> </P> <P> </P> <P>ということで、自己流の楽譜製作方法です。</P> <P> </P> <P>　・楽譜がある程度読める人むけ</P> <P>　・一部丸投げ</P> <P> </P> <P>ではありますが、ご興味ある方はどうぞ～</P> <P> </P> <br> <P> </P> <P><STRONG><FONT size=3>※　あくまで自己流なので参考等は自己責任でお願いします　※</FONT></STRONG></P> <P><FONT size=1>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ﾌﾌｰﾝ、ﾍｪｪ～くらいでなにとぞっ！</FONT></P> <P> </P> <P> </P> <P> </P> <P>＜準備するもの＞</P> <P> </P> <P>　・マビノギ用楽譜作成フリーソフト　「<A href="http://www.geocities.jp/makimabi/"><STRONG>まきまびしーく</STRONG></A><STRONG>」</STRONG>　さん</P> <P>　　（開発室→ダウンロード→β版の一番上のバージョンの物をインストール。）</P> <P>　・Excelマクロ　（メモ帳等でも代用できますが根気が必要です）</P> <P> </P> <P> </P> <P>＜手順＞</P> <P> </P> <P>　①　「まきまびしーく」で楽譜を製作</P> <P>　②　移調</P> <P>　③　ちょこっと手直し</P> <P>　④　ExcelマクロでAION用に記号の変換</P> <P> </P> <P> </P> <P>-----------------------------------------------</P> <P>ではスタート。</P> <P> </P> <P> </P> <P> </P> <P>①　<STRONG>「まきまびしーく」で楽譜を製作</STRONG></P> <P> </P> <P>AIONの記号のような楽譜、</P> <P>別ゲームですが「マビノギ」での楽譜に凄く似てるそうです。</P> <P>マビノギ用のフリーソフトを、AIONの楽譜製作にもお借りすることにしました。</P> <P>救世主…！</P> <P> </P> <P> </P> <P> </P> <P>「まきまびしーく」　こんな画面です。</P> <P><BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048043_0220.jpg"><BR></P> <P> </P> <P>ざっくり説明ですが、</P> <P> </P> <P>　・縦の鍵盤：　音程</P> <P>　・横：　音の長さ</P> <P>　・画面下の赤・緑・青：　音のチャンネル</P> <P> </P> <P>これを使って、ガツガツ楽譜を書いていきます。</P> <P>作った曲を聴くこともできる、すんごいソフトです。</P> <P>振り込めない詐欺だ。</P> <P> </P> <P> </P> <P> </P> <P>操作については…</P> <P>あまりにも多機能なので、ここで私が一から説明することは無理です。</P> <P>（＞Д＜）ｽﾐﾏｾﾝ</P> <P> </P> <P>なので、２人目の救世主　「<A href="http://churamabi.blog136.fc2.com/"><STRONG>ちゅらまび。ｍｍｌ</STRONG></A>」　さんのブログをオススメさせて頂きます。</P> <P>分かりやすく丁寧な解説で助かりました…！</P> <P> </P> <P> </P> <P> </P> <P> </P> <P>メモ的追記ですが、</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048045_0222.jpg"></P> <P>↑上の楽譜の「ド」は　「まきまびしーく」では　「４」　がある場所の　「ド」　です。</P> <P> </P> <P>入力音符の種類が沢山ありますが、</P> <P>ドラッグすることで長さを決めることもできるので、</P> <P>八分音符モードで、ぐいっと伸ばして全音符まで入力したりしてます。</P> <P>らくちん！</P> <P> </P> <P> </P> <P> </P> <P> </P> <P>②　<STRONG>移調</STRONG></P> <P> </P> <P>ここからAION用への変換です。</P> <P> </P> <P>まずキーを直します。</P> <P>「ドレミ」　と楽譜を作っても、</P> <P>AIONのハウジングでは　「ファソラ」　にに聞こえる不思議！</P> <P> </P> <P>勿論そのままでもきちんとした音楽ですが、、、低い…。</P> <P>気になるので私はキーを直します。</P> <P> </P> <P> </P> <P> </P> <P>「まきまびしーく」　の　ツール→移調<BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048044_0221.jpg"><BR></P> <P> </P> <P>この画面が出るので<BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048046_0223.jpg"></P> <P>移調量を　「７」　にします。</P> <P> </P> <P>これでAION用にキーが合います。</P> <P> </P> <P> </P> <P> </P> <P> </P> <P>③　<STRONG>ちょこっと手直し</STRONG></P> <P> </P> <P>移調をすると、楽譜が崩れてしまう場合があるようです。</P> <P>一パートずつ聞いてチェックして、修正してください。</P> <P> </P> <P><BR> </P> <P> </P> <P>④　<STRONG>ExcelマクロでAION用に記号の変換</STRONG></P> <P> </P> <P> </P> <P>楽譜が出来ました。</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048047_0224.jpg"><BR>メロディや和音１・２　…の隣にある記号の羅列、</P> <P>これがゲーム用の楽譜です。</P> <P> </P> <P> </P> <P>が、このままではAIONでは使えません。</P> <P>記号等の順番が違うんです。</P> <P> </P> <P>例えば…</P> <P>　マビノギ用　「 <STRONG><FONT size=3>f+8.</FONT></STRONG> 」</P> <P>　AION用　「<STRONG><FONT size=3> f8.+</FONT></STRONG> 」</P> <P> </P> <P>他にもまだまだAION用に調整しないといけないので、</P> <P>Excelのマクロを使って一括変換しています。</P> <P> </P> <P> </P> <P> </P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048086_0228.jpg"></P> <P> </P> <P>・<STRONG><FONT style="BACKGROUND-COLOR: #f5979c" color=#ffffff>B5セル</FONT></STRONG>　に「まきまびしーく」で作った楽譜を貼り付ける</P> <P>・マクロを実行</P> <P>・<STRONG><FONT style="BACKGROUND-COLOR: #8192c9" color=#ffffff>B8セル</FONT></STRONG>　にAION用に変換された楽譜が出る</P> <P> </P> <P> </P> <P> </P> <P>といったExcelマクロを作りました。</P> <P>相方氏（３人目の救世主）に手伝ってもらって…（＾＾）</P> <P> </P> <P> </P> <P>-------------------------------------------------</P> <P> </P> <P> </P> <P>マクロの製作方法です。</P> <P>もしよろしければどうぞ。　　（間違いなどあったら教えてくださいな）</P> <P> </P> <P> </P> <P>①　Excelを開く　→表示→マクロ→マクロの表示</P> <P> </P> <P> </P> <P>こんな画面が出るので、</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048083_0225.jpg"></P> <P> </P> <P>マクロ名に　「変換」　と入れて作成。</P> <P> </P> <P> </P> <P> </P> <P>マクロの画面が出ます。</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048084_0226.jpg"></P> <P> </P> <P> </P> <P> </P> <P>②　マクロの貼り付け</P> <P> </P> <P> </P> <P><STRONG>Sub 変換()</STRONG></P> <P> </P> <P>　<FONT color=#5573b6>●ここの部分に●</FONT></P> <P> </P> <P><STRONG>End Bub</STRONG></P> <P> </P> <P> </P> <P> </P> <P><FONT color=#5573b6>'ここから---------</FONT></P> <P><FONT color=#5573b6></FONT> </P> <P><FONT color=#5573b6>Dim Moji As String</FONT></P> <P><BR><FONT color=#5573b6>    Moji = Range("B5")</FONT></P> <P><BR><FONT color=#5573b6>'置換<BR>    Moji = Replace(Moji, "a", " a")<BR>    Moji = Replace(Moji, "b", " b")<BR>    Moji = Replace(Moji, "c", " c")<BR>    Moji = Replace(Moji, "d", " d")<BR>    Moji = Replace(Moji, "e", " e")<BR>    Moji = Replace(Moji, "f", " f")<BR>    Moji = Replace(Moji, "g", " g")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "r", " r")<BR>    Moji = Replace(Moji, "o", " o")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "<", "sss")<BR>    Moji = Replace(Moji, ">", " <")<BR>    Moji = Replace(Moji, "sss", " >")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "+2", "2+")<BR>    Moji = Replace(Moji, "+8", "8+")<BR>    Moji = Replace(Moji, "+16", "16+")<BR>    Moji = Replace(Moji, "+32", "32+")<BR>    Moji = Replace(Moji, "+64", "64+")<BR>    Moji = Replace(Moji, "+1", "1+")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "-2", "2-")<BR>    Moji = Replace(Moji, "-8", "8-")<BR>    Moji = Replace(Moji, "-16", "16-")<BR>    Moji = Replace(Moji, "-32", "32-")<BR>    Moji = Replace(Moji, "-64", "64-")<BR>    Moji = Replace(Moji, "-1", "1-")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "+.", ".+")<BR>    Moji = Replace(Moji, "-.", ".-")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "r1.", "r r r r r r")<BR>    Moji = Replace(Moji, "r16", "sss")<BR>    Moji = Replace(Moji, "r1", "r r r r")<BR>    Moji = Replace(Moji, "sss", "r16")<BR>    Moji = Replace(Moji, "r2.", "r r r")<BR>    Moji = Replace(Moji, "r2", "r r")<BR>    Moji = Replace(Moji, "r.", "r r8")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "a.", "a4.")<BR>    Moji = Replace(Moji, "b.", "b4.")<BR>    Moji = Replace(Moji, "c.", "c4.")<BR>    Moji = Replace(Moji, "d.", "d4.")<BR>    Moji = Replace(Moji, "e.", "e4.")<BR>    Moji = Replace(Moji, "f.", "f4.")<BR>    Moji = Replace(Moji, "g.", "g4.")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "a ", "a4 ")<BR>    Moji = Replace(Moji, "b ", "b4 ")<BR>    Moji = Replace(Moji, "c ", "c4 ")<BR>    Moji = Replace(Moji, "d ", "d4 ")<BR>    Moji = Replace(Moji, "e ", "e4 ")<BR>    Moji = Replace(Moji, "f ", "f4 ")<BR>    Moji = Replace(Moji, "g ", "g4 ")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "a+", "a4+")<BR>    Moji = Replace(Moji, "b+", "b4+")<BR>    Moji = Replace(Moji, "c+", "c4+")<BR>    Moji = Replace(Moji, "d+", "d4+")<BR>    Moji = Replace(Moji, "e+", "e4+")<BR>    Moji = Replace(Moji, "f+", "f4+")<BR>    Moji = Replace(Moji, "g+", "g4+")</FONT></P> <P><FONT color=#5573b6>    Moji = Replace(Moji, "a-", "a4-")<BR>    Moji = Replace(Moji, "b-", "b4-")<BR>    Moji = Replace(Moji, "c-", "c4-")<BR>    Moji = Replace(Moji, "d-", "d4-")<BR>    Moji = Replace(Moji, "e-", "e4-")<BR>    Moji = Replace(Moji, "f-", "f4-")<BR>    Moji = Replace(Moji, "g-", "g4-")<BR>    <BR>    Moji = Replace(Moji, "+& ", "&")<BR>    Moji = Replace(Moji, "-& ", "&")<BR>    <BR>    <BR>'半角スペースつき<BR>    Range("B8") = Moji<BR>    <BR>    <BR>'半角スペースなし<BR>    Moji = Replace(Moji, " ", "")<BR>    Range("B11") = Moji<BR></FONT></P> <P><FONT color=#5573b6></FONT> </P> <P><FONT color=#5573b6></FONT> </P> <P><FONT color=#5573b6>'ここまで---------<BR></FONT><BR></P> <P>をコピーして貼り付けてください。</P> <P> </P> <P> </P> <P> </P> <P><BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048085_0227.jpg"><BR>こんな感じになればOK。</P> <P> </P> <P> </P> <P> </P> <P>③　Excelファイルの保存</P> <P> </P> <P>ここで一度保存しておきます。</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048089_0231.jpg"></P> <P>ファイル名は　「楽譜変換」　（なんでもよいです）</P> <P>ファイルの種類はかならず　<STRONG><FONT size=3>「xslm」</FONT></STRONG>　にして　マクロを有効にしてください。　</P> <P>違う種類にすると、マクロが消えます（＾＾；）</P> <P> </P> <P> </P> <P> </P> <P>これで基本のマクロは完成です。</P> <P> </P> <P> </P> <P> </P> <P>④　実行してみましょう</P> <P> </P> <P>表示→マクロ→マクロの表示　で、またこの画面が出るので</P> <P>「変換」　を選んで実行</P> <P><BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048087_0229.jpg"><BR></P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048096_0235.jpg"></P> <P>こんな風になればOKです。</P> <P> </P> <P> </P> <P><STRONG><FONT style="BACKGROUND-COLOR: #8192c9" color=#ffffff>B8セル</FONT></STRONG>　か　<STRONG><FONT style="BACKGROUND-COLOR: #8dc540" color=#ffffff>B11セル</FONT></STRONG>　のAION用の内容を、</P> <P>ハウジングスクリプトの楽譜部分に貼り付ければ</P> <P>作った曲が流れるかと思います。</P> <P> </P> <P><STRONG><FONT style="BACKGROUND-COLOR: #8192c9" color=#ffffff>B8セル：</FONT></STRONG>　スペース有りバージョンは見やすいチェック用です。</P> <P><STRONG><FONT style="BACKGROUND-COLOR: #8dc540" color=#ffffff>B11セル：</FONT></STRONG>　スパース無しバージョンは貼り付け用に使っています。</P> <P>どちらを貼り付けてもOKです。</P> <P> </P> <P> </P> <P> </P> <P> </P> <P> </P> <P>⑤　プラスアルファ！</P> <P> </P> <P>図形をクリックしたらマクロが実行されるようにします。</P> <P> </P> <P> </P> <P>挿入→図形　でお好きな図形をお好きな場所にドン！<BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048088_0230.jpg"><BR></P> <P>にこちゃんマークにすることにしました。<BR></P> <P> </P> <P> </P> <P>⑥　マクロの割り当て</P> <P> </P> <P>図形を右クリックして、「マクロの登録」</P> <P><BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048090_0232.jpg"><BR></P> <P>こんな画面が出ます<BR><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048091_0233.jpg"><BR></P> <P>先ほど作った　「変換」　を選択</P> <P>マクロの保存先も　「楽譜変換.xlsm」　ファイルを選択してOKします。　</P> <P><FONT size=1>（保存先の指定は一番最初でもよかったかも。失礼しました）</FONT></P> <P> </P> <P> </P> <P>図形の移動や色の変更等したい場合は、</P> <P>キーボードのAltを押しながらクリックすると、編集モードになります。</P> <P> </P> <P> </P> <P> </P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048092_0234.jpg"><BR></P> <P> </P> <P>にこちゃんをクリックすると、</P> <P>さっきのマクロが実行するようになりました。</P> <P>実行ボタン代わりになって、とっても楽ちんになります。</P> <P><BR><BR> </P> <P> </P> <P>--------------------------------------</P> <P> </P> <P> </P> <P><STRONG>メモ帳等で変換をがんばる場合</STRONG></P> <P> </P> <P> </P> <P> </P> <P>マクロに貼り付けして頂いたあれ、を手動でやっつけます。</P> <P> </P> <P>①　まきまびしーくで作った楽譜をコピー</P> <P>②　メモ帳やワードパットに貼り付け。</P> <P>③　ひたすら　「置換」　の繰り返し</P> <P> </P> <P> </P> <P>置換の内容は、マクロで貼り付ける青い部分を参考にしてください。</P> <P> </P> <P>対象となるのは、</P> <P>　「Moji = Replace(Moji,"●●●","▲▲▲")」</P> <P>この部分。</P> <P> </P> <P> </P> <P>例えばこれ</P> <P><STRONG><FONT size=4><FONT color=#5573b6> Moji = Replace(Moji, "+2", "2+")</FONT><BR></FONT></STRONG>+2　という部分を　2+　に置換　　しています。</P> <P> </P> <P> </P> <P>上の青色の部分、全部やってください。</P> <P><IMG src="http://fs.plaync.jp/UF/image/6347/32/14/81/483/kyoooooh_35992/1048103_0236.jpg"></P> <P> </P> <P>根性で…OTZ</P> <P>全部で何種類やるのかな…ﾍﾍﾍ……数えるのもおぞましい…</P> <P>ですが、マクロを作ってもらうまで手動でやってました。（ﾟ▽ﾟ）ﾊﾊﾊ！</P> <P> </P> <P> </P> <P> </P> <P> </P> <P> </P> <P>長々とお付き合いありがとうございました。</P> <P> </P> <P>マクロについては、</P> <P>組んでからはまだ数曲しか作っていないのでテスト不足な感もあります。</P> <P>もし間違い等お気づきの際には、そっと教えて頂けると嬉しいです。</P> <P> </P> <P> </P> <P>はー…しかしっ</P> <P>ゲームそっちのけでやっちゃって、</P> <P>カルン証がなかなか集まらない理由はこれです！</P> <P> </P> <hr> </body>