LlRequestSimulatorData Test

[LLRequestSimulatorDataTest]

[VERSION] 0.3

[LENGTH] 00:10

[TESTERS] 1

[OVERVIEW] This test has been designed to exercise the llRequestSimulatorData LSL function.

[SETUP] This test requires 1 Tester and rezzable land

[*]

[0010] Create a new script containing the following:

[SCRIPT] llRequestSimulatorDataScript

[0020] Create a box on the ground, Named SimDataTest

[0030] Place the Script in the Box

[0040] Type /1 and then a sim name, Example: "/1 Ahern" minus the quotations, This will have you say on channel 1 "Ahern" so that the object with this script hears it and responds.

[0050] Verify the script responds with correct information. Example: "SimDataTest: Ahern (PG) (255232, 256512) is up" and "SimDataTest: Gibson (MATURE) (254976, 256000) is up"

[0060] Remember to clear up after your tests.

[END]

[llRequestSimulatorDataScript]

string gSimName; 
key gStatusQuery;
string gStatus;
string gRating;
key SimPos;

default
{
    state_entry() 
    { 
    llListen(1, "", "", ""); 
    } 

    listen(integer channel, string name, key id, string mesg) 
    { 
    gSimName = mesg; 
    gStatusQuery = llRequestSimulatorData(gSimName, DATA_SIM_STATUS); 
    gRating = llRequestSimulatorData(gSimName, DATA_SIM_RATING);
    SimPos = llRequestSimulatorData(gSimName, DATA_SIM_POS);
    }
    
    dataserver(key queryId, string data) 
    {
        if (queryId == gStatusQuery)
        {
            gStatus = data;
        }
        else if (queryId == gRating)
        {
            gRating = data;
        }    
        else 
        {
        vector SimPos? = (vector) data; 
        llSay(0, gSimName + " (" + gRating + ") " + "(" + 
        (string)((integer) SimPos?.x) + ", " + 
        (string)((integer) SimPos?.y) + ") is " + gStatus); 
        }
    }
}