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;
        }
    }
}