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={"t166 r1","o3",0,"d16","a8","r16","o4","r8","o2","d1",s(47),s(49),"d8","o5","c8","d4","r2","a2","d2",s(73),"f4","a4",s(80),"f16","a16","e16","a4#","r4","a2#","f2","a16#","g16","g8","e4","c4","c16","o1","r1","c2","g2","g4",s(35),"e8","c4#","e2","c2#","o6",s(34),"f8","a8#","c8#","a1",s(58),"e1","c1#",s(37),s(41),"c16#","f1",s(115),1,"c1","g1","a1#",s(106),s(129),"o7",s(52),s(64),s(65),s(68),s(101),s(128),"o8"}
5: r={}
6: function play()
7: repeat
8: for c=0,7 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>7)then
21: z=0 coroutine.resume(co) end end
22: end
23: function setup()
24: r[0]=d(" !#$'&#%#'%#%#'%#%#%#%#%#'%#%#'%#%#'%#%#%#%#%()&#%,$-.!/%&47'%447%-@(1&7%-.!5/(/=&7'%!F&8'%(G&7%-C%(/,,#%,2&7%-7%(=%-?8'(G-#%?%(/!#'%-,J(=-/(/21&8%-#%(5$1;5N9%(4-47%N@(1%-#.(/%!#%(#%!,NCD:'%(7;%N4-47%@!G-#%C%!/(,#0'%2;D<;(G-5(,%#,=E%NA(55!//-A!B.C%-:(5$$8%$555H@@?%@H@@H5%55$8%!$($8%$///!,(#%,,#'%NA-H!?%C%NJ-1(,/,,#%,/!#;'%(:55!/%&,,#%,)'.B!=-5&U0H=),,#%,,%$-,J7N7%-]%NA-/)NH5&^'N?;%-1H(/,,#%,G%N7$(=%N5(B..B^$$8%$555S',#%,N29%P(=-5(/%..C'%NH-?%>%N#%?%-4($$8%$555/,,#%,#fNS")
25: r[1]=d(" %&#*!)01;%<-#'%&AA8'!/%&/(5&44-#'%!=-C'%!F-#'%!/,,#%,2&8'%-/%H#'%!G-8'%!/0-4/H!/21-7'%!5$1;2;(<;%!1-#;%8'%(=-7'%!B-58%N@&FN#%.(/!,,#%(,2N#%7D:'%(=;!GN/!,%#,N/%/(4/,2E'NK&B..-H!5$$8%$555)@@H5%55$8;%-?%!$///N,-1(,F-H(/,,#'%N4!,,#%,/0:555E;%-G&AZaN=A&1NK(5!,,#%,G;=;%N$-G'H?%>%N#%?%(5!$$8%$555S',#%,N=(:!=NB!/%..C'%-:05!$$8%$555/,,#%,)-,&$-,P,P$P$N,-$N,P,P$,%P$b,N$b,PN$b,7#N)")
26: r[2]=d(" +&#'%#%#'%#%#0'%2;%:-/7'%&55-#'%&/!5/-//&>'%55-7'%&HH;=8%-C%&44-#'%H'%(=;G-/(#%!#'%-/4&:$5$8%-7%&HH;1-8%NC(/'%/'-4N/#'%-AA%N#.!/0%-44N#'%!=NC'!F;%N2-8%NC%!2;(=N#%8%(G-8%N?%(/,'%-8N7%H%4#%@(5$1T-<!?%@)%-7'%S555NP2!,(GNB!/,,#'%N5-55N2#%7%-H4A2%#%9%&Z'JH5-H'%&]`N:/H&S'N9;%-1;N/->'(G;7E0;%N/-7%8%N#%7%-HHH=N9%P(/'N#0'%!Q:-55N4-$%G(.^-7%8%N#%7%-HN/-HZ'!$&,$P$cbZ")..s(1)
27: r[3]=d(" 3&4%58'%-/4&>'%-BB;&@4'8%-CD:'%!=;F;(GE2;%D<;!G0'D:&:;-,/,#'%AA;L;(1-7'%N/47'%-5NB;-.%N#0%//->'%4NB7'%-AA;2;44;N//?'%!GN#'%!/,'%N#'D:%-:N7%->%N,-5!2TN<7%#%!H0N,%-8%8'%NU///-QN='-HNBA-@N2!,/N//=;//-5=;%2?%8%!H'&8E%-G7%?%&]1=-B!/&$$8%$-1%N9'-^%NH-5N2,J-);'%1;%N2;!/0-:'%!GON40A/A-1;!2N9%P(:'N#0'%!=%NF!.^0NA4A-SdbS")..s(1)
28: r[4]=d(" 3&5%-/#'%4&:;-AA;.&5;'(<;-BB;BA;&1;55;D<;%-//;,0'(<;-$0'KK;M;!2-8'%N4-:>'%NBA;.0'%-::;5N4;-HH;=;55;NHH->'%N//8'%-$0'(<E%NK!55&//-54PPN/-18%$S!@@->'%<:$'%N,'-L($!$8%-@N444Q1'BAH.=-$5N44-Q5(2I&<-A40&^0-A=2;!50N=;B%4C'B0-=;%5;'%:0%N2'%-7Z0N:'%#;-5%5!7%(7%NPF'/0!50NK4K2;-1;!<;NBB5.%L'-H0N/0K;K)eZ")
29: r[5]=d(" 3-/'%!/-9(:'%:&?%!1E;'<;=;FE2;%(<E0;<E10'-44N#'%D:'(=E0;%<;!=;FE2;(<E0;%QD:!/,'-8%N7%(5-H7%9%54NA-5$$NH27%,0;!HXNY%@555;!,,#'%NHH;@1'/55Q5-8;%NH4A-1;%=;&GE-F;&Z;'90;%8IN40-<;%N/0-)E;N2;40B%B-5!B..B^E0'N#;%2;-<;N44;P%G'/04gb)")
30: r[6]=d(" 6!5'4'=;(1-/;'&::;-44;A'(FI-:H;$0'&:'(=E!10'-55;(<;NA'%(1-70%(<;NB'(=O-::;::;N,0'-:'%(P:-$N/'#'%!5NA-8%NR-45!KN/,,(>'%N=E2E0%VE0;'&CX-::;N2E%-2E2;F?%7%!5;'&?0;%-2N#%9%2;A;%A-4AN/&_0-^E;NZ04%4B-$NL'H0-4EEN=;<;55;$hi)")
31: r[7]=d(" 6&2;!<;1E(:-9(4'%4-?(F;%-2;//;(<;%-H:E;'D<ON//;-:'D:-?%!1E;'%D:N9(4'%!C;%NAA;-1;N//;(<;N::;$E%DQ->'%N$0'-HNK#'%//&KN4PP!>'%N1E=W?%R[-PEL;1;&A;'-J;'9;%&/E;NH;%H5B40;40/0-7E;'%NS05%54.G'-:05EEN10'(Q0'=")..s(144)
32: if(loop)then for c=0,7 do r[c]=r[c].."r4r16[9]"end end
33: end
