ComputerCraft MoonTheme

local args = {...};
local speaker = peripheral.find("speaker");
local notes = {
    ["F#0"] = 0,
    ["G0"] = 1,
    ["G#0"] = 2,
    ["A0"]= 3,
    ["A#0"] = 4,
    ["B0"] = 5,
    ["C1"] = 6,
    ["C#1"] = 7,
    ["D1"] = 8,
    ["D#1"] = 9,
    ["E1"] = 10,
    ["F1"] = 11,
    ["F#1"] = 12,
    ["G1"] = 13,
    ["G#1"] = 14,
    ["A1"] = 15,
    ["A#1"] = 16,
    ["B1"] = 17,
    ["C2"] = 18,
    ["C#2"] = 19,
    ["D2"] = 20,
    ["D#2"] = 21,
    ["E2"] = 22,
    ["F2"] = 23,
    ["F#2"] = 24
};

local moonTheme = {
    {{"F#0"}, 0.15}, -- Bar
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"B1"}, 0.15}, -- Bar
    {{"C1"}, 0.15},
    {{"B1"}, 0.15},
    {{"A1"}, 0.15},
    {{"C1"}, 0.15},
    {{"A1"}, 0.15},
    {{"G1"}, 0.15},
    {{"F1"}, 0.15},
    {{"F#0", "C1"}, 0.15},  -- Bar
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"B1"}, 0.15}, -- Bar
    {{"C1"}, 0.15},
    {{"B1", "F1"}, 0.15},
    {{"A1"}, 0.15},
    {{"C1", "G1"}, 0.15},
    {{"A1"}, 0.15},
    {{"G1", "B1"}, 0.15},
    {{"F1"}, 0.15},
    {{"F#0", "B1"}, 0.15},  -- Bar
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1", "A1"}, 0.15},
    {{"C1", "A1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"B1"}, 0.15}, -- Bar
    {{"C1"}, 0.15},
    {{"B1"}, 0.15},
    {{"A1"}, 0.15},
    {{"C1", "G1"}, 0.15},
    {{"A1"}, 0.15},
    {{"G1", "F1"}, 0.15},
    {{"F1"}, 0.15},
    {{"F#0", "C2"}, 0.15},  -- Bar
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1"}, 0.15},
    {{"C1"}, 0.15},
    {{"F1"}, 0.15},
    {{"G1", "F1"}, 0.15},
    {{"C1"}, 0.15},
    {{"B1"}, 0.15}, -- Bar
    {{"C1"}, 0.15},
    {{"B1"}, 0.15},
    {{"A1"}, 0.15},
    {{"C1", "F2"}, 0.15},
    {{"A1"}, 0.15},
    {{"G1"}, 0.15},
    {{"F1", "F2"}, 0.15},
}

function playTune(tune)
    for k, v in pairs(tune) do
        speaker.playNote(args[1] or "chime", 0.5, notes[v[1][1]]);
        if (v[1][2] ~= nil) then
            speaker.playNote(args[2] or "chime", 3, notes[v[1][2]]);
        end
        sleep(v[2]);
    end
end

playTune(moonTheme);