list names;
list uuid;
list count;
integer length;
key     gDataserverID;
integer gListLength;
integer x;
list TempList;
string named;
string slurl="http://maps.secondlife.com/secondlife/Winterfell%20Valley/82/201/500";
key uuider;
default
{
    state_entry()
    {
     TempList = llGetParcelPrimOwners( llGetPos() );
        length= llGetListLength(TempList);

        for ( ; x < length; x += 2)
        {
            count += llList2Integer(TempList, x+1);
            uuid += llList2String(TempList, x);
             if ( llList2Key(TempList, x) !="0ded70aa-516d-4274-bfef-ee1360594854"&&  llList2Key(TempList, x) !="f72eccfc-20eb-446a-a1b2-eb1b21f72f8b")
        {
            if (llList2Integer(TempList,x+1)>25)
            {
               // string name=llKey2Name(llList2Key(TempList,x));

              //  llSay(0,(string)llList2String(TempList,x));
                uuider=llList2Key(TempList,x);

               gDataserverID=llRequestAgentData(uuider,DATA_NAME);

              // llSay(0,(string)named);
             }
            }
        }
    }
     dataserver(key queryid, string data)
    {
        uuider=llList2Key(TempList,x);
        llSay(0,(string)uuider);

            named=data;
            llSay(0, "Atention! " +(string) named +". Your Current Prim Allotment of 25 has been Exceeded.  Please come to "+(string)slurl+" and Reduce your prim count as soon as possible.  Thank You.");

    }


    touch_start(integer total_number)
    {
        llSay(0, "Touched.");
    }
}