Computer:jaycoonlanguage

This is a language that is written in LSL. It reads a notecard specified by the user (meant for use with my computer that you can buy here: http://slurl.com/secondlife/Coda/249/46/73)

//  initialised: Starts un initialised
integer open  = FALSE;

string notecard;

key notecardLineQueryID;
key notecardTextQueryID;

integer lines;
string process;
string line;
string notcard;
list ints;
list strings;

default
{
    state_entry()
    {
    //  PUBLIC_CHANNEL has the integer value 0
        llListen(PUBLIC_CHANNEL, "", NULL_KEY, "");
        llListen(4, "", NULL_KEY, "");
    }

    listen(integer channel, string name, key id, string message)
    {
    //  init start
        if(message == "os:load progs")
            llSay(4, "prog:jaycoonlanguage");

        else if(message == "bios:startjaycoonlanguage")
            open = TRUE;

        else if(message == "close" && open)
            open = FALSE;
    //  init done

    //  set notecard
        if(~llSubStringIndex(message, "notecard:") && open)
            notecard = llDeleteSubString(message, 0, 9);

        if(message == "compile" && notecard != "" && open)
        {
        //  start compiling
            notecardLineQueryID = llGetNumberOfnotecardLineQueryIDs(notecard);
            process = "lines";
            integer contvar = 0;
            while (contvar <= lines)
            {
                notecardTextQueryID = llGetnotecardLineQueryID(notecard,contvar);

                if(~llSubStringIndex(line, "print:"))
                {
                    line = llDeleteSubString(line,0,6);

                    if(~llListFindList(ints, [line]))
                        llSay(PUBLIC_CHANNEL,
                            llList2String(ints,llListFindList(ints, [line])));

                    if(~llListFindList(strings, [line]))
                        llSay(PUBLIC_CHANNEL,
                            llList2String(ints,llListFindList(strings, [line])));

                    llSay(PUBLIC_CHANNEL, line);
                }
                if(~llSubStringIndex(line, "int:"))
                {
                    line = llDeleteSubString(line, 0, 4);
                    ints += (integer)line;
                }
                if(~llSubStringIndex(line, "string:"))
                {
                    line = llDeleteSubString(line, 0, 4);
                    strings += (string)line;
                }

                ++contvar;
            }
        }
    }

    dataserver(key query_id, string data)
    {
        if(query_id == notecardLineQueryID)
            lines = (integer)data;

        if(query_id == notecardTextQueryID)
            line = data;
    }
}