Music Script: Aion OST - The Tower of Eternity

1:  function s(n)return("r32"):rep(n)end  
2:  t={"t100 r1","o2v5",0,"g4#","o3v6","r8","o6v8","c16","o5v10","d16#","g16#","c4","d4#","c16#","f16#","a16#","c2#","f2#","a2#","e2","a2","r1","g2#","r4","e16","r32","c2","d2#","g8#","r16","a8#","c8","o4v8","c4#","f4#","a4#","b16","a1","e4","b1","e1","b2","b4","r8r16","d8#","o7v7","f8#","r2","f4","g4","b8","e8","c8#",s(108),"a8","a16",s(112),s(136),s(445),s(80),1,s(240),s(754),"d1#",s(98),"g1#","f1","c1#","g8","f8","g16","f16","d8","d16","g1","f2","d2",s(196),"g2","d1",s(110),s(124),s(92),"d4",s(78),s(94),s(76),s(888),"f1#","a1#",s(70),s(352)}  
3:  function d(a)k=""a:gsub(".",function(c)k=k..t[c:byte()-31]end)return k end  
4:  nt={["c"]=1,["d"]=2,["e"]=3,["f"]=4,["g"]=5,["a"]=6,["b"]=7}  
5:  x={}  
6:  r={}  
7:  function play()  
8:  repeat  
9:  for c=0,7 do H.PlaySound(c,r[c]) end  
10:  coroutine.yield()  
11:  until(false)  
12:  end  
13:  co = coroutine.create(play)  
14:  function OnInit()  
15:  H.EnableSoundCallback(1)  
16:  H.SetOutletCount(7)  
17:  setup()  
18:  coroutine.resume(co)  
19:  end  
20:  z=0  
21:  function OnSoundPlay(a,b,c,d)  
22:  if(b~=nil and nt[b]~=nil) then  
23:  H.GlowNow(nt[b], x[c], 255, 255, 255)  
24:  end  
25:  if(d==9)then z=z+1 if(z>7)then z=0 coroutine.resume(co) end  
26:  end  
27:  end  
28:  function setup()  
29:  r[0]=d(" !#&+(--0%!6<9$?=9&''+(--AD&)!E(GI@13I(3@IFPBQ&J@J(R@LC$SR@#$LR@NR(F@S$<!R$N(R$N!V@SJ4(R@)=(*=@)=(.=@)=A(R@)=(*=@)=(.=@)=A(R@)=(*=@)=(.=@)=A(J@*=)()S$N@TN&J@J(R@LC$SR@#$LR@NR(F@S$<!R$N(R$N!V@SJ4$SR@<(L$N@L>(L$<@L>(L@R//<N$SR@<(L$N@LC!1#&+(--A%3&:!#&+(--0<&T(DW&:!#&+(--A!N3(Bb$?7?%'=+?%?Mf)i&/f)i(/f)$?7?%'=+?%?Mf)i&/f)i(/f)$?=&*j%$?&)g$'&i$+(:%'=?*.?7?QP$?=&*n$+?%(g=$?%'=+&:%('=+?%'=+f=?&)g$?=&*QQ$+?7?&'(f$'&i$+&:%('=?&fg+('=+f=?&'i@+Q(Q$Q!?=9('7=9f=s!?&*f<!?%('=h&'i@+Q(Q$Q!?=9('7=9f=s!?&*f<!?%('=#$?d@?d&kn!d$h(Q$?d@?d(P@T<(Q@?d$dhh!dP(+%:&)=@#PC!B(P%k&*=(A@#B$E(J=&A=@LSNj(II3T@RC(3@IFPBQ&J@J(R@LC$SR@#$LR@NR(F@S$<!R$N(R$N!V@SJ4!#&,--ADM)&3_")  
30:  r[1]=d(" $#(,..1%$6<9@?=9()),..B9&-9(#A#F&HJC(;@I;(J&IN>@J(,A,$<@L&C$NML&>N(J&B(1JI@L(>$V%(,0$<@*K*K*=C$<@*K*K*=B$<@*K*K*=C$<@)=(C$<@1L&C$NML&>N(J&B(1JI@L(>$V%(,0&;MTL&C(2##&;MTL(,$1#(,..B%4;$#(,..1&T<!##&)K(*&'(,..1&T(C7$cd7d%f=Qd%dO%d7d%f=Qd%dO%d7d%'=+?7d%f=Q(k%g=d9f9$<7T%('=$Ad7d%'=Qd%(/=$d%f=Q&k%(g=Qe%g=P%e%>7$d%'=Qd7d%f=Q&k%(g=d%$<%*=(P%e%&+(Q&?L@s$?%(d!?%('=#$?7?%(g=<%@Q(Q&?L@s$?%(d!?%('=#$?7?%(g=&,(n!>$e@T<!<$L@?d&+s(deLh!>$e(#&+(C&+f/M'i$P(Q%nM)=(,PC$B@C%2M*=(C#B@E&F7(6H&JC(1IN7%&FIN>@J(,A,$<@L&C$NML&>N(J&B(1JI@L(>$V%(,0$#&#..B9M-9&4a")  
31:  r[2]=d(" %&''(#//27&8-:!#(#//C7%&AAFG@6(2J&B(1&F7%>7<L(#CC&,K.<7%#K-;F3NL(6&*.8)-(DW*%.K)K-=)=.K.K)K-=)=@DK(.K)K-=)=.=;@<25O7%$T<&3NL(6&*.8)-(DW*&67K.;,767MB*********=&''(#//27&8-(6%*&'(#//27%6$#(#//2O%@_e7e%g=PdO7%e7e%g=PdO7%&Q%$?%f=Qd7(e%g=P$T7@e%$-=A(e7$<%-=#&Q%$?%f=(QP$'=(h%g=&P$T7@e%$-=AT%-=A%Ad7(>%$f=(Qk%&'=(,$T7@e%$-=A&P(g=$A%A@Q&P$#(s?%&h$?%(g7=f&f7'K(f7=Q&P$#(s?%&h$?%(g7=f&f7'K(f7&g:(62#&Q?eLh(A&AQ,Q7)))=@#%67&L%)=)/M'i&***=(A%07&<%*K-gE(03c6&;(6&;(J7%&>7<L(#CC&,K.<7%#K-;F3NL(a%&))M,--A%3_")  
32:  r[3]=d(" %())&,--079)7=9$>^&3;%)()&,--07%;%'()&,--0O%@a>7>%/=(PhO7%@>7>%/=(PhO7%>7>%g=Qk%/=&?(d$<7(?%$*=#T5O(/=&g)i'o$<7(?%$*=#<%*=#%#&Q%$?%(g=&f)i'l%()=&)'gf$<7(?%$*=#T%(*=$#%#(Q$C@,(QdO7%&'7=fO=+$C@,(QdO7%&'7=fO=n0;,$>@e&d7%(C&#!<$L&CM+7)))=(,%;7ML%)=)K***=(#%67M<%*%=9&)9x(#z&.<ML&>N#BO@0;(JM,&C,55$T<&I%>c%**%!aM8-")..s(32)  
33:  r[4]=d(" %(**%!#%#(3;$#&,--AZ)=*9,K.<7%#K-;FI%>0OM;O&6%9@D79M;O9WWWWWWWW=9())&,--079)7=9$>5O7KM)K&)(*%$1N37aO%()=@C(d5O)=@C(d5O/=C&l%)=(C6%@*=(L%C#%$*=@C(>7>%g=CC$f=(e%/=C&6%@*=(,<%*=@#O7=&*%(/=C2O&6%@*=(L%&#$-=@#7%(,C,&+?5O7%(,C,&+?5O7%;62#K(g&L7%A5O%L%)=@dM'i$P(+O7%&<%*=@<Mgf$B(POMc%9&,=9(Iy&;O7K-O@6(1#U&>7a%M))%$a9M)")..s(33)  
34:  r[5]=d(" %&))%$#%#(46%**%!#%#$E5(;&LML&>N(6&;@0;(JM,&C,55$T<&I%>0X(6T0[&>76O7%M-&D5O7%M-&D5%(**%!#%66<9$?=9&'(*%!#%##%$##&*5=(_m&'iO7%$Tp&f7%$Tr(eO7%$T5O&LdKi7@C55&LdKi7@Cv(gf57K&gvML%)=&)/@N+(QO7%M<%*=&*M)@NACOM_{0")..s(32)  
35:  r[6]=d(" 5&3;%))%$#%#&F(#&#(#5&,K.<7%#K-O@6(1#U&>76Y-8./$<]&))%$#%66<9@?=9()&)%$#%##%&.8(;%)&)%@1%(RO%cO7,@>5O%(,@>5O7&g)(2O7%$<q<q<t(/u/v&gfYM)K&))5O%M*K&**")..s(460)  
36:  r[7]=d(" 5&07=!>^&07=!>`(awM))5O7%**")..s(460)  
37:  for l=1,32 do x[l]=2.6/l end  
38:  for c=0,7 do r[c]=r[c].."r4[9]"end  
39:  end  

Créditos: http://aionmusic.blogspot.com.br/