NPC HEADER ,{
set .@n$,"^0000FF[ NPC Name ]^000000";
mes .@n$;
mes "Hello "+strcharinfo(0)+",I'm";
mes "going to ask you some";
mes "Questions.";
next;
mes .@n$;
mes "QUESTION 1....";
next;
	switch(select("Answer 1:Answer 2")) {
	case 1:
	mes .@n$;
	mes "This was wrong!";
	close;
	case 2:
	mes .@n$;
	mes "Correct!";
	next;
	mes .@n$;
	mes "QUESTION 2....";
	next;
		switch(select("Answer 3:Answer 4")) {
		case 1:
		mes .@n$;
		mes "Correct!";
		next;
		mes .@n$;
		mes "QUESTION 3....";
		next;
			switch(select("Answer 5:Answer 6")) {
			case 1:
			mes .@n$;
			mes "This was wrong.";
			close;
			case 2:
			mes .@n$;
			mes "Correct!";
			next;
			mes .@n$;
			mes "QUESTION 4.....";
			next;
				switch(select("Answer 7:Answer 8")) {
				case 1:
				mes .@n$;
				mes "This was wrong.";
				close;
				case 2:
				mes .@n$;
				mes "Correct!";
				next;
				mes .@n$;
				mes "QUESTION 5.....";
				next;
					switch(select("Answer 9:Answer 10")) {
					case 1:
					mes .@n$;
					mes "Correct!";
					next;
					mes .@n$;
					mes "You've passed the test.";
					mes "Congrats,take this Prize!";
					getitem 501,20;
					close;
					case 2:
					mes .@n$;
					mes "This was wrong!";
					close;
					}
				}
			}
		case 2:
		mes .@n$;
		mes "This was wrong!";
		close;
		}
	}
}