Photoalbum

-- start menu section

-- ===== COPY THE MENUS CODE HERE =====

-- end menu section

local COLORS = { BLACK = vector(0.067, 0.067, 0.067),  WHITE = vector(1.000, 1.000, 1.000),
    NAVY = vector(0.000, 0.122, 0.247),   BLUE = vector(0.000, 0.455, 0.851),   AQUA = vector(0.498, 0.859, 1.000),
    TEAL = vector(0.224, 0.800, 0.800),   OLIVE = vector(0.239, 0.600, 0.439),  GREEN = vector(0.180, 0.800, 0.251),
    LIME = vector(0.004, 1.000, 0.439),   YELLOW = vector(1.000, 0.863, 0.000), ORANGE = vector(1.000, 0.522, 0.106),
    RED = vector(1.000, 0.255, 0.212),    MAROON = vector(0.522, 0.078, 0.294), FUCHSIA = vector(0.941, 0.071, 0.745), 
    PURPLE = vector(0.694, 0.051, 0.788), SILVER = vector(0.867, 0.867, 0.867), GRAY = vector(0.667, 0.667, 0.667) }

local ALBUM_POSITIONS = { "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" }
-- local ALBUM_POSITIONS = { "top", "near top", "half top", "far top", "mid top", "mid bottom", "far bottom", "half bottom", "near bottom", "bottom" }

local DISPLAY_SECONDS = { "3", "4", "5", "6", "7", "8", "10", "12", "15", "20", "30", "60" }

local DEFAULT_TEXTCOLOR = COLORS.BLUE
local DEFAULT_BACKCOLOR = COLORS.WHITE
local ME = NULL_KEY

local LINK_PICTURE = 1
local LINK_CONTROL_BAR = 2
local LINK_TEXT = { 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }
local LINK_BACK = { 13, 14, 15, 16, 17, 18, 19, 20, 21, 22 }
local FACE_PICTURE = 4
local FACE_CONTROL_BAR = 4
local FACE_BACK = 4

local CONTROL_BAR_UUID = "a4eed443-9a1c-ebee-2969-7cd9390d6ff3"
local CONTROL_BAR_OPTIONS = {}

local alphabet = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\n\n\n\n\n"
local TEXTURE = "b2e7394f-5e54-aa12-6e1c-ef327b6bed9e"

local albums = { { name = "pictures", textColor = DEFAULT_TEXTCOLOR, backColor = DEFAULT_BACKCOLOR, ref = "|1000|" } }
local pictures = {}

local params = {
    albumRef = 1000,
    selectedAlbum = 1,
    selectedPicture = 0,
    publicTouch = true,
    sayPictureName = false,
    autoMove = false,
    displaySeconds = 5,
}

local function setText(text, color, linkNumber)

    local function getOffset(pos)
        local row = pos // 10
        local col = pos % 10
        return vector(-0.45 + (0.1 * col), 0.45 - (0.1 * row), 0.0)
    end

    for faceText = 0, ll.StringLength(text) - 1 do
        local letter = ll.GetSubString(text, faceText + 1, faceText + 1)
        local index = ll.SubStringIndex(alphabet, letter) - 1
        local offset = getOffset(index)
        ll.SetLinkPrimitiveParamsFast(linkNumber, {PRIM_TEXTURE, faceText, TEXTURE, vector(0.08, 0.08, 0), vector(offset.x, offset.y, 0), 0, PRIM_COLOR, faceText, color, 1})
    end
end

--
-- PHOTO ALBUMS (functions called from menu functions and others)
--

local timerMove

local function writeAlbums(album)

    local function writeAlbum(album)
        local name = (albums[album] or "").name or "    "
        while ll.StringLength(name) < 8 do
            name ..= " "
            if ll.StringLength(name) < 8 then
                name = " " .. name
            end
        end
        setText(name, if albums[album] then albums[album].textColor else DEFAULT_TEXTCOLOR, LINK_TEXT[album])
        ll.SetLinkPrimitiveParamsFast(LINK_BACK[album], {PRIM_COLOR, FACE_BACK, if albums[album] then albums[album].backColor else DEFAULT_BACKCOLOR, 1})
    end

    if album then
        writeAlbum(album)
    else
        for i = 1, 10 do
            writeAlbum(i)
        end
    end
end

local function autoMoving(autoMoving)
    params.autoMove = autoMoving
    if autoMoving then
        LLTimers:every(params.displaySeconds, timerMove)
        ll.SetLinkPrimitiveParamsFast(LINK_CONTROL_BAR, {PRIM_TEXTURE, FACE_CONTROL_BAR, CONTROL_BAR_UUID, vector(1, 0.5, 0), vector(0, 0.25, 0), 0})
    else
        LLTimers:off(timerMove)
        ll.SetLinkPrimitiveParamsFast(LINK_CONTROL_BAR, {PRIM_TEXTURE, FACE_CONTROL_BAR, CONTROL_BAR_UUID, vector(1, 0.5, 0), vector(0, -0.25, 0), 0})
    end
