string curmsg;
integer time = 0;
integer lines;
integer ftimer;

default
{
    state_entry()
    {
        curmsg = "";
        lines = 0;
    }

    link_message(integer sender, integer num, string msg, key id)
    {
        if(num == 50)
        {
            if(lines >= 9)
            {
                curmsg = llGetSubString(curmsg,llSubStringIndex(curmsg," \n ")+3,llStringLength(curmsg)-1);
                lines = 8;
            }
            curmsg += " \n "+msg;
            llSetText(curmsg+" \n ",<1,.42353,0>,0.85);
            lines += 1;
            if(!time)
            {
                time = 1;
                ftimer = 1;
                llSetTimerEvent(2);
            }
        }
    }
    
    timer()
    {
        if(lines > 1)
        {
            if(ftimer)
            {
                curmsg = llGetSubString(curmsg,llSubStringIndex(curmsg," \n ")+3,llStringLength(curmsg)-1);
                ftimer = 0;
            }
            curmsg = llGetSubString(curmsg,llSubStringIndex(curmsg," \n ")+3,llStringLength(curmsg)-1);
        llSetText(curmsg+" \n ",<1,.42353,0>,0.85);
        lines -= 1;
        }
        else if(lines == 1)
        {
            curmsg = "";
            llSetText(curmsg+" \n ",<1,.42353,0>,0.85);
            lines -= 1;
        }
        if(lines == 0)
        {
            time = 0;
            llSetTimerEvent(0);
        }
    }
}