/****************************************************************************
 *			Eldhamud Codebase V2.0				    *
 * ------------------------------------------------------------------------ *
 * EldhaMUD code (C) 2003-2008 by Robert Powell (Tommi)                     *
 * EldhaMUD Team: Celest, Altere and Krelowyn                               *
 * ------------------------------------------------------------------------ *
 *                                                                          *
 *     OasisOLC II for Smaug 1.40 written by Evan Cortens(Tagith)           *
 *                                                                          *
 *   Based on OasisOLC for CircleMUD3.0bpl9 written by Harvey Gilpin        *
 *                                                                          *
 **************************************************************************** 
 *                                                                          *
 *                      Room editing module (medit.c)                       *
 *                                                                          *
 ****************************************************************************/
#include <stdio.h>
#include <string.h>
#include "./Headers/mud.h"
#include "./Headers/olc.h"
/*------------------------------------------------------------------------*/
/* function prototypes */
int get_rflag args( ( char *flag ) );
DECLARE_DO_FUN( do_redit_reset );
void redit_disp_extradesc_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_disp_exit_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_disp_exit_flag_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_disp_flag_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_disp_sector_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_disp_menu args( ( DESCRIPTOR_DATA * d ) );
void redit_setup_new args( ( DESCRIPTOR_DATA * d ) );
void free_room args( ( ROOM_INDEX_DATA * room ) );
/*-----------------------------------------------------------------------*/
/* Global variable declarations/externals */
/* EXIT_DATA *get_exit_number( ROOM_INDEX_DATA *room, int xit ); */
void oedit_disp_extra_choice args( ( DESCRIPTOR_DATA * d ) );
extern char *const ex_flags[];
extern int top_ed;
/*-----------------------------------------------------------------------*/
void do_oredit( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   DESCRIPTOR_DATA *d;
   ROOM_INDEX_DATA *room;
   if( IS_NPC( ch ) || !ch->desc )
   {
      send_to_char( "I don't think so...\n\r", ch );
      return;
   }
   argument = one_argument( argument, arg );
   if( argument[0] == STRING_NULL )
      room = ch->in_room;
   else
   {
      if( is_number( arg ) )
      {
         argument = one_argument( argument, arg );
         room = get_room_index( atoi( arg ) );
      }
      else
      {
         send_to_char( "Vnum must be specified in numbers!\n\r", ch );
         return;
      }
   }
   if( !room )
   {
      send_to_char( "That room does not exist!\n\r", ch );
      return;
   }
   /*
    * Make sure the room isnt already being edited 
    */
   for( d = first_descriptor; d; d = d->next )
      if( d->connected == CON_REDIT )
         if( d->olc && OLC_VNUM( d ) == room->vnum )
         {
            ch_printf( ch, "That room is currently being edited by %s.\n\r", d->character->name );
            return;
         }
   if( !can_rmodify( ch, room ) )
      return;
   do_immtalk( ch, "BrB, Going into Oasis OLC" );
   act( AT_ACTION, "$n starts using OLC.", ch, NULL, NULL, TO_ROOM );
   d = ch->desc;
   CREATE( d->olc, OLC_DATA, 1 );
   OLC_VNUM( d ) = room->vnum;
   OLC_CHANGE( d ) = FALSE;
   d->character->dest_buf = room;
   d->connected = CON_REDIT;
   redit_disp_menu( d );
   return;
}
void do_rcopy( CHAR_DATA * ch, char *argument )
{
   return;
}
bool is_inolc( DESCRIPTOR_DATA * d )
{
   /*
    * safeties, not that its necessary really... 
    */
   if( !d || !d->character )
      return FALSE;
   if( IS_NPC( d->character ) )
      return FALSE;
   /*
    * objs 
    */
   if( d->connected == CON_OEDIT )
      return TRUE;
   /*
    * mobs 
    */
   if( d->connected == CON_MEDIT )
      return TRUE;
   /*
    * rooms 
    */
   if( d->connected == CON_REDIT )
      return TRUE;
   return FALSE;
}
/*
 * Log all changes to catch those sneaky bastards =)
 */
