[Ragnarok] Type Event

prontera,173,184,4	script	Typing Event	859,{

// Set this to the minimum GM level allowed to access the GM CP.
if (getgmlevel() >= 40) goto L_gm;

L_insert:
	if($prizewon == 0) {
	mes "[Oak]";
	mes "I am in-charge of hosting the 'Typo Event'";
	mes "...";
	next;
	mes "[Oak]";
	mes "Basically, it's an event that you will have to type EXACT letters that the Game Master typed!";
	next;
	mes "Please wait for the next event!";
	close;
	}
	mes "[Oak]";
	mes "Go on, TYPE "+$password$+"";
	input @text$;
	if ( $prizewon == 0 ) {
	mes "Too late, you were not fast enough!";
	close;
	}
	if (@text$ == $password$) goto L_win;
	if (@text$ != $password$) goto L_error;

L_error:
	mes "[Oak]";
	mes "Sorry, that's incorrect. Try again.";
	close;

L_win:
	mes "[Oak]";
	mes "Congratulations!! You typed it correctly!";
	announce "Oak: " + strcharinfo(0) + " has typed it correctly, what a quick playa!",0;
	getitem 674,2;
	dispbottom "Congratulations! You earned another Event Point!";
	dispbottom "Total Event Points: "+#ep+"";
	set $prizewon, 0;
	close;
L_error1:
	mes "[Oak]";
	mes "Event still going..";
	close;

L_gm:
	if($prizewon == 1) goto L_error1;
	mes "[Oak]";
	mes "Hello GM " + strcharinfo(0) + ", What would you like to do?";
	switch(select("Set the words:Normal Player Mode:Announce")) {
	case 1:
		mes "[Oak]";
		mes "So, what words should I use this time boss?";
		input $password$;
		next;
		mes "[Oak]";
		mes "Ok, so you want the words to be ^008000"+$password$+"^000000? cool.";
		next;
		goto L_gm;
	case 2:
		next;
		goto L_insert;
	case 3:
		mes "[Oak]";
		mes "Ok, I'll let everyone know we're ready.";
		next;
		announce "Oak: Talk to me and type ("+$password$+")",0;
		set $prizewon, 1;
		next;
		goto L_gm;
	}
}