/*
　　▼Title　広い世界へ(DQ8)
　　▼by　レッド
*/
#USING POLY 64 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};
$no_skip=1;$rp=/:5;$r=r96;

$phrase_1/*1 4*/=/:4):/$rp o4l16a<c>/:4eg/a<c:/ o4a<ea<cegb<eo4a<dfa<cefa o4f<cfa<cegao4f<cfa-<cefa- o4eb<dgb<dego4a<egb-<d-egb-
o5dfa<cdfa<co4g<dfa-b<dfa- o5cegb<degbo4e-b-<dgb-<de-g o4a-<e-g<c>d-fa-<co4gb<dgb<dgb
/:12r1:/
o6/:r8d8edredredre/a8:/g8 r8d8agfa8gf8arfr g2r2
r1 /:4(:/ns-7o5l4r{fa<c}f{re} d2.r r{>eab}<c{re}
/:4r1:/
r1 r{>fa<c}fr8e8 d2.r r{>eab}<cr8e8
/:4r1:/
r>b-8<c8d.f8 {efga}e2d8c8 d4r2. r1ns0/:4):/
/:4r1:/ :/
;

$phrase_2/*5 8*/=(($rp /:4(:/o5l16 @14-1 r2.a<ceg l8b&2<c>ab gae2d4 >b<d>ga<g4.e
ef>ab<e4.d >b<cdefga-b- <cde-fg2
/:4):/r4>age4.d {efde}4c4.>ag+a b-<ccddefg a2g2& gredc4.>a ab-b-<ccdef b-1 a2[g2r4>c4]
{ab-<cd}4c4&4.>a b-.<a16g2f4 {efga}4e4&4.c {dcr>a&}4a2.
/:4r1:/
((r4o5f4<f4.>a ab-b-2. r4<c4<c4.>e efd4.c>a4))
o6l16/:3drdrde-de-drd4dr:/ d8r8>c4l24cdefgab<cdefg
(l4r>f<f.>a8 a8b-8b-2. r<c<c.>e8 e8f8d.c8>a)
l16<</:3drdrde-de-drd4dr:/ l8dr>c4r4d4
r1r1 o5gab-<cde-fg {ab-<cd}4>a2gf
</:r4l12effc+dd>g+aa f+gge2{e/gb<e}4>:/g+b<e}4 :/
;
$phrase_3/*9 12*/=/:6):/$rp o6l8 /:14r1:/ r2.c4
{ab-<cd}4c4&4.>a b-.<a16g2f4 {efga}4e4&4.c {dcr>a&}4a2.
/:4r1:/
r4o5f4<f4.>a ab-b-2. r4<c4<c4.>e efd4.c>a4
/:4r1:/
l4r>f<f.>a8 a8b-8b-2. r<c<c.>e8 e8f8d.c8>a
l16<</:3drdrde-de-drd4dr:/ d8r8>c4c4d4
/:4r1:/
r4o7l12effc+dd>g+aa f+gge2r4 r1r1 :/
;

$phrase_4/*13 16*/=/:2):/$rp o5l4r1 rba8a. raa-8a-. rgg8g.
rff8f. reg8g. gfg2
l1e e f e e f b- a2g2
a b- <c d
l4q8cccc >b-b-b-b- gggg ggl24q15cdefgab<cdefg
l4q8>/:f{fff}{ff}{rf}:/ e{eee}{ee}{re} f{fff}{ff}{rf}
l2q15c>b b-a a-g f+4r4l8q8<aaaa
l4/:f{fff}{ff}{rf}:/ e{eee}{ee}{re} f{fff}{ff}{rf}
l2q15c>b b-a a-g r1
l1<e- f g f
a g2r4{<egb<e}4 o5a l4grg+{<eg+b<e} :/
;
$phrase_5/*17 20*/=/:2):/$rp o5l4r1 rgf8f. rff8f. ree8e.
rdd8d. rce-8e-. e-d-d2
l1>b- a b- b- a b- <f e2d2
g f e f
l4q8gggg ffff dddd de-l8eeee
l4q8c{ccc}{cc}{rc} >b-{b-b-b-}{b-b-}{rb-} a{aaa}{aa}{ra} <c{ccc}{cc}{rc}
l2q15>a-g f+f ee- d4r4l8q8<eeee
l4c{ccc}{cc}{rc} >b-{b-b-b-}{b-b-}{rb-} a{aaa}{aa}{ra} <c{ccc}{cc}{rc}
l2q15>a-g f+f ee- r1
l1b- <c d c
f e f e2r2 :/
;
$phrase_6/*21 24*/=/:6):/$rp o5l4ns-7@14-1 r1 /:r[bg][b8g8][b.g.]:/ r[af+][a-8f8][a-.f.]
r[ge][f+8e-8][f+.e-.] r[f+d][a8f8][a.f.] [ge-][ge-][f+2d2]((
ns0l1>g f g g f g <d c2>b-2
r4/:6(:/l8fga<cfa g4.ab-gd>b- r4a<cdefa b-4.>b-<c4df/:6):/
l4q8eeee dddd >b-b-b-b- b-b-l8b-b-b-b-
l4a{aaa}{aa}{ra} /:g{ggg}{gg}{rg}:/ a{aaa}{aa}{ra}
/:3r1:/ r2l8q8b-b-b-b-
l4a{aaa}{aa}{ra} /:g{ggg}{gg}{rg}:/ a{aaa}{aa}{ra}
/:4r1:/
l1q15g a b- a
<d d d l2[d>b]l4[b<d]r)) :/
;

