/*
   [FC] CHALLENGER [SCENE 4 : RESCUE PRINCESS!] (C)HUDSON SOFT 1985
   FlMML MML by LinearDrive
   date:2011-06-19 [FlMML c.s.7997]
   JASRAC: 050-5463-0
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EF= @e1, 0,112, 0, 0;
$EE= @e1, 0,108, 0, 0;
$ED= @e1, 0,103, 0, 0;
$EC= @e1, 0, 98, 0, 0;
$EB= @e1, 0, 92, 0, 0;
$EA= @e1, 0, 86, 0, 0;
$E9= @e1, 0, 80, 0, 0;
$E8= @e1, 0, 73, 0, 0;
$E7= @e1, 0, 66, 0, 0;
$E6= @e1, 0, 59, 0, 0;
$E5= @e1, 0, 51, 0, 0;
$E4= @e1, 0, 43, 0, 0;
$E3= @e1, 0, 35, 0, 0;
$E2= @e1, 0, 27, 0, 0;
$E1= @e1, 0, 18, 0, 0;
$E0= @e1, 0,  9, 0, 0;


/* 音量バランス定義 */
$VS15= @v63;
$VT=   @v124;


/* シーケンサ初期化 */
$M= r8 x0 q16 @q0 o5 ns0 @d0 @x127 v0
;


/* RP2A03 SQUARE-A */
$MA0=
   $M l16 @5@w2 o6 $VS15
   $EC
;
$MA1= 
   /:4
     r4 e8r8 f+8&f+4 e8&
     e4 g8r8 f+8&f+4 e8&
     e4 c8r8 d8&d4   c8&
     c1
   :/
   <b8>c8d8c8r8<b4.
   b4>c8d8r8c8r8<b8
   a1
   a8b8>c8<a4a8b8>c8<
   b8>c8d8<b4b8>c8d8
   f4e8d8r8c4.<
   b8>c8<b8a8b8g8d8<b8>>   
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l16 @5@w2 o5 $VS15
   $EC
;
$MB1=
   /:4
     r4 g8r8 a8&a4 g8&
     g4>c8r8<b8&b4 a8&
     a4 g8r8 f+8&f+4 e8&
     e1
   :/
   g8a8b8a8r8g4.
   g4a8b8r8a8r8g8
   d4c+8<a8r8>d8c+8<a8>
   f8g8a8f4f8g8a8
   g8a8b8g4g8a8b8
   a4a8a8r8a4.
   g8a8g8f8g8d8<b8g8>   
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l16 @6-1 o3 $VT @e1,0,0,127,0 q8
;
$MC1=
   /:16
     a8>d8e8a8< a8>d8e8a8<
   :/
   f8f8>c8f8r8<f8>c8f8<
   g8g8>d8g8r8<g8>d8g8<
   a4.a4.g4
   f8f8>c8f8r8<f8>c8f8<
   g8g8>d8g8r8<g8>d8g8
   d4e8f8r8f+4d8
   g2 r8<g8g8g8
;


/* 再生 */
$LOOP=48;
t180
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;


/* EOF */