state event help needed

 
string gCreatorName;
 
default
{
	state_entry()
	{
		llOwnerSay("state default entry");
		if (gCreatorName == "")
		{
			state getcreatorname;
		}
		llOwnerSay("I was created by " + gCreatorName);
		llOwnerSay("Creator key is " + (string)llGetCreator());
	}
}
 
state getcreatorname
{
	state_entry()
	{
		llOwnerSay("state creator entry");
		llRequestAgentData(llGetCreator(), DATA_NAME);
	}
 
	dataserver(key queryid, string data)
	{
		gCreatorName = data;
		state default;
	}
}

default
{
	state_entry()
	{
        key creator = llGetCreator();
		llOwnerSay("I was created by " + llKey2Name(creator));
		llOwnerSay("Creator key is " + (string)creator);
	}
}

default
{
	state_entry()
	{
		llOwnerSay("I was created by " + llKey2Name(llGetCreator());
		llOwnerSay("Creator key is " + (string)llGetCreator());
	}
}

touch_start()
	{
		llOwnerSay("First thing is: " + llsomecommand());
		llOwnerSay("Second thing is:" + llsomethingthatreturnsvalueinastate());
		llOwnerSay("Third thing is: " + llsomecommand());
	}

list gDataList = [DATA_ONLINE, DATA_NAME, DATA_BORN, DATA_RATING, DATA_PAYINFO];
integer gListLength = 0;
integer gDataCount = 0;
list gCreatorList = [];
key gCreatorKey;
 
default
{
state_entry()
{
	 gCreatorKey = llGetCreator();
	 glistlength = llGetListLength(gDataList);
	 llRequestAgentData(gCreatorKey, llList2String(gDataList, gDataCount));
}
dataserver(key queryid, string data)
{
	 gCreatorList = (gCreatorList=[]) + gCreatorList + data;
	 gDataCount += 1;
	 if (gDataCount < gListLength)
	 {
		 llRequestAgentData(gCreatorKey, llList2String(gDataList, gDataCount));
	 }
}
}

 
string gCreatorName;
 
default
{
	state_entry()
	{
		gCreatorName = "";
		integer wait = 0;
		integer timeout = whatYouWant;
		llRequestAgentData(llGetCreator(), DATA_NAME);
		while ((gCreatorName == "") && (wait < timeout))
		{
			llSleep(0.1);
			wait++;
		}
		// Got it or failed
	}

	dataserver(key queryid, string data)
	{
		gCreatorName = data;
	}
}

list requestCodes;
list requests;
list replies;
integer replyCount;

default {
    state_entry() {
        // A list of data items
        requestCodes = [DATA_PAYINFO, DATA_RATING, DATA_BORN, DATA_NAME, DATA_ONLINE];
        // The owner of this script
        key ownerKey = llGetOwner();
        // Counter
        integer i;
        i = llGetListLength(requestCodes);
        // Initialize the reply count so that we know how many replies have been received
        replyCount = 0;
        // Assemble 2 lists
        while(i--) {
            // This holds the request Ids
            requests += [llRequestAgentData(ownerKey, llList2Integer(requestCodes, i)];
            // This holds placeholders for the replies
            replies += "";
        }
        // Free the list of data items
        requestCodes = [];
    }
    
    dataserver(key reqId, string data) {
        integer i;  // To store the index of the request key
        
        // Look for the reqId in the list, if found it should return a positive index
        if((i = llListFindList(requests, reqId)) !=  -1) {
            // Replace the corresponding item in the replies list
            llListReplaceList(replies, [data], i, i);
            // Inc the count of replies
            replyCount++;
        }
        // If we've received the same number of replies as requests, we should be done
        if(replyCount == llGetListLength(requests)) {
            // Free the requests list
            requests = [];
            // Jump to the next state
            state nextState;
        }
    }
}

state nextState {
    state_entry() {
        // All data requested has now been returned
    }
}