minx123 2 Posted May 10, 2015 (edited) 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 Quote Share this post Link to post Share on other sites
0 Oxxy 24 Posted May 10, 2015 (edited) 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 Quote Share this post Link to post Share on other sites
0 minx123 2 Posted May 11, 2015 thx its work.. Quote Share this post Link to post Share on other sites
no button to close. every box no button close.
Share this post
Link to post
Share on other sites