///////////////////////////////////////////////////////////////////////////
//  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.        //
///////////////////////////////////////////////////////////////////////////

default
{
    state_entry() {
        integer comChannel = ((integer)("0x"+llGetSubString((string)llGetOwner(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        llListen(comChannel, "", "", "");
    }

    listen(integer chan,string name,key id,string mes) {
        if(mes == "DIE," + llGetObjectDesc()) jump die;
        if(mes == "CLR") jump die;
        return;
@die;
        llDie();
    }
    on_rez(integer param) {
        llSetObjectDesc((string)param);
        llResetScript();
    }
}