ハウジング用楽譜製作

ハウジング面白いですね~。
とくに音楽を流すのが楽しくって、楽譜作りに夢中になっています。
とはいえ、
「 >c4+rf4.+g4+g16+g16 」
こんな記号の羅列で楽譜を書くのは難しい。
たった3小節の書くのに丸1日かかってしまいました。
しかし3人の救世主が現れた…!
ということで、自己流の楽譜製作方法です。
・楽譜がある程度読める人むけ
・一部丸投げ
ではありますが、ご興味ある方はどうぞ~
※ あくまで自己流なので参考等は自己責任でお願いします ※
フフーン、ヘェェ~くらいでなにとぞっ!
<準備するもの>
・マビノギ用楽譜作成フリーソフト 「まきまびしーく」 さん
(開発室→ダウンロード→β版の一番上のバージョンの物をインストール。)
・Excelマクロ (メモ帳等でも代用できますが根気が必要です)
<手順>
① 「まきまびしーく」で楽譜を製作
② 移調
③ ちょこっと手直し
④ ExcelマクロでAION用に記号の変換
-----------------------------------------------
ではスタート。
① 「まきまびしーく」で楽譜を製作
AIONの記号のような楽譜、
別ゲームですが「マビノギ」での楽譜に凄く似てるそうです。
マビノギ用のフリーソフトを、AIONの楽譜製作にもお借りすることにしました。
救世主…!
「まきまびしーく」 こんな画面です。

ざっくり説明ですが、
・縦の鍵盤: 音程
・横: 音の長さ
・画面下の赤・緑・青: 音のチャンネル
これを使って、ガツガツ楽譜を書いていきます。
作った曲を聴くこともできる、すんごいソフトです。
振り込めない詐欺だ。
操作については…
あまりにも多機能なので、ここで私が一から説明することは無理です。
(>Д<)スミマセン
なので、2人目の救世主 「ちゅらまび。mml」 さんのブログをオススメさせて頂きます。
分かりやすく丁寧な解説で助かりました…!
メモ的追記ですが、

↑上の楽譜の「ド」は 「まきまびしーく」では 「4」 がある場所の 「ド」 です。
入力音符の種類が沢山ありますが、
ドラッグすることで長さを決めることもできるので、
八分音符モードで、ぐいっと伸ばして全音符まで入力したりしてます。
らくちん!
② 移調
ここからAION用への変換です。
まずキーを直します。
「ドレミ」 と楽譜を作っても、
AIONのハウジングでは 「ファソラ」 にに聞こえる不思議!
勿論そのままでもきちんとした音楽ですが、、、低い…。
気になるので私はキーを直します。
「まきまびしーく」 の ツール→移調

この画面が出るので

移調量を 「7」 にします。
これでAION用にキーが合います。
③ ちょこっと手直し
移調をすると、楽譜が崩れてしまう場合があるようです。
一パートずつ聞いてチェックして、修正してください。
④ ExcelマクロでAION用に記号の変換
楽譜が出来ました。

メロディや和音1・2 …の隣にある記号の羅列、
これがゲーム用の楽譜です。
が、このままではAIONでは使えません。
記号等の順番が違うんです。
例えば…
マビノギ用 「 f+8. 」
AION用 「 f8.+ 」
他にもまだまだAION用に調整しないといけないので、
Excelのマクロを使って一括変換しています。

・B5セル に「まきまびしーく」で作った楽譜を貼り付ける
・マクロを実行
・B8セル にAION用に変換された楽譜が出る
といったExcelマクロを作りました。
相方氏(3人目の救世主)に手伝ってもらって…(^^)
-------------------------------------------------
マクロの製作方法です。
もしよろしければどうぞ。 (間違いなどあったら教えてくださいな)
① Excelを開く →表示→マクロ→マクロの表示
こんな画面が出るので、

マクロ名に 「変換」 と入れて作成。
マクロの画面が出ます。

