RouterOS beeper player

Mortal Kombat

The riff that shouted the name, in strict sixteenths.

1# Techno Syndrome (Mortal Kombat, 1993) for the RouterOS beeper2# https://lab.glossema.dev/play/mortal-kombat3# One speaker, one tone at a time. 130 BPM, strict sixteenths, A minor.45# --- Instrument -------------------------------------------------------------6# Equal temperament, A4 = 440 Hz, integers only.7:global notes {"A2"=110; "D3"=147; "E3"=165;8               "A4"=440; "C5"=523; "D5"=587; "E5"=659};910# s = sixteenth, e = eighth, q = quarter, h = half. The gap is added after11# every note so repeated sixteenths articulate instead of smearing.12:global durs {"s"=95ms; "e"=210ms; "q"=440ms; "h"=900ms};13:global gap 20ms;1415# Octave switch: 1 for the hook, 2 when it comes back an octave up.16:global oct 1;1718# One note. "-" is a rest: it keeps the clock and sounds nothing.19:global play do={20    :global notes;21    :global durs;22    :global gap;23    :global oct;24    :local d ($durs->$2);25    :if ($1 = "-") do={26        :delay ($d + $gap);27    } else={28        :beep frequency=(($notes->$1) * $oct) length=$d;29        :delay ($d + $gap);30    }31}3233# --- Score ------------------------------------------------------------------34# The shouted name: three low notes, then air.35:local shout {"A2:e"; "A2:e"; "E3:h"; "-:q"};3637# The riff: two bars of sixteenths circling A, C, D and E.38:local riff {39    "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "C5:s"; "C5:s";40    "D5:s"; "D5:s"; "C5:s"; "C5:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s";41    "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "C5:s"; "C5:s";42    "D5:s"; "D5:s"; "E5:s"; "E5:s"; "D5:s"; "D5:s"; "C5:s"; "C5:s"43};4445# The hook that sings over it.46:local hook {47    "A4:e"; "C5:e"; "D5:q"; "C5:e"; "A4:e"; "E5:h"; "-:e";48    "A4:e"; "C5:e"; "D5:q"; "E5:e"; "D5:e"; "C5:e"; "A4:h"49};5051# --- Shout ------------------------------------------------------------------52:put "Shout";53:foreach ev in=$shout do={54    :local c [:find $ev ":"];55    :local nm [:pick $ev 0 $c];56    :local du [:pick $ev ($c + 1) [:len $ev]];57    $play $nm $du;58}5960# --- Riff -------------------------------------------------------------------61:put "Riff";62:for i from=1 to=3 do={63    :foreach ev in=$riff do={64        :local c [:find $ev ":"];65        :local nm [:pick $ev 0 $c];66        :local du [:pick $ev ($c + 1) [:len $ev]];67        $play $nm $du;68    }69}70:foreach ev in=$hook do={71    :local c [:find $ev ":"];72    :local nm [:pick $ev 0 $c];73    :local du [:pick $ev ($c + 1) [:len $ev]];74    $play $nm $du;75}7677# --- Drop -------------------------------------------------------------------78# One bar of rest: sixteen sixteenths of 115 ms at 130 BPM.79:put "Drop";80:local bar (115ms * 16);81:delay $bar;8283# --- Riff again -------------------------------------------------------------84:put "Riff again";85:for i from=1 to=2 do={86    :foreach ev in=$riff do={87        :local c [:find $ev ":"];88        :local nm [:pick $ev 0 $c];89        :local du [:pick $ev ($c + 1) [:len $ev]];90        $play $nm $du;91    }92}93:set oct 2;94:foreach ev in=$hook do={95    :local c [:find $ev ":"];96    :local nm [:pick $ev 0 $c];97    :local du [:pick $ev ($c + 1) [:len $ev]];98    $play $nm $du;99}100:set oct 1;

# Techno Syndrome (Mortal Kombat, 1993) for the RouterOS beeper
# https://lab.glossema.dev/play/mortal-kombat
# One speaker, one tone at a time. 130 BPM, strict sixteenths, A minor.