/* void olc_log( DESCRIPTOR_DATA *d, char *argument ) */
void olc_log( DESCRIPTOR_DATA * d, char *format, ... )
{
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   OBJ_DATA *obj = d->character->dest_buf;
   CHAR_DATA *victim = d->character->dest_buf;
   char logline[MAX_STRING_LENGTH];
   va_list args;
   if( !d )
   {
      bug( "olc_log: called with null descriptor", 0 );
      return;
   }
   va_start( args, format );
   vsprintf( logline, format, args );
   va_end( args );
   sprintf( log_buf, "Log %s:", d->character->name );
   if( d->connected == CON_REDIT )
      sprintf( log_buf, "%s ROOM(%d): ", log_buf, room->vnum );
   else if( d->connected == CON_OEDIT )
      sprintf( log_buf, "%s OBJ(%d): ", log_buf, obj->pIndexData->vnum );
   else if( d->connected == CON_MEDIT )
   {
      if( IS_NPC( victim ) )
         sprintf( log_buf, "%s MOB(%d): ", log_buf, victim->pIndexData->vnum );
      else
         sprintf( log_buf, "%s PLR(%s): ", log_buf, victim->name );
   }
   else
   {
      bug( "olc_log: called with a bad connected state", 0 );
      return;
   }
   sprintf( log_buf, "%s%s", log_buf, logline );
   log_string_plus( log_buf, LOG_BUILD, get_trust( d->character ) );
   return;
}
/**************************************************************************
  Menu functions 
 **************************************************************************/
/*
 * Nice fancy redone Extra Description stuff :)
 */
