llSetText typer

string text = "Justice in Chaos!!";
integer curPos;
integer strLen;

default{
    on_rez(integer param){
        llResetScript();
    }
    state_entry(){
        curPos=0;
        strLen=llStringLength(text);
        llSetTimerEvent(llFrand(0.3)+0.1);
    }
    timer(){
        if(curPos<strLen){
            llSetText(llGetSubString(text,0,curPos),<1,1,1>,1);
            curPos++;
        }
        else{
            llSleep(1.5);
            curPos=0;
        }
        llSetTimerEvent(llFrand(0.3)+0.1);
    }
}