gate_api_scan_inworld

list api;
default
{
    on_rez(integer start_param)
    {
        llResetScript();
    }
    state_entry()
    {
        llListen(-905000, "", "", ""); //Milkyway
        llListen(-805000, "", "", ""); //Pegasus
        llListen(-605000, "", "", ""); //Destiny
        llListen(-505000, "", "", ""); //Iconian

        llSetText("ready", <1,1,1>, 1);
    }
    listen(integer c, string n, key id, string message)
    {
            if(c == -905000)
            {
                message = "M: " + message;
            }
            else if(c == -705000)
            {
                message = "T: " + message;
            }
            else if(c == -605000)
            {
                message = "D: " + message;
            }
            else if(c == -505000)
            {
                message = "I: " + message;
            }
            else
            {
                message = "P: " + message;
            }
            api += message;
            if(llGetListLength(api) > 5)
            {
                api = llDeleteSubList(api, 0, 0);
            }
            llSetText(llDumpList2String(api, "\n"), <1,1,1>, 1);

            llSay(0,message);
    }
}