Channel coms by object_rez and llGetObjectDetals - Rezzer

// This is a way to establish communication between a rezzer and the object it rezzers via object_rez and llGetObjectDetails

// This script is for the rezzer

integer gChan; // a unique channel ro communicate between rezzer and object rezzed
key obj_key;  // key of object rezzed


default
{

    state_entry()
    {

        gChan = ((integer)("0x"+llGetSubString((string)llGetKey(),-8,-1)) - 6368) | 0x8000000; // - 6368 is just an offset in case that channel is 0;


    }

    collision_start(integer num)
    {
        llRezObject("sphere", llGetPos() + <0.0,0.0,1.0>, <0.0,0.0,0.0>, <0.0,0.0,0.0,1.0>, 0);
    }

    object_rez(key id) // when the rezzer rezzes an object
    {
        obj_key = id;  // get the key of the object rezzed

    }

    touch_end(integer num)
    {


        llRegionSayTo(obj_key, gChan,  "Hello Mr Object!");
    }
}