$phrase_7/*25 28*/=/:2):/$rp o4l12@14-1r1 a&4b<cd2 >f&4a<cf2 >e&4fga2
d&4efg2 <c2e-2 >a-4<d-4>g2
o4l1c >f g <c >f g /:o4l8c<crcrcrc:/
@14-0o4f4<f.f16>f<f4. >g4<g.g16>g<g4. >a4<a.a16>a<a4. >b-4<b-.b-16>b-<b-4.
@14-1>a2.>a4 g2.<g4 e-&2re-4 c2l8q8<c>b-ag
o3f4r2r{fff} g4r2r{ggg} a4r2r{aaa} <d4r2rd
/:3r1:/ r2l8q8o5c>b-ag
>f4r2rl24fff g4r2r8ggg a4r2r8aaa <d4r2r8q15d8
/:3r1:/ <d4[d4>d4]][f2g2a2]
l1r r e- d
b b b <e2>e2 :/
;
$phrase_8/*29 32*/=/:2):/$rp o3l12@14-1r1 a&4b<cd2 >f&4a<cf2 >e&4fga2
d&4efg2 <c2e-2 >a-4<d-4>g2
r2.o4l4c fr2f gr2g r2.c fr2f gr2g /:o4l8c<crcrcrc:/
@14-0o3f4<f.f16>f<f4. >g4<g.g16>g<g4. >a4<a.a16>a<a4. >b-4<b-.b-16>b-<b-4.
l4a2ra gr2g e-r2e- c<cl8>c>b-ag
l4f<cfc >g<dgd >a<ea>a <da<d>d
/:3r1:/ (r2l8q8c>b-ag
l4q15f<cfc >g<dgd >a<ea>a <da<d>d
/:3r1:/ r2>g2
@14-1o4c2.c d2.d e-2.e- d2.d
l1r e r e2>e2) :/
;


t9999 /:$no_skip t88:/;
$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
}

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