# --- Instrument -------------------------------------------------------------
# Equal temperament, A4 = 440 Hz, integers only.
:global notes {"A2"=110; "D3"=147; "E3"=165;
               "A4"=440; "C5"=523; "D5"=587; "E5"=659};

# s = sixteenth, e = eighth, q = quarter, h = half. The gap is added after
# every note so repeated sixteenths articulate instead of smearing.
:global durs {"s"=95ms; "e"=210ms; "q"=440ms; "h"=900ms};
:global gap 20ms;

# Octave switch: 1 for the hook, 2 when it comes back an octave up.
:global oct 1;

# One note. "-" is a rest: it keeps the clock and sounds nothing.
:global play do={
    :global notes;
    :global durs;
    :global gap;
    :global oct;
    :local d ($durs->$2);
    :if ($1 = "-") do={
        :delay ($d + $gap);
    } else={
        :beep frequency=(($notes->$1) * $oct) length=$d;
        :delay ($d + $gap);
    }
}

# --- Score ------------------------------------------------------------------
# The shouted name: three low notes, then air.
:local shout {"A2:e"; "A2:e"; "E3:h"; "-:q"};

# The riff: two bars of sixteenths circling A, C, D and E.
:local riff {
    "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "C5:s"; "C5:s";
    "D5:s"; "D5:s"; "C5:s"; "C5:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s";
    "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "A4:s"; "C5:s"; "C5:s";
    "D5:s"; "D5:s"; "E5:s"; "E5:s"; "D5:s"; "D5:s"; "C5:s"; "C5:s"
};

# The hook that sings over it.
:local hook {
    "A4:e"; "C5:e"; "D5:q"; "C5:e"; "A4:e"; "E5:h"; "-:e";
    "A4:e"; "C5:e"; "D5:q"; "E5:e"; "D5:e"; "C5:e"; "A4:h"
};

# --- Shout ------------------------------------------------------------------
:put "Shout";
:foreach ev in=$shout do={
    :local c [:find $ev ":"];
    :local nm [:pick $ev 0 $c];
    :local du [:pick $ev ($c + 1) [:len $ev]];
    $play $nm $du;
}

# --- Riff -------------------------------------------------------------------
:put "Riff";
:for i from=1 to=3 do={
    :foreach ev in=$riff do={
        :local c [:find $ev ":"];
        :local nm [:pick $ev 0 $c];
        :local du [:pick $ev ($c + 1) [:len $ev]];
        $play $nm $du;
    }
}
:foreach ev in=$hook do={
    :local c [:find $ev ":"];
    :local nm [:pick $ev 0 $c];
    :local du [:pick $ev ($c + 1) [:len $ev]];
    $play $nm $du;
}

# --- Drop -------------------------------------------------------------------
# One bar of rest: sixteen sixteenths of 115 ms at 130 BPM.
:put "Drop";
:local bar (115ms * 16);
:delay $bar;

# --- Riff again -------------------------------------------------------------
:put "Riff again";
:for i from=1 to=2 do={
    :foreach ev in=$riff do={
        :local c [:find $ev ":"];
        :local nm [:pick $ev 0 $c];
        :local du [:pick $ev ($c + 1) [:len $ev]];
        $play $nm $du;
    }
}
:set oct 2;
:foreach ev in=$hook do={
    :local c [:find $ev ":"];
    :local nm [:pick $ev 0 $c];
    :local du [:pick $ev ($c + 1) [:len $ev]];
    $play $nm $du;
}
:set oct 1;

Note—Freq—Line—

On the router: paste the script into a terminal, or upload the file and run it.

Download the script

Ask for a tune you may arrange: your own, one out of copyright, or one you are licensed to use.

Paste any beeper script into the editor to hear it.

How it works

One command sounds one tone: :beep frequency=<hertz> length=<time>; the beeper plays one note at a time.

:delay is the clock. A beep starts the tone and returns at once, so every note is a beep followed by a delay of the same length and a small gap.

A tune is a script: a note table, a melody as an array, one function that plays a note. Download any of these and run it in a terminal.