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={"t156 r1","o7v8",0,"g1","o3v6","c8","g8","o4v8","d8","d8#","o5v9","r2","r4","c1","o6v10","f8","g2","c2","c4","d1","g8#","a8#","a8","r1","f1",s(68),"a1#","f2","r8","g2#","g4#","g4","r16",s(44),"d16","d16#","f16","g16","a2#","a4",s(56),"f4","a4#","g16#","a16#","c16","d1#",s(176),s(504),"d4",s(152),s(52),s(64),s(262),"e8",s(316),s(836),"o2v4",s(94),s(62),1,s(46),s(34),s(178),s(1214),s(1220),"d2",s(70),"d2#","d4#",s(58),s(40),"o8v7"}
5: r={}
6: function OnInit()
7: H.EnableSoundCallback(1)
8: H.SetOutletCount(7)
9: setup()
10: play()
11: end
12: z=0
13: notei={["a"]=1,["b"]=2,["c"]=3,["d"]=4,["e"]=5,["f"]=6,["g"]=7}
14: function OnSoundPlay(channel, note, len, label)
15: if(label==5)then z=z+1 if(z>7)then play()z=0 end end
16: if(notei[note]~=nil)then
17: ni=notei[note]
18: rc=math.random(0, 255)
19: gc=math.random(0, 255)
20: bc=math.random(0, 255)
21: H.GlowNow(ni, 0.75, rc, gc, bc)
22: end
23: end
24: function setup()
25: r[0]=d(" !#*)&.%(!).(!0*%'&)(!)/3*5.(&654&(*56&('56&(!8'5*)'/5!)(;.:!1*/&4.%/&4<=!?,<@#+@)/.%*&)(%'&)(!BCDE$&'(&65*(&65.(&6FG!:.()I*J.()I!)(.()I:!%.&)(%*&)(%'&)*EK'%$&)%4')4*%)4.)%*4)2$)5')&5*)5&)'5?$/'%/4*%/4/%'4I$%&'%)&*%)%'&)?$4')=*4.)=N'&5*Q$%&'%()&*%()&.%()(%*&)(%'&)(2!1*)4.)%*4)2$)5')&5*)5&)'5?$/'%/4*%/4/%'4I$%&'%)&*)%&)%'?4)=*4.)=!N'&5*Q!-*)/?2)/?2)/?2)/?2)/'0*V/'2220*V/'222$#22')/0@1)/3,<@3?5*%$8YJJ')(;$:'%-5*2'I45$III*#$22*)/01)/'J?5*%Q'?5*%Q'?5*%$???*8$JJ*)(;':*%$171+<'2<$?<*-0.1*)/Q'?5.%$?'Q$?'b*5.%'Q$?'Q;,F*5.%$F,'II$J*2?4'5.2'?*4'5.2*?'45.2'?45*22452e5.%*J'J*&4Je&41/&22&422)/?2)/e'>4*)e$>>'=*e'b,*2'?45*2'?45*2?45.2?452245!2.e5!%*JJ.&4Je&41/&22&4?2)/22)/e*>4.)>'ee*de.bQ2*?'4*5.2?*45.2!?.452?45!2*?45.2*?45.2*?45.2*?45.2*?45.2*?45.2*?45.-")
26: r[1]=d(" $%&'%()&*%(+.)!/.%*&)(!1'2$&'(&45*(&67,!3'5*%'/5.:'5*)'/5*('/5*%'/5!)('/&4*%7,!>*#'%()&*%()&.%()(!01'2!3+3.II*J+.:!;*J.()I!)(7,<'(*L.MBCDEKL!17.F7-+07'4,*)4.)+$>/'%/4*2$&'(+!#77$4')4*%7.F7-+07$4,*)4.),<$='%/4*2!3'%()&*%(S'1,*?2V/?2,?2V/$1,2+1,@2220<@*Q$??*Q'?5*%Q$??'8+YF,JJJ$;'45*2'I4<1,*2'I45-$??1,2??*Q<$0]J+F,JJJ*)(<'&45$222*2'?45$222.#$?'2*)./0*1.)/'b*5%.Q*?'5*%.Q'?5*%.Q'?5.%*8$JJ.b,*b'I$0'4*5$2*?'4*5'1*45$?*?45'd,.2'>>$d,JJe'1,*>'22*?<$07,<>'e*ed'>*8<'17$0+<'=,.2'>e.J<'d717$07,<'e$>>.de'0*Q$0*4'52*?.45$1!45'2!?45h2")..s(96)
27: r[2]=d(" +,!-9$5'/+*('/+*/'/7,$/'%A$%&+!-H.?+!8+*JO!N+.#R$/+<&'(+$%&T*?27,<'1+<#9$?+YF,$:<YF+<')(<$;7;+<1,*-<$17,<'3<$07F^1,*2'?45-?45*0,#<'17$07'b7$F7F,'F,$0717'=7d7$;7'17,<*>e'e1,$0,0,???'1,$??'2!2<'d7$F7';717,<*>='1,*b,2'?,*2'2$2!2.?,!2$22")..s(100)
28: r[3]=d(" P.8U'1+<17,<$1ZYJ['-<$#+#220,???'3?5*%'8+8+-+$1,*2+$?<'2<$?2?0,'2$22.Q*?,'Q$?'Q$0,?'Q$?F,J'I5*%';,$JJ,.2'?,*2'2$?*2'?,*2$2'2.2<'d7$d7'17$1f'1,222$0,22?=,'ee>$F,JJe'1,.>'22.2<$1g';,$0,170")..s(110)
29: r[4]=d(" P!8W$#<1+,<'?5*%$?'?5*%$0,'3<YFZ$2+'-+3+$0,*Q+$F,':<$F+<#+#+.1,$2'2$2.)*/<$0c*F'I*b,.b,$1,?220,'22$2=,'>ee$F,e'e$J;,III1,*2$2?=,'e>,$;,*3<$17'17$=7d7;7,<2??'d,$>+';,b,1,$2?'21,$2'22")..s(100)
30: r[5]=d(" X'-7+<$0707,<877III;7,<1_1,.-<$1c'I+,<;,*F,$17'17$=]'2II$0,??2'd,>+,<1,$0,0717'=]2II$1,.?$22=,.e+$;,0,1,?2?0,???")..s(100)
31: r[6]=d(" `$1+<'1,$2'2$?0,*Q'?*5.%*Q?,Q?5%.8+,<*d+<'1,2$?'2$1,2??'=,$>>>'d,e$e'e;,I+1,222,<d7$;,'bf>$>>d,e'e$J';,$III'1,$?'22,<d71,b,$07'1")..s(110)
32: r[7]=d(" a'2+$1,??'2,<b7$07';7.d7'17$07,<'e+,<$F7';7,<$2+,<=^1,2221,'22$2'd,$>+'d,e$e'e$;,'I+$0,'2+,<$=7;,'0,17$1")..s(110)
33: if(loop)then for c=0,7 do r[c]=r[c].."r4[5]"end end
34: end
35: function play()
36: for c=0,7 do H.PlaySound(c,r[c]) end
37: end
