/**
*/

init_lsl()
{
    llSetTexture("empty", ALL_SIDES);
    llSetColor(<1.0,1.0,1.0>, 1);
    llSetTexture("0", 1);
}



default
{
    state_entry()
    {
        init_lsl();
    }


    link_message(integer from, integer num, string mesg, key id)
    {
        if (mesg!="") {      
            list  color = llParseString2List(mesg,[" ",","],[]);
            float red   = (float)llList2String(color, 0);
            float grn   = (float)llList2String(color, 1);
            float bul   = (float)llList2String(color, 2);   
            llSetColor(<red,grn,bul>, 1);
        }
        
        if (num>=0 && num<=9) {
            llSetTexture((string)num, 1);
        }
    }
}