///////////////////////////////////////////////////////////////////////////
//  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.        //
///////////////////////////////////////////////////////////////////////////
//               _                  ___                 
// |_|  _. _|_ _|_ o  _  |  _|  _    |  _. ._ _   _ _|_ 
// | | (_|  |_  |  | (/_ | (_| _>    | (_| | (_| (/_ |_ 
//                                            _|        
//
///////////////////////////////////////////////////////////////////////////
//                              INTERNALS                                //
///////////////////////////////////////////////////////////////////////////

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 mhash;
        string mfield = llList2String(llParseString2List(llGetScriptName(), [" - "], []),1);
        for(itra=0, mhash=0; itra<llStringLength(mfield); ++itra) {
            mhash += llListFindList(alpha, (list)llToLower(llGetSubString(mfield, itra, itra)));
        }
        integer comChannel = mhash + ((integer)("0x"+llGetSubString((string)llGetCreator(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        llListen(comChannel+1, "", "", "");
    }
    listen(integer channel, string name, key id, string message) {
        list tData = llParseString2List(message, ["="], []);
        if(llList2String(tData, 0) != "@la") return;
        list landPos=llCSV2List(llList2String(tData,1));
        vector landXY;
        landXY.x=llList2Float(landPos, 0);
        landXY.y=llList2Float(landPos, 1);
        vector pos = llGetPos();
        llOffsetTexture(landXY.x/2, landXY.y/2, ALL_SIDES);
    }
}