#WAV9 0,63,0,DfzeCGbw/IYD07ynCJ2r4kqNmypptZpSMzkrLVOrNFVVrSqtTFWtKlVVrSoPDn4xznjFkF+Dou8skZnTRlXTmpSduEotrqp4qpIttSnNVEurqlJVq6pSS6ssK1WtKs0HD/D7EMyLOh8Dde6SA+kfKS0zCzfHyViuzNSqipX1HIHFf5DRfUj4RR5eGON/AVB/Nai8J+DGj8jHM8iFH3PEGnueA7g6Xnio/ImIH8PvATVw/uCZ1OF4YqsFH/zgTYzq6hFhfmPIzm0E7niGzRnmqRrsGSmfuUwo1fYxHE6lD0vt0DhWrZUJb5SzuNRRo9YVK+l0iU0rmermVEYsb1VSabNS16hIfdNCdNlaRbYyVdl4I+pJm9BbMW5YtSq1ylSuJtVUW1GZdqNU1VJrqixVjU6rqUplbVG2qapS2lopVS2tqlKtSstKWatMrSpVVbOqSlW1tKosVatKtUrVykqtKlVVrUqrLFXVqlJVtVLVqkpTTVW1qlTNqlRVs0o1S6tKVa2qVLVUVU0zVasq1dJSVdWqUlW1qlRVq1JVrUpVtVS1qkpVVVVVrUpVVa1UVVUrVQ==
#WAV9 1,64,0,if9Af4AHH0kvHoUf8I+Bz9EH/Agf6IMfQT/+gD7gF30E/qA/0AFf3Af6cPgD7QF+4BfwVwH94C/gH/ADf4A/8AN84Q/oH4D/gF98AP/ggR/4A33gH/gDvsAP8B/4wOPh4g/4AV/wB36gwyfqQf0BX+AP+AMfLmtqcGXtgsnj4fjBI5MvkP7AH/gBf+AHroIf2B8c/HDoqFvwB/gL+mCVWvkwfNCHPwB+8Qc+4If8oA8aP/BBP7AP+sEf0A46+KAvvKg/wB/0gH9gPXDRB/4BPvhD/LA88AcetG2R+AN/wB/4Af7AB3fYA3zwD/gHfGF/4Als/wCn4Af8Ab/og5/A/gG8kXbwK6AftA/0Bf4BH+gP+oJ2gfsDfcA/6AH6YZOmBx/0gz/gD/wAf8D2BPzgJ/wD+FNQfXB64IM/2BJ/gD/wC/wB7+DhB3rgD/gH/MEfeLAB+4I/wB/8Aj5Vh35AP1zwhe7gNfCFp+ID/IUuvuA0nRp84F/AV6APn6J2QR+6gb8A/cEPfrD0YeAPfGhH8Av6w/BBvwB/0BfoH/gE/AOvhT/AD+gf8Ac8C/4Af/CD5Ad/AT948GqF6gv4Af/AH+CP0ipOH/AD/oAf/AX8Ae7i8AM/sH+AH/DCDxu8JfjBq/AHvogOvaTDw0N/QD9RlQ/8QF8UPpr4wP+AH+AHPvzA1fCDzgd+cMH6wPWAnwN+uHShD/rgA/0A/4EPPtiSHviDyZcm/BTWluhS+Qc+gD/oEf7B6MqgPxj9A/EHVokv8I/A/4AfeAH9gT/wo+gHugfwB/qCP+DXoC+BH/iB+4EP8Adfgj856AveAR/wDx5XyE/Sge/AH+iBbwdfwD4qXuAv4Icuelzw0cHlDQ7+QH5BH37AnvSgP/Cgo8MPPuAvWA/wPdAPXA/+gHrwB8eilw78wPzAH9APPhzxjvCiK8kX/AJ+4C/BD/ww+IX4A/7gFfQHfKzCx2EDP/AX+IEvOvwB/kQt8CP9CHw6Hg4/4HvgKvrA4wXl46K+JPgL/JBd4A/4D8A/4A/8gU+Ef+CDrSP4A/eBH+An8AdfLLyM+sAP+AfOFfyg18AvgB/6onZgn/igL7T4UHrQfYEP4A9+gX+ALz644tHwA/4BP/jB8AdtiQ4ffMA/+MLxAX7gD/gu8Av4RfSBL/il0opcXvCBP6AP/Bb8gXvg0QcPQz/4KPUBH2x5wT/oWOAH/QB/cH3wBfoBfiz64InDD/QPeBt8wJ+gD4sP+AP+Af2AP+AX9CX4o+ILH6Af+A34wS+Af/B54At8AfwDfuGTtkpVXjQuPuAX8QX9gD944mqh7MheIX6wP/ADPFX8gPfA14EP9Af8gC+6VNwruB7wA/jDx8LroA+udOAP/MBXwR/o48Fh7YC/EH4YP2gP+Af8Az5wH+BjSw/8gP6AX6ge/MArl8KLhwc/0A9+4FXQx9EiHx58gT+gD/4B/QMPjg8L/0Af8Ae+gD/wePiAxx/4gV7gH/AHo4cHnvyg9QJ/4APXA3y0jlY90QdXKj7w4oncVLLDD3wV2tEDHw67hYuHH7ip0GUPqqvEHzwcPqJ+0Ljw0cQPvC7wBz7gPuAHP7jo4WgP6gs+4B/QBw8fHvj4gD/g5+CDD4cPPmQL/IG+6CX0YfqDwceh+gHtXdC6wOMDG5+AvwM/+IHrAn0i/eB08AfiB/4EfXJhB3+gu8BXwQ++gL6itgl+cCv4KfgpfLjEU1VVD3x4tJI+0AdXT/DReImPwh+wL6wKd8Grwhs8VeniVvjgg8fBgx9sD6ZuyUM34fJA/cBb6Av0B9fgIwsf8JPSB+sHHxg/Kj7gLuEX9iD+oCeDD8cPfEodXfDhA31Yg6/hweOFL4EffBh+cAsvD3rwUfrggw8OvQ30OXi4lJpdsF+AX7IFnzw4DV4XvEof8IsleuJh1AfdC37gI8EfVg8OvriovZD+gFtwK/EB3wv2wQP9gQ86dDn4Uh/wA//AKvyAfSK+NsIvtFI3cBeyw4fsB3x4+MBH4cfCPhoPfOCHR3w4u+ADrwf8gkcH9wE/4FfwOejiE7rgg74SX3Rw44ProKsVVZtUo8OLHlwvcK10YVNbHJxewq2KF7aDL2BftPBJD9QP+IM+uBYeD/jo8IPFxR/Qh6oPjvqCox8MfKkrhT98EH4W3HHggw+7OPA+4eXgE/ngdHAu4qOLjY+JHgfXqUEfXNwO+Kk06Qfi49HhsqIH1ws87aDTCg8Xjw/8wqNFHxwvoD944C/oVWEHX3D5Ba2iJ16il4qHFzY9eKhV+mD6oD04fDzwqfCBH9IPfKWy4sEH+oOuxEe8iQ4fXC35gK/hxaEv8DHyg57oSunk4fBpA78CfhR+uAr+gG8DT114wcfhFuUV+DR54ckqPpRXWPiDD9YL/AFf6AWPriR/wA+6knbwSn7QhT7gi9oDzwM/sA/hx+LC3uCBj8vB0wo/8DrwhSupPmhr0vChF/ALP6JLlR+sdNAX+AP+kG3oLvBqqDvwoUtRP8h+YKfigy8QPw5beYHHB18cPK4N+INVk8sFP+JpgR/6ga6FrlQP+lB1+KBXYtVFHi4PWnrwxYMtegr+wdFsieODLl3IthOLDy61oqMv4LMFj3p0tMHnwMfhB3xRq6Irq5podcEXx8IntUmlHvrgXGhdWD44fLKkq1JVPThuol7qgB/UBz0tbgUfrqoGn6Lsgx/wqWqoBw9P5YNH6bJRVasmZU/gi96gc4Efh4sXeqJH8WE9eHjo6NLkYavSDheLHzgefAo/sCvTRj14wY+wD64WbUj9sCqNOqkvgS/4g97A46EnXmhtrOSDXdAP+AP5Ee+Cp+AXVisHH8oH+wI/wR+4Jnx4gz54A34JPpZH/Ch8eBp6EV/wkSfJB58cvIq+8DB8LPTh4LNq8A6Dn6Kb0uLBF/xw2JKdHC16RdpBz4qeZBc89dADX0r8kEt8kfoBX4UPfLTEl8CnSwc/8Kzwg8ehiy6ekD/QR8MPPhS/gH0Rh4+Huhb8ge7gDvg88BXxoZ3Ij9Af+MCjCz8GH4ueaD24DroWHS55uMKHPlQ8dehJi6ssdcHTUW3RYV3wA8cnHR4e6lqkR0vVGpruwfDhuMqFo4fTBV22irqFfTA+HB31YPkJZgdfPDj1gvgDV8vK4rGiD9Qf+IEfgU/VCh92cVS6g4fjgyfZsaSLhxc1PfjA46F2gh/hR+MDfmQX+At8TeiDK+oV0frAD9KH6QP+AF+OL8APfgx+Qn3gXegm7BP8Ae+gqwYfwj/wB3wOfmB9wJuwD/DH4oM+aFvCT8Av6Qs+iVsFP/ADPj7gW/B48MGXlPyILq201INHXlSrkraqxEfWRrOy0gUfgz6pPvAlPlzoA/6Q/IIP6AfXFfzADwc/8AfpDdwH7qBeRD/gPtix8In6gvWCPugFfhUtuoOtbNSqcF3wgb/Ax1Kr6JEuq/CJq6IPvBZOlR55eFJd5MPDUXmR1Yau4iq1FbpJl+g46UXl4dJRF4setUW2kp4SHy5taHbwQ/KDLhdeaD34sFKrSk30peiJj8KHoxepbYKf1JPCO+gW0SeVLXmFR7UDn+Bz4ZaCX9BXokv0gd0HekWH60TVStWkD9oW+AvqKl4T/IK+wEfRBy8P8RGfg0vDH1Se6BXaB+UTfNAeNiuWtoOLPiq6wReOTS15Uj1oK16Kjqt48IMHfTQeF550UkddWB384EO1RYuHm1S9gD+wDy4r+KLWFezDUWkP8YNu1JZEP/BaoT3wCfuC6WHpUXVRF6OHjZ7wiU5LW/CDHuqJ/KB6oQ/4w8EXHR36oD3QL+iD9cBVR/qAn+AP7BN8YfmAv8Av8AtWD/ygJ1UXsp/AR/oB/oCvBteD0+QX8IP64ImrKtpW8FH6oKfEL3CX6EO2qniSPjRVbcGr6EmHLXoc9AVfQh/uaPAmlV70QB9qV/BUq8G+4EWuUpVH9AX+wD7YsaJ+8Cj0g1uiS9V0kQ+6EX2oH/BD2rT4cNiF5UPZYRf0UT2oF3zBtUXaBX+gq/BDalvwUcdGrbBrIT+0CW9FfDT4oavBF06Lh1NHtaVEH9wF+8A3pF3BHnYVuoOuUsvCD+wLvFKtoitVPcJb5Kp4QU+HPVgb/AG+Sm2iU1OrwYeuih7seLgl7IPukLZSbaQv8EPVKq3wSod2oRtestJR+sCHNj34wPWCDw4/eDR5wVOrZBd+gZvoC7ZSK7XYA5/ID7ysWtFUuYpLVSu14kW2kg9Vk7aFHrrhoW3iha5FdtRKrVRVm/ALDzquShtWW9ihrVT0he2gJy5LulrEF3whP/Dh8FGrwZcc/KAnlp3YqXgatqKbki61ePCJPuiq0dRKbcgPvEot6aEP+ZD8oIduUV7UBX3hhXpwNxxu8FGLragX+LLiwhft4Kp46IPVwRfqA6+myIet1KqKPuJRO7DLip0s6tHk6AumFy41VfWgDx4rbVzBp+JRD17wg87KoqtUHXZhq6iHSx58iZ50KqVHK3w4nuTiJQePT9AXeuIJPk4PfCn4Q1MbPE4uS3qJelEdPJ7oVfBhm/AlOrpF+mBt8IO60kqdlE2ttCp6VDvwydQOrlJ5eFQX/KAv4Hlx6IOHdYNd6ORqCa8avKqq8OLipfCsFXid4tCHD1V1eBH1I9XiAy91MrVox0OpXuTihSvVhSst2kot2gWPD5u4qeiW8IonlSs2ddGiRy4TD2+Fq6gvuBqqJ/WQdniiXrCzSkdHdWxasB/gD3mhW8InWdUllV6kPdGirjQ+2OAP8Ymt1BYtLtUOnnB1YZu4GnyRXfCl+MCHR4cXPmRXuNIGH7oqfEX0wVfoC9UT6eHF4CsHe7jSykVrSpWPaNVGxQf9wA/sDaWXtMJLLa5idYVNyybpQ+lKG00rVZdK5UPl1sCLrYorVfqgJx66og/sB12SnrCX5IpNK3qRS9UqLkfWRrrYypI9qD7o4ngFn1STPvDhJdkVetQq2iqVrkp2tFJtMjWukvagdriSS9PBL2Sr0lRbcNVKNWsJX4nusKLLhaPjkq1KtXjSpcIXfAn+4GxSq8IXdmK1Si5VF9aqYke6oR5N8qFuuEp8iV7oDuxF6kPVSh6WW4muokt2oqtSLietlB3cE3ziSdVKzUpLk6uSPlQXVqvwKjVb8IneoB3VBj/oFnqhS0tNJ9omVbWDOptSdWFLbcG+wB2tCm+JziY6XWS1svBZNLqJJ16i3cAX+qC+YJPVSXVJ2UVLTTVVq1K15LGyVG1SrcRLuYN66KqKq+RR1Soetaqc6IU+VC26UbVSlUtH00k+LA1PK7ms5EYb1Sq19KB2wke1SrWykieLh4dVS67UJq6WeLRSo4tj5ZFeSSt6wZeoSx7Z4kbZQ7WJZWtStfiQl4ortUpdRB9Ni/qoeNTU4bLRivzQSuOhS6tS9eBKK1O2Sq6sVK1KrTS1rFLV