end

local function save()
    ll.LinksetDataWrite("|PARAMS|", lljson.encode(params))
    ll.LinksetDataWrite("|ALBUMS|", lljson.encode(albums))
end

local function getPictures(album)
    local ref = if albums[album] then albums[album].ref else "||"
    local albumPictures = {}
    local pics = ll.LinksetDataFindKeys(`^{ref}`, 1, 0)
    for _, pic in pics do
        table.insert(albumPictures, pic:split("|")[3])
    end
    return albumPictures
end

local function getAlbums()
    local albumNames = {}
    for i = 1, #albums do
        table.insert(albumNames, albums[i].name)
    end
    return albumNames
end

local function getColors()
    local colors = {}
    for color in COLORS do
        table.insert(colors, color)
    end
    return colors
end

local function changeMoving()
    autoMoving(not params.autoMove)
end

local function showPicture()
    local pictureName = pictures[params.selectedPicture]
    if pictureName then
        ll.SetLinkPrimitiveParamsFast(LINK_PICTURE, {PRIM_TEXTURE, FACE_PICTURE, pictureName, vector(1, 1, 0), vector(0, 0, 0), 0})
        if params.sayPictureName then
            ll.Whisper(0, pictureName)
        end
    end
end

local function showAlbum(album)
    pictures = getPictures(album)
    params.selectedPicture = 1
    showPicture()
end

--
-- PHOTO ALBUMS (functions called from menu)
--

local function newAlbum(name, context)
    name = ll.GetSubString(name, 1, 8)
    params.albumRef += 1
    local ref = "|" .. tostring(params.albumRef) .. "|"
    table.insert(albums, { name = name, textColor = DEFAULT_TEXTCOLOR, backColor = DEFAULT_BACKCOLOR, ref = ref })
    params.selectedAlbum = #albums
    context.selectedAlbumName = name
    ll.OwnerSay("The album " .. name .. " has been added")
    writeAlbums(params.selectedAlbum)
end

local function editAlbumName(name)
    local album = params.selectedAlbum
    name = ll.GetSubString(name, 1, 8)
    albums[album].name = name
    writeAlbums(album)
end

local function editAlbumTextColor(textColor)
    local album = params.selectedAlbum
    albums[album].textColor = COLORS[textColor]
    writeAlbums(album)
end

local function editAlbumBackColor(backColor)
    local album = params.selectedAlbum
    albums[album].backColor = COLORS[backColor]
    writeAlbums(album)
end

local function editAlbumPosition(position)
    local album = params.selectedAlbum
    local newPosition = table.find(ALBUM_POSITIONS, position)
    if newPosition ~= album then
        local albumInfo = albums[album]
        table.remove(albums, album)
        if newPosition <= #albums then
            table.insert(albums, newPosition, albumInfo)
        else
            table.insert(albums, albumInfo)
            newPosition = #albums
        end
        params.selectedAlbum = newPosition
        writeAlbums()
    end
end

local function deleteAlbum()
    local album = params.selectedAlbum
    local name = albums[album].name
    table.remove(albums, album)
    params.selectedAlbum = if #albums > 0 then 1 else 0
    ll.OwnerSay("The album " .. name .. " has been deleted")
    writeAlbums()
end

local function selectAlbum(albumName, context)
    params.selectedAlbum = table.find(getAlbums(), albumName)
    context.selectedAlbumName = albumName
end

local function movePicture()
    local album = params.selectedAlbum
    local pictureName = pictures[params.selectedPicture]
    local pic = ll.LinksetDataFindKeys(`|{pictureName}$`, 1, 1)[1]
    ll.LinksetDataDelete(pic)
    ll.LinksetDataWrite(albums[album].ref .. pictureName, " ")
    ll.OwnerSay("The picture " .. pictureName .. " has been moved to the album " .. albums[album].name)
    showAlbum(album)
end

local function setDisplaySeconds(seconds)
    params.displaySeconds = seconds
    autoMoving(params.autoMove)
end

local function setPublicTouch()
    params.publicTouch = not params.publicTouch
end

local function setSayPictureName()
    params.sayPictureName = not params.sayPictureName
end

--
-- PHOTO ALBUMS (functions called from control bar)
--

local function firstPicture()
    params.selectedPicture = 1
    showPicture()
end

local function previousPicture()
    params.selectedPicture -= 1
    if params.selectedPicture < 1 then
        params.selectedPicture = #pictures
    end
    showPicture()
end

local function nextPicture()
    params.selectedPicture += 1
    if params.selectedPicture > #pictures then
        params.selectedPicture = 1
    end
    showPicture()
end

local function lastPicture()
    params.selectedPicture = #pictures
    showPicture()
end

