prim typewriter2

string notename="In>";
integer PowerOn=0;
integer InLn;
key query;
vector printcursor;
integer chan=99987;
float charspace = 0.85;
float newlinespace = 1.34;
integer charsperline = 25;

println(string line){
    integer len = llStringLength(line);
    printcursor=<0,0,2>;
    integer i;
    line=llToLower(line);
    if(len>=charsperline){
        integer mult = llCeil(len/charsperline);
        integer j;
        for(j=0;j<=mult;j++){
            printcursor=<0,0,2>;
            printcursor.x -= charspace*(charsperline/2);
            for(i=0;i<charsperline&&i<=len;i++){
                string char = llGetSubString(line,i,i);
                if(char!=" "&&llGetInventoryType(char)!=-1)
                    llRezObject(char,llGetPos()+(printcursor*llGetRot()),ZERO_VECTOR,llGetRot(),chan);
                printcursor.x += charspace;
            }
            line=llDeleteSubString(line,0,charsperline-1);
            len-=charsperline;
            if(len>0){
                llRezObject("-",llGetPos()+(printcursor*llGetRot()),ZERO_VECTOR,llGetRot(),chan);
                llRegionSay(chan,"nl");
                printcursor.x -= charspace*(len/2);
            }
        }
    }
    else{
        printcursor.x -= charspace*(len/2);
        for(i=0;i<len;i++){
            string char = llToLower(llGetSubString(line,i,i));
            if(char!=" "&&llGetInventoryType(char)!=-1)
                llRezObject(char,llGetPos()+(printcursor*llGetRot()),ZERO_VECTOR,llGetRot(),chan);
            printcursor.x += charspace;
        }
    }
    //llPlaySound("typewriter-ding",10.0);
    if(len>0)
        llSleep(0.8);
    llRegionSay(chan,"nl");
}

default{
    on_rez(integer p){
        llResetScript();
    }
    state_entry(){
        llShout(chan,"cleartext");
        InLn=0;
    }
    dataserver(key query_id, string data){
        if (query_id == query){
            llSetTimerEvent(10);
            if(data!=EOF){
                println(data);
                InLn++;
                query = llGetNotecardLine(notename,InLn);
            }
        }
    }
    touch_start(integer num){
        if(llDetectedKey(0)==llGetOwner()){
            if(PowerOn==0){
                query = llGetNotecardLine(notename, InLn);
                PowerOn=1;
            }
            else if(PowerOn==1)
                llResetScript();
        }
    }
    timer(){
        llSay(chan,"cleartext");
        llSleep(3);
        printcursor=<0,0,2>;
        InLn=0;
        query = llGetNotecardLine(notename, InLn);
    }
}