add scripts

1 files changed, 66 insertions, 0 deletions

diff --git a/super-mario-theme b/super-mario-theme
new file mode 100644
index 0000000..d1eda3f
--- /dev/null
+++ b/super-mario-theme
@@ -0,0 +1,66 @@
+# RouterOS script: super-mario-theme
+# Copyright (c) 2013-2018 Christian Hesse <mail@eworm.de>
+#
+# play Super Mario theme
+
+:local beeps {
+  {  660; 100 }; 150; {  660; 100 }; 300; {  660; 100 }; 300;
+  {  510; 100 }; 100; {  660; 100 }; 300; {  770; 100 }; 550;
+  {  380; 100 }; 575; {  510; 100 }; 450; {  380; 100 }; 400;
+  {  320; 100 }; 500; {  440; 100 }; 300; {  480;  80 }; 330;
+  {  450; 100 }; 150; {  430; 100 }; 300; {  380; 100 }; 200;
+  {  660;  80 }; 200; {  760;  50 }; 150; {  860; 100 }; 300;
+  {  700;  80 }; 150; {  760;  50 }; 350; {  660;  80 }; 300;
+  {  520;  80 }; 150; {  580;  80 }; 150; {  480;  80 }; 500;
+  {  510; 100 }; 450; {  380; 100 }; 400; {  320; 100 }; 500;
+  {  440; 100 }; 300; {  480;  80 }; 330; {  450; 100 }; 150;
+  {  430; 100 }; 300; {  380; 100 }; 200; {  660;  80 }; 200;
+  {  760;  50 }; 150; {  860; 100 }; 300; {  700;  80 }; 150;
+  {  760;  50 }; 350; {  660;  80 }; 300; {  520;  80 }; 150;
+  {  580;  80 }; 150; {  480;  80 }; 500; {  500; 100 }; 300;
+  {  760; 100 }; 100; {  720; 100 }; 150; {  680; 100 }; 150;
+  {  620; 150 }; 300; {  650; 150 }; 300; {  380; 100 }; 150;
+  {  430; 100 }; 150; {  500; 100 }; 300; {  430; 100 }; 150;
+  {  500; 100 }; 100; {  570; 100 }; 220; {  500; 100 }; 300;
+  {  760; 100 }; 100; {  720; 100 }; 150; {  680; 100 }; 150;
+  {  620; 150 }; 300; {  650; 200 }; 300; { 1020;  80 }; 300;
+  { 1020;  80 }; 150; { 1020;  80 }; 300; {  380; 100 }; 300;
+  {  500; 100 }; 300; {  760; 100 }; 100; {  720; 100 }; 150;
+  {  680; 100 }; 150; {  620; 150 }; 300; {  650; 150 }; 300;
+  {  380; 100 }; 150; {  430; 100 }; 150; {  500; 100 }; 300;
+  {  430; 100 }; 150; {  500; 100 }; 100; {  570; 100 }; 420;
+  {  585; 100 }; 450; {  550; 100 }; 420; {  500; 100 }; 360;
+  {  380; 100 }; 300; {  500; 100 }; 300; {  500; 100 }; 150;
+  {  500; 100 }; 300; {  500; 100 }; 300; {  760; 100 }; 100;
+  {  720; 100 }; 150; {  680; 100 }; 150; {  620; 150 }; 300;
+  {  650; 150 }; 300; {  380; 100 }; 150; {  430; 100 }; 150;
+  {  500; 100 }; 300; {  430; 100 }; 150; {  500; 100 }; 100;
+  {  570; 100 }; 220; {  500; 100 }; 300; {  760; 100 }; 100;
+  {  720; 100 }; 150; {  680; 100 }; 150; {  620; 150 }; 300;
+  {  650; 200 }; 300; { 1020;  80 }; 300; { 1020;  80 }; 150;
+  { 1020;  80 }; 300; {  380; 100 }; 300; {  500; 100 }; 300;
+  {  760; 100 }; 100; {  720; 100 }; 150; {  680; 100 }; 150;
+  {  620; 150 }; 300; {  650; 150 }; 300; {  380; 100 }; 150;
+  {  430; 100 }; 150; {  500; 100 }; 300; {  430; 100 }; 150;
+  {  500; 100 }; 100; {  570; 100 }; 420; {  585; 100 }; 450;
+  {  550; 100 }; 420; {  500; 100 }; 360; {  380; 100 }; 300;
+  {  500; 100 }; 300; {  500; 100 }; 150; {  500; 100 }; 300;
+  {  500;  60 }; 150; {  500;  80 }; 300; {  500;  60 }; 350;
+  {  500;  80 }; 150; {  580;  80 }; 350; {  660;  80 }; 150;
+  {  500;  80 }; 300; {  430;  80 }; 150; {  380;  80 }; 600;
+  {  500;  60 }; 150; {  500;  80 }; 300; {  500;  60 }; 350;
+  {  500;  80 }; 150; {  580;  80 }; 150; {  660;  80 }; 550;
+  {  870;  80 }; 325; {  760;  80 }; 600; {  500;  60 }; 150;
+  {  500;  80 }; 300; {  500;  60 }; 350; {  500;  80 }; 150;
+  {  580;  80 }; 350; {  660;  80 }; 150; {  500;  80 }; 300;
+  {  430;  80 }; 150; {  380;  80 }; 600; {  660; 100 }; 150;
+  {  660; 100 }; 300; {  660; 100 }; 300; {  510; 100 }; 100;
+  {  660; 100 }; 300; {  770; 100 }; 550; {  380; 100 }; 575 };
+
+:foreach beep in=$beeps do={
+  :if ([ :len $beep ] = 2) do={
+    :beep frequency=[ :pick $beep 0 ] length=([ :pick $beep 1 ] . "ms");
+  } else={
+    :delay ($beep . "ms");
+  }
+}