#TITLE リンクの冒険 / 神殿
#ARTIST TSUKASAN (Akito Nakatsuka / Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/26 rev.1 // rev.0(id:11418)にループミスがあったので修正＆微調整


$LOOP = 32; /* 好きなだけリピート */


#WAV13 2,80 F0 F0 EE EE EC EC EA EA E9 E9 E7 E7 E5 E5 E4 E3 E2 E2 E1 E0 DF DE DD DD DC DB DA DA D9 D8 D7 D7 D6 D5 D5 D4 D3 D2 D2 D1 D0 D0 CF CE CE CD CC CC CB CB CA C9 C9 C8 C8 C7 C6 C6 C5 C4 C4 C3 C3 C2 C2 C1 C1 C0 C0 BF BF BD BE BC BD BB BD BA BC B9 BB B8 BA AA 18 10 12 11 14 13 16 15 18 17 19 19 1B 1B 1C 1C 1E 1E 20 20 21 21 23 23 24 25 26 26 27 28 29 29 2A 2B 2B 2C 2D 2D 2E 2F 30 30 31 32 32 33 33 34 35 35 36 37 37 38 38 39 3A 3A 3B 3B 3C 3D 3D 3E 3E 3F 3F 40 40 41 41 42 42 43 43 44 44 45 45 46 46 48 47 49 /* FC_Sqr(1:1) */

#WAV13 4,80 81 82 8C 93 91 93 90 99 A3 9F A2 9F A6 AF AE AF AD B0 B9 BD BB BB BA C3 CA C7 C8 C5 CC D5 D2 D3 D1 D6 DE DE DD DC DD E5 E9 E6 E7 E5 EC F3 F0 F0 EE EE EC EC EA EB E6 DD D9 D9 D8 D7 CE C7 C9 C6 C8 BF B6 B8 B5 B7 B0 A6 A6 A5 A6 A2 99 95 96 95 95 8C 84 86 84 87 7E 75 77 75 77 71 67 66 67 67 66 5C 56 59 57 59 50 47 4A 48 4C 43 39 3B 3A 3C 38 2E 2B 2D 2D 2D 23 1C 1F 1E 21 18 0D 12 10 14 0C 02 03 03 05 06 07 08 08 0A 0B 17 21 1E 22 20 2B 36 35 38 35 3D 49 4B 4B 4B 4E 59 5F 5D 60 5E 69 72 6F 72 6F 78 82 81 /* FC_Tri */

$L2{m} = %m %m;
$L4{m} = /:4 %m :/;


/* =-=-=- SQR -=-=-= */

$ExS1 = @E1, 0, 104, 0, 0; /* |＼ */
$LxS1 = @L7, 32, -3, 42, 99, 0;

$SQ01 = /:2 g2rab-<d e-4.>b-4.<e-4 e4.>b-4.<e4 e-4gf4e-4. / > :/ ;
$SQ02 = /:2 dd4d4dc2r2. dd4d4d / e-2r2. :/ f2re-4.d4 > ;

t150 @13-2 @V64 o5 l8 q16 $ExS1 $LxS1
gg4g4g4. b-4.a4.a-4
/:$LOOP
　/:2 $SQ01 / $SQ02 :/
  /:2 c>ab-<c4>b-a4 af+ga4gf+4 / <fcde-4dc4 c>a-b-<c4de-4 :/ dd4e-2r dd4f+4a4<c
  /:2 d2rc4>b-a6b-6<c6d6e-6f6 f2re-4de-6d6c6d6e-6f6 g2r>g4ab6<c6d6e6f6g6 f2re-4de-6d6c6d6e-6f6 :/
  $SQ02
:/
;


/* =-=-=- SQR -=-=-= */

$SQ11 = /:2 d>b-g<d>b-g<d>b- <e->b-g<e->b-g<e->b- <e>b-g<e>b-g<e>b- <e->b-g<e->b-g<e->b-< :/;
$SQ12 = /:2 f+f+4f+4f+f+2r2. f+f+4f+4f+ / f+2r2. :/ f+2rf+4.f+4 ;

t150 @13-2 @V64 o5 l8 q16 $ExS1 $LxS1
dd4d4d4. f4.e4.e-4
/:$LOOP
  /:2 $SQ11 / $SQ12 :/
  /:2 $L2{f+c>a<f+c>a<f+c} / $L2{>g+<cf>g+<cf>g+<c} :/ >aa4a2raa4a4<d4f+
  > l16 /:2 $L4{gb-<dgb-gd>b-} $L4{a-<cfa-<c>a-fc>} $L4{gb<egbge>b} $L4{a-<cfa-<c>a-fc>} :/
  < l8 $SQ12
:/
;


/* =-=-=- TRI -=-=-= */

$ExT = @E1, 0, 127, 127, 0; /* |￣| */

$TR01 = /:2 grdgrdb-d gre-gre-b-e- gregreb-e gre-gre-b-e- :/ ;
$TR02 = /:4 ddrdrddr / rrdrf+rar :/ rrrf+rrar ;

t150 @13-4 @V127 o4 l8 q11 $ExT
ggrgrgrr b-b-b-aaaa-a-
/:$LOOP
  /:2 $TR01 / $TR02 :/
  /:2 $L2{daf+dr<c>ar} / $L2{f<c>a-fr<c>a-r} :/ f+f+rf+rf+f+f+ f+f+rdrf+rd
  /:2 $L4{gdgb-} $L4{fcfa-} $L4{ebeg} $L4{fcfa-} :/
  $TR02
:/
;


/* =-=-=- NOI -=-=-= */

$NO01 = /:8 b-rb-b-rb-b-b- :/ ;
$NO02 = /:4 b-b-rb-rb-b-r / r1 :/ rrrb-rrb-r ;

t150 @7 @V28 o0 l8 q4 $ExT
r1 r1
/:$LOOP
  /:2 $NO01 / $NO02 :/
  /:6 b-b-b-b-rb-b-r :/ b-rr2.b-rr2.
  /:128 b- :/
  $NO02
:/
;