quiz_02,323,234,3       script  Satan Catcher Event     793,{


if(getgmlevel() < 80) {
        mes .@name$;
        mes "Sorry you are no Level 80 GM";
        close;
        } else {
        L_Main:
        mes .@name$;
        mes "What do you want to do?";
        switch(select("Item [" + getitemname($SReward)  + "]:Start Event")) {
                        case 1: next;
                                        mes .@name$;
                                        mes "What item do you want as the reward?";
                                        input $SatanReward;
                                        next;
                                        mes .@name$;
                                        mes "How many of that item(s) do you want to give?";
                                        input $SatanRewardItems;
                                        next;
                                        mes .@name$;
                                        mes "This is your amount:";
                                        mes ""+$SatanRewardItems+"";
                                        next;
                                        goto L_Main;
                        case 2: next;
                                        mes .@name$;
                                        mes "Starting Event...";
                                        close2;
                                        Announce "Satan Catcher Event is being held!",bc_all;
                                        sleep2 5000;
                                        Announce "The warp portal has appeared in prontera!",bc_all;
                                        enablenpc "satanevent";
                                        disablenpc "rewardevent";
                                        initnpctimer;
                                        end;

                                        OnTimer30000:
                                                        Announce "Thirty Seconds Have Passed By!",bc_all;
                                                        sleep2 5000;
                                                        Announce "Hurry to Prontera if you want to join!",bc_all;
                                                        end;

                                        OnTimer40000:
                                                        Announce "Twenty seconds left!",bc_all;
                                                        end;

                                        OnTimer50000:
                                                        Announce "Ten seconds left!",bc_all;
                                                        end;

                                        OnTimer55000:
                                                        Announce "5!",bc_all;
                                                        sleep2 1000;
                                                        Announce "4!",bc_all;
                                                        sleep2 1000;
                                                        Announce "3!",bc_all;
                                                        sleep2 1000;
                                                        Announce "2!",bc_all;
                                                        sleep2 1000;
                                                        Announce "1!",bc_all;
                                                        sleep2 1000;
                                                        Announce "0!",bc_all;
                                                        sleep2 1000;
                                                        disablenpc "satanevent";
                                                        donpcevent "Rewarder::OnEnable";
                                                        stopnpctimer;
                                                        end;
                }
        }

OnInit:
        disablenpc "satanevent";
        hideonnpc "Rewarder";

    set .@name$,"^9932CC[Satan Catcher] ^000000";
end;
}