/*
　　▼Title　ファイファン5
　　▼From　のどかな街
*/
#USING POLY 16 FORCE
#FMGAIN 127

$patch_base{p,d,v,r}=@14-0 @p%p q16 @q1 @d%d @v%v r%%r;
$patch_1=$patch_base{32,5,100,2};
$patch_2=$patch_base{48,-2,110,0};
$patch_3=$patch_base{80,2,110,1};
$patch_4=$patch_base{96,-5,100,3};

$phrase_1=
l4o6edc>a-< /:l8rc>b<c>a<c>g<c >g4f4e2 rfefgdef e1
r<c>b<c>a<c>g<c >g4f4e4.d16e16 f4.<cc4.>d16e16 f4.<cc2 e4d4c4>a-4
g<gfedc>b<c e2>b2 e<edc>bag+a <c2>f4gf
e4.fgeg<c e2>b4g+a <f2>a4g+a <e2>b2
e4<e2.& e2..>e16f16 e4<e2.& e1:/
;
$phrase_2=o6l4c>a-gf o4l2cc dc dd cc cc dc d1 d1 rr
c.c4 >b.b4 <e>a <fd c>a <f+1 f.f4 g>g <cc cc cc cc
;
$phrase_3=o5l2r1 ef >br rr rf <ef >br rr rr <ag4f4
e1 d1 >g1 rr rr rr <c1 re- rf ed rf ed
;
$phrase_4=o4l2r1 ga a-g ab gf4a-4 ga a-g a1 a-<f g4f4f4d4
>g1 g+1 b-<c+ >aa- g<c >a<c >a1 rf ga- ga- ga- ga-
l8cg<eg>ca<cf >da-<df>cg<ce >da<df>db<db >cg<ce>ca-<df
>cg<eg>ca<cf >da-<df>cg<ce >da<dfa2 >da-<dfa-2 g4f4[f4g4][d4f4]
>cg<cegceg >>b<eg+b<e>g+b<e >>e<gb-<d>>a<eg<c+ >f<cfa[>d2f2a-2<c2]
l4c>bag l8f+>f+<f+a&[a2<c2d2] >f>f<fa[<c2f2] g2[d+2>f2>g2]
<cg<ce>cf<cf >cg<ce>cfa-<d> cg<ce>cf<cf >cg<cet70>cft60a-<d4> t70l1[cgbegb<e1]
;
$phrase_5=o4l4
;
$phrase_6=o5l2;
$phrase_7=o6l4;
$phrase_8=o6l4;

t74;
$patch_1/:2$phrase_1/;$patch_2:/;$patch_3/:2$phrase_1/;$patch_4:/;
$patch_1/:2$phrase_2/;$patch_2:/;$patch_3/:2$phrase_2/;$patch_4:/;
$patch_1/:2$phrase_3/;$patch_2:/;$patch_3/:2$phrase_3/;$patch_4:/;
$patch_1/:2$phrase_4/;$patch_2:/;$patch_3/:2$phrase_4/;$patch_4:/;
$patch_1/:2$phrase_5/;$patch_2:/;$patch_3/:2$phrase_5/;$patch_4:/;
$patch_1/:2$phrase_6/;$patch_2:/;$patch_3/:2$phrase_6/;$patch_4:/;
$patch_1/:2$phrase_7/;$patch_2:/;$patch_3/:2$phrase_7/;$patch_4:/;
$patch_1/:2$phrase_8/;$patch_2:/;$patch_3/:2$phrase_8/;$patch_4:/;

#OPM@0 {
/* AL FB */
    6  7
/* AR DR SR RR SL TL KS ML D1 D2 AM */
   30 12  8  4  1 28  0 12  7  0  0
   30  0  9  5  0 18  0  4  7  0  0
   30  0  9  5  0 46  0  4  7  0  0
   30  0  9  6  0  8  0  1  7  0  0
/* OM */
   15
}