Jump to content
  • 0
Sign in to follow this  
minx123

script typing fast ncp problem

Question

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.

 

2rrmkia.png

Edited by minx123

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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 by Oxxy

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.