// touch to create an NPC at a random position in your region.
// The NPC will be created at 100m up in the air, just for dramatic effect :-)
// Set npcNum to how many NPCs you want.

key npc;
vector toucherPos;
integer n;
integer i;
float X = 112;
float Y = 112;
float Z = 22;
float spacing = 2;
integer npcNum = 10;
integer wait = 10000;
string toucher;
key toucherkey;

default
{
    state_entry()
    {
        llSetText("Populate this region",<1,1,1>,1);
    }

    touch_start(integer number)
    {
        toucher = llKey2Name(llDetectedKey(0));
        toucherkey = llDetectedKey(0);
        state raise;
    }
}

state raise
{
    state_entry()
    {
        for (n=0;n<npcNum;++n)
        {
            llSetText("Creating NPC #"+(string)(n+1)+"...",<1,1,1>,1);
            vector npcPos = < X, Y, Z >;
            osNpcCreate(toucher, "", npcPos, toucherkey);
            Y = Y + spacing;

            if (wait)
            {
                for (i=wait;i>0;--i)
                {
                    llSetText("Creating NPC #"+(string)(n+2)+" in "+(string)i+"...",<1,1,1>,1);
                //    llSleep(1);
                }
            }
        }
        llSetText("Done",<1,1,1>,1);
    }

    touch_start(integer number)
    {
        llSay(0,"Removing all NPCs from this scene!");
        list avies = osGetAvatarList();
        for(n=0;n<llGetListLength(avies);n=n+3)
        {
            llOwnerSay("Attempting to remove "+llList2String(avies,n+2)+" with UUID "+llList2String(avies,n+0));
            osNpcRemove((key)llList2Key(avies,n));
        }

        llResetScript();
    }
}