default
{
    state_entry()
    {
        llSetText("llDetectedGroup()\nTouch to see if you're in the same group",<1 ,1,1>,1);
    }
 
    touch_start(integer total_number)
    {
       if(llDetectedGroup(0))
            llSay(0,"Same group!");
       else
            llSay(0,"Not the same group!");
    }
}

default
{
    state_entry()
    {
        llSetText("llGetNumberOfPrims test\nTouch to find number of prims in link set.", <1 , 1, 1>, 1);
    }
 
    touch_start(integer i)
    {
        llSay(0, "Number of prims in linked set: " + (string)llGetNumberOfPrims());
    }
}

default
{
    state_entry()
    {
        llSetText("llEmail()\nTouch to have me send myself a email",<1 ,1,1>,1);
        llSetTimerEvent(5);
    }
 
    touch_start(integer total_number)
    {
        llEmail((string)llGetKey()+"@lsl.secondlife.com","On the matter of hippos.....",
                "Llama are superior to hippos!");
    }
 
    timer()
    {
        llGetNextEmail("","");
    }
 
    email(string time, string address, string subject, string message, integer num_left)
    {
        llSay(0,"subject: "+subject+"\nmessage: "+llDeleteSubString(message, 0, llSubStringIndex(message, "\n\n") + 1));
    }
}