Sorcerian 盗賊達の塔 「封印」

「ルシフェルの水門」のブラッディ・リバーだったりボーカルコレクションで森口博子が歌ってたりする曲。サントラが見つからなかったのでWindows版のソーサリアンオリジナル収録のWAVファイルを参考に。けど例によって全然似てない。
や、PC-98版もまだ手元にあるんだけど2DDの5インチだから、今となっては起動できないのがなんとも悲しい。

$BPM=t148;
$roop=4;

$melo0=l16@3@w50@e1,0,10,50,23;
$melod=l16@2@e1,0,10,35,1;
$melo1=l16@1@e1,0,10,52,1;
$melo2=l16@3@w30@e1,0,22,12,1;
$delay=l16@2@e1,0,14,34,5;
$Base=l16@2@e1,0,15,35,0 q14;
$HiHat=l16@4@n8@e1,0,4,1,3 v2;
$Snare=l16@2@e1,0,25,35,1 v15;
$noise=l16@4@n105@e1,0,5,15,1 v4;
$BassDrum=l16@0@e1,0,15,5,1 v15;
$Tom=l16@2@e1,0,15,5,1 v14;

$SD=o4e64&d64&c64r64;
$BD=o4c64&>c64&>c64r64;
$TTH=o5a64&>a64&>a64r64;
$TTM=o5c64&>c64&>c64r64;
$TTL=o4g64&>g64&>g64r64;

$BPM$melo0 v4 /:$roop o6
/:8r1:/g4.f+8e2&e4e4g8.f+8.g8 a4.gf+e2&e2g8.f+8.g8a4.gf+e2&e2d8.d8.d8d4.e8e2 >>e8.grf+ar8gabage<c<
g4.f+8e2&e2g8.f+8.g8 a4.gf+e2&e2g8.f+8.g8a4.gf+e2&e4e4d8.d8.d8d4.e8e2 >>e8.grf+ar8gabage<c<
o5@w70/:2/:2b8.ar8<d4c8>b8a8:/a8.b8.g8&g2 f+8.g8.e8&e2 g4.f+8f+2&f+2d8.e8.d8 d4.ede2&e2r2:/
@w80<g2f+8.g8.f+8 e8.f+8.e8d8.e8.d8 c4.g8&g2&g4 e4f+4g4 a2g8.a8.g8 f+8.g8.f+8e8.f+8.g8 d4.e8&e2&e4 e4f+4g4 
o5@w65/:2b8e8g8df+8>b<e8>a8<d8:/ /:3b8e8g8df+8ce8>b8</d8:/e8 a8f+8g8ef+8de8c8d8 /:2b8f+8a8f+g8ef+8d8e8:/ @w50 r1r1
:/;
$BPM$melod v8 /:$roop o6
/:8r1:/ r8g4.f+8e2&e4e4g8.f+8.g8 a4.gf+e2&e2g8.f+8.g8a4.gf+e2&e2d8.d8.d8d4.e8e2 r2.r8
r8g4.f+8e2&e2g8.f+8.g8 a4.gf+e2&e2g8.f+8.g8a4.gf+e2&e4e4d8.d8.d8d4.e8e2 r2.r8
o5/:2/:2b8.ar8<d4c8>b8a8:/a8.b8.g8&g2 f+8.g8.e8&e2 g4.f+8f+2&f+2d8.e8.d8 d4.ede2&e2r2:/
<g2f+8.g8.f+8 e8.f+8.e8d8.e8.d8 c4.g8&g2&g4 e4f+4g4 a2g8.a8.g8 f+8.g8.f+8e8.f+8.g8 d4.e8&e2&e4 e4f+4g4
/:10r1:/
:/;

$BPM $melo1  v3 /:$roop o5
/:2a8>b<e8ea>b<a8>b<e8ea>b< g8>b<e8eg>b<g8>b<e8eg>b< f+8>b<e8ef+>b<f+8>b<e8ef+>b< g8>b<e8eg>b<g8>b<e8eg>b<:/ /:40r1:/
</:2b8e8g8df+8>b<e8>a8<d8:/ /:3b8e8g8df+8ce8>b8</d8:/e8 a8f+8g8ef+8de8c8d8 /:2b8f+8a8f+g8ef+8d8e8:/ r1r1
:/;

$BPM $melo2  v2 /:$roop o6
/:2a8>b<e8ea>b<a8>b<e8ea>b< g8>b<e8eg>b<g8>b<e8eg>b< f+8>b<e8ef+>b<f+8>b<e8ef+>b< g8>b<e8eg>b<g8>b<e8eg>b<:/
/:2/:4g8>b<e8.g>b<://:4g8ce8.gc://:2e8>a<c8.e>a<://:2f+8>a<d8.f+>a<://:2g8>b<e8.g>b<:/e8.grf+ar8gabagec:/
/:2/:2g8ce8.gc://:2f+8>a<d8.f+>a<://:4g8>b<d8.g>b<://:4f+8>a<d8.f+>a<://:4g8>b<e8.g>b<:/:/
>/:2b8e8g8df+8>b<e8>a8<d8:/ /:3b8e8g8df+8ce8>b8</d8:/e8 a8f+8g8ef+8de8c8d8 /:2b8f+8a8f+g8ef+8d8e8:/
/:2<g8>b8<e8>bb8gb8e8b8:/ /:2<g8c8e8>g<c8>g<c8>g8g8:/ <e8c8e8>a<c8>a<c8>e8a8 <f+8d8d8>a<d8>aa8a8a8 /:2<g8>b8<e8>b<e8>bb8b8b8:/ 
o6/:2f+8>b<e8.f+>b<:/ /:2g8>b<e8.g>b<:/
:/;

