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={"t96 r1","o4",0,"c1","o5","d8#","g8","c8","f8","o3","g1#","d1#",s(35),"g16","a8#","d1","d8",s(92),"r8","f2","a2#",s(254),"o6","d4#","a4#","g8#","g4#","f16","r1","r16","d16#","r4","d4",s(36),"c4","r2",s(256),"c16","d2#","o7","g4","f4",s(180),s(790),"c2",s(62),"g16#",s(104),s(44),"g2#",s(158),"a1#",s(60),"g1"}
5: r={}
6: function play()
7: repeat
8: for c=0,4 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>4)then
21: z=0 coroutine.resume(co) end end
22: end
23: function setup()
24: r[0]=d(" !#$(!&$'!&$(!&$'!&$&!&.&$&!&.$&)/!#$(!&$'!&$(!&$'!&$&!&.&$&!&.$&)/!#$'!&$'!&$'!&$'!&)+/!#$'!&$'!&$'!&$'!&)+/!'%&$'0!&$'!&)9!'%9.%$(;<=(!&.$>?2=%!'%&$'0!&$'!&)9!'%9.%$(;-!%&.$(%!.$(%!0&.$>?2=%!'%&$'0!&$'!&6'!'6'!96B!:%&.$(%!.$.%!0&.$>?2=%!'%&$'0!&$'!&6'!'6'!96B!:%&.$(%!.$.%!0&.$>?2=%!'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6($%!'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6I$#6($&6'$&6($&6'$&6&$&.&6&$&.6&!/'%&$'0!&$'!&)9!'%9.%$(;-!%&.$(%!.$(%!0&.$>?2=%!'%&$'0!&$'!&)9!'%9.%$(;-!%&.$(%!.$(%!0&.$>?2=%!'%&$'0!&$'!&6LB!:%&.$(%!.$.%!0&42$%!'%&$'0!&$'!&6'!'6'!96B!:%&.$(%!.$.6I!&426%!'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6($%!'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6I!'7H$L!B7$&&&&!H8$F!I8$@&!'7H$L!B6((0000!H8$F!I8$@!.'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6($%!'%&$E=6%!&$'!&)9!'%GB!%9%%&.GB!.$%!.0&8$@6I!'%&$'0!&$'!&)9!'%9.%$(;U")
25: r[1]=d(" $%!&$'!&$%!&$'!&)*+$(!&.&$(!&$%0%!&$'!&$%!&$'!&)*+$(!&.&$(!&$%0'!&$'!&$'!&$'!&$(2(2(2(2%!&.&.&.&$(!&$(!&$(!&$(!&$'!&$'!&$'!&$'!&$(2(2(2(2%!&.&.&.&$(!&$(!&$36'$%6'$%77777!:%&.$(%!.$(%!0?$%0!.$@6'$%6'$%77777!:<$(?%0!.$@6'$%6'$%6B$7)9$%!%$%!.%$%%C?26>;?2$%0!.$@6'$%6'$%6B$7)9$%!%$%!.%$%%C?26>;?2$%0!.$@'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!8$'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!86%$&6'$&6%$&6'$&!*+6($&.&6($&6%0'$%6'$%77777!:<$(?%0!.$@6'$%6'$%77F7!:<$(?%0!.$@6'$%6'$%6B$763!.%$9&C?26>;?2-NH?'$%6'$%6B$7)9$%!%$%!.%$%%C?2%!06(%IH$%'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!8$'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!8$&9999&&&&....!Q$9&9&96%$9!0$96%$9&96%!.60%%((!7Q6%0%0%.%!06%.%0%.$%'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!8$'8BE=6F%!9.6%.$%%.6%$%(6%.%:%H%!86'$%6'$%77777!9+")..s(1)
26: r[2]=d(" ,$-1%2%2%2%2)*!.2$%2%2%2!.2.2.2.2$%2%2%2%2)*!.2$%2%2%2!.2.24$%.%.88888A%.%.88888A%.%.767$%.%.76%%<<$%.%.767$%.%.76%%<C?2%$.68'$%6'$FC26%$.6.<C2%$.68'$%6'$FC26%$.6.1$%.%.88888A%.%.8848A%.%.767)9!'%6'$:6%%<<$%.%.767$%.%.76%%<<$.68'$%6'$FC26%$.6.<C2%$.68'$%6'$FC26%$.6.P)9C?2!%C?2$&<C?2)9C?2!%C?260C?%$.68'$%6'$FC26%$.6.<C2%$.68'$%6'$FC26%$.6.<C?$%.%.888882!S")..s(1)
27: r[3]=d(" 5$%D6.C?2!9C?26.<C?2.C?2!9C?26.J$%M!9O6.C?2!9C?26.<C?2.C?2!9C?26.R.C?2!9C?26.<C?2.C?2!9C?26.T$+")..s(1)
28: r[4]=d(" K$.M9")..s(535)
29: if(loop)then for c=0,4 do r[c]=r[c].."r16[9]"end end
30: end
