case 1:
            mes .@n$;
            if (.EventON) {
                mes "The Event is currently: [^0000FFON^000000]";
                mes "Would you like to turn it OFF?";
            } else {
                mes "The Event is currently: [^FF0000OFF^000000]";
                mes "Would you like to turn it ON?";
            }
            if(select("Yes:No")==2) close;
            if (.EventON) {
                set .EventON,0; set .Timer,0;
                setnpctimer 0; stopnpctimer;
                announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue;
                deletepset 1;
                setnpcdisplay "Disguise Event",795;
                close;
            }
            bindatcmd "joindisguise",strnpcinfo(3)+"::OnJoinDisguise",0,99;
            set .EventON,1; set .Timer,1; setnpctimer 0; initnpctimer;
            set .ResetCounter,.ResetCounter+1;
            announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue;
            announce "The Event is being held in Prontera.",bc_all | bc_blue;
            close;