Add music to mikrotik routers

mikrotik.beep.music.sh

/system script add dont-require-permissions=no name="Super=Mario-Bros" owner=admin policy=read source=":beep frequency=660 length=100ms;\n:delay 150ms;\n:beep frequency=660 length=100ms;\n:delay 300ms;\n:beep frequency=660 length=100ms;\n:delay 300ms;\n:beep frequency=510 length=100ms;\n:delay 100ms;\n:beep frequency=660 length=100ms;\n:delay 300ms;\n:beep frequency=770 length=100ms;\n:delay 550ms;\n:beep frequency=380 length=100ms;"
/system script add dont-require-permissions=no name="Thunderstruck" owner=admin policy=read source=":local n11 63,66;\n:local n12 64,67;\n:local n21 71,69,68,69,68,66,68,64,66,63;\n:local n22 64,63;\n \n:local n11 (\$n11,\$n11);\n:local n12 (\$n12,\$n12);\n:local n1 (\$n11,\$n11,\$n12,\$n12);\n:local n2 (\$n21,\$n22,\$n22,\$n22);\n:local notes (\$n1,\$n1,\$n2,\$n2);\n  \n:local ticks 2;\n:local speed 55ms;\n:local stacc 5ms;\n# Transposition \n:local transpose -48;\n# ============================== \n# Don't change this: \n:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14 916,15804;\n:local n0; :local n;\n:local d0; :local d;\n:local l;\n:local midi;\n:local i;\n:local octa;\n:local frq;\n:for i from=0 to= ([:len \$notes]-1) do={\n:set midi [:pick \$notes \$i];\n:set midi (\$midi + \$transpose);\n:set octa 0;\n:while ( \$midi < 60) do={:set midi (\$midi + 12); :set octa (\$octa + 1 \_ ); };\n:set midi (\$midi - (12 * (\$midi /12)));\n:set frq [:tonum [:pick \$frqtab \$midi]];\n:set frq (\$frq>>(\$octa));\n:set d0 \$ticks;\n:set d (\$d0 * \$speed );\n:set l (\$d0 * (\$speed - \$stacc));\n:beep fr=\$frq le=\$l;\n:delay \$d;\n:set midi 59;\n:set midi (\$midi + \$transpose);\n:set octa 0;\n:while ( \$midi < 60) do={:set midi (\$midi + 12); :set octa (\$octa + 1 \_ ); };\n:set midi (\$midi - (12 * (\$midi /12)));\n:set frq [:tonum [:pick \$frqtab \$midi]];\n:set frq (\$frq>>(\$octa));\n:set d0 \$ticks;\n:set d (\$d0 * \$speed );\n:set l (\$d0 * (\$speed - \$stacc));\n:beep fr=\$frq le=\$l;\n:delay \$d;\n}"
/system script add dont-require-permissions=no name="Imperial-March" owner=admin policy=read source=":beep frequency=500 length=500ms;\n:delay 500ms;\n:beep frequency=500 length=500ms;\n:delay 500ms;\n:beep frequency=500 length=500ms;\n:delay 500ms;\n:beep frequency=400 length=500ms;\n:delay 400ms;\n:beep frequency=600 length=200ms;\n:delay 100ms;\n:beep frequency=500 length=500ms;\n:delay 500ms;\n:beep frequency=400 length=500ms;\n:delay 400ms;\n:beep frequency=600 length=200ms;\n:delay 100ms;\n:beep frequency=500 length=500ms;\n:delay 1000ms;\n:beep frequency=750 length=500ms;\n:delay 500ms;\n:beep frequency=750 length=500ms;\n:delay 500ms;\n:beep frequency=750 length=500ms;\n:delay 500ms;\n:beep frequency=810 length=500ms;\n:delay 400ms;\n:beep frequency=600 length=200ms;\n:delay 100ms;\n:beep frequency=470 length=500ms;\n:delay 500ms;\n:beep frequency=400 length=500ms;\n:delay 400ms;\n:beep frequency=600 length=200ms;\n:delay 100ms;\n:beep frequency=500 length=500ms;\n:delay 1000ms;"
/system script add dont-require-permissions=no name="Jurassic-Park" owner=admin policy=read source=":beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=1775ms;\n:delay 1800ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=1775ms;\n:delay 1800ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=875ms;\n:delay 900ms;\n:beep frequency=523 length=275ms;\n:delay 300ms;\n:beep frequency=523 length=875ms;\n:delay 900ms;\n:beep frequency=622 length=275ms;\n:delay 300ms;\n:beep frequency=622 length=1775ms;\n:delay 1800ms;\n:beep frequency=587 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=523 length=875ms;\n:delay 900ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=349 length=575ms;\n:delay 600ms;\n:beep frequency=587 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=523 length=1775ms;\n:delay 1800ms;\n:beep frequency=698 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=622 length=875ms;\n:delay 900ms;\n:beep frequency=587 length=275ms;\n:delay 300ms;\n:beep frequency=587 length=875ms;\n:delay 900ms;\n:beep frequency=523 length=275ms;\n:delay 300ms;\n:beep frequency=523 length=3575ms;\n:delay 3600ms;\n:delay 600ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=575ms;\n:delay 600ms;\n:beep frequency=349 length=575ms;\n:delay 600ms;\n:beep frequency=311 length=575ms;\n:delay 600ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=575ms;\n:delay 600ms;\n:beep frequency=349 length=575ms;\n:delay 600ms;\n:beep frequency=311 length=575ms;\n:delay 600ms;\n:beep frequency=466 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=440 length=275ms;\n:delay 300ms;\n:beep frequency=466 length=875ms;\n:delay 900ms;\n:beep frequency=349 length=575ms;"
/system script add dont-require-permissions=no name="Crazy=Train" owner=admin policy= read source=":beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:delay 1200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:delay 400ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:delay 400ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:delay 1200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:delay 400ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:delay 400ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=440 length=175ms;\n:delay 200ms;\n:beep frequency=415 length=175ms;\n:delay 200ms;\n:beep frequency=330 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=175ms;\n:delay 200ms;\n:beep frequency=370 length=175ms;\n:delay 200ms;\n:beep frequency=554 length=175ms;\n:delay 200ms;\n:beep frequency=494 length=175ms;\n:delay 200ms;\n:beep frequency=587 length=775ms;\n:delay 800ms;\n:beep frequency=330 length=775ms;\n:delay 800ms;"
/system script add dont-require-permissions=no name="Preludio" owner=admin policy=read source=":local notes 88,87,88,83,80,83,76,78,76,75,76,71,68,71 ,64,71,66,71,68,71,69,71,68,71,66,71,64,76,75,73,71,76;\n:local notes (\$notes, 75,73,71,69,68,66,64,71,66,71,68,71,69,71,68,71,6 6,71,64,76,75,73,71,76,75,73,71,69,68,66,64,66);\n:local notes (\$notes, 68,69,71,73,75,76,78,80,81,78,80,83,76,78,80,81,8 3,85,87,88,85,87,88,83,81,83,80,83,81,83,80,83);\n:local notes (\$notes, 78,83,76,88,87,85,83,76,85,76,83,76,81,76,80,83,7 8,83,80,83,81,83,80,83,78,83,76,88,87,85,83,76);\n:local notes (\$notes, 85,76,83,76,81,76,80,76,76,76,75,76,76,76,78,76,7 5,76,76,76,80,76,78,76,80,76,81,76,78,76,80,76);\n:local notes (\$notes, 76,76,75,76,76,76,78,76,75,76,76,76,80,76,78,76,8 0,76,81,76,78,76,80,76,80,76,80,76,80,76,80,76);\n:local notes (\$notes, 80,76,80,76,80,75,80,76,80,75,80,76,80,75,80,76,8 0,74,80,76,80,74,80,76,80,74,81,76,81,73,81,76);\n:local notes (\$notes, 81,73,81,76,81,73,81,76,81,71,81,76,81,71,81,76,8 1,71,80,76,80,71,80,76,80,71,80,76,80,71,80,76);\n:local notes (\$notes, 80,69,80,76,80,69,80,76,80,69,78,76,78,69,78,76,7 8,69,78,76,78,69,78,76,78,68,78,76,78,68,78,76);\n:local notes (\$notes, 78,68,76,76,76,68,76,76,76,68,76,76,76,68,76,76,7 6,66,76,76,76,66,76,76,76,66,75,76,75,66,75,76);\n:local notes (\$notes, 75,66,75,76,75,66,64,66,64,66,68,71,64,66,68,71,6 4,66,68,69,68,69,71,76,68,69,71,76,68,69,71,73);\n:local notes (\$notes, 71,73,74,80,71,73,74,80,71,73,74,83,80,76,74,71,6 8,64,62,61,62,59,61,63,61,63,65,68,61,63,65,68);\n:local notes (\$notes, 61,63,65,66,65,66,68,73,65,66,68,73,65,66,68,69,6 8,69,71,77,68,69,71,77,68,69,71,80,77,73,83,80);\n:local notes (\$notes, 81,78,77,80,73,71,69,73,69,66,78,75,76,73,72,75,6 8,66,64,68,64,61,64,68,73,68,76,73,80,73,72,75);\n:local notes (\$notes, 72,68,80,79,80,79,80,75,76,73,72,75,72,68,78,77,7 8,77,78,75,76,73,72,75,72,68,69,68,69,68,69,63);\n:local notes (\$notes, 64,61,60,66,61,66,63,66,61,66,60,66,63,66,56,66,7 5,66,72,66,75,66,72,66,75,66,56,64,73,64,76,64);\n:local notes (\$notes,73,64,76,64,73,64,56,66,75,66,72,66,75,66,72,66,75 ,66,56,64,73,64,76,64,73,64,76,64,73,64,56,67);\n:local notes (\$notes,73,67,76,67,73,67,76,67,73,67,56,67,73,67,76,67,73 ,67,76,67,73,67,56,68,73,68,75,68,73,68,75,68);\n:local notes (\$notes,73,68,56,66,72,66,75,66,72,66,75,66,72,66,61,73,71 ,69,68,73,68,66,64,68,64,63,61,73,68,66,64,68);\n:local notes (\$notes,64,63,61,64,61,59,58,66,73,66,76,66,73,66,76,66,73 ,66,58,66,76,66,73,66,76,66,73,66,76,66,59,83);\n:local notes (\$notes,82,80,78,83,78,76,75,78,75,73,71,83,78,76,75,78,75 ,73,71,75,71,69,68,74,76,74,80,74,83,74,80,74);\n:local notes (\$notes,76,74,68,74,76,74,68,74,66,74,68,74,64,74,73,76,81 ,80,81,76,74,76,73,76,71,76,69,81,80,78,76,69);\n:local notes (\$notes,78,69,76,69,74,69,73,76,71,76,73,76,74,76,73,76,71 ,76,69,81,80,78,76,69,78,69,76,69,74,69,73,69);\n:local notes (\$notes,69,69,68,69,69,69,71,69,68,69,69,69,73,69,71,69,73 ,69,74,69,71,69,73,69,69,69,68,69,69,69,71,69);\n:local notes (\$notes,68,69,69,69,73,69,71,69,73,69,74,69,71,69,73,69,73 ,69,73,69,73,69,73,69,73,69,73,69,73,68,73,69);\n:local notes (\$notes,73,68,73,69,73,68,73,69,73,67,73,69,73,67,73,69,73 ,67,74,69,74,66,74,69,74,66,74,69,74,66,74,69);\n:local notes (\$notes,74,64,74,69,74,64,74,69,74,64,73,69,73,64,73,69,73 ,64,73,69,73,64,73,69,73,62,73,69,73,62,73,69);\n:local notes (\$notes,73,62,71,69,71,62,71,69,71,62,71,69,71,62,71,69,71 ,61,71,69,71,61,71,69,71,61,69,69,69,61,69,69);\n:local notes (\$notes,69,61,69,69,69,61,69,69,69,59,69,69,69,59,69,69,69 ,59,68,69,68,59,68,69,68,59,68,69,68,59,57,59);\n:local notes (\$notes,57,59,61,64,57,59,61,64,57,59,61,62,61,62,64,69,61 ,62,64,69,61,62,64,66,64,66,67,73,64,66,67,73);\n:local notes (\$notes,64,66,67,76,73,74,76,73,70,71,73,70,66,64,62,61,59 ,61,62,66,59,61,62,66,59,61,62,64,62,64,66,71);\n:local notes (\$notes,62,64,66,71,62,64,66,68,66,68,69,75,66,68,69,75,66 ,68,69,78,75,76,78,75,72,73,75,72,68,66,65,83);\n:local notes (\$notes,80,81,83,80,77,78,80,77,73,71,69,85,81,83,85,81,78 ,80,81,78,74,73,71,86,83,85,86,83,80,81,83,80);\n:local notes (\$notes,77,80,73,75,73,75,77,80,73,75,77,80,73,75,77,78,77 ,78,80,83,77,78,80,83,77,78,80,81,80,81,83,86);\n:local notes (\$notes,80,81,83,86,80,81,83,86,83,80,77,83,80,77,73,83,81 ,80,78,80,81,78,71,81,80,78,73,80,78,77,74,76);\n:local notes (\$notes,78,74,68,78,76,74,70,76,74,73,71,73,74,71,65,74,73 ,71,66,73,71,69,68,69,71,69,68,71,69,71,68,71);\n:local notes (\$notes,66,71,65,66,68,69,71,65,74,65,73,65,71,65,66,69,66 ,61,57,61,66,61,69,61,66,61,65,68,65,61,65,68);\n:local notes (\$notes,73,68,77,73,80,71,69,73,69,66,69,73,78,73,81,78,85 ,78,77,80,77,73,85,84,85,84,85,80,81,78,77,80);\n:local notes (\$notes,77,73,83,82,83,82,83,80,81,78,77,80,77,73,74,73,74 ,73,74,68,69,66,65,68,73,83,83,80,81,78,77,80);\n:local notes (\$notes,73,71,69,73,78,85,85,81,83,80,78,81,74,73,71,74,67 ,66,65,68,61,59,57,61,66,68,69,66,71,66,73,66);\n:local notes (\$notes,74,66,61,66,68,65,66,69,68,69,69,69,68,69,66,69,64 ,69,63,69,64,69,66,69,68,69,69,69,66,69,68,69);\n:local notes (\$notes,68,66,64,76,75,76,73,76,71,76,70,76,71,76,73,76,75 ,76,76,76,73,76,75,76,75,73,71,73,75,76,78,80);\n:local notes (\$notes,81,78,83,71,69,71,68,71,66,71,64,71,62,71,61,64,66 ,68,69,71,73,74,76,78,80,76,81,69,68,69,66,69);\n:local notes (\$notes,64,69,63,69,61,69,59,63,64,66,68,69,71,73,75,76,78 ,75,80,64,62,64,61,64,59,64,57,64,56,64,57,64);\n:local notes (\$notes,73,71,73,76,81,80,81,78,73,76,59,66,75,73,75,78,81 ,80,81,78,75,78,59,68,71,69,71,76,80,78,80,76);\n:local notes (\$notes,71,76,59,70,73,71,73,76,82,80,82,76,73,76,75,83,82 ,80,78,83,78,76,75,78,75,73,71,83,81,80,78,81);\n:local notes (\$notes,78,76,75,78,75,73,71,81,80,78,76,80,76,75,73,76,73 ,71,69,80,78,76,75,78,75,73,71,75,71,69,68,76);\n:local notes (\$notes,73,71,69,73,69,68,66,69,66,64,63,66,69,73,71,75,78 ,81,81,80,81,78,80,76,80,83,88,83,80,76,71,78);\n:local notes (\$notes,88,87,88,83,80,76,74,76,73,76,74,76,71,76,73,76,81 ,76,73,76,71,76,73,76,69,76,71,76,80,76,71,76);\n:local notes (\$notes,69,76,71,76,68,76,69,76,78,76,75,76,76,76,78,76,80 ,76,59,66,75,81,83,64,71,80,57,81,80,81,78,80);\n:local notes (\$notes,78,80,78,80,78,80,78,80,78,80,78,76,76,88,87,85,83 ,88,81,88,80,88,78,88,76,76,75,73,71,76,69);\n:local notes (\$notes,76,68,76,66,76,64,68,71,75,76,80,83,87,88);\n:local speed 60ms;\n:local stacc 3ms;\n:local transpose -60;\n:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14 916,15804;\n:local n0; :local n;\n:local d0; :local d;\n:local l;\n:local midi;\n:local i;\n:local octa;\n:local frq;\n:for i from=0 to= ([:len \$notes]-1) do={\n:set midi [:pick \$notes \$i];\n:set midi (\$midi + \$transpose);\n:set octa 0;\n:while ( \$midi < 60) do={:set midi (\$midi + 12); :set octa (\$octa + 1 \_ ); };\n:set midi (\$midi - (12 * (\$midi /12)));\n:set frq [:tonum [:pick \$frqtab \$midi]];\n:set frq (\$frq>>(\$octa));\n:set d0 2;\n:if (\$i >1 && \$i<6) do={:set d0 4};\n:if (\$i >9 && \$i<14) do={:set d0 4};\n:if (\$i > 1585 && \$i <1589) do={:set d0 1};\n:if (\$i = 1589) do={:set d0 9};\n:if (\$i = 1590) do={:set d0 4};\n:if (\$i = 1591) do={:set d0 1};\n:if (\$i = 1592) do={:set d0 1};\n:if (\$i = 1593) do={:set d0 6};\n:if (\$i > 1596 && \$i <1612 ) do={:set d0 1};\n:if (\$i = 1611) do={:set d0 4};\n:if (\$i = 1644) do={:set d0 12};\n:set d (\$d0 * \$speed );\n:set l (\$d0 * (\$speed - \$stacc));\n# :put \$midi;\n# :put \$frq;\n# :put \$octa;\n:beep fr=\$frq le=\$l;\n:delay \$d;\n}"
/system script add dont-require-permissions=no name="Solfeggietto" owner=admin policy=read source=":local notes 51,48,51,55,60,63,62,60,59,55,59,62,67,65,63,62;\n:local notes (\$notes, 63,60,63,67,72,75,74,72,74,72,71,69,67,65,63,62);\n:local notes (\$notes, 63,60,63,67,72,75,74,72,71,67,71,74,79,77,75,74);\n:local notes (\$notes, 75,72,75,79,84,87,86,84,86,84,83,81,79,77,75,74);\n:local notes (\$notes, 75,72,67,63,60,84,79,75,80,53,56,60,65,68,72,75);\n:local notes (\$notes, 74,70,65,62,58,82,77,74,79,51,55,58,63,67,70,74);\n \n:local notes (\$notes, 72,69,68,69,72,69,68,69,75,72,67,69,75,72,67,69);\n:local notes (\$notes, 74,72,66,69,81,72,66,69,78,72,62,69,72,69,66,62);\n:local notes (\$notes, 70,43,46,50,55,58,57,55,54,50,54,57,62,60,58,57);\n:local notes (\$notes, 58,55,58,62,67,70,69,67,69,67,66,64,62,60,58,57);\n:local notes (\$notes, 58,55,58,62,67,70,69,67,66,62,66,69,74,72,70,69);\n:local notes (\$notes, 70,67,70,74,79,82,81,79,81,79,78,76,74,72,70,69);\n:local notes (\$notes, 70,67,70,74,79,74,70,67,53,79,74,71,67,71,74,79);\n:local notes (\$notes, 72,67,79,67,72,67,79,67,71,67,77,67,71,67,77,67);\n:local notes (\$notes, 75,72,75,79,84,79,75,72,58,84,79,76,72,76,79,84);\n:local notes (\$notes, 77,72,84,72,77,72,84,72,76,72,82,72,76,72,82,72);\n:local notes (\$notes, 80,41,44,48,53,56,55,53,52,48,52,55,60,58,56,55);\n:local notes (\$notes, 56,53,56,60,65,68,67,65,67,65,64,62,60,58,56,55);\n:local notes (\$notes, 56,53,56,60,65,68,67,65,64,60,64,67,72,70,68,67);\n:local notes (\$notes, 68,65,68,72,77,80,79,77,79,77,76,74,72,70,68,67);\n:local notes (\$notes, 68,77,72,68,65,72,68,65,60,68,65,60,56,65,60,56);\n:local notes (\$notes, 49,80,77,76,77,79,77,76,77,48,68,65,64,65,67,65);\n:local notes (\$notes, 64,65,47,86,77,79,80,79,77,75,74,75,79,84,79,82);\n:local notes (\$notes, 80,79,77,75,75,74,75,74,75,74,75,74,72,67,79,67);\n:local notes (\$notes, 72,67,79,67,71,67,77,67,71,67,77,67,70,67,76,67);\n:local notes (\$notes, 70,67,76,67,69,75,84,75,69,75,84,75,68,65,74,65);\n:local notes (\$notes, 68,65,74,65,67,73,82,73,67,73,82,73,66,63,72,63);\n:local notes (\$notes, 66,63,72,63,65,72,84,72,65,72,84,72,63,72,75,79);\n:local notes (\$notes, 84,79,75,72,79,75,72,67,77,74,71,65,63,48,51,55);\n:local notes (\$notes, 60,63,62,60,59,55,59,62,67,65,63,62,63,60,63,67);\n:local notes (\$notes, 72,75,74,72,74,72,71,69,67,65,63,62,63,60,63,67);\n:local notes (\$notes, 72,75,74,72,71,67,71,74,79,77,75,74,75,72,75,79);\n:local notes (\$notes, 84,87,86,83,84,79,75,74,72,67,63,62,60);\n \n:local speed 50ms;\n:local stacc 10ms;\n:local transpose -48;\n:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14 916,15804;\n:local n0; :local n;\n:local d0; :local d;\n:local l;\n:local midi;\n:local i;\n:local octa;\n:local frq;\n:for i from=0 to= ([:len \$notes]-1) do={\n:set midi [:pick \$notes \$i];\n:set midi (\$midi + \$transpose);\n:set octa 0;\n:while ( \$midi < 60) do={:set midi (\$midi + 12); :set octa (\$octa + 1 \_ ); };\n:set midi (\$midi - (12 * (\$midi /12)));\n:set frq [:tonum [:pick \$frqtab \$midi]];\n:set frq (\$frq>>(\$octa));\n:set d0 2;\n:if (\$i >371 && \$i<380) do={:set d0 1};\n:if (\$i =336) do={:set d0 16};\n:if (\$i =345) do={:set d0 16};\n:if (\$i =354) do={:set d0 16};\n:if (\$i =371) do={:set d0 8};\n:if (\$i =524) do={:set d0 16};\n \n:set d (\$d0 * \$speed );\n:set l (\$d0 * (\$speed - \$stacc));\n# :put \$midi;\n# :put \$frq;\n# :put \$octa;\n:beep fr=\$frq le=\$l;\n:delay \$d;\n}"
/system script add dont-require-permissions=no name="Misc1" owner=admin policy=read source=" :beep frequency=600 length=165ms;\n :delay 165ms;\n \n :beep frequency=50 length=83ms;\n :delay 83ms;\n \n :beep frequency=600 length=165ms;\n :delay 165ms;\n \n :beep frequency=50 length=83ms;\n :delay 83ms;\n \n :beep frequency=650 length=165ms;\n :delay 165ms;\n \n :beep frequency=600 length=165ms;\n :delay 165ms;\n \n :beep frequency=50 length=83ms;\n :delay 83ms;\n \n :beep frequency=600 length=165ms;\n :delay 165ms;\n \n :beep frequency=700 length=275ms;\n :delay 275ms;\n \n :beep frequency=800 length=275ms;\n :delay 275ms;\n \n :beep frequency=900 length=110ms;\n :delay 110ms;\n"
/system script add dont-require-permissions=no name="Chang" owner=admin policy=read source=" :for j from=1 to=4 step=1 do={ \n  :for i from=2000 to=50 step=-400 do={\n:beep frequency=\$i length=11ms;\n:delay 11ms;\n  } \n  :for i from=800 to=2000 step=400 do={\n:beep frequency=\$i length=11ms;\n:delay 11ms;\n  } \n }"
/system script add dont-require-permissions=no name="Coo" owner=admin policy= read,write source=" :for i from=0 to=150 step=10 do={ \n  :beep frequency=(1295 - i) length=22ms;\n  :delay 22ms;\n  :beep frequency=(1095 + i) length=22ms;\n  :delay 22ms;\n }"
/system script add dont-require-permissions=no name="Oh!" owner=admin policy=read source=" \n :for i from=800 to=2000 step=100 do={ \n  :beep frequency=\$i length=11ms;\n  :delay 11ms;\n } \n :for i from=2000 to=50 step=-100 do={ \n  :beep frequency=\$i length=11ms;\n  :delay 11ms;\n }"
/system script add dont-require-permissions=no name="Phone1" owner=admin policy=read source=" :for i from=1 to=10 step=1 do={ \n  :beep frequency=1195 length=22ms;\n  :delay 22ms;\n  :beep frequency=2571 length=22ms;\n  :delay 22ms;\n }"
/system script add dont-require-permissions=no name="Siren" owner=admin policy=read source=" :for i from=1 to=3 step=1 do={ \n  :beep frequency=550 length=494ms;\n  :delay 494ms;\n  :beep frequency=400 length=494ms;\n  :delay 494ms;\n }"
/system script add dont-require-permissions=no name="Space1" owner=admin policy=read source=" :for i from=1000 to=40 step=-20 do={ \n  :beep frequency=\$i length=11ms;\n  :delay 11ms;\n }"
/system script add dont-require-permissions=no name="Space2" owner=admin policy=read source=" :for i from=10000 to=500 step=-500 do={ \n  :beep frequency=\$i length=11ms;\n  :delay 11ms;\n }"
/system script add dont-require-permissions=no name="PhoneCall" owner=admin policy= read source=" :for i from=1 to=10 do={ \n  /system script run \"SQUAWK Phone 1\";\n  :delay 400ms;\n  /system script run \"SQUAWK Phone 1\";\n  :delay 2000ms;\n }"
/system script add dont-require-permissions=no name="Fanfare" owner=admin policy=read source=" :for t from=1200 to=350 step=-50 do={ \n  :beep frequency=\$t length=33ms;\n  :delay 33ms;\n }"
/system script add dont-require-permissions=no name="Alarm" owner=admin policy= read source=" :for t1 from=1 to=10 step=1 do={ \n  :for t2 from=300 to=1800 step=40 do={\n:beep frequency=\$t2 length=11ms;\n:delay 11ms;\n  } \n }"
/system script add dont-require-permissions=no name="Maschinengewehr" owner= admin policy=read source=" :for t from=1 to=20 step=1 do={ \n  :beep frequency=40 length=33ms;\n  :delay 33ms;\n  :delay 55ms;\n }"
/system script add dont-require-permissions=no name="Telefone" owner=admin policy=read source=" :for t1 from=1 to=4 step=1 do={ \n  :for t2 from=1 to=25 step=1 do={\n:beep frequency=540 length=33ms;\n:delay 33ms;\n:beep frequency=650 length=27ms;\n:delay 27ms;\n  } \n  :delay 2000ms;\n }"
/system script add dont-require-permissions=no name="Tonarkade" owner=admin policy=read source=" :for t1 from=1 to=8 step=1 do={\n:for t2 from=600 to=750 step=8 do={\n:beep frequency=\$t2 length=11ms;\n:delay 11ms;\n  } \n }"
/system script add dont-require-permissions=no name="Tonarkade2" owner=admin policy=read source=" :for t from=1250 to=600 step=-8 do={ \n  :beep frequency=\$t length=11ms;\n  :delay 11ms;\n }"
/system script add dont-require-permissions=no name="Sad" owner=admin policy=read source=" :beep frequency=784 length=500ms;\n :delay 500ms;\n \n :beep frequency=738 length=500ms;\n :delay 500ms;\n \n :beep frequency=684 length=500ms;\n :delay 500ms;\n \n :beep frequency=644 length=1000ms;\n :delay 1000ms;"
/system script add dont-require-permissions=no name="Victory" owner=admin policy=read source=" :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=659 length=700ms;\n :delay 700ms;\n :beep frequency=784 length=500ms;\n :delay 500ms;\n :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=523 length=200ms;\n :delay 1000ms;\n :beep frequency=659 length=700ms;\n :delay 700ms;\n :beep frequency=784 length=500ms;\n :delay 800ms;\n :beep frequency=784 length=400ms;\n :delay 400ms;\n :beep frequency=884 length=200ms;\n :delay 200ms;\n :beep frequency=784 length=200ms;\n :delay 200ms;\n :beep frequency=687 length=200ms;\n :delay 200ms;\n :beep frequency=659 length=200ms;\n :delay 200ms;\n :beep frequency=579 length=200ms;\n :delay 200ms;\n :beep frequency=519 length=400ms;\n :delay 400ms;"

/system scheduler
add name=HeyItsAMe on-event="/system script run \"Super Mario Bros\";" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive start-time=startup