void redit_disp_extradesc_prompt_menu( DESCRIPTOR_DATA * d )
{
   char buf[MAX_STRING_LENGTH];
   EXTRA_DESCR_DATA *ed;
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   int counter = 0;
   for( ed = room->first_extradesc; ed; ed = ed->next )
   {
      sprintf( buf, "&P%2d&w) %-40.40s\n\r", counter++, ed->keyword );
      send_to_char_color( buf, d->character );
   }
   send_to_char( "\n\rWhich extra description do you want to edit? ", d->character );
}
void redit_disp_extradesc_menu( DESCRIPTOR_DATA * d )
{
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   int count = 0;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Extra Descriptions Menu                                           EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   if( room->first_extradesc )
   {
      EXTRA_DESCR_DATA *ed;
      for( ed = room->first_extradesc; ed; ed = ed->next )
      {
         ch_printf_color( d->character, "&P%2d&w) Keyword: &O%s\n\r", ++count, ed->keyword );
      }
      send_to_char( "\n\r", d->character );
   }
   ch_printf_color( d->character, "&PA&w) Add a new description\n\r" );
   ch_printf_color( d->character, "&PR&w) Remove a description\n\r" );
   ch_printf_color( d->character, "&PQ&w) Quit\n\r" );
   ch_printf_color( d->character, "\n\rEnter choice: " );
   OLC_MODE( d ) = REDIT_EXTRADESC_MENU;
}
/* For exits */
void redit_disp_exit_menu( DESCRIPTOR_DATA * d )
{
   /*
    * char buf[MAX_STRING_LENGTH]; 
    */
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   EXIT_DATA *pexit;
   int i, cnt, endline;
   OLC_MODE( d ) = REDIT_EXIT_MENU;
   endline = d->character->pcdata->pagerlen;
   for( i = 0; i <= endline; i++ )
   {
      send_to_char( "\n\r", d->character );
   }
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Exits Menu                                                        EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   for( cnt = 0, pexit = room->first_exit; pexit; pexit = pexit->next )
   {
      ch_printf_color( d->character,
                       /*
                        * sprintf( buf, 
                        */
                       "&P%2d&w) %-10.10s to %-5d.  Key: %d  Flags: %d  Keywords: %s.\n\r",
                       ++cnt,
                       dir_name[pexit->vdir],
                       pexit->to_room ? pexit->to_room->vnum : 0,
                       pexit->key, pexit->exit_info, pexit->keyword[0] != STRING_NULL ? pexit->keyword : "(none)" );
   }
   if( room->first_exit )
      send_to_char( "\n\r", d->character );
   send_to_char_color( "&PA&w) Add a new exit\n\r", d->character );
   send_to_char_color( "&PR&w) Remove an exit\n\r", d->character );
   send_to_char_color( "&PQ&w) Quit\n\r", d->character );
   send_to_char( "\n\rEnter choice: ", d->character );
   return;
}
void redit_disp_exit_edit( DESCRIPTOR_DATA * d )
{
   /*
    * ROOM_INDEX_DATA *room = d->character->dest_buf; 
    */
   char flags[MAX_STRING_LENGTH];
   EXIT_DATA *pexit = d->character->spare_ptr;
   int i;
   flags[0] = STRING_NULL;
   for( i = 0; i <= MAX_EXFLAG; i++ )
      if( pexit->exit_info && IS_SET( pexit->exit_info, i ) )
      {
         strcat( flags, ex_flags[i] );
         strcat( flags, " " );
      }
   OLC_MODE( d ) = REDIT_EXIT_EDIT;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Exits Creation Menu                                               EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character, "&P1&w) Direction  : &c%s\n\r", dir_name[pexit->vdir] );
   ch_printf_color( d->character, "&P2&w) To Vnum    : &c%d\n\r", pexit->to_room ? pexit->to_room->vnum : -1 );
   ch_printf_color( d->character, "&P3&w) Key        : &c%d\n\r", pexit->key );
   ch_printf_color( d->character, "&P4&w) Keyword    : &c%s\n\r",
                    ( pexit->keyword && pexit->keyword[0] != STRING_NULL ) ? pexit->keyword : "(none)" );
   ch_printf_color( d->character, "&P5&w) Flags      : &c%s\n\r", flags[0] != STRING_NULL ? flags : "(none)" );
   ch_printf_color( d->character, "&P6&w) Description: &c%s\n\r",
                    ( pexit->description && pexit->description[0] != STRING_NULL ) ? pexit->description : "(none)" );
   ch_printf_color( d->character, "&PQ&w) Quit\n\r" );
   ch_printf_color( d->character, "\n\rEnter choice: " );
   return;
}
void redit_disp_exit_dirs( DESCRIPTOR_DATA * d )
{
   int i;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Exit Directions                                                   EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   for( i = 0; i <= DIR_SOMEWHERE; i++ )
   {
      ch_printf_color( d->character, "&P%2d&w) %s\n\r", i, dir_name[i] );
   }
   send_to_char( "\n\rChoose a direction: ", d->character );
   return;
}
/* For exit flags */
void redit_disp_exit_flag_menu( DESCRIPTOR_DATA * d )
{
   EXIT_DATA *pexit = d->character->spare_ptr;
   char buf[MAX_STRING_LENGTH];
   char buf1[MAX_STRING_LENGTH];
   int i;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Flags Menu                                                        EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   for( i = 0; i <= MAX_EXFLAG; i++ )
   {
      if( ( i == EX_RES1 ) || ( i == EX_RES2 ) || ( i == EX_PORTAL ) )
         continue;
      ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", i + 1, ex_flags[i] );
   }
   buf1[0] = STRING_NULL;
   for( i = 0; i <= MAX_EXFLAG; i++ )
      if( IS_SET( pexit->exit_info, i ) )
      {
         strcat( buf1, ex_flags[i] );
         strcat( buf1, " " );
      }
   sprintf( buf, "\n\rExit flags: &c%s&w\n\r" "Enter room flags, 0 to quit: ", buf1 );
   send_to_char_color( buf, d->character );
   OLC_MODE( d ) = REDIT_EXIT_FLAGS;
}
/* For room flags */
void redit_disp_flag_menu( DESCRIPTOR_DATA * d )
{
   char buf[MAX_STRING_LENGTH];
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   int counter, columns = 0;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Flags Menu                                                        EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   for( counter = 0; counter < ROOM_MAX; counter++ )
   {
      sprintf( buf, "&P%d&w) %-20.20s ", counter + 1, r_flags[counter] );
      if( !( ++columns % 2 ) )
         strcat( buf, "\n\r" );
      send_to_char_color( buf, d->character );
   }
   ch_printf_color( d->character, "\n\rRoom flags: &c%s&w\n\rEnter room flags, 0 to quit : ",
                    ext_flag_string( &room->room_flags, r_flags ) );
   OLC_MODE( d ) = REDIT_FLAGS;
}
char *const asector_names[] = {
   "inside", "city", "field", "forest", "hills", "mountain", "water_swim",
   "water_noswim", "underwater", "air", "desert", "river", "oceanfloor",
   "underground", "jungle", "swamp", "tundra", "ice", "ocean", "lava", "shore"
};
/* for sector type */
void redit_disp_sector_menu( DESCRIPTOR_DATA * d )
{
   char buf[MAX_STRING_LENGTH];
   int counter, columns = 0;
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Sector Menu                                                       EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   for( counter = 0; counter < 21; counter++ )
   {
/*	if ( counter == SECT_DUNNO )
	     continue;
*/
      sprintf( buf, "&P%d&w) %-20.20s ", counter, asector_names[counter] );
      if( !( ++columns % 2 ) )
         strcat( buf, "\n\r" );
      send_to_char_color( buf, d->character );
   }
   send_to_char( "\r\nEnter sector type : ", d->character );
   OLC_MODE( d ) = REDIT_SECTOR;
}
/* the main menu */
void redit_disp_menu( DESCRIPTOR_DATA * d )
{
   char buf[MAX_STRING_LENGTH];
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   char *sect;
   switch ( room->sector_type )
   {
      default:
         sect = "?";
         break;
      case SECT_INSIDE:
         sect = "Inside";
         break;
      case SECT_CITY:
         sect = "City";
         break;
      case SECT_FIELD:
         sect = "Field";
         break;
      case SECT_FOREST:
         sect = "Forest";
         break;
      case SECT_HILLS:
         sect = "Hills";
         break;
      case SECT_MOUNTAIN:
         sect = "Mountains";
         break;
      case SECT_WATER_SWIM:
         sect = "Swim";
         break;
      case SECT_WATER_NOSWIM:
         sect = "Noswim";
         break;
      case SECT_UNDERWATER:
         sect = "Underwater";
         break;
      case SECT_AIR:
         sect = "Air";
         break;
      case SECT_DESERT:
         sect = "Desert";
         break;
      case SECT_RIVER:
         sect = "River";
         break;
      case SECT_OCEANFLOOR:
         sect = "Oceanfloor";
         break;
      case SECT_UNDERGROUND:
         sect = "Underground";
         break;
      case SECT_JUNGLE:
         sect = "Jungle";
         break;
      case SECT_SWAMP:
         sect = "Swamp";
         break;
      case SECT_TUNDRA:
         sect = "Tundra";
         break;
      case SECT_ICE:
         sect = "Ice";
         break;
      case SECT_OCEAN:
         sect = "Ocean";
         break;
      case SECT_LAVA:
         sect = "Lava";
         break;
      case SECT_SHORE:
         sect = "Shore";
         break;
   }
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   ch_printf_color( d->character,"&c Main Menu                                                         EldhaMUD OLC\n\r", 0 );
   ch_printf_color( d->character,"&D--------------------------------------------------------------------------------\n\r");
   sprintf( buf,
            "&w   Room Vnum   : [&c%d&w]      Zone Name: [&c%-30.30s&w]\n\r"
            "&P1&w) Name        : &O%s\n\r"
            "&P2&w) Description :\n\r &O%s\n\r"
            "&P3&w) Room flags  : &c%s\n\r"
            "&P4&w) Sector type : &c%s\n\r"
            "&P5&w) Tunnel      : &c%d\n\r"
            "&P6&w) TeleDelay   : &c%d\n\r"
            "&P7&w) TeleVnum    : &c%d\n\r"
            "&PA&w) Exit menu\n\r"
            "&PB&w) Extra descriptions menu\r\n"
            "&PQ&w) Quit\r\n"
            "Enter choice : ",
            OLC_NUM( d ),
            room->area ? room->area->name : "None????",
            room->name,
            room->description,
            ext_flag_string( &room->room_flags, r_flags ), sect, room->tunnel, room->tele_delay, room->tele_vnum );
   set_char_color( AT_PLAIN, d->character );
   send_to_char_color( buf, d->character );
   OLC_MODE( d ) = REDIT_MAIN_MENU;
}
EXTRA_DESCR_DATA *redit_find_extradesc( ROOM_INDEX_DATA * room, int number )
{
   int count = 0;
   EXTRA_DESCR_DATA *ed;
   for( ed = room->first_extradesc; ed; ed = ed->next )
   {
      if( ++count == number )
         return ed;
   }
   return NULL;
}
void do_redit_reset( CHAR_DATA * ch, char *argument )
{
   ROOM_INDEX_DATA *room = ch->dest_buf;
   EXTRA_DESCR_DATA *ed = ch->spare_ptr;
   switch ( ch->substate )
   {
      case SUB_ROOM_DESC:
         if( !ch->dest_buf )
         {
            /*
             * If theres no dest_buf, theres no object, so stick em back as playing 
             */
            send_to_char( "Fatal error, report to Tagith.\n\r", ch );
            bug( "do_redit_reset: sub_obj_extra: NULL ch->dest_buf", 0 );
            ch->substate = SUB_NONE;
            ch->desc->connected = CON_PLAYING;
            return;
         }
         STRFREE( room->description );
         room->description = copy_buffer( ch );
         stop_editing( ch );
         ch->dest_buf = room;
         ch->desc->connected = CON_REDIT;
         ch->substate = SUB_NONE;
         olc_log( ch->desc, "Edited room description" );
         redit_disp_menu( ch->desc );
         return;
      case SUB_ROOM_EXTRA:
         STRFREE( ed->description );
         ed->description = copy_buffer( ch );
         stop_editing( ch );
         ch->dest_buf = room;
         ch->spare_ptr = ed;
         ch->substate = SUB_NONE;
         ch->desc->connected = CON_REDIT;
         oedit_disp_extra_choice( ch->desc );
         OLC_MODE( ch->desc ) = REDIT_EXTRADESC_CHOICE;
         olc_log( ch->desc, "Edit description for exdesc %s", ed->keyword );
         return;
   }
}
/**************************************************************************
  The main loop
 **************************************************************************/
