// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Choose a current focus task
// Not compiled or tested in-world
// Setup: Place in your own object and touch. Enter add|task, focus|number, or list. Maximum ten tasks.
// Stop / restore: Remove or reset to erase session data. Input listeners close after one reply or after 45 seconds.
// Notes: Data lives only in script memory and is lost on reset. No visitors are logged and no external requests are sent. Selecting a focus does not complete or remove other tasks. The list exists only in script memory.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list tasks;
integer focus=-1;
integer positive(string input)
{
    if(input=="" || llStringLength(input)>5)return FALSE;
    integer i;
    for(i=0;i<llStringLength(input);++i)if(llSubStringIndex("0123456789",llGetSubString(input,i,i))==-1)return FALSE;
    return (integer)input>0;
}
integer handle;
integer channel;
closeInput()
{
    if(handle)llListenRemove(handle);
    handle=0;
    llSetTimerEvent(0);
}
respond(string input)
{
    input=llStringTrim(input,STRING_TRIM);
    if(llStringLength(input)>200)
    {
        llOwnerSay("Use at most 200 characters.");
        return;
    }
    if(input=="list")
    {
        integer i;
        for(i=0;i<llGetListLength(tasks);++i)
        {
            string marker="  ";
            if(i==focus)marker="> ";
            llOwnerSay(marker+(string)(i+1)+" "+llList2String(tasks,i));
        }
        return;
    }
    list p=llParseStringKeepNulls(input,["|"],[]);
    if(llGetListLength(p)!=2)
    {
        llOwnerSay("Use add|task or focus|number.");
        return;
    }
    if(llList2String(p,0)=="add")
    {
        if(llList2String(p,1)=="" || llGetListLength(tasks)>=10)
        {
            llOwnerSay("Empty task or list full.");
            return;
        }
        tasks += [llList2String(p,1)];
        llOwnerSay("Task added.");
    }
    else if(llList2String(p,0)=="focus")
    {
        string number=llList2String(p,1);
        if(!positive(number) || (integer)number>llGetListLength(tasks))
        {
            llOwnerSay("Invalid task number.");
            return;
        }
        focus=(integer)number-1;
        llOwnerSay("Focus: "+llList2String(tasks,focus));
    }
    else llOwnerSay("Unknown command.");
}
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        closeInput();
        channel=-10000-(integer)llFrand(1000000000);
        handle=llListen(channel,"",llGetOwner(),"");
        llSetTimerEvent(45);
        llTextBox(llGetOwner(),"Enter add|task, focus|number, or list. Maximum ten tasks.",channel);
    }
    listen(integer c,string name,key speaker,string input)
    {
        if(c!=channel || speaker!=llGetOwner())return;
        closeInput();
        respond(input);
    }
    timer()
    {
        closeInput();
        llOwnerSay("Input closed.");
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}