Music Script: Shingeki no Kyojin - The Reluctant Heroes

1:  loop=true -- set loop=false for playing once  
2:  function s(n)return("r16"):rep(n)end  
3:  function d(a)k=""a:gsub(".",function(c)k=k..t[c:byte()-31]end)return k end  
4:  t={"t120 r1","o6",0,"d8","c8#","e8","o4","b8","r2","f4#","o5","f8#","d4","g8","r4","r8","a4","a8","g4","e4","o3","c2#","f2#",s(152),"d16","r16","e2",s(46),"c16#","e16",s(121),"f16#",s(196),s(631),"o2",s(640),"a8#","b4","r1",s(60),s(62),s(130),s(243),s(271),"o7",s(297),s(144),s(150),"d2","b2",s(127),"b16","g1",s(67),"g16","a16","d1","e1",s(282),"a1",1,s(294),s(326),"f1#"}  
5:  r={}  
6:  function play()  
7:  repeat  
8:  for c=0,5 do H.PlaySound(c,r[c]) end  
9:  if(loop)then coroutine.yield() end  
10:  until(not loop)  
11:  end  
12:  co = coroutine.create(play)  
13:  function OnInit()  
14:  if(loop)then H.EnableSoundCallback(1) end  
15:  setup()  
16:  coroutine.resume(co)  
17:  end  
18:  z=0  
19:  function OnSoundPlay(channel, note, len, label)  
20:  if(label==9)then z=z+1 if(z>5)then  
21:  z=0 coroutine.resume(co) end end  
22:  end  
23:  function setup()  
24:  r[0]=d(" !#$#%&'*+'!,*'!#%&-*#-!#/##0&1*#%+!))*%1!,*'!#%&'*+'!,*'!#%&-*#-!,#$,&1*#%)!$#41&%1'*54'&+'!,*'!#%4-&#-1'*#24#1&#%+1*,41&%1'*$:&+'!,*'!#%4-&#-1'*#)4#1&#%+1*,41&%1%41&#41&$4'*1&'*1#1&'*14-&#-#'#-##1*#&1*+&1*#&141&%1%*$&%1%4'*1&'*1#1&'*14-&#-#'#-#4#1&#41&+41&#411&%1%*$&%1%4'&+'!%*#!#&'+4'!#&'+*#'&'+4-&#-#'#-#4-&#-#'#-#41&%1%!%&%1%41&%1%*$&%1%4%'&%4'&-4'&%4'+!%&+!#&1'+*14-9&#9-1'*+&'419&%91'*$%&'4'9*#9&'*$#1#4'&+'*#41&'1*14-&#'#4-&#'#*#&#1#4+&#1#4%'&-4'%'&-*%(46B'(.!)&E#/*#4'-B#*2&1+1#1B1*3&%/'*#41B'(.!)&E#/*#4'-B#*3&1+1#1B1*)&%/*1#41'&+#*,&'#'4-&#4'&#4-&#4'&##1+1#1+141&%$%41&%*#&%4'&+#*,&'#'4-&#4'&#4-&#4'&##1+1#1+141&%$%41&%$%B'4'&+'*#+'!-&-'*#-'-#!-4#&#1*#+1#141!%&%1%41B141B'4'&+'*#+'!-&-'*#&'-#4'-#1&#+1*#'!$41!#&%1*$&1%*14-&#-#'#-#41&%1%*$&%1%4'&+'*'#&+'!#4'&+'*#41&'1*14-&#'#4-&#'#*#&#1#4+&#1#4%'&-4'%'&-46/*+N!1#41B'(.L)*E&#/!#4'-B#!2&1+1#1B1!3&%/*'!#41B'(.L)*E&#/!#4'-B#!3&1+1#1B1!)&%/%%!<84'*1&'*1#1&'*14-&#-#'#-##1*#&1*+&1*#&141&%1%*$&%1%4'*1&'*1#1&'*14-&#-#'#-#4#1&#41&+41&#411&%1%*$&%1%4'!1&'!1*P4-&#-1Q#1*#%6&1*%1'!5&'!1*'!1P&-*#-1Q#1!#%6&1*%1'!54T&VW*8&=VW/BX")  
25:  r[1]=d(" (!)(.+/*'(/&#!22./&1!%(.)(.+/*'(/&#!3#/#./)3*1!#%)*'$#6/'!,89#022))3,*'!#%4'>!?%#1&+!#&+!$&+!#&+!1*1!#*1!$*1!#*1!1*1!#*1!$*1!#%+/-%/*''!+./&+!%&+/!$/&+*'.&+*'!+./+1+/%/%#/*'1'!+./%*$!#/$/#*'(1'/!+/++1'/&$/$/$*+&$*#9#9'./1#9#9'./1#9'9'.!%#*%9#9'/&+*$&+*#9#9'/&'*+119#9'/&'*%119'9'!$/#469*#./9!)4'*,#&#4'B-*E&-/!#*#0!2*#/!)*#41!3&1/*'!#*%4'(./-*E&-/!#*$,!3*,#$,!)&1(*)&'!,*#%E&-/!,&-*#&-FF!)&'!,*#%E&-/!,&-*$&-K!$./9$OL,4'&'/L#&#4'B-!E&-/L#!#0L2*#/L)*#41L3&1/!'L#!%4'(./-!E&-/L#!$,L3*#/L#!$*#41L)&1/11/!1&+!#&+!$&+!#&+!1*1!#*1!$*1!#*1!1*1!#*1!$*1!#%+/-%/9=%#1&+!#&+!$&+!#&+!1*1!#*1!$*1!#*1!1*1!#*1!$*1!#%+/-%./L<81&+L#*$L$!1L#!1L1!1L#!1L$!1L#!1L1!1L#!1L$!1L#%+/-%/9=%#1*+L#!$L$!1L#!1L1!1L#!1L$!1L#!1L1!1L#!1L$!1L#%+/-%./!SL8&T(4X")  
26:  r[2]=d(" 7!+;)*'$#+.!+/*'!,#<9,3#/#$#/)3.<81&+!#&+!$&+!#&+!1*1!#*1!$*1!#*1!1*1!#*1!$*1!#%+/-%/9=@*19'9!+(*19'9!%(*19&+9!+(%9#9&+.*+/19'9!+(4+9*'9!%(*+9+9!#./*$(+$#%4'(./-/-*,&#!#0/&#*2#/!)/41*,&%$!%*E4'*,#&#4'B-/4-*,&#!$*0/&#!,#$*0/41*3&%!#*%E'&+4'!#%,&E-/!##*0#/!2*#/!)&1/!,&1!#&1*E'&+4'!#%,&E-/!#$*,3,#$,&1/!:&1!#.+.+.+%#.#.+%#.#.&$!%#/$.#.+.+.+%#.#$/*1++.)/&$./!#$&$*#9#9'.+1%9%9'.%1#9#9&+.*1&+*%9#9'/&+*+&+*#9#9'/&'*+119#9'/&'*%119'9'!$/#*$(9L$(.9#$#%*'!+#L,!'#L%*-!#*'!#*-!#*'!#*#1+1#1+11!%$%*1!%L#!%*'!+#L,!'#L%*-!#*'!#*-!#*'!#*#1+1#1+1&1*%$%&1%L#!%4'(./-/-!,&#L#0/&#!2*#/L)/41!,&%$L%!E4'&'/L#&#4'B-/4-!,&#L$!0/&#!,*#L$!,/41!:H?RL?U1/V?8!WV?8*WV?8&W(Y")  
27:  r[3]=d(" A*+./9!#$#%*E&'!,#*%E.!,&-/!).2*)).!,&1.!,&'!,#*%E.!,&-/!,(.,.3&1$!%,./&+/+H!)*E,#/0!3,#$*0)&1/1J*+./9!+O)*'!,&'!%E.L,&-/L).2!)).L,&1.L,*'!,&'!%E.L,&-/L,.,!#/0.L:Z&[")  
28:  r[4]=d(" A!$./9B6!,*'&+/+!%,(./4#F(./*)'&+/+!%,(./4#(./1(./!)(/*)E,#/!0*2#/!)*#/!3&1/*'&$*%!,./&+/+ML+F.9)!'+*'!+L#!+L)!'L,##022))3,!'$L%)!'+*'!+L#!+L)!'L,#$,3,#$,)3*1&$L%!E'L,!#L%,(./4#F(./!)'L,!#L%,(./4#(.L,]*X")  
29:  r[5]=d(" C*D./)(/);!)(/*)G!)(.)2*2))3,&'/!%*)(/)(.!,(.,)*:I19'9!+(*19'9!%(*19'9!+.%/%9#9&+(*19'9!+(4+9*'9!%(*+9+9!#./9*%./9!DOL)/&+/+/!);L)/&+/+/!)^&_")  
30:  if(loop)then for c=0,5 do r[c]=r[c].."r1[9]"end end  
31:  end