/***************************************************************************
* 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. *
* *
* Envy Diku Mud improvements copyright (C) 1994 by Michael Quan, David *
* Love, Guilherme 'Willie' Arnold, and Mitchell Tse. *
* *
* EnvyMud 2.0 improvements copyright (C) 1995 by Michael Quan and *
* Mitchell Tse. *
* *
* EnvyMud 2.2 improvements copyright (C) 1996, 1997 by Michael Quan. *
* *
* GreedMud 0.88 improvements copyright (C) 1997, 1998 by Vasco Costa. *
* *
* In order to use any part of this Envy Diku Mud, you must comply with *
* the original Diku license in 'license.doc', the Merc license in *
* 'license.txt', as well as the Envy license in 'license.nvy'. *
* In particular, you may not remove either of these copyright notices. *
* *
* 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. *
***************************************************************************/
#if defined( macintosh )
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "olc.h"
/*
* Removes the tildes and carriage returns from a string.
* Used for player-entered strings that go into disk files.
*/
char *fix_string( const char *str )
{
static char strfix [4*MAX_STRING_LENGTH];
int i;
int o;
if ( !str )
return '\0';
for ( o = i = 0; str[i + o] != '\0'; i++ )
{
if ( str[i + o] == '\r' || str[i + o] == '~' )
o++;
strfix[i] = str[i + o];
}
strfix[i] = '\0';
return strfix;
}
void save_area_list( )
{
FILE *fp;
AREA_DATA *pArea;
char strsave [ MAX_INPUT_LENGTH ];
fclose( fpReserve );
sprintf( strsave, "%s%s", AREA_DIR, AREA_LIST );
if ( !( fp = fopen( strsave, "w" ) ) )
{
bug( "Save_area_list: fopen", 0 );
perror( AREA_LIST );
}
else
{
/* add any help files to be loaded at startup to this section */
fprintf( fp, "help.are\n" );
fprintf( fp, "olc.hlp\n" );
for ( pArea = area_first; pArea; pArea = pArea->next )
fprintf( fp, "%s\n", pArea->filename );
fprintf( fp, "$\n" );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
void save_mobiles( FILE *fp, AREA_DATA *pArea )
{
MOB_INDEX_DATA *pMobIndex;
SHOP_DATA *pShopIndex;
GAME_DATA *pGameIndex;
int vnum;
int iTrade;
fprintf( fp, "#MOBDB\n" );
for ( vnum = pArea->low_m_vnum; vnum <= pArea->hi_m_vnum; vnum++ )
{
if ( !( pMobIndex = get_mob_index( vnum ) )
|| pMobIndex->area != pArea )
continue;
fprintf( fp, "#%d\n", pMobIndex->vnum );
fprintf( fp, "Name %s~\n", pMobIndex->player_name );
fprintf( fp, "Short %s~\n", pMobIndex->short_descr );
fprintf( fp, "Long\n%s~\n", fix_string( pMobIndex->long_descr ) );
fprintf( fp, "Descr\n%s~\n", fix_string( pMobIndex->description ) );
fprintf( fp, "Act %s~\n", flag_strings( act_flags,
pMobIndex->act ) );
fprintf( fp, "AffectBy %s~\n", vect_strings( affect_flags,
pMobIndex->affected_by ) );
fprintf( fp, "Alignment %d\n", pMobIndex->alignment );
fprintf( fp, "Level %d\n", pMobIndex->level );
fprintf( fp, "Gold %d\n", pMobIndex->gold );
fprintf( fp, "Race %s\n", race_table[pMobIndex->race].name );
fprintf( fp, "Sex %s~\n", flag_strings( sex_flags,
pMobIndex->sex ) );
if ( pMobIndex->spec_fun )
fprintf( fp, "Spec %s\n", spec_mob_string( pMobIndex->spec_fun ) );
if ( pMobIndex->pShop )
{
pShopIndex = pMobIndex->pShop;
fprintf( fp, "Shop " );
for ( iTrade = 0; iTrade < MAX_TRADE; iTrade++ )
fprintf( fp, "%s~ ", flag_strings( type_flags,
pShopIndex->buy_type[iTrade] ) );
fprintf( fp, "%d %d ",
pShopIndex->profit_buy,
pShopIndex->profit_sell );
fprintf( fp, "%d %d\n",
pShopIndex->open_hour,
pShopIndex->close_hour );
}
if ( pMobIndex->pGame )
{
pGameIndex = pMobIndex->pGame;
fprintf( fp, "Game %s %d %d %d\n",
game_string( pGameIndex->game_fun ),
pGameIndex->bankroll,
pGameIndex->max_wait,
pGameIndex->cheat );
}
/*
* This is responsible for writing MOBprograms in_file.
*/
if ( pMobIndex->mobprogs )
{
MPROG_DATA *mPtr;
for ( mPtr = pMobIndex->mobprogs; mPtr; mPtr = mPtr->next )
{
fprintf( fp, "Trigger %s %s~\n%s~\n",
mprog_type_to_name( mPtr->type ),
mPtr->arglist,
fix_string( mPtr->comlist ) );
}
}
fprintf( fp, "End\n\n" );
}
fprintf( fp, "#0\n\n\n\n" );
return;
}
void save_objects( FILE *fp, AREA_DATA *pArea )
{
EXTRA_DESCR_DATA *pEd;
OBJ_INDEX_DATA *pObjIndex;
AFFECT_DATA *pAf;
int vnum;
fprintf( fp, "#OBJDB\n" );
for ( vnum = pArea->low_o_vnum; vnum <= pArea->hi_o_vnum; vnum++ )
{
if ( !( pObjIndex = get_obj_index( vnum ) )
|| pObjIndex->area != pArea )
continue;
fprintf( fp, "#%d\n", pObjIndex->vnum );
fprintf( fp, "Name %s~\n", pObjIndex->name );
fprintf( fp, "Short %s~\n", pObjIndex->short_descr );
fprintf( fp, "Descr\n%s~\n", fix_string( pObjIndex->description ) );
fprintf( fp, "Type %s~\n", flag_strings( type_flags, pObjIndex->item_type ) );
fprintf( fp, "Extra %s~\n", flag_strings( extra_flags, pObjIndex->extra_flags ) );
fprintf( fp, "Wear %s~\n", flag_strings( wear_flags, pObjIndex->wear_flags ) );
if ( pObjIndex->spec_fun )
fprintf( fp, "Spec %s\n", spec_obj_string( pObjIndex->spec_fun ) );
switch ( pObjIndex->item_type )
{
default: fprintf( fp, "Values %d~ %d~ %d~ %d~ %d~\n",
pObjIndex->value[0],
pObjIndex->value[1],
pObjIndex->value[2],
pObjIndex->value[3],
pObjIndex->value[4] );
break;
case ITEM_PILL:
case ITEM_POTION:
case ITEM_SCROLL: fprintf( fp, "Values %d~ %s~ %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 : " ",
pObjIndex->value[4] != -1 ?
skill_table[pObjIndex->value[4]].name : " " );
break;
case ITEM_WAND:
case ITEM_STAFF: fprintf( fp, "Values %d~ %d~ %d~ %s~ %d~\n",
pObjIndex->value[0],
pObjIndex->value[1],
pObjIndex->value[2],
pObjIndex->value[3] != -1 ?
skill_table[pObjIndex->value[3]].name : " ",
pObjIndex->value[4] );
break;
}
fprintf( fp, "Weight %d\n", pObjIndex->weight );
fprintf( fp, "Cost %d\n", pObjIndex->cost );
for ( pAf = pObjIndex->affected; pAf; pAf = pAf->next )
{
fprintf( fp, "Affect %s~ %d %s~\n",
flag_strings( apply_flags, pAf->location ),
pAf->modifier,
vect_strings( affect_flags, pAf->bitvector ) );
}
for ( pEd = pObjIndex->extra_descr; pEd; pEd = pEd->next )
{
fprintf( fp, "ExtraDescr %s~\n%s~\n",
pEd->keyword,
fix_string( pEd->description ) );
}
fprintf( fp, "End\n\n" );
}
fprintf( fp, "#0\n\n\n\n" );
return;
}
void save_rooms( FILE *fp, AREA_DATA *pArea )
{
EXTRA_DESCR_DATA *pEd;
ROOM_INDEX_DATA *pRoomIndex;
EXIT_DATA *pExit;
RESET_DATA *pReset;
int vnum;
int door;
fprintf( fp, "#ROOMDB\n" );
for ( vnum = pArea->low_r_vnum; vnum <= pArea->hi_r_vnum; vnum++ )
{
if ( !( pRoomIndex = get_room_index( vnum ) )
|| pRoomIndex->area != pArea )
continue;
fprintf( fp, "#%d\n", pRoomIndex->vnum );
fprintf( fp, "Name %s~\n", pRoomIndex->name );
fprintf( fp, "Descr\n%s~\n", fix_string( pRoomIndex->description ) );
fprintf( fp, "Flags %s~\n", flag_strings( room_flags, pRoomIndex->orig_room_flags ) );
fprintf( fp, "Sector %s~\n", flag_strings( sector_flags, pRoomIndex->sector_type ) );
fprintf( fp, "Regen %d %d\n", pRoomIndex->heal_rate,
pRoomIndex->mana_rate );
for ( pEd = pRoomIndex->extra_descr; pEd; pEd = pEd->next )
{
fprintf( fp, "ExtraDescr %s~\n%s~\n",
pEd->keyword,
fix_string( pEd->description ) );
}
for( pReset = pRoomIndex->reset_first; pReset; pReset = pReset->next )
{
fprintf( fp, "Reset %c %d %d %d\n",
pReset->command,
pReset->rs_vnum,
pReset->loc,
pReset->percent );
}
for ( door = 0; door < MAX_DIR; door++ )
{
if ( !( pExit = pRoomIndex->exit[door] ) )
continue;
fprintf( fp, "Door %s~ %s~ %d %d\n",
dir_name[door],
flag_strings( exit_flags, pExit->rs_flags ),
pExit->key,
pExit->to_room
? pExit->to_room->vnum : 0 );
fprintf( fp, "%s~\n", fix_string( pExit->description ) );
fprintf( fp, "%s~\n", pExit->keyword );
}
fprintf( fp, "End\n\n" );
}
fprintf( fp, "#0\n\n\n\n" );
return;
}
/*
* Save_helps contributed by Walker <nkrendel@evans.Denver.Colorado.EDU>.
*/
void save_helps( FILE *fp, AREA_DATA *pArea )
{
HELP_DATA *pHelp;
bool found = FALSE;
for ( pHelp = help_first; pHelp; pHelp = pHelp->next )
{
if ( !pHelp->area
|| pHelp->area != pArea )
continue;
if ( !found )
{
fprintf( fp, "#HELPS\n\n" );
found = TRUE;
}
fprintf( fp, "%d %s~\n%s~\n\n",
pHelp->level,
all_capitalize( pHelp->keyword ),
fix_string( pHelp->text ) );
}
if ( found )
fprintf( fp, "0 $~\n\n\n\n" );
return;
}
void save_area( AREA_DATA *pArea )
{
FILE *fp;
char strsave [ MAX_INPUT_LENGTH ];
fclose( fpReserve );
sprintf( strsave, "%s%s", AREA_DIR, pArea->filename );
if ( !( fp = fopen( strsave, "w" ) ) )
{
bug( "Open_area: fopen", 0 );
perror( pArea->filename );
}
fprintf( fp, "#AREADATA\n" );
fprintf( fp, "Name %s~\n", pArea->name );
fprintf( fp, "Author %s~\n", pArea->author );
fprintf( fp, "Levels %d %d\n", pArea->llv, pArea->ulv );
fprintf( fp, "Security %d\n", pArea->security );
fprintf( fp, "VNUMs %d %d\n", pArea->lvnum, pArea->uvnum );
fprintf( fp, "Builders %s~\n", fix_string( pArea->builders ) );
fprintf( fp, "Recall %d\n", pArea->recall );
fprintf( fp, "Reset %s~\n", pArea->resetmsg );
fprintf( fp, "Note\n%s~\n", fix_string( pArea->note ) );
fprintf( fp, "End\n\n\n\n" );
save_helps( fp, pArea );
save_mobiles( fp, pArea );
save_objects( fp, pArea );
save_rooms( fp, pArea );
if ( IS_SET( pArea->area_flags, AREA_VERBOSE ) )
{
/*
vsave_specials( fp, pArea );
vsave_games ( fp, pArea );
vsave_shops ( fp, pArea );
*/
}
else
{
/*
save_specials( fp, pArea );
save_games ( fp, pArea );
save_shops ( fp, pArea );
*/
}
fprintf( fp, "#$\n" );
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
return;
}
void do_asave( CHAR_DATA *ch, char *argument )
{
AREA_DATA *pArea;
char arg1 [MAX_INPUT_LENGTH];
int value;
if ( !ch )
{
send_to_all_char( "A gentle breeze comes from the east.\n\r" );
save_area_list( );
for ( pArea = area_first; pArea; pArea = pArea->next )
{
save_area( pArea );
REMOVE_BIT( pArea->area_flags, AREA_CHANGED );
REMOVE_BIT( pArea->area_flags, AREA_ADDED );
}
send_to_all_char( "After the breeze all seems calm.\n\r" );
return;
}
argument = one_argument( argument, arg1 );
if ( arg1[0] == '\0' )
{
send_to_char( "Syntax: asave <vnum>\n\r", ch );
send_to_char( "or: asave list\n\r", ch );
send_to_char( "or: asave area\n\r", ch );
send_to_char( "or: asave changed\n\r", ch );
send_to_char( "or: asave world\n\r", ch );
send_to_char( "or: asave ^ verbose\n\r", ch );
return;
}
value = atoi( arg1 );
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;
}
if ( !str_cmp( "verbose", argument ) )
SET_BIT( pArea->area_flags, AREA_VERBOSE );
save_area( pArea );
REMOVE_BIT( pArea->area_flags, AREA_VERBOSE );
return;
}
if ( !str_cmp( "world", arg1 ) )
{
save_area_list( );
for ( pArea = area_first; pArea; pArea = pArea->next )
{
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 );
REMOVE_BIT( pArea->area_flags, AREA_ADDED );
REMOVE_BIT( pArea->area_flags, AREA_VERBOSE );
}
send_to_char( "You saved the world.\n\r", ch );
send_to_all_char( "Database saved.\n\r" );
return;
}
if ( !str_cmp( "changed", arg1 ) )
{
char buf [MAX_INPUT_LENGTH];
send_to_char( "Saved zones:\n\r", ch );
sprintf( buf, "None.\n\r" );
for ( pArea = area_first; pArea; pArea = pArea->next )
{
if ( !is_builder( ch, pArea ) )
continue;
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 );
REMOVE_BIT( pArea->area_flags, AREA_ADDED );
REMOVE_BIT( pArea->area_flags, 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;
}
if ( !str_cmp( arg1, "list" ) )
{
save_area_list( );
return;
}
if ( !str_cmp( arg1, "area" ) )
{
switch ( ch->desc->connected )
{
case CON_AEDITOR:
pArea = (AREA_DATA *) ch->desc->olc_editing;
break;
case CON_REDITOR:
pArea = ch->in_room->area;
break;
case CON_OEDITOR:
pArea = ( (OBJ_INDEX_DATA *) ch->desc->olc_editing )->area;
break;
case CON_MEDITOR:
pArea = ( (MOB_INDEX_DATA *) ch->desc->olc_editing )->area;
break;
default:
pArea = ch->in_room->area;
break;
}
if ( !is_builder( ch, pArea ) )
{
send_to_char( "You are not a builder for this area.\n\r", ch );
return;
}
if ( !str_cmp( "verbose", argument ) )
SET_BIT( pArea->area_flags, AREA_VERBOSE );
save_area( pArea );
REMOVE_BIT( pArea->area_flags, AREA_CHANGED );
REMOVE_BIT( pArea->area_flags, AREA_ADDED );
REMOVE_BIT( pArea->area_flags, AREA_VERBOSE );
send_to_char( "Area saved.\n\r", ch );
return;
}
do_asave( ch, "" );
return;
}