$BPM $delay v3 /:$roop  o6 r16
/:2a8>b<e8ea>b<a8>b<e8ea>b< g8>b<e8eg>b<g8>b<e8eg>b< f+8>b<e8ef+>b<f+8>b<e8ef+>b< g8>b<e8eg>b<g8>b<e8eg>b<:/
/:2/:4g8>b<e8.g>b<://:4g8ce8.gc://:2e8>a<c8.e>a<://:2f+8>a<d8.f+>a<://:2g8>b<e8.g>b<:/ / e8.grf+ar8gabagec:/ r2.r8.
o5/:2< /:2g8.f+r8a4a8g8f+8:/f+8.g8.e8&e2 d8.e8.>b8&b2 <e4.d8d2&d2>a8.a8.a8 a4.bab2&b2r2:/
b2a8.b8.a8 g8.a8.g8f+8.g8.f+8 e4.<c8&c2&c4>g4a4b4 <c2>b8.<c8.>b8 a8.b8.a8g8.a8.b8 f+4.g8&g2&g4g4a4b4
/:2b8e8g8df+8>b<e8>a8<d8:/ /:3b8e8g8df+8ce8>b8</d8:/e8 a8f+8g8ef+8de8c8d8 /:2b8f+8a8f+g8ef+8d8e8:/
o6r/:2f+8>b<e8.f+>b<:/ g8>b<e8.g/>b<g8>b<e8.g
:/;

$BPM $Base v13 /:$roop o3 
/:8e8.bb8.ee8.b<f+g>e8:/
/:2 /:2e8.bb8.ee8.b<f+g>e8://:2c8.gg8.cc8.g<de>c8:/ a8.<ee8.>aa8.<ea8.e> d8.aa8.dd8.a<d8.>d e8.bb8.ee8.b<f+g>e8 e8.grf+ar8gabagec :/
/:2/:2c8.gg8.c://:2d8.aa8.d://:4e8.b/b8.e:/<f+g>e8 /:4d8.a/a8.d:/<de>d8 /:2e8.bb8.ee8.b<f+g>e8:/:/
/:2/:2e8.bb8.ee8.b<f+g>e8:/ /:2c8.gg8.cc8.g<de>c8:/ a8.<ee8.>aa8.<ea8.e> d8.aa8.dd8.a<d8.>d / e8.bb8.ee8.b<f+g>e8 e8.grf+arrgabagec:/
/:4e8.bb8.ee8.b<f+ge8>:/
:/;

$BPM $HiHat /:$roop 
/:63cccc:/crcc /:31cccc:/crcc
/:63cccc:/crcc
/:72cccc:/
:/;
$BPM $Snare /:$roop 
/:15r4$SDr8.:/r4$SDr$SD$SD/:15r4$SDr8.:/r4$SD$SD$SD$SD/:14r4$SDr8.:/r4$SD$SD$SD$SDr4.$SD$SD
/:7/:3r4$SDr8.:/r8$SDrr$SDr8:/ /:2r4$SDr8.:/r8$SD$SDr8$SD$SDr4.$SD$SD
/:15r4$SDr8.:/r4$SDr$SD$SD /:18r4$SDr8.:/r8$SDrr4$SD$SD$SD$SDr4
:/;
$BPM $noise /:$roop 
/:15r4cr8.:/r4crcc/:15r4cr8.:/r4cccc /:14r4cr8.:/rcccccccccrcrrcc
/:7/:3r4cr8.:/r8crrcr8://:2r4cr8.:/r8cccccccrccrrcc
/:15r4cr8.:/r4crcc /:18r4cr8.:/ r8cr/:12c:/
:/;
$BPM $BassDrum /:$roop 
/:2/:8$BDr8.r8.$BD$BDr$BDr / r8.$BD:/r4 :/ /:7$BDr8.r8.$BD$BDr$BDrr8.$BD:/ $BDr8.r2$BDr8.
/:8$BDr8.r8.$BD$BDr$BDrr8.$BD / $BDr8.r8.$BD$BDr8.$BDr8$BD:/ r2.$BDr8.
/:17$BDr8.r8.$BD$BDr$BDrr8.$BD:/ $BDr8.r2.
:/;
$BPM $Tom /:$roop 
/:23r1:/ r/:3$TTH:/r4$TTL$TTLr$TTLr4
/:15r1:/r4$TTH$TTHr8$TTLr$TTL$TTLr4
/:17r1:/ r4/:4$TTH:/r4/:4$TTL:/
:/;