/*************************************************************************** * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * * * Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * * * In order to use any part of this Merc Diku Mud, you must comply with * * both the original Diku license in 'license.doc' as well the Merc * * license in 'license.txt'. In particular, you may not remove either of * * these copyright notices. * * * * Dystopia Mud improvements copyright (C) 2000, 2001 by Brian Graversen * * * * Much time and thought has gone into this software and you are * * benefitting. We hope that you share your changes too. What goes * * around, comes around. * ***************************************************************************/ /*************************************************************************** * File: olc_save.c * * * * Much time and thought has gone into this software and you are * * benefitting. We hope that you share your changes too. What goes * * around, comes around. * * * * This code was freely distributed with the The Isles 1.1 source code, * * and has been used here for OLC - OLC would not be what it is without * * all the previous coders who released their source code. * * * ***************************************************************************/ /*************************************************************************** * _/ _/ * * _/_/_/ _/_/ _/_/_/ _/ _/_/ _/ _/ _/_/_/ * * _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ * * _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ * * _/ _/ _/ _/_/_/ _/ _/_/ _/_/_/ _/_/_/ * *************************************************************************** * Mindcloud Copyright 2001-2003 by Jeff Boschee (Zarius), * * Additional credits are in the help file CODECREDITS * * All Rights Reserved. * ***************************************************************************/ /* OLC_SAVE.C * This takes care of saving all the .are information. * Notes: * -If a good syntax checker is used for setting vnum ranges of areas * then it would become possible to just cycle through vnums instead * of using the iHash stuff and checking that the room or reset or * mob etc is part of that area. */ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include "merc.h" #include "olc.h" /***************************************************************************** Name: fix_string Purpose: Returns a string without \r and ~. ****************************************************************************/ char *fix_string( const char *str ) { static char strfix[MAX_STRING_LENGTH]; int i; int o; if ( str == NULL ) return '\0'; for ( o = i = 0; str[i+o] != '\0'; i++ ) { if (str[i+o] == '\r' || str[i+o] == '~') o++; if ((strfix[i] = str[i+o]) == '\0') break; } strfix[i] = '\0'; return strfix; } /* * doubles %%'s - a must for saving helps. */ char *fix_string2(const char *str) { static char strfix[2 * MAX_STRING_LENGTH]; int i; int o; if (str == NULL) return '\0'; for (o = i = 0; str[i] != '\0'; i++) { if ((strfix[i + o] = str[i]) == '%') { o++; strfix[i + o] = '%'; } } strfix[i + o] = '\0'; return strfix; } /***************************************************************************** Name: save_area_list Purpose: Saves the listing of files to be loaded at startup. Called by: do_asave(olc_save.c). ****************************************************************************/ void save_area_list() { FILE *fp; AREA_DATA *pArea; if ((fp = fopen("../txt/area.lst", "w")) == NULL) { bug( "Save_area_list: fopen", 0 ); perror( "area.lst" ); } else { /* * Add any help files that need to be loaded at * startup to this section. */ fprintf( fp, "help.are\n" ); for( pArea = area_first; pArea; pArea = pArea->next ) { fprintf( fp, "%s\n", pArea->filename ); } fprintf( fp, "$\n" ); fclose( fp ); } return; } void save_mobprogs( FILE *fp, AREA_DATA *pArea ) { PROG_CODE *pMprog; int i; fprintf(fp, "#MOBPROGS\n"); for( i = pArea->lvnum; i <= pArea->uvnum; i++ ) { if ( (pMprog = get_prog_index(i, PRG_MPROG) ) != NULL) { fprintf(fp, "#%d\n", i); fprintf(fp, "%s~\n", fix_string(pMprog->code)); } } fprintf(fp,"#0\n\n"); return; } void save_objprogs( FILE *fp, AREA_DATA *pArea ) { PROG_CODE *pOprog; int i; fprintf(fp, "#OBJPROGS\n"); for( i = pArea->lvnum; i <= pArea->uvnum; i++ ) { if ( (pOprog = get_prog_index(i, PRG_OPROG) ) != NULL) { fprintf(fp, "#%d\n", i); fprintf(fp, "%s~\n", fix_string(pOprog->code)); } } fprintf(fp,"#0\n\n"); return; } void save_roomprogs( FILE *fp, AREA_DATA *pArea ) { PROG_CODE *pRprog; int i; fprintf(fp, "#ROOMPROGS\n"); for( i = pArea->lvnum; i <= pArea->uvnum; i++ ) { if ( (pRprog = get_prog_index(i,PRG_RPROG) ) != NULL) { fprintf(fp, "#%d\n", i); fprintf(fp, "%s~\n", fix_string(pRprog->code)); } } fprintf(fp,"#0\n\n"); return; } /***************************************************************************** Name: save_mobiles Purpose: Save #MOBILES secion of an area file. Called by: save_area(olc_save.c). ****************************************************************************/ void save_mobiles( FILE *fp, AREA_DATA *pArea ) { int vnum; MOB_INDEX_DATA *pMobIndex; PROG_LIST *pMprog; MOB_TRIGGER *mProg; fprintf( fp, "#MOBILES\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pMobIndex = get_mob_index(vnum) ) ) { if ( pMobIndex->area == pArea ) { fprintf( fp, "#%d\n", pMobIndex->vnum ); fprintf( fp, "%s~\n", pMobIndex->player_name ); fprintf( fp, "%s~\n", pMobIndex->short_descr ); fprintf( fp, "%s~\n", fix_string( pMobIndex->long_descr ) ); fprintf( fp, "%s~\n", fix_string( pMobIndex->description ) ); fprintf( fp, "%d ", pMobIndex->act ); fprintf( fp, "%d ", pMobIndex->affected_by ); fprintf(fp, "%d\n", pMobIndex->alignment); fprintf( fp, "%d ", pMobIndex->level ); fprintf(fp, "%d %d %d\n", pMobIndex->toughness, pMobIndex->extra_attack, pMobIndex->dam_modifier); fprintf(fp, "%d %d\n", pMobIndex->sex, pMobIndex->natural_attack); fprintf( fp, "%d\n", pMobIndex->bones ); fprintf( fp, "%d\n", 0 ); for (pMprog = pMobIndex->mprogs; pMprog; pMprog = pMprog->next) { fprintf(fp, "M %s %d %s~\n", prog_type_to_name(pMprog->trig_type), pMprog->vnum, pMprog->trig_phrase); } for (mProg = pMobIndex->triggers; mProg; mProg = mProg->next) { fprintf(fp, "P\n"); fprintf(fp, "%d %d\n", mProg->type, mProg->vnum); fprintf(fp, "%s~\n", mProg->keywords); fprintf(fp, "%s~\n", mProg->roomOutput); fprintf(fp, "%s~\n", mProg->chOutput); } //fprintf( fp, "S\n"); } } } fprintf( fp, "#0\n\n\n\n" ); return; } /***************************************************************************** Name: save_objects Purpose: Save #OBJECTS section of an area file. Called by: save_area(olc_save.c). ****************************************************************************/ void save_objects( FILE *fp, AREA_DATA *pArea ) { int vnum; OBJ_INDEX_DATA *pObjIndex; AFFECT_DATA *pAf; EXTRA_DESCR_DATA *pEd; PROG_LIST *pOprog; fprintf( fp, "#OBJECTS\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pObjIndex = get_obj_index(vnum) ) ) { if ( pObjIndex->area == pArea ) { fprintf( fp, "#%d\n", pObjIndex->vnum ); fprintf( fp, "%s~\n", pObjIndex->name ); fprintf( fp, "%s~\n", pObjIndex->short_descr ); fprintf( fp, "%s~\n", fix_string( pObjIndex->description ) ); fprintf( fp, "%d ", pObjIndex->item_type ); fprintf( fp, "%d ", pObjIndex->extra_flags ); fprintf( fp, "%d ", pObjIndex->quest ); fprintf( fp, "%d\n", pObjIndex->wear_flags); fprintf( fp, "%d %d %d\n", pObjIndex->condition, pObjIndex->toughness, pObjIndex->resistance ); switch ( pObjIndex->item_type ) { default: fprintf( fp, "%d %d %d %d\n", pObjIndex->value[0], pObjIndex->value[1], pObjIndex->value[2], pObjIndex->value[3] ); break; case ITEM_PILL: case ITEM_POTION: case ITEM_SCROLL: fprintf( fp, "%d '%s' '%s' '%s'\n", pObjIndex->value[0], pObjIndex->value[1] != -1 ? skill_table[pObjIndex->value[1]].name : " ", pObjIndex->value[2] != -1 ? skill_table[pObjIndex->value[2]].name : " ", pObjIndex->value[3] != -1 ? skill_table[pObjIndex->value[3]].name : " " ); break; case ITEM_SLOT_MACHINE: fprintf( fp, "%d %d %d %d\n", pObjIndex->value[0], pObjIndex->value[1], pObjIndex->value[2], pObjIndex->value[3]); break; case ITEM_STAFF: case ITEM_WAND: fprintf( fp, "%d %d %d '%s'\n", pObjIndex->value[0], pObjIndex->value[1], pObjIndex->value[2], pObjIndex->value[3] != -1 ? skill_table[pObjIndex->value[3]].name : " " ); break; } fprintf( fp, "%d ", pObjIndex->weight ); fprintf(fp, "%d\n", pObjIndex->cost); for( pAf = pObjIndex->affected; pAf; pAf = pAf->next ) { fprintf( fp, "A\n%d %d\n", pAf->location, pAf->modifier ); } for( pEd = pObjIndex->extra_descr; pEd; pEd = pEd->next ) { fprintf(fp, "E\n%s~\n%s~\n%s~\n%s~\n%d %d %d\n", pEd->keyword, fix_string(pEd->description), pEd->buffer1, pEd->buffer2, pEd->type, pEd->vnum, pEd->action); } fprintf( fp, "Q\n%s~\n%s~\n%s~\n%s~\n%s~\n%s~\n%d %d\n", pObjIndex->chpoweron, pObjIndex->chpoweroff, pObjIndex->chpoweruse, pObjIndex->victpoweron, pObjIndex->victpoweroff, pObjIndex->victpoweruse, pObjIndex->spectype, pObjIndex->specpower); for (pOprog = pObjIndex->oprogs; pOprog; pOprog = pOprog->next) { fprintf(fp, "O %s %d %s~\n", prog_type_to_name(pOprog->trig_type), pOprog->vnum, pOprog->trig_phrase); } } } } fprintf( fp, "#0\n\n\n\n" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: save_rooms Purpose: Save #ROOMDATA section of an area file. Called by: save_area(olc_save.c). ****************************************************************************/ void save_rooms( FILE *fp, AREA_DATA *pArea ) { ROOM_INDEX_DATA *pRoomIndex; EXTRA_DESCR_DATA *pEd; ROOMTEXT_DATA *prt; EXIT_DATA *pExit; int vnum; int door; PROG_LIST *pRprog; fprintf( fp, "#ROOMDATA\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pRoomIndex = get_room_index(vnum) ) ) { if ( pRoomIndex->area == pArea ) { fprintf( fp, "#%d\n", pRoomIndex->vnum ); fprintf( fp, "%s~\n", pRoomIndex->name ); fprintf( fp, "%s~\n", fix_string( pRoomIndex->description ) ); fprintf( fp, "%d ", pRoomIndex->room_flags ); fprintf( fp, "%d\n", pRoomIndex->sector_type ); for ( pEd = pRoomIndex->extra_descr; pEd; pEd = pEd->next ) { fprintf(fp, "E\n%s~\n%s~\n%s~\n%s~\n%d %d %d\n", pEd->keyword, fix_string(pEd->description), pEd->buffer1, pEd->buffer2, pEd->type, pEd->vnum, pEd->action); } for (prt = pRoomIndex->roomtext; prt; prt = prt->next ) { fprintf(fp, "T\n%s~\n%s~\n%s~\n%s~\n%d %d %d\n", prt->input, prt->output, prt->choutput, prt->name, prt->type, prt->power, prt->mob); } for( door = 0; door < MAX_DIR; door++ ) { if ( ( pExit = pRoomIndex->exit[door] ) ) { fprintf( fp, "D%d\n", door ); fprintf(fp, "%s~\n", fix_string(pExit->description)); fprintf( fp, "%s~\n", pExit->keyword ); fprintf(fp, "%d %d %d\n", pExit->rs_flags, pExit->key, pExit->to_room ? pExit->to_room->vnum : 0); } } for (pRprog = pRoomIndex->rprogs; pRprog; pRprog = pRprog->next) { fprintf(fp, "R %s %d %s~\n", prog_type_to_name(pRprog->trig_type), pRprog->vnum, pRprog->trig_phrase); } fprintf( fp, "S\n" ); } } } fprintf( fp, "#0\n\n\n\n" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: save_specials Purpose: Save #SPECIALS section of area file. Called by: save_area(olc_save.c). ****************************************************************************/ void save_specials( FILE *fp, AREA_DATA *pArea ) { int vnum; MOB_INDEX_DATA *pMobIndex; fprintf( fp, "#SPECIALS\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pMobIndex = get_mob_index(vnum) ) ) { if ( pMobIndex->area == pArea && pMobIndex->spec_fun ) { fprintf(fp, "M %d %s\n", pMobIndex->vnum, spec_string(pMobIndex->spec_fun)); } if (pMobIndex->area == pArea && pMobIndex->quest_fun) { fprintf(fp, "Q %d %s\n", pMobIndex->vnum, quest_string(pMobIndex->quest_fun)); } if (pMobIndex->area == pArea && pMobIndex->shop_fun) { fprintf(fp, "Z %d %s\n", pMobIndex->vnum, shop_string(pMobIndex->shop_fun)); } } } fprintf( fp, "S\n\n\n\n" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: vsave_specials Purpose: Save #SPECIALS section of area file. New formating thanks to Rac. Called by: save_area(olc_save.c). ****************************************************************************/ void vsave_specials( FILE *fp, AREA_DATA *pArea ) { int vnum; MOB_INDEX_DATA *pMobIndex; fprintf( fp, "#SPECIALS\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pMobIndex = get_mob_index(vnum) ) ) { if ( pMobIndex->area == pArea && pMobIndex->spec_fun ) { fprintf( fp, "M %d %s \t; %s\n", pMobIndex->vnum, spec_string( pMobIndex->spec_fun ), pMobIndex->short_descr ); } } } fprintf( fp, "S\n\n\n\n" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: save_resets Purpose: Saves the #RESETS section of an area file. New format thanks to Rac. Called by: save_area(olc_save.c) ****************************************************************************/ void save_resets( FILE *fp, AREA_DATA *pArea ) { RESET_DATA *pReset; MOB_INDEX_DATA *pLastMob = NULL; OBJ_INDEX_DATA *pLastObj; ROOM_INDEX_DATA *pRoomIndex; char buf[MAX_STRING_LENGTH]; int vnum; fprintf( fp, "#RESETS\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pRoomIndex = get_room_index(vnum) ) ) { if ( pRoomIndex->area == pArea ) { for ( pReset = pRoomIndex->reset_first; pReset; pReset = pReset->next ) { switch ( pReset->command ) { default: bug( "Save_resets: bad command %c.", pReset->command ); break; case 'M': pLastMob = get_mob_index( pReset->arg1 ); fprintf( fp, "M 0 %d %d %d\n", pReset->arg1, pReset->arg2, pReset->arg3 ); break; case 'O': pLastObj = get_obj_index( pReset->arg1 ); fprintf( fp, "O 0 %d 0 %d\n", pReset->arg1, pReset->arg3 ); break; case 'P': pLastObj = get_obj_index( pReset->arg1 ); fprintf( fp, "P 0 %d 0 %d\n", pReset->arg1, pReset->arg3 ); break; case 'G': fprintf( fp, "G 0 %d 0\n", pReset->arg1 ); if ( !pLastMob ) { sprintf( buf, "Save_resets: !NO_MOB! in [%s]", pArea->filename ); bug( buf, 0 ); } break; case 'E': fprintf( fp, "E 0 %d 0 %d\n", pReset->arg1, pReset->arg3 ); if ( !pLastMob ) { sprintf( buf, "Save_resets: !NO_MOB! in [%s]", pArea->filename ); bug( buf, 0 ); } break; case 'D': break; case 'R': fprintf( fp, "R 0 %d %d\n", pReset->arg1, pReset->arg2 ); break; } /* End switch */ } /* End for pReset */ } /* End if correct area */ } /* End if pRoomIndex */ } /* End for vnum */ fprintf( fp, "S\n\n\n\n" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: save_resets Purpose: Saves the #RESETS section of an area file. New format thanks to Rac. Called by: save_area(olc_save.c) ****************************************************************************/ void vsave_resets( FILE *fp, AREA_DATA *pArea ) { RESET_DATA *pReset; MOB_INDEX_DATA *pLastMob = NULL; OBJ_INDEX_DATA *pLastObj; ROOM_INDEX_DATA *pRoomIndex; char buf[MAX_STRING_LENGTH]; int vnum; fprintf( fp, "#RESETS\n" ); for( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ ) { if( ( pRoomIndex = get_room_index(vnum) ) ) { if ( pRoomIndex->area == pArea ) { for ( pReset = pRoomIndex->reset_first; pReset; pReset = pReset->next ) { switch ( pReset->command ) { default: bug( "Save_resets: bad command %c.", pReset->command ); break; case 'M': pLastMob = get_mob_index( pReset->arg1 ); fprintf( fp, "M 0 %d %2d %-5d \t; %s to %s\n", pReset->arg1, pReset->arg2, pReset->arg3, pLastMob->short_descr, pRoomIndex->name ); break; case 'O': pLastObj = get_obj_index( pReset->arg1 ); fprintf( fp, "O 0 %d 0 %-5d \t; %s to %s\n", pReset->arg1, pReset->arg3, capitalize(pLastObj->short_descr), pRoomIndex->name ); break; case 'P': pLastObj = get_obj_index( pReset->arg1 ); fprintf( fp, "P 0 %d 0 %-5d \t; %s inside %s\n", pReset->arg1, pReset->arg3, capitalize(get_obj_index( pReset->arg1 )->short_descr), pLastObj ? pLastObj->short_descr : "!NO_OBJ!" ); if ( !pLastObj ) /* Thanks Rac! */ { sprintf( buf, "Save_resets: P with !NO_OBJ! in [%s]", pArea->filename ); bug( buf, 0 ); } break; case 'G': pLastObj = get_obj_index( pReset->arg1 ); fprintf( fp, "G 0 %d 0 \t; %s\n", pReset->arg1, capitalize(pLastObj->short_descr) ); if ( !pLastMob ) { sprintf( buf, "Save_resets: !NO_MOB! in [%s]", pArea->filename ); bug( buf, 0 ); } break; case 'E': fprintf( fp, "E 0 %d 0 %-5d \t; %s %s\n", pReset->arg1, pReset->arg3, capitalize(get_obj_index( pReset->arg1 )->short_descr), flag_string( wear_loc_strings, pReset->arg3 ) ); if ( !pLastMob ) { sprintf( buf, "Save_resets: !NO_MOB! in [%s]", pArea->filename ); bug( buf, 0 ); } break; case 'D': break; case 'R': fprintf( fp, "R 0 %d %2d \t; Randomize %s\n", pReset->arg1, pReset->arg2, pRoomIndex->name ); break; } /* End switch */ } /* End for pReset */ } /* End if correct area */ } /* End if pRoomIndex */ } /* End for vnum */ fprintf( fp, "S\n\n\n\n" ); return; } /***************************************************************************** Name: save_helps Purpose: Save #HELPS section of an area file. Written by: Walker <nkrendel@evans.Denver.Colorado.EDU> Called by: save_area(olc_save.c). ****************************************************************************/ void save_help() { FILE *fp; HELP_DATA *pHelp; rename( "help.are", "help.bak"); if((fp=fopen( "help.are", "w")) == NULL) { bug("save_helps: fopen", 0); perror( "help.are" ); return; } fprintf( fp, "#HELPS\n\n"); for (pHelp = first_help; pHelp != NULL; pHelp = pHelp->next) { fprintf(fp, "%d ", pHelp->level); fprintf(fp, pHelp->keyword); fprintf(fp, "~\n"); fprintf(fp, fix_string2(fix_string(pHelp->text))); fprintf(fp, "~\n\n"); } fprintf(fp, "0 $~\n\n#$\n"); fclose( fp ); } void save_helps( FILE *fp, AREA_DATA *pArea ) { HELP_DATA *pHelp; bool found = FALSE; for (pHelp = first_help; pHelp; pHelp = pHelp->next) { if( pHelp->area && pHelp->area == pArea ) { if( !found ) { fprintf( fp, "#HELPS\n\n" ); found = TRUE; } fprintf(fp, "%d %s~\n%s~\n", pHelp->level, all_capitalize(pHelp->keyword), fix_string(pHelp->text)); } } if( found ) fprintf( fp, "\n0 $~\n\n" ); return; } /***************************************************************************** Name: save_area Purpose: Save an area, note that this format is new. Called by: do_asave(olc_save.c). ****************************************************************************/ void save_area( AREA_DATA *pArea ) { FILE *fp; fclose( fpReserve ); if ( !( fp = fopen( pArea->filename, "w" ) ) ) { bug( "Open_area: fopen", 0 ); perror( pArea->filename ); } fprintf( fp, "#AREADATA\n" ); fprintf( fp, "Name %s~\n", pArea->name ); fprintf( fp, "Builders %s~\n", fix_string( pArea->builders ) ); fprintf(fp, "Music %s~\n", pArea->music); fprintf( fp, "VNUMs %d %d\n", pArea->lvnum, pArea->uvnum ); fprintf(fp, "Cvnum %d\n", pArea->cvnum); fprintf( fp, "Security %d\n", pArea->security ); fprintf(fp, "Areabits %d\n", pArea->areabits); fprintf( fp, "End\n\n\n\n" ); save_helps( fp, pArea ); /* OLC 1.1b */ save_mobiles( fp, pArea ); save_objects( fp, pArea ); save_rooms( fp, pArea ); save_mobprogs( fp, pArea ); save_objprogs( fp, pArea ); save_roomprogs( fp, pArea ); if ( IS_SET(pArea->area_flags, AREA_VERBOSE) ) /* OLC 1.1b */ { vsave_specials( fp, pArea ); vsave_resets( fp, pArea ); } else { save_specials( fp, pArea ); save_resets( fp, pArea ); } fprintf( fp, "#$\n" ); fclose( fp ); fpReserve = fopen( NULL_FILE, "r" ); return; } /* OLC 1.1b */ /***************************************************************************** Name: do_asave Purpose: Entry point for saving area data. Called by: interpreter(interp.c) ****************************************************************************/ void do_asave( CHAR_DATA *ch, char *argument ) { char arg1 [MAX_INPUT_LENGTH]; AREA_DATA *pArea; int value; if ( !ch ) /* Do an autosave */ { save_area_list(); for( pArea = area_first; pArea; pArea = pArea->next ) { if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT2)) continue; if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT)) { SET_BIT(pArea->areabits, AREA_BIT_NOEDIT2); REMOVE_BIT(pArea->areabits, AREA_BIT_NOEDIT); } save_area( pArea ); REMOVE_BIT( pArea->area_flags, AREA_CHANGED | AREA_ADDED ); } return; } if (IS_NPC(ch)) return; if (ch->pcdata->security < 2) { send_to_char("Huh?\n\r", ch ); return; } argument = one_argument( argument, arg1 ); if ( arg1[0] == '\0' ) { send_to_char( "Syntax:\n\r", ch ); send_to_char( " asave <vnum> - saves a particular area\n\r", ch ); send_to_char( " asave list - saves the area.lst file\n\r", ch ); send_to_char( " asave helps - saves the help file\n\r", ch ); send_to_char( " asave area - saves the area being edited\n\r", ch ); send_to_char( " asave changed - saves all changed zones\n\r", ch ); send_to_char( " asave world - saves the world! (db dump)\n\r", ch ); send_to_char( " asave ^ verbose - saves in verbose mode\n\r", ch ); send_to_char( "\n\r", ch ); return; } /* Snarf the value (which need not be numeric). */ value = atoi( arg1 ); /* Save the area of given vnum. */ /* ---------------------------- */ if ( !( pArea = get_area_data( value ) ) && is_number( arg1 ) ) { send_to_char( "That area does not exist.\n\r", ch ); return; } if ( is_number( arg1 ) ) { if ( !IS_BUILDER( ch, pArea ) ) { send_to_char( "You are not a builder for this area.\n\r", ch ); return; } save_area_list(); if ( !str_cmp( "verbose", argument ) ) SET_BIT( pArea->area_flags, AREA_VERBOSE ); save_area( pArea ); REMOVE_BIT( pArea->area_flags, AREA_VERBOSE ); return; } /* Save the world, only authorized areas. */ /* -------------------------------------- */ if ( !str_cmp( "world", arg1 ) ) { save_area_list(); for( pArea = area_first; pArea; pArea = pArea->next ) { if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT2)) continue; if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT)) { SET_BIT(pArea->areabits, AREA_BIT_NOEDIT2); REMOVE_BIT(pArea->areabits, AREA_BIT_NOEDIT); } /* Builder must be assigned this area. */ if ( !IS_BUILDER( ch, pArea ) ) continue; if ( !str_cmp( "verbose", argument ) ) SET_BIT( pArea->area_flags, AREA_VERBOSE ); save_area( pArea ); REMOVE_BIT( pArea->area_flags, AREA_CHANGED | AREA_ADDED | AREA_VERBOSE ); } send_to_char( "You saved the world.\n\r", ch ); return; } if (!str_cmp(arg1, "helps")) { if (ch->level > 6) { save_help(); send_to_char(" Helps saved.\n\r", ch); } return; } /* Save changed areas, only authorized areas. */ /* ------------------------------------------ */ if ( !str_cmp( "changed", arg1 ) ) { char buf[MAX_INPUT_LENGTH]; save_area_list(); //save_help(); //send_to_char(" Helps saved.\n\r", ch); send_to_char( "Saved zones:\n\r", ch ); sprintf( buf, "None.\n\r" ); for( pArea = area_first; pArea; pArea = pArea->next ) { if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT2)) continue; if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT)) { SET_BIT(pArea->areabits, AREA_BIT_NOEDIT2); REMOVE_BIT(pArea->areabits, AREA_BIT_NOEDIT); } /* Builder must be assigned this area. */ if ( !IS_BUILDER( ch, pArea ) ) continue; /* Save changed areas. */ if (IS_SET(pArea->area_flags, AREA_CHANGED) || IS_SET(pArea->area_flags, AREA_ADDED)) { if ( !str_cmp( "verbose", argument ) ) SET_BIT( pArea->area_flags, AREA_VERBOSE ); save_area( pArea ); REMOVE_BIT( pArea->area_flags, AREA_CHANGED | AREA_ADDED | AREA_VERBOSE ); sprintf( buf, "%24s - '%s'\n\r", pArea->name, pArea->filename ); send_to_char( buf, ch ); } } if ( !str_cmp( buf, "None.\n\r" ) ) send_to_char( buf, ch ); return; } /* Save the area.lst file. */ /* ----------------------- */ if ( !str_cmp( arg1, "list" ) ) { save_area_list(); return; } /* Save area being edited, if authorized. */ /* -------------------------------------- */ if ( !str_cmp( arg1, "area" ) ) { /* Find the area to save. */ switch (ch->desc->editor) { case ED_AREA: pArea = (AREA_DATA *)ch->desc->pEdit; break; case ED_ROOM: pArea = ch->in_room->area; break; case ED_OBJECT: pArea = ( (OBJ_INDEX_DATA *)ch->desc->pEdit )->area; break; case ED_MOBILE: pArea = ( (MOB_INDEX_DATA *)ch->desc->pEdit )->area; break; default: pArea = ch->in_room->area; break; } if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT2)) { send_to_char("This area cannot be changed.\n\r", ch); return; } if (IS_SET(pArea->areabits, AREA_BIT_NOEDIT)) { SET_BIT(pArea->areabits, AREA_BIT_NOEDIT2); REMOVE_BIT(pArea->areabits, AREA_BIT_NOEDIT); } if ( !IS_BUILDER( ch, pArea ) ) { send_to_char( "You are not a builder for this area.\n\r", ch ); return; } save_area_list(); if ( !str_cmp( "verbose", argument ) ) SET_BIT( pArea->area_flags, AREA_VERBOSE ); save_area( pArea ); REMOVE_BIT( pArea->area_flags, AREA_CHANGED | AREA_ADDED | AREA_VERBOSE ); send_to_char( "Area saved.\n\r", ch ); return; } /* Show correct syntax. */ /* -------------------- */ do_asave( ch, "" ); return; }