RLV force sit vs obscured objects tester

Force Sit Test.lsl

default
{
    touch_start( integer _ )
    {
        integer iPrim = llDetectedLinkNumber( 0 );
        string  sPrim = llGetLinkName( iPrim );

        if ( sPrim != "Force Sit" )
        {
            key kToucher = llDetectedKey( 0 );

            llRegionSayTo( kToucher, -1812221819,
                "ForceSit," + ( (string) kToucher ) + "," +
                "@sit:" + sPrim + "=force" );
        }
        else
        {
            llSay( 0, "Please touch one of the arrows." );
        }
    }
}