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={"t144 r1","o3v6",0,"b1","o4v8","b8","a8","o5v10","d4","e8","d1","f4#","a1","e1","f2#","o2v6","b2",s(64),"b4","f8#","a2","d2","r4","r2","d8","e2","a4","c4#","e4","g4#","f1#",s(192),"r8","c8#","c2#","g2#","r1","g1#",s(110),s(346),s(84),s(116),"o6v9",s(77),"e16",s(201),"r16","b16","f16#","g8#",s(67),"c16#",s(78),s(396),s(479),"c1#",s(96),s(104),s(264),s(80),1,s(351)}
5: r={}
6: function OnInit()
7: if(loop)then H.EnableSoundCallback(1) end
8: setup()
9: play()
10: end
11: z=0
12: function OnSoundPlay(channel, note, len, label)
13: if(label==5)then z=z+1 if(z>7)then play()z=0 end end
14: end
15: function setup()
16: r[0]=d(" !#$*%&%'($&%')$-!.2$%')!4$(&%!9:$%':$%&%<&%!.2$%')!4$(&%!9:$%':$%&%<&%>!0%%%%/22'+3)!(:$5/:!<4<2$9/22'+39$&5/,$-!2/2'+3)!::$('3)!<<:'A(;A$<2/22!2%'9$&+8!&<:$&)!&)0$=2/0$2'(!5$+8!&'<:::!9$=)!%'22$+2!5$:'(!9$<:!9'2$=/0$+(!4$:+!9J:'=!9J='+/0$+(!4$:+!9J:'=!)JQQQ=+/22'3+--NS!22$9/2!+0(:$5/,$))'A$2!)))2/2'+3)!::$('3)!<<:'A(;A$<2/22!2%'9$&+8!&<:$;'A$0KJL+$+2!5$:'(!9$<:!9'2$=/0$+(!4$:+!9J:'=!9J='+/0$+(!4$:+!9J:'=!9J='+J5(6'(+:+JB'9<+=<0.(+:+4J;6$<<<<!0'22!5'.<:::!9'92J+$+2!5$:'(!9$<:!9'2$=/0$+(!4$:+!9J:'=!9J=$2/0$+(!4J<':/4J:'=@Q!Q'Q!=$+")
17: r[1]=d(" $%&%'($&%')$%&%'+$%&%!,$%&%'($%&%/0$(!%35$+8!&/4$;!&)0'8$%)!%/0$(!%35$+8!&/4$;!&)0'8$%)!%>.3333220:('+3)!</:';A(;AA$%2!220(:$&&:!,-/2!22%3(('+$8!&/::';!&)22'A$%)!%22'3+!3:($(&&/:!<$;'A$0KJL+'22$5'222J+'22$9<J(!0757/4':$;9'=$=!0757/4':$;)'QQQ=+!220(:$./:!:';;!<<';$%0%'+39$&:&&!,-/2!22%3(('+$8!&/::';!&)22'A$%)!%22'3+!3:($(&&/:!<:&)9'==/0'22!5'.<:::!9'92222$5'222J+'22$9<J(!0757/4':$;9'=$=!0757/4!:$;9'=$=2'(.JW$:';J;6'#J5(6W'W!<222.2$2'::$(8!&/4!:$:'==$<)!%/0'22$5'222J+'22$9<J(!0757/4!:$;9'=$=!075$:+!4':$;@!QJQ!QJ='+")
18: r[2]=d(" 1!07$57!47$9=6%&%'($&6%&%'+$%6%&%'($&6!9$=6/#0%%%%!++$5'<)$%.'<)A$B!2<$C!++$5!:($.!-#++$(6'<)$%+6'<)A$;6!<<$=6!++$(6!($(:6!:/:!:69'==!0'22$5'./4!:$:'==9/0J+6!4J+6/4J+6!0$=2!.7@JP)8<':N!4:J=!0$<J+!.7@JP)8<':N!4:J=!%76@++$5!:($5!:<$B'(;$C!+/2$5!:($.!-#++$(6'<)$%+6'<)A$;6!<<$=6!++$(6!($(:6!:/:@$)6!0$<='+2!2$2'::$(8!&/4!:$:'==$<)!%/0J+6!4J+6/4J+6!0$=2!.7@JP)8<':N!4:J=!0$<J+!.7@JP)8<':N!4$;J=!0$<J+7@N9D7'076N$2'(@NJ976N$,!2<<</0J22!4J.!9J::!0J9!.J+6!4J+6/4J+6!0$=2!.7@JP)8<':N!4':J=!0$<'+!.7@JP<")..s(41)
19: r[3]=d(" 1$%&%'($&6%&%'+$%6%&%'($&6!9707$57!47$97#0%%%%6@%7((7!::7$<<76@%7((D@)&E)6@%7((7!::7$<<D7(!:7$479<='+2!2$2'::$(6!4J::!0$<6!076J+7!476'27@JP)8<'2N$57@J&&&$;<@JQQQ$=2@JP)8<'2N$57@J&&&$;<D6@%7(('3+@!</:!4$<<7!227$((D@)'A$26@))))6@%7((7!::7$<<D7(!:7$,9'22!.J22!4J.!9J::!0J9!.76J+7!476'27@JP)8<'2N$57@J&&&$;<@JQQQ$=2@JP)8<'2N$57@J&&&':$<@JQ'QQ$=2XJB@N'0[JL'276J+7!476'27@JP)8<'2N$57@J&&&$;<@JQQQ$=J+@P)8<'2N$57!9:J=@Q$QJQ$=!+")
20: r[4]=d(" ?!#$.3333F#!%H$&D76@'=22!.J22!4J.!9$:';J==9!.76'27J+'276@NO7@O@N$87@'O@N$37@'&&&7@QQQ7@O@N$87@'O@N$37@'&&&RST!%%%H$&D76@'=$=2'2J2$2'(J::$+6!4$:';J==$=6!076'27J+'276@NO7@O@N$87@'O@N$37@'&&&7@QQQ7@O@N$87@'O@N$37@'&&&7@QJQQY'-=2222J2$2'(J::$+6!4$:';J==$=6!076'27J+'276@NO7@O@N$87@'O@N$37@'&&&7@QQQ7@O@N$87@'O@NJ87@&&&$;<@Q'Q$Q'=J+")
21: r[5]=d(" G$))!)I'272J27::7':J:7$97J+@$876@37@NJL@$AU'27!07$57':J:7$97J+@$876@37@NJL@$AZ'2===+27$57':J:7$97J+@$876@37@NJL@$AF37@'&&&")..s(24)
22: r[6]=d(" G!%%MJL76@NL76@NLVL76@NL76@NL]L76@NL76@NL")..s(152)
23: r[7]=d(" G!))")..s(1282)
24: if(loop)then for c=0,7 do r[c]=r[c].."r1[5]"end end
25: end
26: function play()
27: for c=0,7 do H.PlaySound(c,r[c]) end
28: end
