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

integer eat = 0;

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

    listen(integer chan,string name,key id,string mes) {
        if(~llSubStringIndex(mes, "EAT")) {
            llSetText("Eaten: " + (string)(++eat), <1,1,1>, 1);
        }
        if(~llSubStringIndex(mes, "CLR")) {
            llResetScript();
        }
    }
}