--
-- PHOTO ALBUMS (called by init)
--

local function load()
    local data = ll.LinksetDataRead("|PARAMS|")
    if data ~= "" then
        params = lljson.decode(data)
    end
    data = ll.LinksetDataRead("|ALBUMS|")
    if data ~= "" then
        albums = lljson.decode(data)
        for i = 1, #albums do
            albums[i].textColor = tovector(albums[i].textColor)
            albums[i].backColor = tovector(albums[i].backColor)
        end
        params.selectedAlbum = 1
    end
    save()
end

--
-- PHOTO ALBUMS (called by changed)
--

local function checkInventory()
    local album = params.selectedAlbum
    for i = 1, ll.GetInventoryNumber(INVENTORY_TEXTURE) do
        local pictureName = ll.GetInventoryName(INVENTORY_TEXTURE, i)
        if #ll.LinksetDataFindKeys(`|{pictureName}$`, 1, 1) == 0 then
            table.insert(pictures, pictureName)
            ll.LinksetDataWrite(albums[album].ref .. pictureName, " ")
            ll.OwnerSay("Picture " .. pictureName .. " added to album " .. albums[album].name)
            showAlbum(album)
        end
    end
    save()
end

--
-- PHOTO ALBUMS (menu entry/exit checks)
--

local function initMain(context)
    context.selectedAlbumName = albums[params.selectedAlbum].name
end

local function entryMain(context)
    context.setPublicTo = if params.publicTouch then "OFF" else "ON"
    context.setSayNameTo = if params.sayPictureName then "OFF" else "ON"
end

local function entryNewAlbum()
    if #albums == 10 then
        return false, "There are already 10 albums. It's not possible to add more"
    end
end

local function entryDeleteAlbum()
    if #albums < 2 then
        return false, "There is only one album. It's not possible to delete it"
    end
    if #getPictures(params.selectedAlbum) > 0 then
        return false, "The album has pictures. It's not possible to delete it"
    end
end

function timerMove()
    nextPicture()
end

local mainMenu = {
    { "Manage albums and options", init = initMain, entry = entryMain, close = true, timeout = 60, back_default = true, ret_default = false },
    { "New album", newAlbum, entry = entryNewAlbum, textbox = "Name of the new album" },
    { "Edit album", menu = {
        { "Editing the album [selectedAlbumName]" },
        { "Name", editAlbumName, textbox = "Name of the new album" },
        { "Text color", menu = {
            { "Editing the text color of the album [selectedAlbumName]", ret = true },
            { getColors, editAlbumTextColor },
        }},
        { "Back color", menu = {
            { "Editing the back color of the album [selectedAlbumName]", ret = true },
            { getColors, editAlbumBackColor },
        }},
        { "Position", menu = {
            { "Editing the position of the album [selectedAlbumName]", ret = true },
            { ALBUM_POSITIONS, editAlbumPosition },
        }},
    }},
    { "Delete album", menu = {
        { "Deleting the album [selectedAlbumName]", entry = entryDeleteAlbum, ret = true },
        { "Yes", deleteAlbum },
        { "No", deleteAlbum },
    }},
    { "Select album", menu = {
        { "Selecting an album", ret = true },
        { getAlbums, selectAlbum },
    }},
    { "Move picture", movePicture },
    { "Display seconds", menu = {
        { "Choosing display seconds", ret = true },
        { DISPLAY_SECONDS, setDisplaySeconds },
    }},
    { "Set publi [setPublicTo]", setPublicTouch },
    { "Set say [setSayNameTo]", setSayPictureName },
}

local function init()
    ME = ll.GetOwner()
    CONTROL_BAR_OPTIONS = { firstPicture, previousPicture, changeMoving, nextPicture, lastPicture }
    load()
    checkInventory()
    writeAlbums()
    showAlbum(params.selectedAlbum)
end

LLEvents:on("touch_start", function(events)
    local ev = events[1]
    local toucher = ev:getKey()
    local touchIndex = ev:getTouchST()
    local x = touchIndex.x
    local linkNumber = ev:getLinkNumber()
    if linkNumber == LINK_PICTURE then
        if toucher == ME then
            menu.open(mainMenu, ME)  -- open new menu
        end
    else
        if params.publicTouch or toucher == ME then
            if linkNumber == LINK_CONTROL_BAR then
                local optionBar = x // 0.2 + 1
                CONTROL_BAR_OPTIONS[optionBar]()
            else
                local index = table.find(LINK_TEXT, linkNumber)
                if index then
                    showAlbum(index)
                end
            end
        end
    end
end)

LLEvents:on("on_rez", function(start_param)
    ll.ResetScript()
end)

LLEvents:on("changed", function(change)
    if bit32.btest(change, CHANGED_INVENTORY) then
        checkInventory()
    end
    if bit32.btest(change, CHANGED_OWNER) then
        ll.ResetScript()
    end
end)

init()