script typing fast ncp problem

[minx123 2]

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.

 

Edited May 10, 2015 by minx123

[Oxxy 24]

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;}

Edited May 10, 2015 by Oxxy

[minx123 2]

thx its work..