script typing fast ncp problem

[minx123]

dicastes01,157,168,5 script Fast-Type Event 421,{if(getgmlevel() >= 99) callsub L_GM;if( !.Event ) { mes "There is no Event right now.";} else if ( .String$ == "" ) { npctalk "Wait for the next round..";} else { mes "Type the Correct Sentences."; mes "^FF0000" + .String$ + "^000000"; input .@Type$; if( .String$ == "" ) { announce "Sorry, " + strcharinfo(0) + " is a bit slow..",0; close; } if ( .String$ == .@Type$ && .Event ) { getitem 7227, 5; //EDIT THE PRIZE HERE announce "Fast-Type Event: " + strcharinfo(0) + " typed the correct string!",0; set .String$, ""; set .Round, .Round + 1; donpcevent "Fast-Type Event::OnStart2"; } else { announce "" + strcharinfo(0) + " mispelled some strings XD",0; }}end;OnMinute00:OnMinute30:if(.Event) end;donpcevent "Fast-Type Event::OnStart";end;OnStart:announce "Fast-Type Event has started at Event AREA !",0;L_Begin:set .Event, 1;set .String$, "";while( getstrlen( .String$ ) < .Length ){ set .String$,.String$ + .List$[ rand( getarraysize( .List$ ) ) ];}announce "Round "+(.Round+1)+" Started !",0;end;OnStart2:sleep2 5000;if(.Round == .Rounds) { if(!.Event) end; announce "Fast-Type Event: Event is over!",0; set .Event, 0; set .Round, 0; end;}if(!.Event) end;announce "Fast-Type Event: Next round starts in 5 seconds...",0;sleep2 5000;if(!.Event) end;goto L_Begin;L_GM:mes "Fast-Type event is" + (.Event?"^00FF00 ON^000000":"^FF0000 OFF^000000");if(select((!.Event?"^00FF00Start":"^FF0000End") + " Event^000000","Normal Player") == 2) return;switch(.Event) { case 1: set .Event, 0; set .Round, 0; set .String$, ""; announce "Fast-Type Event: A GM has ended the event.",0; break; default: donpcevent "Fast-Type Event::OnStart";}end;OnInit:set .Length,28; //EDIT THE LENGTH OF CHARACTERS TO BE TYPEDset .Rounds,5; //EDIT THE ROUNDS setarray .List$,";","B","_","D","E","%","=","H","I","J","/","L","M","N","6","P","Q","]","S","T",","; //YOU CAN ADD LETTERS, DIGITS & SYMBOLS HERE..end;}
no button to close. every box no button close.

 

[Oxxy]

Here, tested a bit, should be ok:

dicastes01,157,168,5	   script    Fast-Type Event    421,{    if(getgroupid() >= 99) {        mes "Fast-Type event is" + (.Event?"^00FF00 ON^000000":"^FF0000 OFF^000000");        if(select((!.Event?"^00FF00Start":"^FF0000End") + " Event^000000","Normal Player") == 2) { next; goto PlayerMenu; }        switch(.Event) {            case 1:                close2;                .Event = 0;                .Round = 0;                .String$ = "";                announce "Fast-Type Event: A GM has ended the event.",0; break;                end;            default:                close2;                donpcevent "Fast-Type Event::OnStart";                end;        }        end;    }    PlayerMenu:    if(!.Event) {        mes "There is no Event right now.";    } else if(.String$ == "") {        npctalk "Wait for the next round..";    } else {        mes "Type the Correct Sentences.";        mes "^FF0000" + .String$ + "^000000";        input .@Type$;        if( .String$ == "" ) {            announce "Sorry, " + strcharinfo(0) + " is a bit slow..",0;            close;        }        if (.String$ == .@Type$) {            getitem 7227, 5; //EDIT THE PRIZE HERE            announce "Fast-Type Event: " + strcharinfo(0) + " typed the correct string!",0;            .String$ = "";            .Round++;            close2;            donpcevent "Fast-Type Event::OnStart2";            end;        } else {            close2;            announce "" + strcharinfo(0) + " mispelled some strings XD",0;            end;        }    }    end;    OnMinute00:    OnMinute30:    if(.Event) end;    donpcevent "Fast-Type Event::OnStart";    end;    OnStart:    announce "Fast-Type Event has started at Event AREA !",0;    L_Begin:    .Event = 1;    .String$ = "";    while(getstrlen( .String$ ) < .Length) {        .String$ = .String$ + .List$[rand( getarraysize(.List$))];    }    announce "Round "+(.Round+1)+" Started !",0;    end;    OnStart2:    sleep2 5000;    if(.Round == .Rounds) {        if(!.Event) end;        announce "Fast-Type Event: Event is over!",0;        .Event = 0;        .Round = 0;        end;    }    if(!.Event) end;    announce "Fast-Type Event: Next round starts in 5 seconds...",0;    sleep2 5000;    if(!.Event) end;    goto L_Begin;    OnInit:    .Length = 28; //EDIT THE LENGTH OF CHARACTERS TO BE TYPED    .Round = 5; //EDIT THE ROUNDS    setarray .List$,";","B","_","D","E","%","=","H","I","J","/","L","M","N","6","P","Q","]","S","T",","; //YOU CAN ADD LETTERS, DIGITS & SYMBOLS HERE..    end;}

 

[minx123]

thx its work..