② マクロの貼り付け
Sub 変換()
●ここの部分に●
End Bub
'ここから---------
Dim Moji As String
Moji = Range("B5")
'置換
Moji = Replace(Moji, "a", " a")
Moji = Replace(Moji, "b", " b")
Moji = Replace(Moji, "c", " c")
Moji = Replace(Moji, "d", " d")
Moji = Replace(Moji, "e", " e")
Moji = Replace(Moji, "f", " f")
Moji = Replace(Moji, "g", " g")
Moji = Replace(Moji, "r", " r")
Moji = Replace(Moji, "o", " o")
Moji = Replace(Moji, "<", "sss")
Moji = Replace(Moji, ">", " <")
Moji = Replace(Moji, "sss", " >")
Moji = Replace(Moji, "+2", "2+")
Moji = Replace(Moji, "+8", "8+")
Moji = Replace(Moji, "+16", "16+")
Moji = Replace(Moji, "+32", "32+")
Moji = Replace(Moji, "+64", "64+")
Moji = Replace(Moji, "+1", "1+")
Moji = Replace(Moji, "-2", "2-")
Moji = Replace(Moji, "-8", "8-")
Moji = Replace(Moji, "-16", "16-")
Moji = Replace(Moji, "-32", "32-")
Moji = Replace(Moji, "-64", "64-")
Moji = Replace(Moji, "-1", "1-")
Moji = Replace(Moji, "+.", ".+")
Moji = Replace(Moji, "-.", ".-")
Moji = Replace(Moji, "r1.", "r r r r r r")
Moji = Replace(Moji, "r16", "sss")
Moji = Replace(Moji, "r1", "r r r r")
Moji = Replace(Moji, "sss", "r16")
Moji = Replace(Moji, "r2.", "r r r")
Moji = Replace(Moji, "r2", "r r")
Moji = Replace(Moji, "r.", "r r8")
Moji = Replace(Moji, "a.", "a4.")
Moji = Replace(Moji, "b.", "b4.")
Moji = Replace(Moji, "c.", "c4.")
Moji = Replace(Moji, "d.", "d4.")
Moji = Replace(Moji, "e.", "e4.")
Moji = Replace(Moji, "f.", "f4.")
Moji = Replace(Moji, "g.", "g4.")
Moji = Replace(Moji, "a ", "a4 ")
Moji = Replace(Moji, "b ", "b4 ")
Moji = Replace(Moji, "c ", "c4 ")
Moji = Replace(Moji, "d ", "d4 ")
Moji = Replace(Moji, "e ", "e4 ")
Moji = Replace(Moji, "f ", "f4 ")
Moji = Replace(Moji, "g ", "g4 ")
Moji = Replace(Moji, "a+", "a4+")
Moji = Replace(Moji, "b+", "b4+")
Moji = Replace(Moji, "c+", "c4+")
Moji = Replace(Moji, "d+", "d4+")
Moji = Replace(Moji, "e+", "e4+")
Moji = Replace(Moji, "f+", "f4+")
Moji = Replace(Moji, "g+", "g4+")
Moji = Replace(Moji, "a-", "a4-")
Moji = Replace(Moji, "b-", "b4-")
Moji = Replace(Moji, "c-", "c4-")
Moji = Replace(Moji, "d-", "d4-")
Moji = Replace(Moji, "e-", "e4-")
Moji = Replace(Moji, "f-", "f4-")
Moji = Replace(Moji, "g-", "g4-")
Moji = Replace(Moji, "+& ", "&")
Moji = Replace(Moji, "-& ", "&")
'半角スペースつき
Range("B8") = Moji
'半角スペースなし
Moji = Replace(Moji, " ", "")
Range("B11") = Moji
'ここまで---------
をコピーして貼り付けてください。

こんな感じになればOK。
③ Excelファイルの保存
ここで一度保存しておきます。

ファイル名は 「楽譜変換」 (なんでもよいです)
ファイルの種類はかならず 「xslm」 にして マクロを有効にしてください。
違う種類にすると、マクロが消えます(^^;)
これで基本のマクロは完成です。
④ 実行してみましょう
表示→マクロ→マクロの表示 で、またこの画面が出るので
「変換」 を選んで実行


こんな風になればOKです。
B8セル か B11セル のAION用の内容を、
ハウジングスクリプトの楽譜部分に貼り付ければ
作った曲が流れるかと思います。
B8セル: スペース有りバージョンは見やすいチェック用です。
B11セル: スパース無しバージョンは貼り付け用に使っています。
どちらを貼り付けてもOKです。
⑤ プラスアルファ!
図形をクリックしたらマクロが実行されるようにします。
挿入→図形 でお好きな図形をお好きな場所にドン!

にこちゃんマークにすることにしました。
⑥ マクロの割り当て
図形を右クリックして、「マクロの登録」

こんな画面が出ます

先ほど作った 「変換」 を選択
マクロの保存先も 「楽譜変換.xlsm」 ファイルを選択してOKします。
(保存先の指定は一番最初でもよかったかも。失礼しました)
図形の移動や色の変更等したい場合は、
キーボードのAltを押しながらクリックすると、編集モードになります。

にこちゃんをクリックすると、
さっきのマクロが実行するようになりました。
実行ボタン代わりになって、とっても楽ちんになります。
--------------------------------------
メモ帳等で変換をがんばる場合
マクロに貼り付けして頂いたあれ、を手動でやっつけます。
① まきまびしーくで作った楽譜をコピー
② メモ帳やワードパットに貼り付け。
③ ひたすら 「置換」 の繰り返し
置換の内容は、マクロで貼り付ける青い部分を参考にしてください。
対象となるのは、
「Moji = Replace(Moji,"●●●","▲▲▲")」
この部分。
例えばこれ
Moji = Replace(Moji, "+2", "2+")
+2 という部分を 2+ に置換 しています。
上の青色の部分、全部やってください。

根性で…OTZ
全部で何種類やるのかな…ヘヘヘ……数えるのもおぞましい…
ですが、マクロを作ってもらうまで手動でやってました。(゚▽゚)ハハハ!
長々とお付き合いありがとうございました。
マクロについては、
組んでからはまだ数曲しか作っていないのでテスト不足な感もあります。
もし間違い等お気づきの際には、そっと教えて頂けると嬉しいです。
はー…しかしっ
ゲームそっちのけでやっちゃって、
カルン証がなかなか集まらない理由はこれです!