/*
　　▼Title　海図を広げて(DQ4)
　　▼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=/:3;$r=r96;

$phrase_1/*1 4*/=o7l4@14-1(((f /:f1& f{e-fe-d-e-d-cd-c}2. >b-a-{g-a-/b-}2<:/g-} f.{e-f}8 {g-a-b-}{<c>b-a-g-}f2e-8d-8 c%768
$rp t80o6l4@14-0>g<dc2& c>b-8<c8>ag8a8 f<ed2& de8f8ge8d8 c6>b-6<c6>a2& ag8a8fg a%768 b-b-<f2& fe8f8ge8d8 e8c8>a1.. b-b-<f2& fe8f8gf8g8 a1.l12/aec+>aec+:/ t75at70et65c+t60[>a6&2t55re&2r>a2]
;
$phrase_2/*5 8*/=o6l4@14-1(f /:f1& f{e-fe-d-e-d-cd-c}2. >b-a-{g-a-/b-}2<:/g-} f.{e-f}8 {g-a-b-}{<c>b-a-g-}f2e-8d-8 c%768
$rp o5l4>g<dc2& c>b-8<c8>ag8a8 f<ed2& de8f8ge8d8 c6>b-6<c6>a2& ag8a8fg a%768 b-b-<f2& fe8f8ge8d8 e8c8>a1.. b-b-<f2& fe8f8gf8g8 a1.l12aec+>ae&/c+:/ l2[e>a]
;

$phrase_3/*9 12*/=o6l12/:6):/r4 r4d-fa-))<c>((a-fa-fd- l16>g-b-<d-fl12g-a-g-fg-fe-fe- g-d->b-<e-c>a-r2 r4l16<e-g-a<d-l12fd-e-f4 >>f6b-l4fb-a- g-<c>aa2 b-2a2[b-e] f1 r1
$rp o6l12b-gb-egb-gb-gedc >gb-<dfgb-<d>b-gb-gb- r2af<d>afd >a<cega<c>a<c>agec  >gb-<dfgb->a<cega<c >>b-<dfdfa<d4>d4 c+>a<c+ega<c+>agec+>a <<c+>ge>age<c+>aggec+
o7d>b-<dfd>b-g<dfd>b-g egb-<c8d8ec>g<c>b-g <c>a<cecec>a<c>aea af+a<d>a<df+df+d>a<d d>b-<dfdfd>b-<d>b-gb- egb-<c8d8eced8e8 r2>a<c+ec+ec+ >a<c+>a<c+>a<c+>a6rr4:/
;
$phrase_4/*13 16*/=o5l16))r4 /:16g-b-:/ e-g-e-g-ce-ce-/:4b-<d->:/ /:8g-a:/ d-2l4[d-e][e-c] [d->b-][a-<c][d-g-]l2[fc] [g-d-][fc]g4 [g%768c%768]
$rp o6l12d>b-<d>gb-<d>b-<d>b-gfe >b-<dfgb-<dfd>b-<d>b-<d r2c>a<fc>af cega<cecec>aec  >gb-<dfgf>a<cegag >b-<dfab-<fa4>g4 >a<ea<c+ec+ec+>agae <gec+>ec+>g<ec+>a<gc+>a
o6d>b-<dfd>b-g<dfd>b-g egb-<c8d8ec>g<c>b-g aea<c>a<c>aeafcf f+df+af+a<d>a<d>af+a <d>b-<dfdfd>b-<d>b-gb- egb-<c8d8eced8e8 r2ea<c+>a<c+>a eaeaeae6rr4:/
;

$phrase_5/*17 20*/=o5l12@14-1ns-7/:10):/r4 [a-%768f%768d-%768] r1 /:3q8[a-b-<e-e>]:/q16l2.[a-b-<e-e] l2[c>a-f]l4[ba-f][b-ge-] [a-fd-][ge->b-]r2. r1r4 r1 ns0[b-1r64<c2.....r64e2....]
$rp o5l4ge2e [f1d1] [af][f2d2][fd] [g1e1]  l2[d>b-][<ec] [f.d.][g4e4] [a.e.c+.][a4e4c+4] l1[aec+] /:8(:/l8r2rafd& l4dc2>b- a<ec>a f+.l8gab-<cd r2rafd& d4<c2>b-4 l6aec+>a<c+e a1/:8):/:/
;
$phrase_6/*21 24*/=o5l64r4 r1 r1 [d-4rg-8...rb-8..][c4re-4ra-4]r4... f2a-4a4 r1 r1r4 r1r4 l8>cgb-<dfgb-<d >cegb-t68<det63at55<c))
$rp o5l12c>g<cegb-gb-ged>b- gb-<dfgb-<d>b-gb-d>b- da<dfa<d>af<d>afd >a<cega<c>a<c>agec  >g<dfb-4cega4 r4afdr2 r1..l32>ab-<cdefga
((l4ddl8r[d>b-]rb- l4[b-1<rc2.] [c>a][a<c]l8r[c>a]r[a<c] [>a1f+1] l4[f<d][d>f]l8r[f<d]r[d>f] l1[e<d4r4c2.] [c+>e] l2[a<c+]r)):/
;

$phrase_7/*25 28*/=o2l4@14-1/:4):/r a-%768 r2<e-2 q8{>bbb}q16b2. <g2f+f e-a-e-f2 e-2f2g c%768
$rp o3c2.c >g1 <d2.d >a1 g2a2 b-2.<e >a2.<e a1 >g2.g <c1 f2.f d1 >g2.g <c1 >a2.<e >a2r2:/
;
$phrase_8/*29 32*/=o3l4@14-1r a-%768 r2<e-2 q8{>bbb}q16b2. <g2f+f e-a-e-f2 e-2f2g c%768
$rp o4c2.c >g1 <d2.d >a1 g2a2 b-2.<e >a2.<e a1 >g2.g <c1 f2.f d1 >g2.g <c1 >a2.<e >a2r2:/
;


t9999 /:$no_skip t72:/;
$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  4  4  1 28  0 12  7  0  0
   30  0  5  5  0 18  0  4  7  0  0
   30  0  5  5  0 46  0  4  7  0  0
   30  0  5  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