Ray Caster v1.4 (to ground)

default
{

    touch_start(integer total_number)
    {
        vector start = llGetPos();
        vector ground = start;
        ground.z = llGround( ZERO_VECTOR );
        vector end = <start.x, start.y, ground.z>;

        list results = llCastRay(start, end, [RC_DATA_FLAGS, RC_GET_NORMAL, RC_MAX_HITS, 1] );

            key uuid = llList2Key(results, 0);
            vector vect = llList2Vector(results, 1);

            string name = "Land"; // if (uuid == NULL_KEY)
            list pos;

            if (uuid != NULL_KEY)
                name = llKey2Name(uuid);
                pos = llGetObjectDetails(uuid, ([OBJECT_POS]));
            llOwnerSay("Start : " + (string)start + " - " + "End : " + (string)end + ".");
            llOwnerSay("Intercepted Object UUID : " + (string)uuid);
            llOwnerSay("Hit : " + name + " - Location : " + llList2String(pos,0) + ".");
            llOwnerSay("Ray Intersectiing @ : " + (string)vect);

        llResetScript();
    }
}