void redit_parse( DESCRIPTOR_DATA * d, char *arg )
{
   ROOM_INDEX_DATA *room = d->character->dest_buf;
   ROOM_INDEX_DATA *tmp;
   EXIT_DATA *pexit = d->character->spare_ptr;
   EXTRA_DESCR_DATA *ed = d->character->spare_ptr;
   char arg1[MAX_INPUT_LENGTH];
   char buf[MAX_STRING_LENGTH];
   int number = 0;
   switch ( OLC_MODE( d ) )
   {
      case REDIT_CONFIRM_SAVESTRING:
         switch ( *arg )
         {
            case 'y':
            case 'Y':
               /*
                * redit_save_internally(d); 
                */
               sprintf( log_buf, "OLC: %s edits room %d", d->character->name, OLC_NUM( d ) );
               log_string_plus( log_buf, LOG_BUILD, d->character->level );
               cleanup_olc( d );
               send_to_char( "Room saved to memory.\r\n", d->character );
               break;
            case 'n':
            case 'N':
               cleanup_olc( d );
               break;
            default:
               send_to_char( "\n\r\n\rInvalid Command Selection!\r\n", d->character );
               send_to_char( "Do you wish to save this room internally? : ", d->character );
               break;
         }
         return;
      case REDIT_MAIN_MENU:
         switch ( *arg )
         {
            case 'q':
            case 'Q':
               /*
                * if (OLC_CHANGE(d))
                * { *. Something has been modified .*
                * send_to_char( "Do you wish to save this room internally? : ", d->character );
                * OLC_MODE(d) = REDIT_CONFIRM_SAVESTRING;
                * } 
                * else 
                */
               cleanup_olc( d );
               return;
            case '1':
               send_to_char( "Enter room name:-\r\n| ", d->character );
               OLC_MODE( d ) = REDIT_NAME;
               break;
            case '2':
               OLC_MODE( d ) = REDIT_DESC;
               d->character->substate = SUB_ROOM_DESC;
               d->character->last_cmd = do_redit_reset;
               send_to_char( "Enter room description:-\r\n", d->character );
               if( !room->description )
                  room->description = STRALLOC( "" );
               start_editing( d->character, room->description );
               break;
            case '3':
               redit_disp_flag_menu( d );
               break;
            case '4':
               redit_disp_sector_menu( d );
               break;
            case '5':
               send_to_char( "How many people can fit in the room? ", d->character );
               OLC_MODE( d ) = REDIT_TUNNEL;
               break;
            case '6':
               send_to_char( "How long before people are teleported out? ", d->character );
               OLC_MODE( d ) = REDIT_TELEDELAY;
               break;
            case '7':
               send_to_char( "Where are they teleported to? ", d->character );
               OLC_MODE( d ) = REDIT_TELEVNUM;
               break;
            case 'a':
            case 'A':
               redit_disp_exit_menu( d );
               break;
            case 'b':
            case 'B':
               redit_disp_extradesc_menu( d );
               break;
            default:
               send_to_char( "\n\r\n\rInvalid Command Selection!\n\r", d->character );
               redit_disp_menu( d );
               break;
         }
         return;
      case REDIT_NAME:
         STRFREE( room->name );
         room->name = STRALLOC( arg );
         olc_log( d, "Changed name to %s", room->name );
         break;
      case REDIT_DESC:
         /*
          * we will NEVER get here 
          */
         bug( "Reached REDIT_DESC case in redit_parse", 0 );
         break;
      case REDIT_FLAGS:
         if( is_number( arg ) )
         {
            number = atoi( arg );
            if( number == 0 )
               break;
            else if( number < 0 || number > ROOM_MAX )
            {
               send_to_char( "Invalid flag, try again: ", d->character );
               return;
            }
            else
            {
               number -= 1;   /* Offset for 0 */
               xTOGGLE_BIT( room->room_flags, number );
               olc_log( d, "%s the room flag %s",
                        xIS_SET( room->room_flags, number ) ? "Added" : "Removed", r_flags[number] );
            }
         }
         else
         {
            while( arg[0] != STRING_NULL )
            {
               arg = one_argument( arg, arg1 );
               number = get_rflag( arg1 );
               if( number > 0 )
               {
                  xTOGGLE_BIT( room->room_flags, number );
                  olc_log( d, "%s the room flag %s",
                           xIS_SET( room->room_flags, number ) ? "Added" : "Removed", r_flags[number] );
               }
            }
         }
         redit_disp_flag_menu( d );
         return;
      case REDIT_SECTOR:
         number = atoi( arg );
         if( number < 0 || number >= SECT_MAX )
         {
            send_to_char( "\n\r\n\rInvalid Command Selection!\n\r", d->character );
            redit_disp_sector_menu( d );
            return;
         }
         else
            room->sector_type = number;
         olc_log( d, "Changed sector to %s", asector_names[number] );
         break;
      case REDIT_TUNNEL:
         number = atoi( arg );
         room->tunnel = URANGE( 0, number, 1000 );
         olc_log( d, "Changed tunnel amount to %d", room->tunnel );
         break;
      case REDIT_TELEDELAY:
         number = atoi( arg );
         room->tele_delay = number;
         olc_log( d, "Changed teleportation delay to %d", room->tele_delay );
         break;
      case REDIT_TELEVNUM:
         number = atoi( arg );
         room->tele_vnum = URANGE( 1, number, MAX_VNUM );
         olc_log( d, "Changed teleportation vnum to %d", room->tele_vnum );
         break;
      case REDIT_EXIT_MENU:
         switch ( UPPER( arg[0] ) )
         {
            default:
               if( is_number( arg ) )
               {
                  number = atoi( arg );
                  pexit = get_exit_num( room, number );
                  if( pexit )
                  {
                     d->character->spare_ptr = pexit;
                     redit_disp_exit_edit( d );
                     return;
                  }
               }
               redit_disp_exit_menu( d );
               return;
            case '0':
               d->character->spare_ptr = NULL;
               break;
            case 'A':
               OLC_MODE( d ) = REDIT_EXIT_ADD;
               redit_disp_exit_dirs( d );
               return;
            case 'R':
               OLC_MODE( d ) = REDIT_EXIT_DELETE;
               send_to_char( "Delete which exit? ", d->character );
               return;
            case 'Q':
               d->character->spare_ptr = NULL;
               break;
         }
         break;
      case REDIT_EXIT_EDIT:
         switch ( UPPER( arg[0] ) )
         {
            case 'Q':
               d->character->spare_ptr = NULL;
               redit_disp_exit_menu( d );
               return;
            case '1':
               /*
                * OLC_MODE(d) = REDIT_EXIT_DIR;
                * redit_disp_exit_dirs(d); 
                */
               send_to_char( "This option can only be changed by remaking the exit.\n\r", d->character );
               break;
            case '2':
               OLC_MODE( d ) = REDIT_EXIT_VNUM;
               send_to_char( "Which room does this exit go to? ", d->character );
               return;
            case '3':
               OLC_MODE( d ) = REDIT_EXIT_KEY;
               send_to_char( "What is the vnum of the key to this exit? ", d->character );
               return;
            case '4':
               OLC_MODE( d ) = REDIT_EXIT_KEYWORD;
               send_to_char( "What is the keyword to this exit? ", d->character );
               return;
            case '5':
               OLC_MODE( d ) = REDIT_EXIT_FLAGS;
               redit_disp_exit_flag_menu( d );
               return;
            case '6':
               OLC_MODE( d ) = REDIT_EXIT_DESC;
               send_to_char( "Description:\n\r] ", d->character );
               return;
         }
         redit_disp_exit_edit( d );
         return;
      case REDIT_EXIT_DESC:
         if( !arg || arg[0] == STRING_NULL )
            pexit->description = STRALLOC( "" );
         else
         {
            sprintf( buf, "%s\n\r", arg );
            pexit->description = STRALLOC( buf );
         }
         olc_log( d, "Changed %s description to %s", dir_name[pexit->vdir], arg ? arg : "none" );
         redit_disp_exit_edit( d );
         return;
      case REDIT_EXIT_ADD:
         if( is_number( arg ) )
         {
            number = atoi( arg );
            if( number < DIR_NORTH || number > DIR_SOMEWHERE )
            {
               send_to_char( "Invalid direction, try again: ", d->character );
               return;
            }
            d->character->tempnum = number;
         }
         else
         {
            number = get_dir( arg );
            pexit = get_exit( room, number );
            if( pexit )
            {
               send_to_char( "An exit in that direction already exists.\n\r", d->character );
               redit_disp_exit_menu( d );
               return;
            }
            d->character->tempnum = number;
         }
         OLC_MODE( d ) = REDIT_EXIT_ADD_VNUM;
         send_to_char( "Which room does this exit go to? ", d->character );
         return;
      case REDIT_EXIT_ADD_VNUM:
         number = atoi( arg );
         if( ( tmp = get_room_index( number ) ) == NULL )
         {
            send_to_char( "Non-existant room.\n\r", d->character );
            OLC_MODE( d ) = REDIT_EXIT_MENU;
            redit_disp_exit_menu( d );
            return;
         }
         pexit = make_exit( room, tmp, d->character->tempnum );
         pexit->keyword = STRALLOC( "" );
         pexit->description = STRALLOC( "" );
         pexit->key = -1;
         pexit->exit_info = 0;
         act( AT_IMMORT, "$n reveals a hidden passage!", d->character, NULL, NULL, TO_ROOM );
         d->character->spare_ptr = pexit;
         olc_log( d, "Added %s exit to %d", dir_name[pexit->vdir], pexit->vnum );
         OLC_MODE( d ) = REDIT_EXIT_EDIT;
         redit_disp_exit_edit( d );
         return;
      case REDIT_EXIT_DELETE:
         if( !is_number( arg ) )
         {
            send_to_char( "Exit must be specified in a number.\n\r", d->character );
            redit_disp_exit_menu( d );
         }
         number = atoi( arg );
         pexit = get_exit_num( room, number );
         if( !pexit )
         {
            send_to_char( "That exit does not exist.\n\r", d->character );
            redit_disp_exit_menu( d );
         }
         olc_log( d, "Removed %s exit", dir_name[pexit->vdir] );
         extract_exit( room, pexit );
         redit_disp_exit_menu( d );
         return;
      case REDIT_EXIT_VNUM:
         number = atoi( arg );
         if( number < 0 || number > MAX_VNUM )
         {
            send_to_char( "Invalid room number, try again : ", d->character );
            return;
         }
         if( get_room_index( number ) == NULL )
         {
            send_to_char( "That room does not exist, try again: ", d->character );
            return;
         }
         pexit->vnum = number;
         olc_log( d, "%s exit vnum changed to %d", dir_name[pexit->vdir], pexit->vnum );
         redit_disp_exit_menu( d );
         return;
      case REDIT_EXIT_KEYWORD:
         STRFREE( pexit->keyword );
         pexit->keyword = STRALLOC( arg );
         olc_log( d, "Changed %s keyword to %s", dir_name[pexit->vdir], pexit->keyword );
         redit_disp_exit_edit( d );
         return;
      case REDIT_EXIT_KEY:
         number = atoi( arg );
         if( number < 0 || number > MAX_VNUM )
            send_to_char( "Invalid vnum, try again: ", d->character );
         else
         {
            pexit->key = number;
            redit_disp_exit_edit( d );
         }
         olc_log( d, "%s key vnum is now %d", dir_name[pexit->vdir], pexit->key );
         return;
      case REDIT_EXIT_FLAGS:
         number = atoi( arg );
         if( number == 0 )
         {
            redit_disp_exit_edit( d );
            return;
         }
         if( ( number < 0 ) || ( number > MAX_EXFLAG + 1 )
             || ( 1 << ( number - 1 ) == EX_RES1 )
             || ( 1 << ( number - 1 ) == EX_RES2 ) || ( 1 << ( number - 1 ) == EX_PORTAL ) )
         {
            send_to_char( "That's not a valid choice!\r\n", d->character );
            redit_disp_exit_flag_menu( d );
         }
         number -= 1;
         TOGGLE_BIT( pexit->exit_info, 1 << number );
         olc_log( d, "%s %s to %s exit",
                  IS_SET( pexit->exit_info, 1 << number ) ? "Added" : "Removed", ex_flags[number], dir_name[pexit->vdir] );
         redit_disp_exit_flag_menu( d );
         return;
      case REDIT_EXTRADESC_DELETE:
         ed = redit_find_extradesc( room, atoi( arg ) );
         if( !ed )
         {
            send_to_char( "Not found, try again: ", d->character );
            return;
         }
         olc_log( d, "Deleted exdesc %s", ed->keyword );
         UNLINK( ed, room->first_extradesc, room->last_extradesc, next, prev );
         STRFREE( ed->keyword );
         STRFREE( ed->description );
         DISPOSE( ed );
         top_ed--;
         redit_disp_extradesc_menu( d );
         return;
      case REDIT_EXTRADESC_CHOICE:
         switch ( UPPER( arg[0] ) )
         {
            case 'Q':
               if( !ed->keyword || !ed->description )
               {
                  send_to_char( "No keyword and/or description, junking...", d->character );
                  UNLINK( ed, room->first_extradesc, room->last_extradesc, next, prev );
                  STRFREE( ed->keyword );
                  STRFREE( ed->keyword );
                  DISPOSE( ed );
                  top_ed--;
               }
               d->character->spare_ptr = NULL;
               redit_disp_extradesc_menu( d );
               return;
            case '1':
               OLC_MODE( d ) = REDIT_EXTRADESC_KEY;
               send_to_char( "Keywords, seperated by spaces: ", d->character );
               return;
            case '2':
               OLC_MODE( d ) = REDIT_EXTRADESC_DESCRIPTION;
               d->character->substate = SUB_ROOM_EXTRA;
               d->character->last_cmd = do_redit_reset;
               send_to_char( "Enter new extradesc description: \n\r", d->character );
               start_editing( d->character, ed->description );
               return;
         }
         break;
      case REDIT_EXTRADESC_KEY:
         /*
          * if ( SetRExtra( room, arg ) )
          * {
          * send_to_char( "A extradesc with that keyword already exists.\n\r", d->character );
          * redit_disp_extradesc_menu(d);
          * return;
          * } 
          */
         olc_log( d, "Changed exkey %s to %s", ed->keyword, arg );
         STRFREE( ed->keyword );
         ed->keyword = STRALLOC( arg );
         oedit_disp_extra_choice( d );
         OLC_MODE( d ) = REDIT_EXTRADESC_CHOICE;
         return;
      case REDIT_EXTRADESC_MENU:
         switch ( UPPER( arg[0] ) )
         {
            case 'Q':
               break;
            case 'A':
               CREATE( ed, EXTRA_DESCR_DATA, 1 );
               LINK( ed, room->first_extradesc, room->last_extradesc, next, prev );
               ed->keyword = STRALLOC( "" );
               ed->description = STRALLOC( "" );
               top_ed++;
               d->character->spare_ptr = ed;
               olc_log( d, "Added new exdesc" );
               oedit_disp_extra_choice( d );
               OLC_MODE( d ) = REDIT_EXTRADESC_CHOICE;
               return;
            case 'R':
               OLC_MODE( d ) = REDIT_EXTRADESC_DELETE;
               send_to_char( "Delete which extra description? ", d->character );
               return;
            default:
               if( is_number( arg ) )
               {
                  ed = redit_find_extradesc( room, atoi( arg ) );
                  if( !ed )
                  {
                     send_to_char( "Not found, try again: ", d->character );
                     return;
                  }
                  d->character->spare_ptr = ed;
                  oedit_disp_extra_choice( d );
                  OLC_MODE( d ) = REDIT_EXTRADESC_CHOICE;
               }
               else
                  redit_disp_extradesc_menu( d );
               return;
         }
         break;
      default:
         /*
          * we should never get here 
          */
         bug( "Reached default case in parse_redit", 0 );
         break;
   }
   /*
    * Log the changes, so we can keep track of those sneaky bastards 
    */
   /*
    * Don't log on the flags cause it does that above 
    */
   /*
    * if ( OLC_MODE(d) != REDIT_FLAGS )
    * olc_log( d, arg ); 
    */
   /*
    * . If we get this far, something has be changed .
    */
   OLC_CHANGE( d ) = TRUE;
   redit_disp_menu( d );
}