///////////////////////////////////////////////////////////////////////////
//  Copyright (C) Wizardry and Steamworks 2011 - License: GNU GPLv3      //
//  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  //
//  rights of fair usage, the disclaimer and warranty conditions.        //
///////////////////////////////////////////////////////////////////////////
 
///////////////////////////////////////////////////////////////////////////
//                              INTERNALS                                //
///////////////////////////////////////////////////////////////////////////

integer comChannel;

default
{
    state_entry() {
        list alpha = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"];
        integer itra;
        integer ahash;
        for(itra=0, ahash=0; itra<llStringLength(llGetScriptName()); ++itra) {
            ahash += llListFindList(alpha, (list)llToLower(llGetSubString(llGetScriptName(), itra, itra)));
        }
        comChannel = ahash + ((integer)("0x"+llGetSubString((string)llGetCreator(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        llListen(comChannel, "", "", "@rc");
    }
    listen(integer channel, string name, key id, string message) {
        vector pos = llGetPos();
        vector scale = llGetScale();
        llRegionSay(comChannel, "@ac=" + (string)pos.x + "," + (string)pos.y + "," + (string)pos.z + "," + (string)scale.x + "," + (string)scale.y);
        llSetColor(<1,0,0>, ALL_SIDES);
        llSetTimerEvent(5);
    }
    timer() {
        llSetColor(<1,1,1>, ALL_SIDES);
        llSetTimerEvent(0);
    }
}