super-mario-theme 3.45 KB
Newer Older
1
#!rsc
Christian Hesse's avatar
Christian Hesse committed
2
# RouterOS script: super-mario-theme
3
# Copyright (c) 2013-2019 Christian Hesse <mail@eworm.de>
Christian Hesse's avatar
Christian Hesse committed
4 5 6
#
# play Super Mario theme

7
:local Beeps {
Christian Hesse's avatar
Christian Hesse committed
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
  {  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 };

61 62
:foreach Beep in=$Beeps do={
  :if ([ :len $Beep ] = 2) do={
63
    :beep frequency=($Beep->0) length=(($Beep->1) . "ms");
Christian Hesse's avatar
Christian Hesse committed
64
  } else={
65
    :delay ($Beep . "ms");
Christian Hesse's avatar
Christian Hesse committed
66 67
  }
}