list poesia = [

"FALSA INDICAZIONE",
"Confine, diceva il cartello.",
"Cercai la dogana. Non c’era.",
"Non vidi, dietro il cancello,", 
"ombra di terra straniera.",
"Giorgio Caproni, Il muro della terra, 1975"

];




integer i;

mostraverde(string s)
{
    llSetText( s, <0,1,0>, 1);
}

mostrablu(string s)
{
    llSetText( s, <0,0,1>, 1);
}


default
{
    state_entry()
    {
        llSay(0, "Reset");
        mostraverde(llList2String(poesia,llGetListLength(poesia)-1));
    }
    touch_start(integer count)
    {
        i=0;
        
        mostrablu( llList2String(poesia,i) );
        
        llSetTimerEvent(4);
    }
    
    timer()
    {
        i++;
        if(i< llGetListLength(poesia) - 1)
        {
            mostrablu(llList2String(poesia,i));
            return;
        }
        
        llResetScript();
    }
}