Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //FAST TYPE EVENT
- //Credits to Emistry for making the script
- //Paulinds for requesting the script, details & idea.
- prontera,127,167,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 30153, 3; //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;
- }
- }
- close;
- OnMinute00:
- OnMinute30:
- if(.Event) end;
- donpcevent "Fast-Type Event::OnStart";
- end;
- OnStart:
- announce "Fast-Type Event has started at Prontera 125 165 !",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";
- }
- close;
- OnInit:
- set .Length,28; //EDIT THE LENGTH OF CHARACTERS TO BE TYPED
- set .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;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement