terça-feira, 11 de novembro de 2014

Music Script: Linkin Park - Numb



1:  function s(n)return("r32"):rep(n)end  
2:  function d(a)k=""a:gsub(".",function(c)k=k..t[c:byte()-31]end)return k end  
3:  t={"t110 r1","o6",0,"c8#","e8","o5","a2","r1","o4","f8#","f2#","a4","r4","r8","c4#","g2#","r16","r32","d4","d8","r2","f4#",s(65),"a8","o3","e4","g4#","e2","g1#","b8","b1",s(129),"b4",s(172),"c2#","o2","b2","d2",s(91),s(124),"o7",s(92),"r8r16",s(100),s(252),"g8#",s(70),"a16","d16","f16#",s(88),"b16","e16","g16#","c16#",s(80),s(98),"f8","f4","f2",1,s(94),"f16",s(188),"e1"}  
4:  r={}w={}z=0  
5:  x=coroutine  
6:  y=x.resume  
7:  function v()  
8:  repeat  
9:  for c=0,7 do H.PlaySound(c,r[c]) end  
10:  x.yield()  
11:  until(false)  
12:  end  
13:  u=x.create(v)  
14:  function OnInit()  
15:  H.SetOutletCount(7)  
16:  H.EnableSoundCallback(1)  
17:  setup()  
18:  y(u)  
19:  end  
20:  function OnSoundPlay(a,b,c,d)  
21:  if(b~=nil and w[b]~=nil)then H.GlowNow(w[b],2/c,255,255,255)end  
22:  if(d==9)then z=z+1 if(z>7)then z=0 y(u)end end  
23:  end  
24:  function setup()  
25:  r[0]=d(" !######$#%&,-012'-1:($7$8$=($89$(9%&4&4,-!:87(7$8$$($89$(9%7)!#(5)!3%5)=823(2C&4,-(98$(98*%)8)!3%5)=(23+8&4,-(98$(98E4(;4,-.%77+778+7(+8E4(;4%5()%7++833(3823(387C7787+7(7$8$$($89$(9%+77++833(3823(387C7787+7(7$8$$($89$($0.'J!9(3+8&4,-(98$(98*%)8)!3%5)=823(2C&4(;4,-H.83(289($89$(9%777+77+7($8+7(+8E4(;4,-85%777C+-(9C7M8)%&++833(3823(387C7787+7(7$8$$($89$(9%+77++833(3823(387C7787+7(7$8$$($89$($873223(28$99$($8=%778)%7C:(M8MC+(787#C#(#8VO3223(28T0@9$(98B4,-!.8#%7(#8#.C.8#(^J!B%++833(3823(387C7787+7(7$8$$($89$($0.4,13187(3823(387C7787+7(7$8$$($89$(9%&4&4,-!:87(7$8$$($89$(9%&4&4,-!:87(7$8$$($89`!#M%7!#%7!#%7!##$V#")  
26:  r[1]=d(" '()%#)+()%.(37%3(+7%287($79%;,8@=%$#8))()%+8)()3833(3823(2C7787+($-01:-198=%$#C*%)).8E4,-(+87(+8;4,-(5#58E4!#%$=8+7(+8;4,-H.83(28;4,-(58)(5C&4,-H.83(28;4!B.9877%7(287%+87,(9$%+8==%78@=%+C))8)5)!9877%7(287%+87,!)%++8==%78@=%++77777+77(2,-;4,-%@8=!##(B!#(#58E4,-%;9$$89$(98E'4!))$85)(58+(7%+($-!9%))823(28;4,-!.8)(58+-(+87M-!B.9877%7(2,-!B%++8==%78@=%+8))()C58)!9%+7(287%+87,(9$%+8==%78@=%+(322%7!7%D8@=%:C5!#C)8:%MM8+%77(#8#%:87(2287!7%D8@=%=)(B4,-!:%)!7%M(#.8.(#%^J!*.9%+7(287%+87,(9$%+8==%78@=%++77++833%7(287%+87,!)%++8==%78@=%$#8))()%+8)()08+J%+83(2C7787+($,8==(S08@=%$#8))()%+8)()08+J%+83(2C7787+($,8==(S08@>',-!7%7!#M%7!#`")  
27:  r[2]=d(" '!*4%54,!&,-01(<1%5-!+(#,+-8+7%$#87,(9%;8=-@%#!$#8*!##%)!.#-(2,-8&4,-%98=,(B!#%))!.#-(+,-;4,-%98=-!.%))82%55))89$(9%777+(#!#5)$(9$-!9%))82%55))89$($0.J!#5()3%+!3%7+!2%&+!9%+!#(9,-!5#(.#)3%+!3%7+!2%+7(9$!9%+!#(9,-!5()85)!$5)$(+,-&'4,-!#4,-%5,-8&4,-(98=-!.%))82%55))!.%)!##8*'4,-H.%55))89$(9%777+(#!##%+-&-!*5()3%+!3%7++87,(9$!9%+!#(9,01*43187!3%7+!2%&+!9%+!#(9',-$8@(9%)!:85!)-%MM!#-%77!7-%MM!.(3,0O-%7-!;(9-%M!)%MM)8.#(.CB4,%.,(U40!#5(5!23%7+!2%&+!9%+!#(9,-!5()C58)!9%+!3%7+!2%+7(9$!9%+!#(9%#!$#(##-!+(#,+3827%$#87,(9%;,0U-!#$#(##-!+(#,+3827%$#87,(9%;,0U,!$#)%7!#7%7")  
28:  r[3]=d(" ',-!+%/',!:;4%#!$#(##-85%:-877-(2%#!$#%&4(DG%+;))85!#,(E4,-+$,%$$$89%92!))(2!55))8@=!##8*4,-%++9!))(2!55))8@=,%+-85)!.2)32:;...)%7+!98)#!)#..2)32:9#%7!...)%7+!9()8)!)(.#58E4!)%778+7(+8;4,!#85%))!.#-(2,-%$$=8+7(+8;I(5#!#5)%7!.%+9!))(2!55))8@=!##8*4!.-&4#'4,-%7!...)%7+!9.#85(#5!2)32:;...)%7+!9%+(70O-!3-;0(S-!),#,-#-M-7-#-#)5%+(+-%)-!/0(S,!M-###(.8M%M)8B4,J(:08.%&,-01(3187!)32:;...)%7+!9()8)!#85(#5!2)32:9#%7!...)%77!#,(),.%:01(3,1%5#!$#%&4(:U09%#,(),.%:01(3,1%5#!$#%&4(:U09!#(`'-01%7")  
29:  r[4]=d(" ',-%.!/'4,-(>),.!B,%+!#,&41%/F+($,%$$$89%D-!#(.4,%+,-(&4,-%+@5,!.,-8D4,-!.#,8&'4,-!.%5018),1!)'4,-#5,5-#.,%5-!)5,5-)5,.)#5,5-#.-018)1(#-5!),(E4,-+$,%77789%=,(*I%992!))(2!55))H.!),(BI!.%),(B4J%M08+-%:C))8)%7'4,-!#5,5-#..5)#..5-)5,B5,5-#..2%30P-!)-/0%T4!),-M,-#,-M,0(P%52-!)J8=J(=0%T4!MM)%:)!##%MM)8.!#(#!M,(Y0Z0.)8)()%7'4,-!#5,5-#...)#..5-)5,.)#5,5-##,-%5-85!.-833-+!#,&4%:U-(S4%5-85!.-833-+!#,&4%:U-(S")  
30:  r[5]=d(" 6%+015!#$#%&48=4!#,*4%5-(+,-!B4,-%:!#,%),.,-(E4,-%99$8D4,-%)4,-5,-$!#-(9%9$8D'4,-!.%),(B4,-!.2%+,!.,-8D4!*'4,-)4,-)5,.K)5,%5-!))4,%+,-7!$$(9%+78D4,-(5!#,(E4,-%&!.%==8@%@5,!.',-(*IH.!),(*4J!.,0.8),(.8)!.2)322%&4,-!)5J(.N!#4,-)5,5%)0Q48=-(=0%UW!5%5,-01($1890%U4,-!.#M)###(.!)4%Z,V40!)'4,-)4,-)5-018)1(#-!)5J8+N!)),-*4%5-(2,-!B'4,-./87-(2,-!B")  
31:  r[6]=d(" ?%<,01(5!/,%54,:!;,(@,-!),%)4,-+,-$$$8+%@-(;4,-!#'4,-%9@-(;'4,-H.!),(*IH.!*8)-(.#,!5-)5,BL%+!.#(;4,-%)I+,-(E'4,-.!#,(9!$,2%+,!.,-8D'4J!:,0:%5-85(#,!5-)5:;'4-(#-!)5J8+'J%7R$XP4,94,-!:),MM)%:4-(M0%[(.J85)!.5-)5,B_(5!/87-(+4,%:!;',(5,-%2-(+4,%:!;")  
32:  r[7]=d(" A!.,-%2-24,!.,-8=,(:4,!#4,-%5,-!##%=(9,-!##%=8@,-(*'4,-%+,-!##%=8@,-(E4,-9,-!))$854,(+,-E4,-9,-)#-5'4,%7L!9,-3##8@4%))(.4,%+,-!##-(9$,8DI!.,-(+4,E4,-9,-!))$C5!#,+-B4)'4,-)G)R%MXQ4,:]B18)1(#-C5(#J8+'J%7_!.,-%2-24,!.,-(@JU4!*4%5-24,!.,-(@JU")  
33:  a={54,0,100,53,136,168,148,136}  
34:  i=1("cdefgab"):gsub(".",function(c)w[c]=i i=i+1 end)  
35:  for c=0,7 do r[c]=r[c]..s(a[c+1]).."r4[9]"end  
36:  end  

0 comentários: