/***************************************************************************
* 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. *
* *
* 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. *
***************************************************************************/
/***************************************************************************
* God Wars Mud originally written by KaVir aka Richard Woolcock. *
* Changes done to the code done by Sage aka Walter Howard, this mud is *
* for the public, however if you run this code it means you agree *
* to the license.low, license.gw, and license.merc have fun. :) *
***************************************************************************/
#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 <stdarg.h>
#include "merc.h"
#include "leader.h"
#if !defined(macintosh)
extern int _filbuf args( (FILE *) );
#endif
/*
* Globals.
*/
HELP_DATA * help_first;
HELP_DATA * help_last;
HELP_AREA * had_list;
SHOP_DATA * shop_first;
SHOP_DATA * shop_last;
PROJECT_DATA * first_project;
PROJECT_DATA * last_project;
CHAR_DATA * char_free;
EXTRA_DESCR_DATA * extra_descr_free;
NOTE_DATA * note_free;
OBJ_DATA * obj_free;
PC_DATA * pcdata_free;
extern CLAN_DATA * clan_first;
extern CLAN_DATA * clan_last;
extern CLAN_DATA * clan_free;
CONFIG_DATA sysdata;
char bug_buf [2*MAX_INPUT_LENGTH];
CHAR_DATA * char_list;
char * help_greetinga;
char * help_greetingb;
char * help_greetingc;
char * help_greetingd;
char * help_greetinge;
char * help_authors;
char * help_login;
char log_buf [2*MAX_INPUT_LENGTH];
KILL_DATA kill_table [MAX_LEVEL];
OBJ_DATA * object_list;
TIME_INFO_DATA time_info;
WEATHER_DATA weather_info;
AUCTION_DATA auction_info;
sh_int gsn_backstab;
sh_int gsn_hide;
sh_int gsn_peek;
sh_int gsn_holystrike;
sh_int gsn_pick_lock;
sh_int gsn_sneak;
sh_int gsn_steal;
sh_int gsn_inferno;
sh_int gsn_blinky;
sh_int gsn_spiderform;
sh_int gsn_garotte;
sh_int gsn_disarm;
sh_int gsn_fastdraw;
sh_int gsn_berserk;
sh_int gsn_punch;
sh_int gsn_elbow;
sh_int gsn_spiket;
sh_int gsn_venomt;
sh_int gsn_shards;
sh_int gsn_magma;
sh_int gsn_waspt;
sh_int gsn_claws;
sh_int gsn_headbutt;
sh_int gsn_quills;
sh_int gsn_fangs;
sh_int gsn_buffet;
sh_int gsn_tail;
sh_int gsn_joust;
sh_int gsn_shiroken;
sh_int gsn_sweep;
sh_int gsn_knee;
sh_int gsn_kick;
sh_int gsn_circle;
sh_int gsn_gham;
sh_int gsn_rfangs;
sh_int gsn_thrustkick;
sh_int gsn_spinkick;
sh_int gsn_backfist;
sh_int gsn_elbow;
sh_int gsn_shinkick;
sh_int gsn_palmstrike;
sh_int gsn_lightningkick;
sh_int gsn_tornadokick;
sh_int gsn_jumpkick;
sh_int gsn_spinkick;
sh_int gsn_monksweep;
sh_int gsn_talon;
sh_int gsn_hurl;
sh_int gsn_rescue;
sh_int gsn_track;
sh_int gsn_polymorph;
sh_int gsn_web;
sh_int gsn_drowfire;
sh_int gsn_totalblind; /* Monk Power - Loki */
sh_int gsn_godbless; /* Monk Power - Loki */
sh_int gsn_llothbless; /* drow bless -Sage*/
sh_int gsn_blindness;
sh_int gsn_charm_person;
sh_int gsn_curse;
sh_int gsn_invis;
sh_int gsn_mass_invis;
sh_int gsn_poison;
sh_int gsn_sleep;
sh_int gsn_darkness;
sh_int gsn_paradox;
sh_int gsn_critical;
sh_int gsn_godbless;
sh_int gsn_manashield;
void load_commands args( ( void ) );
void save_commands args( ( void ) );
char *strip_cr args( ( char *str ) );
void load_artifacts args( ( ) );
PROJECT_DATA * read_project args( ( FILE *fp ) );
bool gypsy args( ( int vnum ) );
/*
* Locals.
*/
MOB_INDEX_DATA * mob_index_hash [MAX_KEY_HASH];
OBJ_INDEX_DATA * obj_index_hash [MAX_KEY_HASH];
ROOM_INDEX_DATA * room_index_hash [MAX_KEY_HASH];
char * string_hash [MAX_KEY_HASH];
AREA_DATA * area_first;
AREA_DATA * area_last;
AREA_DATA * current_area;
LEADER_DATA * leader[6];
char * string_space;
char * top_string;
char str_empty [1];
int top_affect;
int top_area;
int top_rt;
int top_ed;
int top_exit;
int top_help;
int top_mob_index;
int top_obj_index;
int top_reset;
int top_room;
int top_shop;
int top_vnum_room; /* OLC */
int top_vnum_mob; /* OLC */
int top_vnum_obj; /* OLC */
RESET_DATA *new_reset_data args( (void) );
/*
* Memory management.
* Increase MAX_STRING if you have too.
* Tune the others only if you understand what you're doing.
#define MAX_STRING 1048576
*/
#define MAX_STRING 4195024
#define MAX_PERM_BLOCK 131072
void * rgFreeList [MAX_MEM_LIST];
const int rgSizeList [MAX_MEM_LIST] =
{
16, 32, 64, 128, 256, 1024, 2048, 4096, 8192, 16384, 32768-64
};
int nAllocString;
int sAllocString;
int nAllocPerm;
int sAllocPerm;
/*
* Semi-locals.
*/
bool fBootDb;
FILE * fpArea;
char strArea[MAX_INPUT_LENGTH];
time_t new_pfile_time_t;
sh_int num_pfiles; /* Count up number of pfiles */
/*
* Local booting procedures.
*/
void init_mm args( ( void ) );
void load_area args( ( FILE *fp ) );
void load_helps args( ( FILE *fp , char *fname) );
void load_mobiles args( ( FILE *fp ) );
void load_objects args( ( FILE *fp ) );
void load_resets args( ( FILE *fp ) );
void load_rooms args( ( FILE *fp ) );
void load_shops args( ( FILE *fp ) );
void load_specials args( ( FILE *fp ) );
void load_notes args( ( void ) );
void load_adobj args( ( FILE *fp ) );
void load_admob args( ( FILE *fp ) );
void load_adroom args( ( FILE *fp ) );
void load_projects args( ( void ) );
bool load_systemdata args( ( CONFIG_DATA *sys ) );
void load_clans args( ( void ) );
void obj_strings args( ( OBJ_DATA *obj ) );
void fix_exits args( ( void ) );
void reset_area args( ( AREA_DATA * pArea ) );
void new_load_area args( ( FILE *fp ) ); /* OLC */
void copyover_recover args( ( void ) );
void free_exit args ( ( EXIT_DATA * ) );
void artifact_table_read args( ( void ) );
/*
* Big mama top level function.
*/
void boot_db( bool fCopyOver )
{
/*
* Init some data space stuff.
*/
{
if ( ( string_space = calloc( 1, MAX_STRING ) ) == NULL )
{
bug( "Boot_db: can't alloc %d string space.", MAX_STRING );
exit( 1 );
}
top_string = string_space;
fBootDb = TRUE;
}
/*
* Init random number generator.
*/
{
init_mm( );
}
load_commands( );
log_string("Done loading commands");
log_string( "Loading sysdata configuration..." );
/* default values */
sysdata.log_level = LEVEL_ENFORCER;
sysdata.level_override_private = LEVEL_JUDGE;
sysdata.level_mset_player = LEVEL_HIGHJUDGE;
sysdata.level_getobjnotake = LEVEL_JUDGE;
sysdata.dodge_mod = 2;
sysdata.parry_mod = 2;
sysdata.dam_plr_vs_plr = 80;
sysdata.dam_plr_vs_mob = 80;
sysdata.dam_mob_vs_plr = 80;
sysdata.dam_mob_vs_mob = 80;
sysdata.save_frequency = 20; /* minutes */
sysdata.CLEANPFILES = FALSE;
sysdata.newbie_purge = 50; // MobKills
sysdata.regular_purge = 30; // 30 days (1month)
sysdata.down_time = -1;
sysdata.drows = 0;
sysdata.monks = 0;
sysdata.priests = 0;
sysdata.ninjas = 0;
sysdata.vampires = 0;
sysdata.werewolfs = 0;
sysdata.angels = 0;
sysdata.demons = 0;
sysdata.mages = 0;
if ( !load_systemdata(&sysdata) )
{
log_string( "Not found. Creating new configuration." );
sysdata.alltimemax = 0;
}
auction_info.item = NULL;
auction_info.owner = NULL;
auction_info.high_bidder = NULL;
auction_info.current_bid = 0;
auction_info.status = 0;
auction_info.gold_held = 0;
auction_info.silver_held = 0;
/*
* Set time and weather.
*/
{
long lhour, lday, lmonth;
lhour = (current_time - 650336715)
/ (PULSE_TICK / PULSE_PER_SECOND);
time_info.hour = lhour % 24;
lday = lhour / 24;
time_info.day = lday % 35;
lmonth = lday / 35;
time_info.month = lmonth % 17;
time_info.year = lmonth / 17;
if ( time_info.hour < 5 ) weather_info.sunlight = SUN_DARK;
else if ( time_info.hour < 6 ) weather_info.sunlight = SUN_RISE;
else if ( time_info.hour < 19 ) weather_info.sunlight = SUN_LIGHT;
else if ( time_info.hour < 20 ) weather_info.sunlight = SUN_SET;
else weather_info.sunlight = SUN_DARK;
weather_info.change = 0;
weather_info.mmhg = 960;
if ( time_info.month >= 7 && time_info.month <=12 )
weather_info.mmhg += number_range( 1, 50 );
else
weather_info.mmhg += number_range( 1, 80 );
if ( weather_info.mmhg <= 980 ) weather_info.sky = SKY_LIGHTNING;
else if ( weather_info.mmhg <= 1000 ) weather_info.sky = SKY_RAINING;
else if ( weather_info.mmhg <= 1020 ) weather_info.sky = SKY_CLOUDY;
else weather_info.sky = SKY_CLOUDLESS;
}
/*
* Assign gsn's for skills which have them.
*/
{
int sn;
for ( sn = 0; sn < MAX_SKILL; sn++ )
{
if ( skill_table[sn].pgsn != NULL )
*skill_table[sn].pgsn = sn;
}
}
/*
* Read in all the area files.
*/
{
FILE *fpList;
if ( ( fpList = fopen( AREA_LIST, "r" ) ) == NULL )
{
perror( AREA_LIST );
exit( 1 );
}
for ( ; ; )
{
strcpy( strArea, fread_word( fpList ) );
if ( strArea[0] == '$' )
break;
printf( strArea );
if ( strArea[0] == '-' )
{
fpArea = stdin;
}
else
{
if ( ( fpArea = fopen( strArea, "r" ) ) == NULL )
{
perror( strArea );
exit( 1 );
}
}
log_string( strArea );
for ( ; ; )
{
char *word;
if ( fread_letter( fpArea ) != '#' )
{
bug( "Boot_db: # not found.", 0 );
exit( 1 );
}
word = fread_word( fpArea );
if ( word[0] == '$' ) break;
else if ( !str_cmp( word, "AREA" ) ) load_area (fpArea);
else if ( !str_cmp( word, "HELPS" ) ) load_helps (fpArea,strArea);
else if ( !str_cmp( word, "MOBILES" ) ) load_mobiles (fpArea);
else if ( !str_cmp( word, "OBJECTS" ) ) load_objects (fpArea);
else if ( !str_cmp( word, "RESETS" ) ) load_resets (fpArea);
else if ( !str_cmp( word, "ROOMS" ) ) load_rooms (fpArea);
else if ( !str_cmp( word, "SHOPS" ) ) load_shops (fpArea);
else if ( !str_cmp( word, "SPECIALS" ) ) load_specials(fpArea);
else if ( !str_cmp( word, "AREADATA" ) ) new_load_area(fpArea);
else if ( !str_cmp( word, "ADAREA" ) ) new_load_area(fpArea);
else if ( !str_cmp( word, "ADOBJ" ) ) load_adobj (fpArea);
else if ( !str_cmp( word, "ADMOBS" ) ) load_admob( fpArea);
else if ( !str_cmp( word, "ADROOMS" ) ) load_adroom(fpArea);
else
{
bugf( "Boot_db: bad section name. (%s)", word );
exit( 1 );
}
}
if ( fpArea != stdin )
fclose( fpArea );
fpArea = NULL;
}
fclose( fpList );
}
/*
* Fix up exits.
* Declare db booting over.
* Reset all areas once.
* Load up the notes file.
*/
{
log_string("Fixing exits");
fix_exits( );
fBootDb = FALSE;
log_string("Updating Areas");
area_update( );
log_string("Loading bans");
load_bans();
log_string("Loading Kingdoms");
load_kingdoms();
log_string("Loading new Kingdoms" );
load_clans();
log_string("Loading Boards");
load_boards(); /* Load all boards */
log_string("Loading disabled");
load_disabled();
log_string("Loading Projects");
load_projects( );
log_string("Loading hiscores" );
load_hiscores( );
log_string("Loading Socials" );
load_socials();
arena = FIGHT_CLEAR;
log_string("Scanning for Artifacts" );
load_artifacts( );
load_changes();
}
if ( fCopyOver )
copyover_recover( );
if( !gypsy( ROOM_VNUM_ESCAPE ) )
log_string("There was a problem loading the gypsy." );
else
log_string("Gypsy loaded susscesffully." );
return;
}
/*
* Snarf an 'area' header line.
*/
void load_area( FILE *fp )
{
AREA_DATA *pArea;
pArea = alloc_perm( sizeof(*pArea) );
pArea->name = fread_string( fp );
pArea->area_flags = AREA_LOADING; /* OLC */
pArea->security = 9; /* OLC */
pArea->builders = str_dup( "None" ); /* OLC */
pArea->lvnum = 0; /* OLC */
pArea->uvnum = 0; /* OLC */
pArea->vnum = top_area; /* OLC */
pArea->filename = str_dup( strArea ); /* OLC */
pArea->age = 15;
pArea->nplayer = 0;
/* pArea->x = -1;
pArea->y = -1; */
pArea->start = 0;
if ( !area_first)
area_first = pArea;
if ( area_last )
{
area_last->next = pArea;
REMOVE_BIT(area_last->area_flags, AREA_LOADING); /* OLC */
}
area_last = pArea;
pArea->next = NULL;
current_area = pArea;
top_area++;
return;
}
/*
* OLC
* Use these macros to load any new area formats that you choose to
* support on your MUD. See the new_load_area format below for
* a short example.
*/
#if defined(KEY)
#undef KEY
#endif
#define KEY( literal, field, value ) \
if ( !str_cmp( word, literal ) ) \
{ \
field = value; \
fMatch = TRUE; \
break; \
}
#define SKEY( string, field ) \
if ( !str_cmp( word, string ) ) \
{ \
free_string( field ); \
field = fread_string( fp ); \
fMatch = TRUE; \
break; \
}
/*
* Snarf an 'area' header line. Check this format. MUCH better. Add fields
* too.
*
* #AREAFILE
* Name { All } Locke Newbie School~
* Repop A teacher pops in the room and says, 'Repop coming!'~
* Recall 3001
* End
*/
void new_load_area( FILE *fp )
{
AREA_DATA *pArea;
char *word;
bool fMatch;
pArea = alloc_perm( sizeof(*pArea) );
pArea->age = 15;
pArea->nplayer = 0;
pArea->filename = str_dup( strArea );
pArea->vnum = top_area;
pArea->name = str_dup( "New Area" );
pArea->builders = str_dup( "" );
pArea->security = 1;
pArea->lvnum = 0;
pArea->uvnum = 0;
pArea->area_flags = 0;
pArea->mod = 0;
pArea->bits = 0;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case 'N':
SKEY( "Name",pArea->name );
SKEY( "N", pArea->name );
break;
case 'M':
KEY( "M", pArea->mod, fread_number(fp) );
break;
case 'S':
KEY( "Security", pArea->security, fread_number( fp ) );
KEY( "S", pArea->security, fread_number( fp ) );
break;
case 'F':
KEY( "F", pArea->area_flags, fread_number( fp ) );
KEY( "Flags", pArea->area_flags, fread_number( fp ) );
break;
case 'V':
if ( !str_cmp( word, "V" ) || !str_cmp( word, "Vnums" ) )
{
pArea->lvnum = fread_number( fp );
pArea->uvnum = fread_number( fp );
fMatch = TRUE;
}
break;
case 'E':
if ( !str_cmp( word, "End" ) )
{
fMatch = TRUE;
if ( !area_first )
area_first = pArea;
if ( area_last )
area_last->next = pArea;
area_last = pArea;
pArea->next = NULL;
current_area = pArea;
top_area++;
return;
}
break;
case 'B':
SKEY( "B", pArea->builders );
SKEY( "Builders", pArea->builders );
break;
}
}
}
/*
* Sets vnum range for area using OLC protection features.
*/
void assign_area_vnum( int vnum )
{
if ( area_last->lvnum == 0 || area_last->uvnum == 0 )
area_last->lvnum = area_last->uvnum = vnum;
if ( vnum != URANGE( area_last->lvnum, vnum, area_last->uvnum ) )
{
if ( vnum < area_last->lvnum )
area_last->lvnum = vnum;
else
area_last->uvnum = vnum;
}
return;
}
HELP_AREA * had_free;
HELP_AREA * new_had ( void )
{
HELP_AREA * had;
static HELP_AREA zHad;
if ( had_free )
{
had = had_free;
had_free = had_free->next;
}
else
had = alloc_perm( sizeof( *had ) );
*had = zHad;
return had;
}
/*
* Snarf a help section.
*/
void load_helps( FILE *fp, char *fname )
{
HELP_DATA *pHelp;
int level;
char * keyword;
for ( ; ; )
{
HELP_AREA * had;
level = fread_number( fp );
keyword = fread_string( fp );
if( keyword[0] == '$' )
break;
if ( !had_list )
{
had = new_had ();
had->filename = str_dup( fname );
had->area = current_area;
if ( current_area )
current_area->helps = had;
had_list = had;
}
else if ( str_cmp( fname, had_list->filename ) )
{
had = new_had ();
had->filename = str_dup( fname );
had->area = current_area;
if ( current_area )
current_area->helps = had;
had->next = had_list;
had_list = had;
}
else
had = had_list;
pHelp = alloc_perm( sizeof(*pHelp) );
pHelp->keyword = keyword;
pHelp->level = level;
pHelp->text = fread_string( fp );
if ( !str_cmp( pHelp->keyword, "greeting1" ) )
help_greetinga = pHelp->text;
if ( !str_cmp( pHelp->keyword, "greeting2" ) )
help_greetingb = pHelp->text;
if ( !str_cmp( pHelp->keyword, "greeting3" ) )
help_greetingc = pHelp->text;
if ( !str_cmp( pHelp->keyword, "greeting4" ) )
help_greetingd = pHelp->text;
if ( !str_cmp( pHelp->keyword, "greeting5" ) )
help_greetinge = pHelp->text;
if ( !str_cmp( pHelp->keyword, "authors" ) )
help_authors = pHelp->text;
if ( !str_cmp( pHelp->keyword, "login" ) )
help_login = pHelp->text;
if ( !help_first )
help_first = pHelp;
if ( help_last != NULL )
help_last->next = pHelp;
help_last = pHelp;
pHelp->next = NULL;
if( !had->first )
had->first = pHelp;
if( !had->last )
had->last = pHelp;
had->last->next_area = pHelp;
had->last = pHelp;
pHelp->next_area = NULL;
top_help++;
}
return;
}
/*
* Snarf a mob section.
*/
void load_mobiles( FILE *fp )
{
MOB_INDEX_DATA *pMobIndex;
if ( area_last == NULL ) /* OLC */
{
bug( "Load_mobiles: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
sh_int vnum;
char letter;
int iHash;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_mobiles: # not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum == 0 )
break;
fBootDb = FALSE;
if ( get_mob_index( vnum ) != NULL )
{
bug( "Load_mobiles: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
pMobIndex = alloc_perm( sizeof(*pMobIndex) );
pMobIndex->vnum = vnum;
pMobIndex->area = area_last; /* OLC */
pMobIndex->player_name = fread_string( fp );
pMobIndex->short_descr = fread_string( fp );
pMobIndex->long_descr = fread_string( fp );
pMobIndex->description = fread_string( fp );
pMobIndex->long_descr[0] = UPPER(pMobIndex->long_descr[0]);
pMobIndex->description[0] = UPPER(pMobIndex->description[0]);
pMobIndex->act = fread_number( fp ) | ACT_IS_NPC;
pMobIndex->affected_by = fread_number( fp );
pMobIndex->itemaffect = 0;
pMobIndex->pShop = NULL;
pMobIndex->alignment = fread_number( fp );
letter = fread_letter( fp );
pMobIndex->level = number_fuzzy( fread_number( fp ) );
/*
* The unused stuff is for imps who want to use the old-style
* stats-in-files method.
*/
pMobIndex->hitroll = fread_number( fp ); /* Unused */
pMobIndex->ac = fread_number( fp ); /* Unused */
pMobIndex->hitnodice = fread_number( fp ); /* Unused */
/* 'd' */ fread_letter( fp ); /* Unused */
pMobIndex->hitsizedice = fread_number( fp ); /* Unused */
/* '+' */ fread_letter( fp ); /* Unused */
pMobIndex->hitplus = fread_number( fp ); /* Unused */
pMobIndex->damnodice = fread_number( fp ); /* Unused */
/* 'd' */ fread_letter( fp ); /* Unused */
pMobIndex->damsizedice = fread_number( fp ); /* Unused */
/* '+' */ fread_letter( fp ); /* Unused */
pMobIndex->damplus = fread_number( fp ); /* Unused */
pMobIndex->gold = fread_number( fp ); /* Unused */
/* xp can't be used! */ fread_number( fp ); /* Unused */
/* position */ fread_number( fp ); /* Unused */
/* start pos */ fread_number( fp ); /* Unused */
/*
* Back to meaningful values.
*/
pMobIndex->sex = fread_number( fp );
if ( letter != 'S' )
{
bug( "Load_mobiles: vnum %d non-S.", vnum );
exit( 1 );
}
iHash = vnum % MAX_KEY_HASH;
pMobIndex->next = mob_index_hash[iHash];
mob_index_hash[iHash] = pMobIndex;
top_mob_index++;
top_vnum_mob = top_vnum_mob < vnum ? vnum : top_vnum_mob; /* OLC*/
assign_area_vnum( vnum ); /* OLC */
kill_table[URANGE(0, pMobIndex->level, MAX_LEVEL-1)].number++;
}
return;
}
/*
* Snarf an obj section.
*/
void load_objects( FILE *fp )
{
OBJ_INDEX_DATA *pObjIndex;
if ( area_last == NULL ) /* OLC */
{
bug( "Load_objects: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
sh_int vnum;
char letter;
int iHash;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_objects: # not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum == 0 )
break;
fBootDb = FALSE;
if ( get_obj_index( vnum ) != NULL )
{
bug( "Load_objects: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
pObjIndex = alloc_perm( sizeof(*pObjIndex) );
pObjIndex->vnum = vnum;
pObjIndex->area = area_last; /* OLC */
pObjIndex->name = fread_string( fp );
pObjIndex->short_descr = fread_string( fp );
pObjIndex->description = fread_string( fp );
/* Action description */ fread_string( fp );
pObjIndex->short_descr[0] = LOWER(pObjIndex->short_descr[0]);
pObjIndex->description[0] = UPPER(pObjIndex->description[0]);
pObjIndex->item_type = fread_number( fp );
pObjIndex->extra_flags = fread_number( fp );
pObjIndex->wear_flags = fread_number( fp );
pObjIndex->value[0] = fread_number( fp );
pObjIndex->value[1] = fread_number( fp );
pObjIndex->value[2] = fread_number( fp );
pObjIndex->value[3] = fread_number( fp );
pObjIndex->value[4] = 0;
pObjIndex->weight = fread_number( fp );
pObjIndex->cost = fread_number( fp ); /* Unused */
pObjIndex->affected = NULL;
pObjIndex->extra_descr = NULL;
pObjIndex->chpoweron = NULL;
pObjIndex->chpoweroff = NULL;
pObjIndex->chpoweruse = NULL;
pObjIndex->victpoweron = NULL;
pObjIndex->victpoweroff = NULL;
pObjIndex->victpoweruse = NULL;
pObjIndex->spectype = 0;
pObjIndex->specpower = 0;
pObjIndex->quest = 0;
/* Cost per day */ fread_number( fp );
/*
if ( pObjIndex->item_type == ITEM_POTION )
SET_BIT(pObjIndex->extra_flags, ITEM_NODROP);
*/
for ( ; ; )
{
char letter;
letter = fread_letter( fp );
if ( letter == 'A' )
{
AFFECT_DATA *paf;
paf = alloc_perm( sizeof(*paf) );
paf->type = -1;
paf->duration = -1;
paf->location = fread_number( fp );
paf->modifier = fread_number( fp );
paf->bitvector = 0;
paf->next = pObjIndex->affected;
pObjIndex->affected = paf;
top_affect++;
}
else if ( letter == 'E' )
{
EXTRA_DESCR_DATA *ed;
ed = alloc_perm( sizeof(*ed) );
ed->keyword = fread_string( fp );
ed->description = fread_string( fp );
ed->next = pObjIndex->extra_descr;
pObjIndex->extra_descr = ed;
top_ed++;
}
else if ( letter == 'Q' )
{
pObjIndex->chpoweron = fread_string( fp );
pObjIndex->chpoweroff = fread_string( fp );
pObjIndex->chpoweruse = fread_string( fp );
pObjIndex->victpoweron = fread_string( fp );
pObjIndex->victpoweroff = fread_string( fp );
pObjIndex->victpoweruse = fread_string( fp );
pObjIndex->spectype = fread_number( fp );
pObjIndex->specpower = fread_number( fp );
}
else
{
ungetc( letter, fp );
break;
}
}
/*
* Translate spell "slot numbers" to internal "skill numbers."
*/
switch ( pObjIndex->item_type )
{
case ITEM_PILL:
case ITEM_POTION:
case ITEM_SCROLL:
pObjIndex->value[1] = slot_lookup( pObjIndex->value[1] );
pObjIndex->value[2] = slot_lookup( pObjIndex->value[2] );
pObjIndex->value[3] = slot_lookup( pObjIndex->value[3] );
break;
case ITEM_STAFF:
case ITEM_WAND:
pObjIndex->value[3] = slot_lookup( pObjIndex->value[3] );
break;
}
iHash = vnum % MAX_KEY_HASH;
pObjIndex->next = obj_index_hash[iHash];
obj_index_hash[iHash] = pObjIndex;
top_obj_index++;
top_vnum_obj = top_vnum_obj < vnum ? vnum : top_vnum_obj; /* OLC
*/
assign_area_vnum( vnum ); /* OLC */
}
return;
}
void new_reset( ROOM_INDEX_DATA *pR, RESET_DATA *pReset )
{
RESET_DATA *pr;
if ( !pR )
return;
pr = pR->reset_last;
if ( !pr )
{
pR->reset_first = pReset;
pR->reset_last = pReset;
}
else
{
pR->reset_last->next = pReset;
pR->reset_last = pReset;
pR->reset_last->next = NULL;
}
return;
}
RESET_DATA * new_reset_data args( ( void ) );
void load_resets( FILE *fp ) /* OLC */
{
RESET_DATA *pReset;
EXIT_DATA *pExit;
ROOM_INDEX_DATA * pRoomIndex;
int rVnum = -1;
if ( !area_last )
{
bug( "Load_resets: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
char letter;
if ( ( letter = fread_letter( fp ) ) == 'S' )
break;
if ( letter == '*' )
{
fread_to_eol( fp );
continue;
}
pReset = new_reset_data();
pReset->command = letter;
/* If_flag */ fread_number( fp );
pReset->arg1 = fread_number( fp );
pReset->arg2 = fread_number( fp );
pReset->arg3 =
(letter == 'G' || letter == 'R' ) ? 0 : fread_number( fp );
fread_to_eol( fp );
/*
* Validate parameters.
* We're calling the index functions for the side effect.
*/
switch ( pReset->command )
{
case 'M':
case 'O':
rVnum = pReset->arg3;
break;
case 'P':
case 'G':
case 'E':
break;
case 'D':
pRoomIndex = get_room_index( (rVnum = pReset->arg1));
if( pReset->arg2 < 0
|| pReset->arg2 >= MAX_DIR
|| !pRoomIndex
|| !( pExit = pRoomIndex->exit[pReset->arg2] )
|| !IS_SET( pExit->rs_flags, EX_ISDOOR ) )
{
bugf( "Load_resets: 'D': exit %d, room %d not door.", pReset->arg2, pReset->arg1 );
exit(1);
}
switch ( pReset->arg3 )
{
default:
bug( "Load_resets: 'D': bad 'locks': %d.", pReset->arg3 );
break;
case 0: break;
case 1: SET_BIT( pExit->exit_info, EX_CLOSED );
SET_BIT( pExit->rs_flags, EX_CLOSED ); break;
case 2: SET_BIT( pExit->exit_info, EX_CLOSED | EX_LOCKED );
SET_BIT( pExit->rs_flags, EX_CLOSED | EX_LOCKED );break;
}
break;
case 'R':
rVnum = pReset->arg1;
break;
}
if ( rVnum == -1 )
{
bugf( "load_resets : rVnum == -1" );
exit(1);
}
if ( pReset->command != 'D' )
new_reset( get_room_index(rVnum), pReset );
else
free_reset_data( pReset );
}
return;
}
void load_rooms( FILE *fp )
{
ROOM_INDEX_DATA *pRoomIndex;
if ( area_last == NULL )
{
bug( "Load_resets: no #AREA seen yet.", 0 ); /* OLC */
exit( 1 );
}
for ( ; ; )
{
sh_int vnum;
char letter;
int door;
int iHash;
static int prev_top_area = -1;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_rooms: # not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum == 0 )
break;
if ( prev_top_area != top_area )
{
prev_top_area = top_area;
area_last->start = vnum;
}
fBootDb = FALSE;
if ( get_room_index( vnum ) != NULL )
{
bug( "Load_rooms: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
pRoomIndex = alloc_perm( sizeof(*pRoomIndex));
pRoomIndex->people = NULL;
pRoomIndex->contents = NULL;
pRoomIndex->to_obj = NULL;
pRoomIndex->extra_descr = NULL;
pRoomIndex->affected = NULL;
pRoomIndex->area = area_last;
pRoomIndex->vnum = vnum;
pRoomIndex->name = fread_string( fp );
pRoomIndex->description = fread_string( fp );
/* Area number */ fread_number( fp );
pRoomIndex->room_flags = fread_number( fp );
if(IS_SET(pRoomIndex->room_flags,ROOM_TOTAL_DARKNESS))
REMOVE_BIT(pRoomIndex->room_flags,ROOM_TOTAL_DARKNESS);
pRoomIndex->affected = NULL;
pRoomIndex->affected_by = 0;
pRoomIndex->sector_type = fread_number( fp );
pRoomIndex->light = 0;
pRoomIndex->blood = 0;
pRoomIndex->passed = 0;
pRoomIndex->roomtext = NULL;
/* pRoomIndex->wood = 0;
pRoomIndex->build = 0;
pRoomIndex->ground = 0;
pRoomIndex->x = -1;
pRoomIndex->y = -1; */
pRoomIndex->room = 0;
for ( door = 0; door <= 4; door++ )
{
free_string( pRoomIndex->track[door] );
pRoomIndex->track[door] = str_dup( "" );
pRoomIndex->track_dir[door] = 0;
}
for ( door = 0; door <= 5; door++ )
pRoomIndex->exit[door] = NULL;
for ( ; ; )
{
letter = fread_letter( fp );
if ( letter == 'S' )
break;
if ( letter == 'D' )
{
EXIT_DATA *pexit;
int locks;
door = fread_number( fp );
if ( door < 0 || door > 5 )
{
bug( "Fread_rooms: vnum %d has bad door number.", vnum);
exit( 1 );
}
pexit = alloc_perm( sizeof(*pexit) );
pexit->description = fread_string( fp );
pexit->keyword = fread_string( fp );
pexit->exit_info = 0;
pexit->rs_flags = 0; /* OLC */
locks = fread_number( fp );
pexit->key = fread_number( fp );
pexit->vnum = fread_number( fp );
switch ( locks )
{
case 1: pexit->exit_info = pexit->rs_flags = EX_ISDOOR;break;
case 2: pexit->exit_info = pexit->rs_flags = EX_ISDOOR | EX_PICKPROOF;break;
}
pRoomIndex->exit[door] = pexit;
top_exit++;
}
else if ( letter == 'E' )
{
EXTRA_DESCR_DATA *ed;
ed = alloc_perm( sizeof(*ed) );
ed->keyword = fread_string( fp );
ed->description = fread_string( fp );
ed->next = pRoomIndex->extra_descr;
pRoomIndex->extra_descr = ed;
top_ed++;
}
else if ( letter == 'T' )
{
ROOMTEXT_DATA *rt;
rt = alloc_perm( sizeof(*rt) );
rt->input = fread_string( fp );
rt->output = fread_string( fp );
rt->choutput = fread_string( fp );
rt->name = fread_string( fp );
rt->type = fread_number( fp );
rt->power = fread_number( fp );
rt->mob = fread_number( fp );
rt->next = pRoomIndex->roomtext;
pRoomIndex->roomtext = rt;
top_rt++;
}
else if ( letter == 'V' )
{
fread_number( fp );
fread_number( fp );
}
else
{
bug( "Load_rooms: vnum %d has flag not 'DES'.", vnum );
exit( 1 );
}
}
iHash = vnum % MAX_KEY_HASH;
pRoomIndex->next = room_index_hash[iHash];
room_index_hash[iHash] = pRoomIndex;
//put_area_vnum( vnum );
top_room++;
top_vnum_room = top_vnum_room < vnum ? vnum : top_vnum_room; /*OLC */
assign_area_vnum( vnum ); /* OLC */
}
return;
}
/*
* Snarf a shop section.
*/
void load_shops( FILE *fp )
{
SHOP_DATA *pShop;
for ( ; ; )
{
MOB_INDEX_DATA *pMobIndex;
int iTrade;
pShop = alloc_perm( sizeof(*pShop) );
pShop->keeper = fread_number( fp );
if ( pShop->keeper == 0 )
break;
for ( iTrade = 0; iTrade < MAX_TRADE; iTrade++ )
pShop->buy_type[iTrade] = fread_number( fp );
pShop->profit_buy = fread_number( fp );
pShop->profit_sell = fread_number( fp );
pShop->open_hour = fread_number( fp );
pShop->close_hour = fread_number( fp );
fread_to_eol( fp );
pMobIndex = get_mob_index( pShop->keeper );
pMobIndex->pShop = pShop;
if ( shop_first == NULL )
shop_first = pShop;
if ( shop_last != NULL )
shop_last->next = pShop;
shop_last = pShop;
pShop->next = NULL;
top_shop++;
}
return;
}
/*
* Sna
*/
void load_specials( FILE *fp )
{
for ( ; ; )
{
MOB_INDEX_DATA *pMobIndex;
char letter;
switch ( letter = fread_letter( fp ) )
{
default:
bug( "Load_specials: letter '%c' not *MS.", letter );
exit( 1 );
case 'S':
return;
case '*':
break;
case 'M':
pMobIndex = get_mob_index ( fread_number ( fp ) );
pMobIndex->spec_fun = spec_lookup ( fread_word ( fp ) );
if ( pMobIndex->spec_fun == 0 )
{
bug( "Load_specials: 'M': vnum %d.", pMobIndex->vnum );
exit( 1 );
}
break;
}
fread_to_eol( fp );
}
}
/*
* Translate all room exits from virtual to real.
* Has to be done after all rooms are read in.
* Check for bad reverse exits.
*/
void fix_exits( void )
{
extern const int rev_dir [];
// extern const sh_int rev_dir [];
char buf[MAX_STRING_LENGTH];
ROOM_INDEX_DATA *pRoomIndex;
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
EXIT_DATA *pexit_rev;
int iHash;
int door;
for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
{
for ( pRoomIndex = room_index_hash[iHash];
pRoomIndex != NULL;
pRoomIndex = pRoomIndex->next )
{
bool fexit;
fexit = FALSE;
for ( door = 0; door <= 5; door++ )
{
if ( ( pexit = pRoomIndex->exit[door] ) )
{
if( (pexit->vnum <= 0 )
|| !get_room_index(pexit->vnum) )
{
sprintf(buf, "Bad exit vnum %d in room %d",pexit->vnum,
pRoomIndex->vnum );
bug( buf, 0 );
free_exit( pexit );
pRoomIndex->exit[door] = NULL;
}
else
{
fexit = TRUE;
pexit->to_room = get_room_index( pexit->vnum );
}
}
}
if ( !fexit )
SET_BIT( pRoomIndex->room_flags, ROOM_NO_MOB );
}
}
for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
{
for ( pRoomIndex = room_index_hash[iHash];
pRoomIndex != NULL;
pRoomIndex = pRoomIndex->next )
{
for ( door = 0; door <= 5; door++ )
{
if ( ( pexit = pRoomIndex->exit[door] ) != NULL
&& ( to_room = pexit->to_room ) != NULL
&& ( pexit_rev = to_room->exit[rev_dir[door]] ) != NULL
&& pexit_rev->to_room != pRoomIndex )
{
sprintf( buf, "Fix_exits: %d:%d -> %d:%d -> %d.",
pRoomIndex->vnum, door,
to_room->vnum, rev_dir[door],
(pexit_rev->to_room == NULL)
? 0 : pexit_rev->to_room->vnum );
/* bug( buf, 0 ); */
}
}
}
}
return;
}
/*
* Repopulate areas periodically.
*/
void area_update( void )
{
AREA_DATA *pArea;
for ( pArea = area_first; pArea != NULL; pArea = pArea->next )
{
CHAR_DATA *pch;
if ( ++pArea->age < 3 )
continue;
/*
* Check for PC's.
*/
if(IS_SET(pArea->bits,WASTE) && IS_SET(pArea->bits,UPDATEWASTE))
{
REMOVE_BIT(pArea->bits,WASTE);
sta("The land around you shifts into something more recognizable.\n\r",pArea);
}
if(!IS_SET(pArea->bits,UPDATEWASTE))SET_BIT(pArea->bits,UPDATEWASTE);
if ( pArea->nplayer > 0 && pArea->age == 15 - 1 )
{
for ( pch = char_list; pch != NULL; pch = pch->next )
{
if ( !IS_NPC(pch)
&& IS_AWAKE(pch)
&& pch->in_room != NULL
&& pch->in_room->area == pArea )
{
send_to_char( "You notice everything in the area has re-appeared.\n\r",
pch );
}
}
}
/*
* Check age and reset.
* Note: Mud School resets every 3 minutes (not 15).
*/
if ( pArea->nplayer == 0 || pArea->age >= 15 )
{
ROOM_INDEX_DATA *pRoomIndex;
reset_area( pArea );
pArea->age = number_range( 0, 3 );
pRoomIndex = get_room_index( ROOM_VNUM_SCHOOL );
if ( pRoomIndex != NULL && pArea == pRoomIndex->area )
pArea->age = 15 - 3;
}
}
return;
}
/*
* Reset one room / area.
*/
void reset_area( AREA_DATA *pArea )
{
ROOM_INDEX_DATA *pRoom;
int vnum;
for ( vnum = pArea->lvnum; vnum <= pArea->uvnum; vnum++ )
{
if ( ( pRoom = get_room_index(vnum) ) )
// && pRoom->area == pArea )
reset_room(pRoom);
}
return;
}
/*
* Reset one room
*/
bool reset_room( ROOM_INDEX_DATA *pRoom )
{
RESET_DATA *pReset; /* Current Reset */
CHAR_DATA *pMob; /* Current Working Mobile */
OBJ_DATA *pObj; /* Current Working Object */
CHAR_DATA *LastMob; /* Last Mob Created */
OBJ_DATA *LastObj; /* Last Object Created */
OBJ_DATA *obj_to;
EXIT_DATA *pExit, *tExit;
int iExit; /* For exit resets */
bool fOldBootDb = fBootDb;
bool last;
fBootDb = FALSE; /* Skirt get_xxx_index() exit()s */
if ( pRoom == NULL ) return FALSE;
if ( get_room_index( pRoom->vnum ) == NULL )
{
bug( "Reset_room: invalid room %d", pRoom->vnum);
if ( fOldBootDb ) exit( 1 );
return FALSE;
}
pMob = NULL;
LastMob = NULL;
LastObj = NULL;
last = TRUE;
for ( iExit = 0; iExit < MAX_DIR; iExit++ )
{
pExit = pRoom->exit[iExit];
if ( pExit == NULL ) continue;
tExit = pExit->to_room != NULL ? pExit->to_room->exit[rev_dir[iExit]]: NULL;
if ( pRoom->people != NULL )
{
if ( !IS_SET(pExit->exit_info, EX_CLOSED)
&& IS_SET(pExit->rs_flags, EX_CLOSED) )
{
act( "The $t closes.", pRoom->people, pExit->keyword, NULL, TO_CHAR );
act( "The $t closes.", pRoom->people, pExit->keyword, NULL, TO_ROOM );
}
}
if ( !IS_SET(pExit->exit_info, EX_LOCKED)
&& IS_SET(pExit->rs_flags, EX_LOCKED) )
{
act( "The $t clicks.", pRoom->people, pExit->keyword, NULL, TO_CHAR );
act( "The $t clicks.", pRoom->people, pExit->keyword, NULL, TO_ROOM );
}
pExit->exit_info = pExit->rs_flags; /* set the reset flags */
if ( tExit != NULL )
tExit->exit_info = tExit->rs_flags; /* nail the other side */
}
for ( pReset = pRoom->reset_first; pReset != NULL; pReset = pReset->next )
{
MOB_INDEX_DATA *pMobIndex;
OBJ_INDEX_DATA *pObjIndex;
OBJ_INDEX_DATA *pObjToIndex;
switch ( pReset->command )
{
default: bug( "Reset_room: bad command %c.", pReset->command );
break;
case 'M':
if ( !( pMobIndex = get_mob_index( pReset->arg1 )))
{
bug( "Reset_room: 'M': bad vnum %d.", pReset->arg1 );
if ( fOldBootDb )
exit( 1 );
break;
}
if ( pMobIndex->count >= pReset->arg2 )
{
last = FALSE;
break;
}
pMob = create_mobile( pMobIndex );
/*
* Some more hard coding.
*/
if ( room_is_dark( pRoom ) )
SET_BIT(pMob->affected_by, AFF_INFRARED);
char_to_room( pMob, pRoom );
if ( pMob->in_room->area->mod > 0 )
{
pMob->level += pMob->in_room->area->mod *25;
pMob->max_hit += ( pMob->in_room->area->mod * 4000 );
pMob->hit = pMob->max_hit;
}
if ( pMob->in_room->area->mod < 0 )
{
pMob->level -= ( pMob->in_room->area->mod * 25 );
pMob->max_hit -= ( pMob->in_room->area->mod * 4000 );
pMob->hit = pMob->max_hit;
}
LastObj = NULL;
LastMob = pMob;
last = TRUE;
break;
case 'O':
if ( !( pObjIndex = get_obj_index( pReset->arg1)))
{
bug( "Reset_room: 'O': bad vnum %d.", pReset->arg1);
if ( fOldBootDb )
exit( 1 );
continue;
}
if ( pRoom->area->nplayer > 0
|| count_obj_list( pObjIndex, pRoom->contents ) > 0 )
{
break;
}
pObj = create_object( pObjIndex, number_range( 1,50 ) );
pObj->cost = 0;
obj_to_room( pObj, pRoom);
break;
case 'P':
if ( ( pObjIndex = get_obj_index( pReset->arg1 ) ) == NULL )
{
bugf( "Reset_area: 'P': bad vnum %d in room %d.",
pReset->arg1, pRoom->vnum );
continue;
}
if ( !( pObjToIndex = get_obj_index( pReset->arg3 ) ) )
{
bugf(
"Reset_room: 'P': bad object to vnum %d in room %d.",
pReset->arg3,pRoom->vnum );
continue;
}
if ( pRoom->area->nplayer > 0
|| ( obj_to = get_obj_type( pObjToIndex ) ) == NULL
|| obj_to->in_room == NULL
|| count_obj_list( pObjIndex, obj_to->contains ) > 0 )
{
break;
}
pObj = create_object( pObjIndex, number_range( 1,50 ) );
obj_to_obj( pObj, obj_to );
break;
case 'G':
case 'E':
if ( !( pObjIndex = get_obj_index( pReset->arg1 )))
{
bug( "Reset_area: 'E' or 'G': bad vnum %d.", pReset->arg1 );
continue;
}
if( !last )
break;
if ( LastMob == NULL )
{
bug( "Reset_area: 'E' or 'G': null mob for vnum %d.",
pReset->arg1 );
last = FALSE;
break;
}
if ( LastMob->pIndexData->pShop != NULL )
{
int olevel;
switch ( pObjIndex->item_type )
{
default: olevel = 0; break;
case ITEM_PILL: olevel = number_range( 0, 10 ); break;
case ITEM_POTION: olevel = number_range( 0, 10 ); break;
case ITEM_SCROLL: olevel = number_range( 5, 15 ); break;
case ITEM_WAND: olevel = number_range( 10, 20 ); break;
case ITEM_STAFF: olevel = number_range( 15, 25 ); break;
case ITEM_ARMOR: olevel = number_range( 5, 15 ); break;
case ITEM_WEAPON: olevel = number_range( 5, 15 ); break;
}
pObj = create_object( pObjIndex, olevel );
SET_BIT( pObj->extra_flags, ITEM_INVENTORY );
}
else
{
pObj = create_object( pObjIndex, number_range( 1,50 ) );
}
obj_to_char( pObj, LastMob );
if ( pReset->command == 'E' )
equip_char( LastMob, pObj, pReset->arg3 );
last = TRUE;
break;
case 'R':
{
int d0;
int d1;
for ( d0 = 0; d0 < pReset->arg2 - 1; d0++ )
{
d1 = number_range( d0, pReset->arg2-1 );
pExit = pRoom->exit[d0];
pRoom->exit[d0] = pRoom->exit[d1];
pRoom->exit[d1] = pExit;
}
}
break;
}
}
fBootDb = fOldBootDb;
return TRUE;
}
/*
* Reset one area.
*/
#if 0
void reset_area( AREA_DATA *pArea )
{
CHAR_DATA *mob;
RESET_DATA *pReset;
ROOM_INDEX_DATA *pRoomIndex; /* OLC */
int iExit; /* OLC */
int iHash; /* OLC */
int level;
bool last;
if ( pArea == NULL ) return;
mob = NULL;
last = TRUE;
level = 0;
/*
* OLC
* New system saves resets as part of door structure.
*/
for( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
{
for( pRoomIndex = room_index_hash[iHash]; pRoomIndex != NULL; pRoomIndex = pRoomIndex->next )
{
if ( pRoomIndex->area == pArea )
for ( iExit = 0; iExit < MAX_DIR; iExit++ )
{
EXIT_DATA *pExit;
if ( ( pExit = pRoomIndex->exit[iExit] )
&& !IS_SET( pExit->exit_info, EX_BASHED ) )
{
pExit->exit_info = pExit->rs_flags;
if ( ( pExit->to_room != NULL )
&& ( pExit = pExit->to_room->exit[rev_dir[iExit]]) != NULL )
{
pExit->exit_info = pExit->rs_flags;
/* nail the other side */
}
}
}
}
}
for ( pReset = pArea->reset_first; pReset != NULL; pReset = pReset->next )
{
OBJ_DATA *obj;
OBJ_DATA *obj_to;
MOB_INDEX_DATA *pMobIndex;
OBJ_INDEX_DATA *pObjIndex;
OBJ_INDEX_DATA *pObjToIndex;
ROOM_INDEX_DATA *pRoomIndex;
// OBJ_DATA *quest;
switch ( pReset->command )
{
default:
bug( "Reset_area: bad command %c.", pReset->command );
break;
case 'M':
if ( ( pMobIndex = get_mob_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'M': bad vnum %d.", pReset->arg1 );
continue;
}
if ( ( pRoomIndex = get_room_index( pReset->arg3 ) ) == NULL )
{
bug( "Reset_area: 'R': bad vnum %d.", pReset->arg3 );
continue;
}
level = URANGE( 0, pMobIndex->level - 2, LEVEL_HERO );
if ( pMobIndex->count >= pReset->arg2 )
{
last = FALSE;
break;
}
mob = create_mobile( pMobIndex );
//Commented out 1/15/00 by SaGe to fix crash bug.
/*
if ( number_range( 1, 200 ) == 100 )
{
quest = create_object(get_obj_index(30054),0);
free_string( quest->name );
free_string( quest->short_descr );
free_string( quest->description );
quest->name = str_dup("treasure priceless quest gold");
quest->short_descr = str_dup("A gold quest piece");
quest->description = str_dup("A shiny gold coin lies here.");
obj_to_char( quest, mob );
SET_BIT(quest->quest,ITEM_EQUEST);
quest->cost = 15;
}
*/
/*
* Check for pet shop.
*/
{
ROOM_INDEX_DATA *pRoomIndexPrev;
pRoomIndexPrev = get_room_index( pRoomIndex->vnum - 1 );
if ( pRoomIndexPrev != NULL
&& IS_SET(pRoomIndexPrev->room_flags, ROOM_PET_SHOP) )
SET_BIT(mob->act, ACT_PET);
}
if ( room_is_dark( pRoomIndex ) )
SET_BIT(mob->affected_by, AFF_INFRARED);
char_to_room( mob, pRoomIndex );
level = URANGE( 0, mob->level - 2, LEVEL_HERO );
last = TRUE;
break;
case 'O':
if ( ( pObjIndex = get_obj_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'O': bad vnum %d.", pReset->arg1 );
continue;
}
if ( ( pRoomIndex = get_room_index( pReset->arg3 ) ) == NULL )
{
bug( "Reset_area: 'R': bad vnum %d.", pReset->arg3 );
continue;
}
if ( pArea->nplayer > 0
|| count_obj_list( pObjIndex, pRoomIndex->contents ) > 0 )
{
last = FALSE;
break;
}
obj = create_object( pObjIndex, number_range( 1,50 ) );
obj->cost = 0;
obj_to_room( obj, pRoomIndex );
last = TRUE;
break;
case 'P':
if ( ( pObjIndex = get_obj_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'P': bad vnum %d.", pReset->arg1 );
continue;
}
if ( ( pObjToIndex = get_obj_index( pReset->arg3 ) ) == NULL )
{
bug( "Reset_area: 'P': bad vnum %d.", pReset->arg3 );
continue;
}
if ( pArea->nplayer > 0
|| ( obj_to = get_obj_type( pObjToIndex ) ) == NULL
|| obj_to->in_room == NULL
|| count_obj_list( pObjIndex, obj_to->contains ) > 0 )
{
last = FALSE;
break;
}
obj = create_object( pObjIndex, number_range( 1,50 ) );
obj_to_obj( obj, obj_to );
last = TRUE;
break;
case 'G':
case 'E':
if ( ( pObjIndex = get_obj_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'E' or 'G': bad vnum %d.", pReset->arg1
);
continue;
}
if ( !last )
break;
if ( mob == NULL )
{
bug( "Reset_area: 'E' or 'G': null mob for vnum %d.",
pReset->arg1 );
last = FALSE;
break;
}
if ( mob->pIndexData->pShop != NULL )
{
int olevel;
switch ( pObjIndex->item_type )
{
default: olevel = 0; break;
case ITEM_PILL: olevel = number_range( 0, 10 );break;
case ITEM_POTION: olevel = number_range( 0, 10 );break;
case ITEM_SCROLL: olevel = number_range( 5, 15 );break;
case ITEM_WAND: olevel = number_range( 10, 20 );break;
case ITEM_STAFF: olevel = number_range( 15, 25 );break;
case ITEM_ARMOR: olevel = number_range( 5, 15 );break;
case ITEM_WEAPON: olevel = number_range( 5, 15 );break;
}
obj = create_object( pObjIndex, olevel );
if ( pReset->command == 'G' )
SET_BIT( obj->extra_flags, ITEM_INVENTORY );
}
else
{
obj = create_object( pObjIndex, number_range( 1,50 ) );
}
obj_to_char( obj, mob );
if ( pReset->command == 'E' )
equip_char( mob, obj, pReset->arg3 );
last = TRUE;
break;
case 'D':
/* OLC
if ( ( pRoomIndex = get_room_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'D': bad vnum %d.", pReset->arg1 );
continue;
}
if ( ( pexit = pRoomIndex->exit[pReset->arg2] ) == NULL )
break;
switch ( pReset->arg3 )
{
case 0:
REMOVE_BIT( pexit->exit_info, EX_CLOSED );
REMOVE_BIT( pexit->exit_info, EX_LOCKED );
break;
case 1:
SET_BIT( pexit->exit_info, EX_CLOSED );
REMOVE_BIT( pexit->exit_info, EX_LOCKED );
break;
case 2:
SET_BIT( pexit->exit_info, EX_CLOSED );
SET_BIT( pexit->exit_info, EX_LOCKED );
break;
}
last = TRUE;
*/
break;
case 'R':
/*
if ( ( pRoomIndex = get_room_index( pReset->arg1 ) ) == NULL )
{
bug( "Reset_area: 'R': bad vnum %d.", pReset->arg1 );
continue;
}
{
int d0;
int d1;
for ( d0 = 0; d0 < pReset->arg2 - 1; d0++ )
{
d1 = number_range( d0,
pReset->arg2-1 );
pexit = pRoomIndex->exit[d0];
pRoomIndex->exit[d0] = pRoomIndex->exit[d1];
pRoomIndex->exit[d1] = pexit;
}
}
*/
break;
}
}
return;
}
#endif
/*
* Create an instance of a mobile.
*/
CHAR_DATA *create_mobile( MOB_INDEX_DATA *pMobIndex )
{
CHAR_DATA *mob;
int tempvalue;
if ( pMobIndex == NULL )
{
bug( "Create_mobile: NULL pMobIndex.", 0 );
exit( 1 );
}
if ( char_free == NULL )
{
mob = alloc_perm( sizeof(*mob) );
}
else
{
mob = char_free;
char_free = char_free->next;
}
clear_char( mob );
mob->pIndexData = pMobIndex;
mob->hunting = str_dup( "" );
mob->lord = str_dup( "" );
mob->clan = str_dup( "" );
mob->morph = str_dup( "" );
mob->createtime = str_dup( "" );
mob->lasttime = str_dup( "" );
mob->lasthost = str_dup( "" );
mob->powertype = str_dup( "" );
mob->poweraction = str_dup( "" );
mob->pload = str_dup( "" );
mob->prompt = str_dup( "" );
mob->cprompt = str_dup( "" );
mob->name = str_dup(pMobIndex->player_name);
mob->short_descr = str_dup(pMobIndex->short_descr);
mob->long_descr = str_dup(pMobIndex->long_descr);
mob->description = str_dup(pMobIndex->description);
mob->spec_fun = pMobIndex->spec_fun;
mob->home = 3001;
mob->form = 32767;
mob->level = number_fuzzy( pMobIndex->level );
mob->act = pMobIndex->act;
mob->affected_by = pMobIndex->affected_by;
mob->alignment = pMobIndex->alignment;
mob->sex = pMobIndex->sex;
mob->armor = interpolate( mob->level, 100, -100 );
tempvalue = mob->level * 8 + number_range(
mob->level * mob->level / 4,
mob->level * mob->level );
if (tempvalue > 10000000) mob->max_hit = 10000000;
else mob->max_hit = tempvalue;
mob->hitroll = (mob->level * 2.5);
mob->damroll = (mob->level * 2.5);
if (mob->level>100)
{
mob->hitroll *= 1.5;
mob->damroll *= 1.5;
}
if (mob->level>250)
{
mob->hitroll *=1.10;
mob->damroll *=1.10;
}
if (mob->level<11)
{
mob->max_hit /=2;
mob->hitroll *=0.6;
mob->damroll *=0.5;
}
mob->hit = mob->max_hit;
mob->practice = mob->level * (number_range(10,20)/10);
for( tempvalue = 0; tempvalue < 13; tempvalue++ )
mob->wpn[tempvalue] = UMIN(mob->level, 500);
for( tempvalue = 2; tempvalue < 12; tempvalue++ )
mob->stance[tempvalue] = UMIN(mob->level, 200 );
/*
* Insert in list.
*/
mob->next = char_list;
char_list = mob;
pMobIndex->count++;
return mob;
}
/*
* Create an instance of an object.
*/
OBJ_DATA *create_object( OBJ_INDEX_DATA *pObjIndex, int level )
{
static OBJ_DATA obj_zero;
OBJ_DATA *obj;
if ( pObjIndex == NULL )
{
bug( "Create_object: NULL pObjIndex.", 0 );
exit( 1 );
}
if ( obj_free == NULL )
{
obj = alloc_perm( sizeof(*obj) );
}
else
{
obj = obj_free;
obj_free = obj_free->next;
}
*obj = obj_zero;
obj->pIndexData = pObjIndex;
obj->in_room = NULL;
obj->level = level;
obj->wear_loc = -1;
obj->weapflags = 0;
obj->name = str_dup(pObjIndex->name);
obj->short_descr = str_dup(pObjIndex->short_descr);
obj->description = str_dup(pObjIndex->description);
if (pObjIndex->chpoweron != NULL)
{
obj->chpoweron = str_dup(pObjIndex->chpoweron );
obj->chpoweroff = str_dup(pObjIndex->chpoweroff );
obj->chpoweruse = str_dup(pObjIndex->chpoweruse );
obj->victpoweron = str_dup(pObjIndex->victpoweron );
obj->victpoweroff = str_dup(pObjIndex->victpoweroff);
obj->victpoweruse = str_dup(pObjIndex->victpoweruse);
obj->spectype = pObjIndex->spectype;
obj->specpower = pObjIndex->specpower;
}
else
{
obj->chpoweron = str_dup( "(null)" );
obj->chpoweroff = str_dup( "(null)" );
obj->chpoweruse = str_dup( "(null)" );
obj->victpoweron = str_dup( "(null)" );
obj->victpoweroff = str_dup( "(null)" );
obj->victpoweruse = str_dup( "(null)" );
obj->spectype = 0;
obj->specpower = 0;
}
obj->questmaker = str_dup( "" );
obj->questowner = str_dup( "" );
obj->chobj = NULL;
obj->quest = 0;
obj->points = 0;
obj->item_type = pObjIndex->item_type;
obj->extra_flags = pObjIndex->extra_flags;
obj->wear_flags = pObjIndex->wear_flags;
obj->value[0] = pObjIndex->value[0];
obj->value[1] = pObjIndex->value[1];
obj->value[2] = pObjIndex->value[2];
obj->value[3] = pObjIndex->value[3];
obj->value[4] = pObjIndex->value[4];
obj->weight = pObjIndex->weight;
obj->cost = number_fuzzy( 10 )
* number_fuzzy( level ) * number_fuzzy( level );
if( IS_SET(pObjIndex->quest, QUEST_ARTIFACT) )
{
SET_BIT(obj->quest, QUEST_ARTIFACT);
obj->condition = 100;
obj->toughness = 100;
obj->resistance = 1;
obj->level = 60;
obj->cost = 1000000;
}
else if (( obj->pIndexData->vnum >= 29600 && obj->pIndexData->vnum <= 29800)
|| ( obj->pIndexData->vnum >= 27650 && obj->pIndexData->vnum <= 27670 )
|| ( obj->pIndexData->vnum >= 2640 && obj->pIndexData->vnum < 2660)
|| ( obj->pIndexData->vnum >= 32100 && obj->pIndexData->vnum <= 32299)
|| ( obj->pIndexData->vnum >= 30400 && obj->pIndexData->vnum <= 30452))
{
SET_BIT(obj->quest, QUEST_RELIC);
obj->condition = 100;
obj->toughness = 100;
obj->resistance = 1;
}
else
{
obj->condition = 100;
obj->toughness = 5;
obj->resistance = 25;
}
/*
* Mess with object properties.
*/
switch ( obj->item_type )
{
default:
bug( "Read_object: vnum %d bad type.", pObjIndex->vnum );
break;
case ITEM_LIGHT:
case ITEM_TREASURE:
case ITEM_FURNITURE:
case ITEM_TRASH:
case ITEM_CONTAINER:
case ITEM_DRINK_CON:
case ITEM_KEY:
case ITEM_FOOD:
case ITEM_BOAT:
case ITEM_CORPSE_NPC:
case ITEM_CORPSE_PC:
case ITEM_FOUNTAIN:
case ITEM_PORTAL:
case ITEM_EGG:
case ITEM_VOODOO:
case ITEM_STAKE:
case ITEM_MISSILE:
case ITEM_AMMO:
case ITEM_QUEST:
case ITEM_QUESTCARD:
case ITEM_QUESTMACHINE:
case ITEM_SYMBOL:
case ITEM_BOOK:
case ITEM_PAGE:
case ITEM_TOOL:
case ITEM_GRENADE:
break;
case ITEM_SCROLL:
obj->value[0] = number_fuzzy( obj->value[0] );
break;
case ITEM_WAND:
case ITEM_STAFF:
obj->value[0] = number_fuzzy( obj->value[0] );
obj->value[1] = number_fuzzy( obj->value[1] );
obj->value[2] = obj->value[1];
break;
case ITEM_WEAPON:
if (!IS_SET(obj->quest, QUEST_ARTIFACT)
&& !IS_SET(obj->quest, QUEST_RELIC))
{
obj->value[1] = number_range( 1, 10 );
obj->value[2] = number_range((obj->value[1]+1),(obj->value[1]*2));
}
break;
case ITEM_ARMOR:
if (!IS_SET(obj->quest, QUEST_ARTIFACT)
&& !IS_SET(obj->quest, QUEST_RELIC))
obj->value[0] = number_range( 5, 15 );
break;
case ITEM_POTION:
case ITEM_PILL:
obj->value[0] = number_fuzzy( number_fuzzy( obj->value[0] ) );
break;
case ITEM_MONEY:
obj->value[0] = obj->cost;
break;
}
/*
* Randomize color, size, and anything else we want!
*/
obj_strings( obj );
obj->next = object_list;
object_list = obj;
pObjIndex->count++;
return obj;
}
/*
* Clear a new character.
*/
void clear_char( CHAR_DATA *ch )
{
static CHAR_DATA ch_zero;
*ch = ch_zero;
ch->name = &str_empty[0];
ch->short_descr = &str_empty[0];
ch->long_descr = &str_empty[0];
ch->description = &str_empty[0];
ch->lord = &str_empty[0];
ch->clan = &str_empty[0];
ch->morph = &str_empty[0];
ch->createtime = &str_empty[0];
ch->lasthost = &str_empty[0];
ch->lasttime = &str_empty[0];
ch->powertype = &str_empty[0];
ch->poweraction = &str_empty[0];
ch->pload = &str_empty[0];
ch->prompt = &str_empty[0];
ch->cprompt = &str_empty[0];
ch->hunting = &str_empty[0];
ch->logon = current_time;
ch->armor = 100;
ch->position = POS_STANDING;
ch->practice = 0;
ch->hit = 1000;
ch->max_hit = 1000;
ch->mana = 1000;
ch->max_mana = 1000;
ch->move = 1000;
ch->max_move = 1000;
ch->master = NULL;
ch->leader = NULL;
ch->fighting = NULL;
ch->mount = NULL;
ch->wizard = NULL;
ch->paradox[0] = 0;
ch->paradox[1] = 0;
ch->paradox[2] = 0;
ch->damcap[0] = 1000;
ch->damcap[1] = 0;
ch->saving_throw = 50;
return;
}
void free_quest args( ( QUEST_DATA *qq ) );
/*
* Free a character.
*/
void free_char( CHAR_DATA *ch, bool quiet )
{
OBJ_DATA *obj;
OBJ_DATA *obj_next;
AFFECT_DATA *paf;
AFFECT_DATA *paf_next;
/*
* This places the character in a place we know exists and allows for
* more controled removal of mud effects and such. Suggested by Erwin.
*/
ch->in_room = get_room_index( ROOM_VNUM_LIMBO );
for ( obj = ch->carrying; obj != NULL; obj = obj_next )
{
obj_next = obj->next_content;
if ( quiet )
extract_obj_quiet( obj );
else
extract_obj( obj );
}
for ( paf = ch->affected; paf != NULL; paf = paf_next )
{
paf_next = paf->next;
affect_remove( ch, paf );
}
free_string( ch->name );
free_string( ch->short_descr );
free_string( ch->long_descr );
free_string( ch->description );
free_string( ch->lord );
free_string( ch->clan );
free_string( ch->morph );
free_string( ch->createtime );
free_string( ch->lasttime );
free_string( ch->lasthost );
free_string( ch->powertype );
free_string( ch->poweraction );
free_string( ch->pload );
free_string( ch->prompt );
free_string( ch->cprompt );
free_string( ch->hunting );
if ( ch->pcdata != NULL )
{
if( ch->pcdata->aquest )
free_quest( ch->pcdata->aquest );
free_string( ch->pcdata->entermsg );
free_string( ch->pcdata->exitmsg );
free_string( ch->pcdata->pwd );
free_string( ch->pcdata->bamfin );
free_string( ch->pcdata->bamfout );
free_string( ch->pcdata->title );
free_string( ch->pcdata->conception );
free_string( ch->pcdata->parents );
free_string( ch->pcdata->cparents );
free_string( ch->pcdata->marriage );
free_string( ch->pcdata->email );
free_string( ch->pcdata->love );
ch->pcdata->next = pcdata_free;
pcdata_free = ch->pcdata;
}
ch->next = char_free;
char_free = ch;
return;
}
/*
* Get an extra description from a list.
*/
char *get_extra_descr( const char *name, EXTRA_DESCR_DATA *ed )
{
for ( ; ed != NULL; ed = ed->next )
{
if ( is_name( name, ed->keyword ) )
return ed->description;
}
return NULL;
}
MOB_INDEX_DATA *get_mob_index( int vnum )
{
MOB_INDEX_DATA *pMobIndex;
for ( pMobIndex = mob_index_hash[vnum % MAX_KEY_HASH];
pMobIndex != NULL;
pMobIndex = pMobIndex->next )
{
if ( pMobIndex->vnum == vnum )
return pMobIndex;
}
if ( fBootDb )
{
bug( "Get_mob_index: bad vnum %d.", vnum );
exit( 1 );
}
return NULL;
}
/*
* Translates mob virtual number to its obj index struct.
* Hash table lookup.
*/
OBJ_INDEX_DATA *get_obj_index( int vnum )
{
OBJ_INDEX_DATA *pObjIndex;
for ( pObjIndex = obj_index_hash[vnum % MAX_KEY_HASH];
pObjIndex != NULL;
pObjIndex = pObjIndex->next )
{
if ( pObjIndex->vnum == vnum )
return pObjIndex;
}
if ( fBootDb )
{
bug( "Get_obj_index: bad vnum %d.", vnum );
exit( 1 );
}
return NULL;
}
/*
* Translates mob virtual number to its room index struct.
* Hash table lookup.
*/
ROOM_INDEX_DATA *get_room_index( int vnum )
{
ROOM_INDEX_DATA *pRoomIndex;
for ( pRoomIndex = room_index_hash[vnum % MAX_KEY_HASH];
pRoomIndex != NULL;
pRoomIndex = pRoomIndex->next )
{
if ( pRoomIndex->vnum == vnum )
return pRoomIndex;
}
if ( fBootDb )
{
bug( "Get_room_index: bad vnum %d.", vnum );
exit( 1 );
}
return NULL;
}
/*
* Read a letter from a file.
*/
char fread_letter( FILE *fp )
{
char c;
do
{
if ( feof(fp) )
{
bugf("fread_letter: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
return '\0';
}
c = getc( fp );
}
while ( isspace(c) );
return c;
}
/*
* Read a number from a file.
*/
int fread_number( FILE *fp )
{
int number;
bool sign;
char c;
do
{
if ( feof(fp) )
{
bugf("fread_number: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
return 0;
}
c = getc( fp );
}
while ( isspace(c) );
number = 0;
sign = FALSE;
if ( c == '+' )
{
c = getc( fp );
}
else if ( c == '-' )
{
sign = TRUE;
c = getc( fp );
}
if ( !isdigit(c) )
{
bug( "Fread_number: bad format.", 0 );
exit( 1 );
}
while ( isdigit(c) )
{
number = number * 10 + c - '0';
c = getc( fp );
}
if ( sign )
number = 0 - number;
if ( c == '|' )
number += fread_number( fp );
else if ( c != ' ' )
ungetc( c, fp );
return number;
}
/*
* Read and allocate space for a string from a file.
* These strings are read-only and shared.
* Strings are hashed:
* each string prepended with hash pointer to prev string,
* hash code is simply the string length.
* This function takes 40% to 50% of boot-up time.
*/
char *fread_string( FILE *fp )
{
char buf [ MAX_STRING_LENGTH ];
char *plast;
char c;
int ln;
plast = buf;
buf[0] = '\0';
ln = 0;
plast = top_string + sizeof(char *);
if ( plast > &string_space[MAX_STRING - MAX_STRING_LENGTH] )
{
bug( "Fread_string: MAX_STRING %d exceeded.", MAX_STRING );
exit( 1 );
}
/*
* Skip blanks.
* Read first char.
*/
do
{
if ( feof(fp) )
{
bugf("fread_string: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
return &str_empty[0];
}
c = getc( fp );
}
while ( isspace(c) );
if ( ( *plast++ = c ) == '~' )
return &str_empty[0];
for ( ;; )
{
if ( ln >= (MAX_STRING_LENGTH - 1) )
{
bugf( "fread_string: string too long" );
*plast = '\0';
return strdup( buf );
}
switch ( *plast = getc( fp ) )
{
default:
plast++; ln++;
break;
case EOF:
bug( "Fread_string: EOF", 0 );
if ( fBootDb )
exit( 1 );
*plast = '\0';
return str_dup( buf );
break;
case '\n':
plast++; ln++;
*plast++ = '\r'; ln++;
break;
case '\r':
break;
case '~':
plast++;
{
union
{
char * pc;
char rgc[sizeof(char *)];
} u1;
int ic;
int iHash;
char *pHash;
char *pHashPrev;
char *pString;
plast[-1] = '\0';
iHash = UMIN( MAX_KEY_HASH - 1, plast - 1 - top_string );
for ( pHash = string_hash[iHash]; pHash; pHash = pHashPrev )
{
for ( ic = 0; ic < sizeof(char *); ic++ )
u1.rgc[ic] = pHash[ic];
pHashPrev = u1.pc;
pHash += sizeof(char *);
if ( top_string[sizeof(char *)] == pHash[0]
&& !strcmp( top_string+sizeof(char *)+1, pHash+1 ) )
return pHash;
}
if ( fBootDb )
{
pString = top_string;
top_string = plast;
u1.pc = string_hash[iHash];
for ( ic = 0; ic < sizeof(char *); ic++ )
pString[ic] = u1.rgc[ic];
string_hash[iHash] = pString;
nAllocString += 1;
sAllocString += top_string - pString;
return pString + sizeof(char *);
}
else
{
return str_dup( top_string + sizeof(char *) );
}
}
}
}
}
/*
* Read to end of line (for comments).
*/
void fread_to_eol( FILE *fp )
{
char c;
do
{
if ( feof(fp) )
{
bugf("fread_to_eol: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
return;
}
c = getc( fp );
}
while ( c != '\n' && c != '\r' );
do
{
c = getc( fp );
}
while ( c == '\n' || c == '\r' );
ungetc( c, fp );
return;
}
/*
* Read one word (into static buffer).
*/
char *fread_word( FILE *fp )
{
static char word[MAX_INPUT_LENGTH];
char *pword;
char cEnd;
do
{
if ( feof(fp) )
{
bugf("fread_word: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
word[0] = '\0';
return word;
}
cEnd = getc( fp );
}
while ( isspace( cEnd ) );
if ( cEnd == '\'' || cEnd == '"' )
{
pword = word;
}
else
{
word[0] = cEnd;
pword = word+1;
cEnd = ' ';
}
for ( ; pword < word + MAX_INPUT_LENGTH; pword++ )
{
if ( feof(fp) )
{
bugf("fread_word: EOF encountered on read.\n\r");
if ( fBootDb )
exit(1);
*pword = '\0';
return word;
}
*pword = getc( fp );
if ( cEnd == ' ' ? isspace(*pword) : *pword == cEnd )
{
if ( cEnd == ' ' )
ungetc( *pword, fp );
*pword = '\0';
return word;
}
}
bugf( "Fread_word: word too long.(%s)", pword);
exit( 1 );
return NULL;
}
/*
* Allocate some ordinary memory,
* with the expectation of freeing it someday.
*/
void *alloc_mem( int sMem )
{
void *pMem;
int iList;
for ( iList = 0; iList < MAX_MEM_LIST; iList++ )
{
if ( sMem <= rgSizeList[iList] )
break;
}
if ( iList == MAX_MEM_LIST )
{
bug( "Alloc_mem: size %d too large.", sMem );
exit( 1 );
}
if ( rgFreeList[iList] == NULL )
{
pMem = alloc_perm( rgSizeList[iList] );
}
else
{
pMem = rgFreeList[iList];
rgFreeList[iList] = * ((void **) rgFreeList[iList]);
}
return pMem;
}
/*
* Free some memory.
* Recycle it back onto the free list for blocks of that size.
*/
void free_mem( void *pMem, int sMem )
{
int iList;
for ( iList = 0; iList < MAX_MEM_LIST; iList++ )
{
if ( sMem <= rgSizeList[iList] )
break;
}
if ( iList == MAX_MEM_LIST )
{
bug( "Free_mem: size %d too large.", sMem );
exit( 1 );
}
* ((void **) pMem) = rgFreeList[iList];
rgFreeList[iList] = pMem;
return;
}
/*
* Allocate some permanent memory.
* Permanent memory is never freed,
* pointers into it may be copied safely.
*/
void *alloc_perm( int sMem )
{
static char *pMemPerm;
static int iMemPerm;
void *pMem;
while ( sMem % sizeof(long) != 0 )
sMem++;
if ( sMem > MAX_PERM_BLOCK )
{
bug( "Alloc_perm: %d too large.", sMem );
exit( 1 );
}
if ( pMemPerm == NULL || iMemPerm + sMem > MAX_PERM_BLOCK )
{
iMemPerm = 0;
if ( ( pMemPerm = calloc( 1, MAX_PERM_BLOCK ) ) == NULL )
{
perror( "Alloc_perm" );
exit( 1 );
}
}
pMem = pMemPerm + iMemPerm;
iMemPerm += sMem;
nAllocPerm += 1;
sAllocPerm += sMem;
return pMem;
}
/*
* Duplicate a string into dynamic memory.
* Fread_strings are read-only and shared.
*/
char *str_dup( const char *str )
{
char *str_new;
if ( str[0] == '\0' )
return &str_empty[0];
if ( str >= string_space && str < top_string )
return (char *) str;
str_new = alloc_mem( strlen(str) + 1 );
strcpy( str_new, str );
return str_new;
}
/*
* Free a string.
* Null is legal here to simplify callers.
* Read-only shared strings are not touched.
*/
void free_string( char *pstr )
{
if ( pstr == NULL
|| pstr == &str_empty[0]
|| ( pstr >= string_space && pstr < top_string ) )
return;
free_mem( pstr, strlen(pstr) + 1 );
return;
}
void do_areas( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
AREA_DATA *pArea1;
AREA_DATA *pArea2;
int iArea;
int iAreaHalf;
iAreaHalf = (top_area + 1) / 2;
pArea1 = area_first;
pArea2 = area_first;
for ( iArea = 0; iArea < iAreaHalf; iArea++ )
pArea2 = pArea2->next;
for ( iArea = 0; iArea < iAreaHalf; iArea++ )
{
sprintf( buf, "%-39.39s%-39.39s\n\r",
pArea1->name, (pArea2 != NULL) ? pArea2->name : "" );
send_to_char( buf, ch );
pArea1 = pArea1->next;
if ( pArea2 != NULL )
pArea2 = pArea2->next;
}
return;
}
void do_mobdeath( CHAR_DATA *ch, char *argument )
{
struct {
int number;
MOB_INDEX_DATA *pMob;
} deaths[10];
int iHash, i, j;
MOB_INDEX_DATA *pMob;
for( i = 0; i < 10; i++ )
deaths[i].number = -1;
for( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
{
for( pMob = mob_index_hash[iHash];
pMob; pMob = pMob->next )
{
for( i = 0; i < 10; i++ )
{
if( pMob->killed > deaths[i].number )
break;
}
for( j = 9; j > i; j-- )
{
deaths[j].number = deaths[j-1].number;
deaths[j].pMob = deaths[j-1].pMob;
}
if( i < 10 )
{
if( deaths[i].pMob
&& deaths[i].pMob->area == pMob->area )
continue;
deaths[i].pMob = pMob;
deaths[i].number = pMob->killed;
}
}
}
send_to_char( "{gMost frequently killed mobiles since startup:\n\r", ch );
for( i = 0; i < 5; i++ )
{
if( deaths[i].number <= 0 )
break;
ch_printf(
ch, "{y%s {b[{r%3d{b]",
capitalize ( deaths[i].pMob->short_descr ),
deaths[i].number );
if( deaths[i+5].number > 0 )
ch_printf(
ch, " | {y%s {b[{r%3d{b]{n\n\r",
capitalize( deaths[i+5].pMob->short_descr ),
deaths[i+5].number );
else
send_to_char( "{n\n\r", ch );
}
return;
}
void do_memory( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
sprintf( buf, "Affects %5d\n\r", top_affect ); send_to_char( buf, ch );
sprintf( buf, "Areas %5d\n\r", top_area ); send_to_char( buf, ch );
sprintf( buf, "RmTxt %5d\n\r", top_rt ); send_to_char( buf, ch );
sprintf( buf, "ExDes %5d\n\r", top_ed ); send_to_char( buf, ch );
sprintf( buf, "Exits %5d\n\r", top_exit ); send_to_char( buf, ch );
sprintf( buf, "Helps %5d\n\r", top_help ); send_to_char( buf, ch );
sprintf( buf, "Mobs %5d\n\r", top_mob_index ); send_to_char( buf, ch );
sprintf( buf, "Objs %5d\n\r", top_obj_index ); send_to_char( buf, ch );
sprintf( buf, "Resets %5d\n\r", top_reset ); send_to_char( buf, ch );
sprintf( buf, "Rooms %5d\n\r", top_room ); send_to_char( buf, ch );
sprintf( buf, "Shops %5d\n\r", top_shop ); send_to_char( buf, ch );
sprintf( buf, "Strings %5d strings of %7d bytes (max %d).\n\r",
nAllocString, sAllocString, MAX_STRING );
send_to_char( buf, ch );
sprintf( buf, "Perms %5d blocks of %7d bytes.\n\r",
nAllocPerm, sAllocPerm );
send_to_char( buf, ch );
return;
}
/*
* Stick a little fuzz on a number.
*/
int number_fuzzy( int number )
{
switch ( number_bits( 2 ) )
{
case 0: number -= 1; break;
case 3: number += 1; break;
}
return UMAX( 1, number );
}
/*
* Generate a random number.
*/
int number_range( int from, int to )
{
int power;
int number;
if ( ( to = to - from + 1 ) <= 1 )
return from;
for ( power = 2; power < to; power <<= 1 )
;
while ( ( number = number_mm( ) & (power - 1) ) >= to )
;
return from + number;
}
/*
* Generate a percentile roll.
*/
int number_percent( void )
{
int percent;
while ( ( percent = number_mm( ) & (128-1) ) > 99 )
;
return 1 + percent;
}
/*
* Generate a random door.
*/
int number_door( void )
{
int door;
while ( ( door = number_mm( ) & (8-1) ) > 5 )
;
return door;
}
int number_bits( int width )
{
return number_mm( ) & ( ( 1 << width ) - 1 );
}
/*
* I've gotten too many bad reports on OS-supplied random number generators.
* This is the Mitchell-Moore algorithm from Knuth Volume II.
* Best to leave the constants alone unless you've read Knuth.
* -- Furey
*/
static int rgiState[2+55];
void init_mm( )
{
int *piState;
int iState;
piState = &rgiState[2];
piState[-2] = 55 - 55;
piState[-1] = 55 - 24;
piState[0] = ((int) current_time) & ((1 << 30) - 1);
piState[1] = 1;
for ( iState = 2; iState < 55; iState++ )
{
piState[iState] = (piState[iState-1] + piState[iState-2])
& ((1 << 30) - 1);
}
return;
}
int number_mm( void )
{
int *piState;
int iState1;
int iState2;
int iRand;
piState = &rgiState[2];
iState1 = piState[-2];
iState2 = piState[-1];
iRand = (piState[iState1] + piState[iState2])
& ((1 << 30) - 1);
piState[iState1] = iRand;
if ( ++iState1 == 55 )
iState1 = 0;
if ( ++iState2 == 55 )
iState2 = 0;
piState[-2] = iState1;
piState[-1] = iState2;
return iRand >> 6;
}
/*
* Roll some dice.
*/
int dice( int number, int size )
{
int idice;
int sum;
switch ( size )
{
case 0: return 0;
case 1: return number;
}
for ( idice = 0, sum = 0; idice < number; idice++ )
sum += number_range( 1, size );
return sum;
}
/*
* Simple linear interpolation.
*/
int interpolate( int level, int value_00, int value_32 )
{
return value_00 + level * (value_32 - value_00) / 32;
}
/*
* Removes the tildes from a string.
* Used for player-entered strings that go into disk files.
*/
void smash_tilde( char *str )
{
for ( ; *str != '\0'; str++ )
{
if ( *str == '~' )
*str = '-';
}
return;
}
/*
* Compare strings, case insensitive.
* Return TRUE if different
* (compatibility with historical functions).
*/
bool str_cmp( const char *astr, const char *bstr )
{
if ( astr == NULL )
{
bug( "Str_cmp: null astr.", 0 );
return TRUE;
}
if ( bstr == NULL )
{
bug( "Str_cmp: null bstr.", 0 );
return TRUE;
}
for ( ; *astr || *bstr; astr++, bstr++ )
{
if ( LOWER(*astr) != LOWER(*bstr) )
return TRUE;
}
return FALSE;
}
/*
* Compare strings, case insensitive, for prefix matching.
* Return TRUE if astr not a prefix of bstr
* (compatibility with historical functions).
*/
bool str_prefix( const char *astr, const char *bstr )
{
if ( astr == NULL )
{
bug( "Strn_cmp: null astr.", 0 );
return TRUE;
}
if ( bstr == NULL )
{
bug( "Strn_cmp: null bstr.", 0 );
return TRUE;
}
for ( ; *astr; astr++, bstr++ )
{
if ( LOWER(*astr) != LOWER(*bstr) )
return TRUE;
}
return FALSE;
}
/*
* Compare strings, case insensitive, for match anywhere.
* Returns TRUE is astr not part of bstr.
* (compatibility with historical functions).
*/
bool str_infix( const char *astr, const char *bstr )
{
int sstr1;
int sstr2;
int ichar;
char c0;
if ( ( c0 = LOWER(astr[0]) ) == '\0' )
return FALSE;
sstr1 = strlen(astr);
sstr2 = strlen(bstr);
for ( ichar = 0; ichar <= sstr2 - sstr1; ichar++ )
{
if ( c0 == LOWER(bstr[ichar]) && !str_prefix( astr, bstr + ichar ) )
return FALSE;
}
return TRUE;
}
/*
* Compare strings, case insensitive, for suffix matching.
* Return TRUE if astr not a suffix of bstr
* (compatibility with historical functions).
*/
bool str_suffix( const char *astr, const char *bstr )
{
int sstr1;
int sstr2;
sstr1 = strlen(astr);
sstr2 = strlen(bstr);
if ( sstr1 <= sstr2 && !str_cmp( astr, bstr + sstr2 - sstr1 ) )
return FALSE;
else
return TRUE;
}
/*
* Returns an initial-capped string.
*/
char *capitalize( const char *str )
{
static char strcap[MAX_STRING_LENGTH];
int i;
strcap[0] = str[0];
for ( i = 1; str[i] != '\0'; i++ )
if( str[i-1] != '{' )
strcap[i] = LOWER(str[i]);
else
strcap[i] = str[i];
strcap[i] = '\0';
i = 0;
while( strcap[i] == '{' ) /* colour codes at the start are ignored */
i += 2;
strcap[0] = UPPER(strcap[0]);
return strcap;
}
char *all_capitalize( const char *str )
{
static char strcap[MAX_STRING_LENGTH];
int i;
for ( i = 0; str[i] != '\0'; i++ )
strcap[i] = UPPER(str[i]);
strcap[i] = '\0';
return strcap;
}
/*
* Append a string to a file.
*/
void append_file( CHAR_DATA *ch, char *file, char *str )
{
FILE *fp;
if ( IS_NPC(ch) || str[0] == '\0' )
return;
fclose( fpReserve );
if ( ( fp = fopen( file, "a" ) ) == NULL )
{
perror( file );
send_to_char( "Could not open the file!\n\r", ch );
}
else
{
fprintf( fp, "[%5d] %s: %s\n",
ch->in_room ? ch->in_room->vnum : 0, ch->name, str );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
/*
* Reports a bug.
*/
void bug( const char *str, int param )
{
char buf[MAX_STRING_LENGTH];
FILE *fp;
if ( fpArea != NULL )
{
int iLine;
int iChar;
if ( fpArea == stdin )
{
iLine = 0;
}
else
{
iChar = ftell( fpArea );
fseek( fpArea, 0, 0 );
for ( iLine = 0; ftell( fpArea ) < iChar; iLine++ )
{
while ( getc( fpArea ) != '\n' )
;
}
fseek( fpArea, iChar, 0 );
}
sprintf( buf, "[*****] FILE: %s LINE: %d", strArea, iLine );
log_string( buf );
if ( ( fp = fopen( "shutdown.txt", "a" ) ) != NULL )
{
fprintf( fp, "[*****] %s\n", buf );
fclose( fp );
}
}
strcpy( buf, "[*****] BUG: " );
sprintf( buf + strlen(buf), str, param );
log_string( buf );
fclose( fpReserve );
if ( ( fp = fopen( BUG_FILE, "a" ) ) != NULL )
{
fprintf( fp, "%s\n", buf );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
/*
* Writes to a specified log file
*/
void logl( const char * file, const char *str )
{
char buf[MAX_STRING_LENGTH];
FILE *fp;
sprintf( buf, "[%s] : ", file );
strcat( buf, str );
log_string( buf );
fclose( fpReserve );
if ( ( fp = fopen( file, "a" ) ) != NULL )
{
fprintf( fp, "%s\n", buf );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
void logfl( const char *fname, char * fmt, ... )
{
char buf [ MAX_STRING_LENGTH ];
va_list args;
va_start ( args, fmt );
vsprintf ( buf, fmt, args );
va_end ( args );
logl( fname, buf );
return;
}
/*
* Writes a string to the log.
*/
/*
void log_string( const char *str )
{
char *strtime;
char logout [MAX_STRING_LENGTH];
strtime = ctime( ¤t_time );
strtime[strlen(strtime)-1] = '\0';
fprintf( stderr, "%s :: %s\n", strtime, str );
strcpy ( logout, str );
logchan( logout );
return;
}
*/
/*
void log_string_special( const char *str, const char *name)
{
char *strtime;
char logout [MAX_STRING_LENGTH];
char logname [MAX_STRING_LENGTH];
strtime = ctime( ¤t_time );
strtime[strlen(strtime)-1] = '\0';
fprintf(stderr, "%s :: %s\n", strtime, str );
strcpy( logout, str);
strcpy( logname, name);
logspecchan( logout , logname);
return;
}
*/
void log_string( const char *str )
{
char *strtime;
char logout [MAX_STRING_LENGTH];
strtime = ctime( ¤t_time );
strtime[strlen(strtime)-1] = '\0';
fprintf( stderr, "%s :: %s\n", strtime, str );
strcpy ( logout, str );
logchan( logout );
return;
}
void bugf( char *fmt, ... )
{
char buf [ MAX_STRING_LENGTH ];
va_list args;
va_start ( args, fmt );
vsprintf ( buf, fmt, args );
va_end ( args );
bug( buf, 0 );
return;
}
void logf ( CHAR_DATA *ch, char *fmt, ... )
{
char buf [ MAX_STRING_LENGTH ];
va_list args;
va_start ( args, fmt );
vsprintf ( buf, fmt, args );
va_end ( args );
log_string( buf );
return;
}
/*
* This function is here to aid in debugging.
* If the last expression in a function is another function call,
* gcc likes to generate a JMP instead of a CALL.
* This is called "tail chaining."
* It hoses the debugger call stack for that call.
* So I make this the last call in certain critical functions,
* where I really need the call stack to be right for debugging!
*
* If you don't understand this, then LEAVE IT ALONE.
* Don't remove any calls to tail_chain anywhere.
*
* -- Furey
*/
void tail_chain( void )
{
return;
}
#define ED EXTRA_DESCR_DATA
RESET_DATA *new_reset_data args ( ( void ) );
void free_reset_data args ( ( RESET_DATA *pReset ) );
AREA_DATA *new_area args ( ( void ) );
void free_area args ( ( AREA_DATA *pArea ) );
EXIT_DATA *new_exit args ( ( void ) );
ED *new_extra_descr args ( ( void ) );
void free_extra_descr args ( ( ED *pExtra ) );
ROOM_INDEX_DATA *new_room_index args ( ( void ) );
void free_room_index args ( ( ROOM_INDEX_DATA *pRoom ));
AFFECT_DATA *new_affect args ( ( void ) );
void free_affect args ( ( AFFECT_DATA* pAf ) );
SHOP_DATA *new_shop args ( ( void ) );
void free_shop args ( ( SHOP_DATA *pShop ) );
OBJ_INDEX_DATA *new_obj_index args ( ( void ) );
void free_obj_index args ( ( OBJ_INDEX_DATA *pObj ) );
MOB_INDEX_DATA *new_mob_index args ( ( void ) );
void free_mob_index args ( ( MOB_INDEX_DATA *pMob ) );
#undef ED
void fread_shop( FILE *fp, MOB_INDEX_DATA *pMobIndex )
{
SHOP_DATA *pShop;
char *word;
bool fMatch;
int iTrade;
pShop = new_shop( );
for ( ; ; )
{
word = feof( fp ) ? "EndShop" : fread_word( fp );
fMatch = FALSE;
switch( UPPER(word[0]) )
{
case 'P':
if ( !str_cmp( word, "P" ) )
{
pShop->profit_buy = fread_number( fp );
pShop->profit_sell = fread_number( fp );
fMatch = TRUE;
}
break;
case 'T':
if ( !str_cmp( word, "T" ) )
{
iTrade = fread_number( fp );
if( iTrade < 0 || iTrade >= MAX_TRADE )
{
bugf( "Invalid trade number: (%d)", iTrade );
exit(1);
}
pShop->buy_type[iTrade] = fread_number( fp );
fMatch = TRUE;
}
break;
case 'H':
if ( !str_cmp( word, "H" ) )
{
pShop->open_hour = fread_number( fp );
pShop->close_hour = fread_number( fp );
fMatch = TRUE;
}
break;
case 'E':
if ( !str_cmp( word, "EndShop" ) )
{
pMobIndex->pShop = pShop;
pShop->keeper = pMobIndex->vnum;
if ( shop_first == NULL )
shop_first = pShop;
if ( shop_last != NULL )
shop_last->next = pShop;
shop_last = pShop;
pShop->next = NULL;
return;
}
if ( !str_cmp( word, "End" ) )
{
bug( "Fread_shop: incomplete shop %d", pMobIndex->vnum );
free_shop( pShop );
pMobIndex->pShop = NULL;
return;
}
break;
}
if ( !fMatch )
{
char buf[80];
sprintf( buf, "Fread_shop: incorrect word %s (%%d)", word );
bug( buf, pMobIndex->vnum );
fread_to_eol( fp );
}
}
return;
}
/*
* Load a single mobile declaration.
*/
void fread_mobile( FILE *fp, int vnum )
{
MOB_INDEX_DATA *pMobIndex;
char *word;
bool fMatch;
int iHash;
pMobIndex = new_mob_index( );
pMobIndex->vnum = vnum;
pMobIndex->area = area_last;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case '*': fread_to_eol( fp ); break;
case 'E':
if ( !str_cmp( word, "End" ) )
{
iHash = vnum % MAX_KEY_HASH;
pMobIndex->next = mob_index_hash[iHash];
mob_index_hash[iHash] = pMobIndex;
kill_table[URANGE(0, pMobIndex->level, MAX_LEVEL-1)].number++;
return;
}
break;
case 'A':
KEY( "A", pMobIndex->act, fread_number( fp ) );
KEY( "Af", pMobIndex->affected_by, fread_number( fp ) );
KEY( "Al", pMobIndex->alignment, fread_number( fp ) );
break;
case 'G':
KEY( "G", pMobIndex->gold, fread_number(fp));
break;
case 'N':
SKEY( "N", pMobIndex->player_name );
break;
case 'S':
KEY( "Sx", pMobIndex->sex, fread_number( fp ) );
SKEY( "S", pMobIndex->short_descr );
if ( !str_cmp( word, "Shop" ) )
{
fread_shop( fp, pMobIndex );
fMatch = TRUE;
}
if ( !str_cmp( word, "Sp" ) )
{
pMobIndex->spec_fun = spec_lookup( fread_word( fp ) );
fMatch = TRUE;
}
break;
case 'L':
SKEY( "L", pMobIndex->long_descr );
KEY("Lv", pMobIndex->level, fread_number(fp) );
break;
case 'D':
SKEY( "D", pMobIndex->description );
break;
}
if ( !fMatch )
{
char buf[80];
sprintf( buf, "fread_mobile: %d incorrect: %s",
vnum, word );
bug( buf, 0 );
fread_to_eol( fp );
}
}
return;
}
/*
* Snarf a mob section.
*/
void load_admob( FILE *fp )
{
if ( area_last == NULL )
{
bug( "Load_mobiles: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
int vnum;
char letter;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_mobiles: '#' not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum <= 0 )
break;
fBootDb = FALSE;
if ( get_mob_index( vnum ) != NULL )
{
bug( "Load_mobiles: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
fread_mobile( fp, vnum );
top_vnum_mob = top_vnum_mob < vnum ? vnum : top_vnum_mob;
assign_area_vnum( vnum ); /* OLC */
}
return;
}
void fix_object( OBJ_INDEX_DATA *pObjIndex )
{
fBootDb = FALSE;
/*
* Translate spell "slot numbers" to internal "skill numbers."
*/
switch ( pObjIndex->item_type )
{
case ITEM_PILL:
case ITEM_POTION:
case ITEM_SCROLL:
pObjIndex->value[1] = slot_lookup( pObjIndex->value[1] );
pObjIndex->value[2] = slot_lookup( pObjIndex->value[2] );
pObjIndex->value[3] = slot_lookup( pObjIndex->value[3] );
break;
case ITEM_STAFF:
case ITEM_WAND:
pObjIndex->value[3] = slot_lookup( pObjIndex->value[3] );
break;
}
fBootDb = TRUE;
return;
}
void fread_object( FILE *fp, int vnum )
{
OBJ_INDEX_DATA *pObjIndex;
int iHash;
char *word;
bool fMatch;
pObjIndex = new_obj_index( );
pObjIndex->vnum = vnum;
pObjIndex->area = area_last;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case '*': fread_to_eol( fp ); break;
case 'E':
KEY( "E", pObjIndex->extra_flags, fread_number( fp ) );
if ( !str_cmp( word, "ED" ) )
{
EXTRA_DESCR_DATA *ed;
ed = new_extra_descr( );
ed->keyword = fread_string( fp );
ed->description = fread_string( fp );
ed->next = pObjIndex->extra_descr;
pObjIndex->extra_descr = ed;
fMatch = TRUE;
}
if ( !str_cmp( word, "End" ) )
{
iHash = vnum % MAX_KEY_HASH;
pObjIndex->next = obj_index_hash[iHash];
obj_index_hash[iHash] = pObjIndex;
fix_object( pObjIndex );
return;
}
break;
case 'A':
if ( !str_cmp( word, "A" ) )
{
AFFECT_DATA *paf;
paf = new_affect( );
paf->location = fread_number( fp );
paf->modifier = fread_number( fp );
paf->type = -1;
paf->duration = -1;
paf->bitvector = 0;
paf->next = pObjIndex->affected;
pObjIndex->affected = paf;
fMatch = TRUE;
}
break;
case 'D':
SKEY( "D", pObjIndex->description );
break;
case 'T':
KEY( "T", pObjIndex->item_type, fread_number( fp ));
break;
case 'N':
SKEY( "N", pObjIndex->name );
break;
case 'S':
SKEY( "S", pObjIndex->short_descr );
break;
case 'W':
KEY( "W", pObjIndex->wear_flags, fread_number( fp ) );
KEY( "Wg", pObjIndex->weight, fread_number( fp ) );
break;
case 'Q':
KEY( "Qf", pObjIndex->quest, fread_number( fp ) );
if( !str_cmp( word, "Q" ) )
{
fMatch = TRUE;
pObjIndex->chpoweron = fread_string( fp );
pObjIndex->chpoweroff = fread_string( fp );
pObjIndex->chpoweruse = fread_string( fp );
pObjIndex->victpoweron = fread_string( fp );
pObjIndex->victpoweroff = fread_string( fp );
pObjIndex->victpoweruse = fread_string( fp );
pObjIndex->spectype = fread_number( fp );
pObjIndex->specpower = fread_number( fp );
break;
}
break;
case 'V':
if ( !str_cmp( word, "V" ) )
{
int val;
fMatch = TRUE;
val = fread_number( fp );
if( val < 0 || val > MAX_OVALUE )
{
bugf("Bad value (%d) on object %d.", val, vnum );
fread_number( fp );
break;
}
pObjIndex->value[val] = fread_number( fp );
}
break;
case 'C':
KEY( "C", pObjIndex->cost, fread_number( fp ) );
break;
}
if ( !fMatch )
{
char buf [MAX_STRING_LENGTH];
sprintf( buf, "fread_object: vnum %d incorrect: '%s'",
vnum, word );
bug( buf, 0 );
fread_to_eol( fp );
}
}
return;
}
/*
* Snarf an obj section.
*/
void load_adobj( FILE *fp )
{
if ( area_last == NULL )
{
bug( "Load_objects: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
int vnum;
char letter;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_objects: # not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum == 0 )
break;
fBootDb = FALSE;
if ( get_obj_index( vnum ) != NULL )
{
bug( "Load_objects: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
fread_object( fp, vnum );
top_vnum_obj = top_vnum_obj < vnum ? vnum : top_vnum_obj;
assign_area_vnum( vnum ); /* OLC */
}
return;
}
void fread_room( FILE *fp, int vnum )
{
ROOM_INDEX_DATA *pRoomIndex;
int iHash;
int door;
char *word;
bool fMatch;
pRoomIndex = new_room_index( );
pRoomIndex->area = area_last;
pRoomIndex->vnum = vnum;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case '*': fread_to_eol( fp ); break;
case 'E':
if ( !str_cmp( word, "End" ) )
{
if( pRoomIndex->sector_type < 0
|| pRoomIndex->sector_type >= SECT_MAX )
pRoomIndex->sector_type = 0;
iHash = vnum % MAX_KEY_HASH;
pRoomIndex->next = room_index_hash[iHash];
room_index_hash[iHash] = pRoomIndex;
return;
}
if ( !str_cmp( word, "ED" ) )
{
EXTRA_DESCR_DATA *ed;
ed = new_extra_descr( );
ed->keyword = fread_string( fp );
ed->description = fread_string( fp );
ed->next = pRoomIndex->extra_descr;
pRoomIndex->extra_descr = ed;
fMatch = TRUE;
}
break;
case 'R':
if ( !str_cmp( word, "R" ) )
{
RESET_DATA *pReset;
pReset = new_reset_data( );
pReset->command = fread_letter( fp );
pReset->arg1 = fread_number( fp );
pReset->arg2 = fread_number( fp );
pReset->arg3 = fread_number( fp );
fread_to_eol( fp );
if ( pReset->command != 'D' )
new_reset( pRoomIndex, pReset );
else
free_reset_data( pReset );
fMatch = TRUE;
}
break;
case 'D':
SKEY( "D", pRoomIndex->description );
if ( !str_cmp( word, "Dr" ) )
{
EXIT_DATA *pexit;
door = fread_number( fp );
if ( door < 0 || door >= MAX_DIR )
{
bug( "Fread_rooms: vnum %d has bad door number.", vnum);
exit( 1 );
}
pexit = new_exit( );
pexit->rs_flags = fread_number( fp );
pexit->key = fread_number( fp );
pexit->vnum = fread_number( fp );
pexit->description = fread_string( fp );
pexit->keyword = fread_string( fp );
pRoomIndex->exit[door] = pexit;
fMatch = TRUE;
}
break;
case 'N':
SKEY( "N", pRoomIndex->name );
break;
case 'F':
KEY( "F", pRoomIndex->room_flags, fread_number( fp ) );
break;
case 'S':
KEY( "S", pRoomIndex->sector_type, fread_number( fp ) );
break;
case 'T':
if( !str_cmp( word, "T" ) )
{
ROOMTEXT_DATA *rt;
rt = alloc_perm( sizeof(*rt) );
rt->input = fread_string( fp );
rt->output = fread_string( fp );
rt->choutput = fread_string( fp );
rt->name = fread_string( fp );
rt->type = fread_number( fp );
rt->power = fread_number( fp );
rt->mob = fread_number( fp );
rt->next = pRoomIndex->roomtext;
pRoomIndex->roomtext = rt;
top_rt++;
fMatch = TRUE;
break;
}
break;
}
if ( !fMatch )
{
char buf[80];
sprintf( buf, "fread_rooms: incorrect titler %s on v%d",
word, vnum );
bug( buf, 0 );
fread_to_eol( fp );
}
};
}
/*
* Snarf a room section.
*/
void load_adroom( FILE *fp )
{
if ( area_last == NULL )
{
bug( "Load_rooms: no #AREA seen yet.", 0 );
exit( 1 );
}
for ( ; ; )
{
int vnum;
char letter;
letter = fread_letter( fp );
if ( letter != '#' )
{
bug( "Load_rooms: # not found.", 0 );
exit( 1 );
}
vnum = fread_number( fp );
if ( vnum == 0 )
break;
fBootDb = FALSE;
if ( get_room_index( vnum ) != NULL )
{
bug( "Load_rooms: vnum %d duplicated.", vnum );
exit( 1 );
}
fBootDb = TRUE;
fread_room( fp, vnum );
top_vnum_room = top_vnum_room < vnum ? vnum : top_vnum_room;
}
return;
}
void load_projects( void ) /* Copied load_boards structure for simplicity
*/
{
FILE *fp;
char buf [ MAX_STRING_LENGTH ];
PROJECT_DATA *proj;
first_project = NULL;
last_project = NULL;
sprintf( buf, "%s%s", DATA_DIR, PROJECTS_FILE );
if( ( fp = fopen( buf, "r" ) ) == NULL )
return;
while( (proj = read_project( fp ) ) )
{
LINK( proj, first_project, last_project, next, prev );
}
return;
}
NOTE_DATA * read_log( FILE *fp )
{
NOTE_DATA * log;
char * word;
log = alloc_mem( sizeof( NOTE_DATA ) );
for ( ; ; )
{
word = fread_word( fp );
if ( !str_cmp( word, "Sender" ) )
log->sender = fread_string( fp );
else if ( !str_cmp( word, "Date" ) )
log->date = fread_string( fp );
else if ( !str_cmp( word, "Subject" ) )
log->subject = fread_string( fp );
else if ( !str_cmp( word, "Text" ) )
log->text = fread_string( fp );
else if ( !str_cmp( word, "Endlog" ) )
{
fread_to_eol( fp );
log->next = NULL;
return log;
}
else
{
free_mem( log, sizeof( NOTE_DATA ) );
bug( "read_log: bad key word.", 0 );
return NULL;
}
}
}
PROJECT_DATA * read_project( FILE *fp )
{
PROJECT_DATA *project;
NOTE_DATA *log, *tlog;
char *word;
char buf [MSL];
bool fMatch;
char letter;
do
{
letter = getc( fp );
if( feof(fp) )
{
fclose( fp );
return NULL;
}
}
while( isspace(letter) )
;
ungetc( letter, fp );
project = alloc_mem( sizeof( PROJECT_DATA ) );
project->first_log = NULL;
project->next = NULL;
project->coder = NULL;
project->description = str_dup("");
project->name = str_dup( "" );
project->owner = str_dup( "" );
project->date = str_dup( "Not Set?!");
project->status = str_dup( "No update." );
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case '*':
fMatch = TRUE;
fread_to_eol( fp );
break;
case 'C':
SKEY("Coder", project->coder );
break;
case 'D':
if (!str_cmp(word, "Date") )
free_string(project->date);
else if ( !str_cmp(word, "Description") )
free_string(project->description);
KEY("Date", project->date,fread_string( fp ));
KEY("Description",project->description,fread_string(fp));
break;
case 'E':
if ( !str_cmp( word, "End" ) )
{
if ( !project->description )
project->description = str_dup( "" );
if ( !project->name )
project->name = str_dup( "" );
if ( !project->owner )
project->owner = str_dup( "" );
if ( !project->date )
project->date = str_dup( "Not Set?!" );
if ( !project->status )
project->status = str_dup( "No update." );
if ( str_cmp(project->owner, "None") )
project->taken = TRUE;
return project;
}
break;
case 'L':
if( !str_cmp( word, "Log" ) )
{
fread_to_eol( fp );
log = read_log( fp );
if( !log )
{
sprintf( buf, "read_project: couldn't read log,aborting");
bug( buf, 0 );
exit( 1 );
}
if(!log->sender)
log->sender = str_dup( "" );
if(!log->date)
log->date = str_dup( "" );
if(!log->subject)
log->subject = str_dup( "None" );
log->to_list = str_dup( "" );
if( !project->first_log )
project->first_log = log;
else
{
log->next = project->first_log;
project->first_log = log;
}
fMatch = TRUE;
break;
}
break;
case 'N':
if ( !str_cmp(word, "Name") )
free_string(project->name );
SKEY( "Name", project->name );
break;
case 'O':
if ( !str_cmp(word, "Owner") )
free_string(project->owner);
KEY( "Owner", project->owner,fread_string( fp ) );
break;
case 'S':
if ( !str_cmp(word, "Status") )
free_string(project->status);
KEY( "Status", project->status,fread_string( fp ) );
break;
}
if ( !fMatch )
{
sprintf( buf, "read_project: no match: %s", word );
bug( buf, 0 );
}
}
for( log = project->first_log; log; log = tlog )
{
tlog = log->next;
free_string( log->text );
free_string( log->subject );
free_string( log->to_list );
free_string( log->date );
free_string( log->sender );
log->next = note_free;
note_free = log;
}
project->first_log =NULL;
if ( project->coder )
free_string( project->coder );
if ( project->description )
free_string( project->description );
if ( project->name )
free_string( project->name );
if ( project->owner )
free_string( project->owner );
if ( project->date )
free_string( project->date );
if ( project->status )
free_string( project->status );
free_mem( project, sizeof( PROJECT_DATA ) );
return project;
}
void write_projects()
{
PROJECT_DATA *project;
NOTE_DATA *log;
FILE *fpout;
char filename[MAX_INPUT_LENGTH];
sprintf( filename, "%s%s", DATA_DIR,PROJECTS_FILE );
fpout = fopen( filename, "w" );
if ( !fpout )
{
bug( "FATAL: cannot open projects.txt for writing!\n\r", 0 );
return;
}
for ( project = first_project; project; project = project->next )
{
fprintf( fpout, "Name %s~\n", project->name );
fprintf( fpout, "Owner %s~\n", (project->owner) ?
project->owner : "None" );
if ( project->coder )
fprintf( fpout, "Coder %s~\n", project->coder );
fprintf( fpout, "Status %s~\n", (project->status) ?
project->status : "No update." );
fprintf( fpout, "Date %s~\n", (project->date) ?
project->date : "Not Set?!?" );
if ( project->description )
fprintf( fpout, "Description %s~\n",
strip_cr(project->description) );
if( project->first_log )
for( log = project->first_log; log; log = log->next )
fprintf( fpout, "Log\n"
"Sender %s~\n"
"Date %s~\n"
"Subject %s~\n"
"Text %s~\n"
"Endlog\n",
log->sender,
log->date,
log->subject,
log->text
);
fprintf( fpout, "End\n" );
}
fclose( fpout );
}
/*
* Randomized strings.
* Works sorta like the act function. Builders use
* $C -- Fine colors
* $c -- Colors
* $l -- cloth
* $G -- Gem insert
* $m -- ok metals
* $M -- VERY good metals
*
* -- Dreimas.
*/
#define MAX_COLOR_LIST 20
#define MAX_FINE_COLOR_LIST 42
#define MAX_CLOTH_LIST 8
#define MAX_GEM_LIST 111
#define MAX_METAL 8
#define MAX_METAL_GOOD 9
char * const metal_list_good[MAX_METAL_GOOD] =
{
"callidore",
"vultite",
"adamantium",
"armardian",
"mithril",
"miconium",
"avantium",
"arnok",
"tsichik"
};
char * const metal_list [MAX_METAL] =
{
"iron",
"bronze",
"copper",
"tin",
"steal",
"gold",
"platinum",
"silver"
};
char * const color_list [MAX_COLOR_LIST] =
{
"red", "blue",
"black", "turquoise",
"aquamarine", "yellow",
"indigo", "purple",
"magenta", "lavender",
"green", "white",
"ochre", "orange",
"violet", "maroon",
"mauve", "brown",
"tan", "grey" /* 20 */
};
char * const fine_color_list [MAX_FINE_COLOR_LIST] =
{
"red", "ruby-red", "blue", "sky-blue",
"black", "jet-black", "turquoise", "cyan",
"aquamarine", "blue-green", "yellow", "canary yellow",
"indigo", "dark blue", "purple", "chrome-purple",
"magenta", "steel-grey", "lavender", "blood-red",
"green", "olive drab", "white", "ghost-white",
"ochre", "burnt-ochre", "orange","leaf-green",
"violet", "orange-sienna", "maroon", "milky-white",
"mauve", "faded brown", "brown", "sienna-brown",
"tan", "ivy-green", "grey", "slate-grey",
"cobalt-blue", "forest-green",
};
char * const cloth_list [MAX_CLOTH_LIST] =
{
"satin",
"linen",
"silk",
"cloth",
"wool",
"cotton",
"burlap",
"patchcloth" /* 7 */
};
int const cloth_list_inc [MAX_CLOTH_LIST] =
{
150,
120,
200,
100,
110,
100,
20,
50
};
const struct gem_list_type gem_list[MAX_GEM_LIST] =
{ /* Name Plural */
{ "blue diamond", NULL },
{ "black diamond", NULL },
{ "red corundum", NULL },
{ "ruby", "rubies" },
{ "auburn diamond", NULL },
{ "clear diamond", NULL },
{ "crimson topaz", "crimson topaz" },
{ "blue sapphire", NULL },
{ "clear sapphire", NULL },
{ "yellow sapphire", NULL },
{ "green sapphire", NULL },
{ "grass-green emerald", NULL },
{ "flawed clear diamond", NULL },
{ "flawed pink topaz", "ink topaz" },
{ "gold-flecked lapis lazuli", NULL },
{ "fire opal", NULL },
{ "blue lapis lazuli", NULL },
{ "black ceylonite", NULL },
{ "golden beryl", NULL },
{ "pink beryl", NULL },
{ "colorless topaz", "colorless topaz" },
{ "yellow topaz", "yellow topaz" },
{ "blue topaz", "blue topaz" },
{ "blood spinel", NULL },
{ "star ruby", "star rubies" },
{ "pale aquamarine", NULL },
{ "red spinel", NULL },
{ "indigo spinel", NULL },
{ "violet spinel", NULL },
{ "black opal", NULL },
{ "bright green demantoid garnet",NULL },
{ "fire sphene", NULL },
{ "earthen andradite", NULL },
{ "gray-blue spinel", NULL },
{ "sea-green spinel", NULL },
{ "purple-red almandine garnet", NULL },
{ "cymophane cats-eye", NULL },
{ "brown jadeite", NULL },
{ "green sphene", NULL },
{ "orange jadeite", NULL },
{ "jade", NULL },
{ "mauve jadeite", NULL },
{ "yellow sphene", NULL },
{ "deep red pyrope", NULL },
{ "pale gray jadeite", NULL },
{ "fine deep blue turquoise", NULL },
{ "brown sphene", NULL },
{ "white opal", NULL },
{ "greenish-blue turquoise", NULL },
{ "pale blue turquoise", NULL },
{ "green turquoise", NULL },
{ "light green jadeite", NULL },
{ "apple green jadeite", NULL },
{ "emerald green jadeite", NULL },
{ "carbonado crystal", "crystals of carbonado" },
{ "star sapphire", NULL },
{ "green grossularite garnet", NULL },
{ "yellow-red hessonite garnet", NULL },
{ "orange-red spessartite garnet",NULL },
{ "pale green chrysoberyl", NULL },
{ "pale yellow chrysoberyl", NULL },
{ "green alexandrite", NULL },
{ "green-marked moss agate", NULL },
{ "black-marked moss agate", NULL },
{ "red and white banded sardonyx",NULL },
{ "brown tourmaline", NULL },
{ "black and white banded onyx", NULL },
{ "black iron tourmaline", NULL },
{ "green tourmaline", NULL },
{ "lithium tourmaline", NULL },
{ "lilac kunzite spodumene", NULL },
{ "green hiddenite", NULL },
{ "mocha stone", NULL },
{ "red tourmaline", NULL },
{ "green zircon", NULL },
{ "banded agate", NULL },
{ "peridot", NULL },
{ "olivine", NULL },
{ "blue zircon", NULL },
{ "rust zircon", NULL },
{ "clear zircon", NULL },
{ "citrine", NULL },
{ "amethyst", NULL },
{ "fine green chrysoprase", NULL },
{ "orthoclase feldspar", NULL },
{ "milky-blue moonstone", NULL },
{ "plagioclase feldspar", NULL },
{ "reddish spangled sunstone", NULL },
{ "gray shimmering labradorite", NULL },
{ "cairngorm", NULL },
{ "rose quartz", NULL },
{ "quartz cats-eye", NULL },
{ "tigers-eye", NULL },
{ "green spangled aventurine", NULL },
{ "reddish spangled aventurine", NULL },
{ "white chalcedony", NULL },
{ "dark-green opaque plasma stone",NULL },
{ "rock quartz", NULL },
{ "brown jasper", NULL },
{ "yellow jasper", NULL },
{ "red jasper", NULL },
{ "green jasper", NULL },
{ "orange-red carnelian", NULL },
{ "common opal", NULL },
{ "green fluorspar", NULL },
{ "yellow fluorspar", NULL },
{ "pink fluorspar", NULL },
{ "purple fluorspar", NULL },
{ "colorless fluorspar", NULL },
{ "brown fluorspar", NULL },
{ "banded blue-john", NULL }
};
void obj_strings( OBJ_DATA *obj )
{
char buf[MAX_STRING_LENGTH];
char old[MAX_STRING_LENGTH];
char *str;
char *i;
char *point;
int pass;
char c_str[MAX_INPUT_LENGTH];
char C_str[MAX_INPUT_LENGTH];
char l_str[MAX_INPUT_LENGTH];
char g_str[MAX_INPUT_LENGTH];
char m_str[MAX_INPUT_LENGTH];
char M_str[MAX_INPUT_LENGTH];
int g_int, l_int;
g_int = number_range( 0, MAX_GEM_LIST-1 );
l_int = number_range( 0, MAX_CLOTH_LIST-1 );
sprintf( c_str, "%s", color_list[number_range( 0, MAX_COLOR_LIST-1 )]);
sprintf( C_str, "%s", fine_color_list[number_range( 0,MAX_FINE_COLOR_LIST-1 )] );
sprintf( l_str, "%s", cloth_list[l_int] );
sprintf( g_str, "%s", gem_list[g_int].name );
sprintf( m_str, "%s", metal_list[number_range(0,MAX_METAL-1)]);
sprintf( M_str, "%s",metal_list_good[number_range(0,MAX_METAL_GOOD-1)]);
for ( pass = 0; pass < 3; pass++ )
{
switch( pass )
{
default: str = STR( obj, short_descr );
bug( "obj_strings: bad pass %d", pass ); break;
case 0: str = STR( obj, name ); break;
case 1: str = STR( obj, short_descr ); break;
case 2: str = STR( obj, description ); break;
}
sprintf( old, "%s", str );
point = buf;
if ( !strstr( old, "$" ) ) continue;
while( *str != '\0' )
{
if( *str != '$' )
{
*point++ = *str++;
continue;
}
++str;
switch( *str )
{
default : i = " "; break;
case 'C': i = C_str; break;
case 'c': i = c_str; break;
case 'l':
i = l_str;
obj->cost = (obj->cost * cloth_list_inc[l_int])/100;
break;
case 'm': i = m_str; break;
case 'M': i = M_str; break;
case 'g':
case 'G':
i = g_str;
break;
}
++str;
while( (*point = *i) != '\0' )
++point, ++i;
}
*point = '\0';
if ( str_cmp( old, buf ) )
{
switch( pass )
{
default: break;
case 0: if ( str_cmp( STR(obj,name), buf ) )
{
free_string( obj->name );
obj->name = str_dup( buf );
}
break;
case 1: if ( str_cmp( STR(obj,short_descr), buf ) )
{
free_string( obj->short_descr );
obj->short_descr = str_dup( buf );
}
break;
case 2: if ( str_cmp( STR(obj,description), buf ) )
{
free_string( obj->description );
obj->description = str_dup( buf );
}
break;
}
}
}
point = one_argument( STR( obj, short_descr ), buf );
if ( !str_cmp( buf, "a" ) && IS_VOWEL(*point) )
{
sprintf( buf, "an %s", point );
free_string( obj->short_descr );
obj->short_descr = str_dup( buf );
}
point = one_argument( STR( obj, description ), buf );
if ( !str_cmp( buf, "a" ) && IS_VOWEL(*point) )
{
sprintf( buf, "An %s", point );
free_string( obj->description );
obj->description = str_dup( buf );
}
return;
}
/*
* Dump a text file to a player - Dreimas
*/
void show_file( CHAR_DATA *ch, char *filename )
{
FILE *fp;
char buf[MAX_STRING_LENGTH];
int c;
int num = 0;
fclose( fpReserve );
if ( (fp = fopen( filename, "r" )) != NULL )
{
while ( !feof(fp) )
{
while ((buf[num]=fgetc(fp)) != EOF
&& buf[num] != '\n'
&& buf[num] != '\r'
&& num < (MAX_STRING_LENGTH-2))
num++;
c = fgetc(fp);
if ( (c != '\n' && c != '\r') || c == buf[num] )
ungetc(c, fp);
buf[num++] = '\n';
buf[num++] = '\r';
buf[num ] = '\0';
page_to_char( buf, ch );
num = 0;
}
fclose(fp);
}
fpReserve = fopen( NULL_FILE, "r" );
}
int maxSocial; /* max number of socials */
#ifndef CONST_SOCIAL
struct social_type *social_table; /* and social table */
void load_social (FILE *fp, struct social_type *social)
{
social->name = fread_string (fp);
social->char_no_arg = fread_string (fp);
social->others_no_arg = fread_string (fp);
social->char_found = fread_string (fp);
social->others_found = fread_string (fp);
social->vict_found = fread_string (fp);
social->char_auto = fread_string (fp);
social->others_auto = fread_string (fp);
}
void load_socials()
{
FILE *fp;
int i;
fp = fopen (DATA_DIR SOCIAL_FILE, "r");
if (!fp)
{
bug ("Could not open " DATA_DIR SOCIAL_FILE " for reading.",0);
exit(1);
}
fscanf (fp, "%d\n", &maxSocial);
/* IMPORTANT to use malloc so we can realloc later on */
social_table = malloc (sizeof(struct social_type) * (maxSocial+1));
logf(NULL, " Max Socials: %d", maxSocial );
for (i = 0; i < maxSocial; i++)
load_social (fp,&social_table[i]);
/* For backwards compatibility */
social_table[maxSocial].name = str_dup(""); /* empty! */
fclose (fp);
}
#endif /* CONST_SOCIAL */
void save_social (const struct social_type *s, FILE *fp)
{
/* get rid of (null) */
fprintf (fp, "%s~\n%s~\n%s~\n%s~\n%s~\n%s~\n%s~\n%s~\n\n",
s->name ? s->name : "" ,
s->char_no_arg ? s->char_no_arg : "" ,
s->others_no_arg ? s->others_no_arg : "" ,
s->char_found ? s->char_found : "" ,
s->others_found ? s->others_found : "" ,
s->vict_found ? s->vict_found : "" ,
s->char_auto ? s->char_auto : "" ,
s->others_auto ? s->others_auto : ""
);
}
void save_socials()
{
FILE *fp;
int i;
fp = fopen ( DATA_DIR SOCIAL_FILE, "w");
if (!fp)
{
bug ("Could not open " DATA_DIR SOCIAL_FILE " for writing.",0);
return;
}
#ifdef CONST_SOCIAL /* If old table still in use, count socials first */
for (maxSocial = 0 ; social_table[maxSocial].name[0] ; maxSocial++)
; /* empty */
#endif
fprintf (fp, "%d\n", maxSocial);
for ( i = 0 ; i < maxSocial ; i++)
save_social (&social_table[i], fp);
fclose (fp);
}
/*
* Save system info to data file
*/
void save_sysdata( CONFIG_DATA sys )
{
FILE *fp;
char filename[MAX_INPUT_LENGTH];
sprintf( filename, "%ssysdata.dat", DATA_DIR );
fclose( fpReserve );
if ( ( fp = fopen( filename, "w" ) ) == NULL )
{
bugf( "save_sysdata: fopen" );
perror( filename );
}
else
{
fprintf( fp, "#SYSTEM\n" );
fprintf( fp, "WorldFlags %d\n", sys.world );
fprintf( fp, "Highplayers %d\n", sys.alltimemax );
fprintf( fp, "Highplayertime %s~\n", sys.time_of_max );
fprintf( fp, "Nameresolving %d\n", sys.NO_NAME_RESOLVING );
fprintf( fp, "Log %d\n", sys.log_level );
fprintf( fp, "Overridepriv %d\n", sys.level_override_private );
fprintf( fp, "Msetplayer %d\n", sys.level_mset_player );
fprintf( fp, "Dodgemod %d\n", sys.dodge_mod );
fprintf( fp, "Parrymod %d\n", sys.parry_mod );
fprintf( fp, "Damplrvsplr %d\n", sys.dam_plr_vs_plr );
fprintf( fp, "Damplrvsmob %d\n", sys.dam_plr_vs_mob );
fprintf( fp, "Dammobvsplr %d\n", sys.dam_mob_vs_plr );
fprintf( fp, "Dammobvsmob %d\n", sys.dam_mob_vs_mob );
fprintf( fp, "Forcepc %d\n", sys.level_forcepc );
fprintf( fp, "Savefreq %d\n", sys.save_frequency );
fprintf( fp, "BanSiteLevel %d\n", sys.ban_site_level );
fprintf( fp, "BanClassLevel %d\n", sys.ban_class_level );
fprintf( fp, "GetObjNoTake %d\n", sys.level_getobjnotake );
fprintf( fp, "NewbiePurge %d\n", sys.newbie_purge );
fprintf( fp, "RegularPurge %d\n", sys.regular_purge );
fprintf( fp, "AutoPurge %d\n", sys.CLEANPFILES );
fprintf( fp, "Demons %d\n", sys.demons );
fprintf( fp, "Mages %d\n", sys.mages );
fprintf( fp, "Vampires %d\n", sys.vampires);
fprintf( fp, "Werewolfs %d\n", sys.werewolfs );
fprintf( fp, "Drows %d\n", sys.drows );
fprintf( fp, "Monks %d\n", sys.monks );
fprintf( fp, "Ninjas %d\n", sys.ninjas );
fprintf( fp, "Angels %d\n", sys.angels );
fprintf( fp, "Priests %d\n", sys.priests );
fprintf( fp, "End\n\n" );
fprintf( fp, "#TIME\n" );
fprintf( fp, "Purgetime %ld\n", new_pfile_time_t );
fprintf( fp, "End\n\n" );
fprintf( fp, "#END\n" );
}
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
return;
}
void fread_sysdata( CONFIG_DATA *sys, FILE *fp )
{
char *word;
bool fMatch;
sys->time_of_max = NULL;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
default:
case '*':
fMatch = TRUE;
fread_to_eol( fp );
break;
case 'A':
KEY ("Angels", sys->angels, fread_number(fp));
KEY ("AutoPurge", sys->CLEANPFILES, fread_number( fp ) );
break;
case 'B':
KEY ("BanSiteLevel", sys->ban_site_level, fread_number (fp));
KEY ("BanClassLevel", sys->ban_class_level, fread_number(fp));
break;
case 'D':
KEY( "Damplrvsplr", sys->dam_plr_vs_plr, fread_number( fp) );
KEY( "Damplrvsmob", sys->dam_plr_vs_mob, fread_number( fp) );
KEY( "Dammobvsplr", sys->dam_mob_vs_plr, fread_number( fp) );
KEY( "Dammobvsmob", sys->dam_mob_vs_mob, fread_number( fp) );
KEY ("Demons", sys->demons, fread_number(fp));
KEY( "Dodgemod", sys->dodge_mod, fread_number( fp ) );
KEY ("Drows", sys->drows, fread_number(fp));
break;
case 'E':
if ( !str_cmp( word, "End" ) )
{
if ( !sys->time_of_max )
sys->time_of_max = str_dup("(not recorded)");
return;
}
break;
case 'F':
KEY( "Forcepc", sys->level_forcepc, fread_number( fp) );
break;
case 'G':
KEY( "GetObjNoTake", sys->level_getobjnotake, fread_number( fp ) );
break;
case 'H':
KEY( "Highplayers", sys->alltimemax, fread_number( fp) );
KEY( "Highplayertime", sys->time_of_max, fread_string(fp) );
break;
case 'L':
KEY( "Log", sys->log_level, fread_number( fp) );
break;
case 'M':
KEY ("Mages", sys->mages, fread_number(fp));
KEY ("Monks", sys->monks, fread_number(fp));
KEY( "Msetplayer", sys->level_mset_player, fread_number(fp));
break;
case 'N':
KEY( "Nameresolving", sys->NO_NAME_RESOLVING, fread_number(fp ) );
KEY( "NewbiePurge", sys->newbie_purge, fread_number( fp ) );
KEY ("Ninjas", sys->ninjas, fread_number(fp));
break;
case 'O':
KEY( "Overridepriv", sys->level_override_private, fread_number( fp ) );
break;
case 'P':
KEY( "Parrymod", sys->parry_mod, fread_number( fp ) );
KEY ("Priests", sys->priests, fread_number(fp));
break;
case 'R':
KEY( "RegularPurge", sys->regular_purge, fread_number( fp ) );
break;
case 'S':
KEY( "Savefreq", sys->save_frequency, fread_number( fp ) );
break;
case 'V':
KEY ("Vampires", sys->vampires, fread_number(fp));
break;
case 'W':
KEY ("Werewolfs", sys->werewolfs, fread_number(fp));
KEY ("WorldFlags", sys->world, fread_number(fp) );
break;
}
if ( !fMatch )
{
bugf( "Fread_sysdata: no match: %s", word );
}
}
}
void fread_timedata( FILE *fp )
{
char *word = NULL;
bool fMatch = FALSE;
for ( ; ; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER(word[0]) )
{
case '*':
fMatch = TRUE;
fread_to_eol( fp );
break;
case 'E':
if ( !str_cmp( word, "End" ) )
return;
break;
case 'P':
KEY( "Purgetime", new_pfile_time_t, fread_number( fp ) );
break;
}
if ( !fMatch )
{
bugf( "Fread_timedata: no match: %s", word );
fread_to_eol( fp );
}
}
}
/*
* Load the sysdata file
*/
bool load_systemdata( CONFIG_DATA *sys )
{
char filename[MAX_INPUT_LENGTH];
FILE *fp;
bool found;
found = FALSE;
sprintf( filename, "%ssysdata.dat", DATA_DIR );
if ( ( fp = fopen( filename, "r" ) ) != NULL )
{
found = TRUE;
for ( ; ; )
{
char letter;
char *word;
letter = fread_letter( fp );
if ( letter == '*' )
{
fread_to_eol( fp );
continue;
}
if ( letter != '#' )
{
bug( "Load_sysdata_file: # not found.",0 );
break;
}
word = fread_word( fp );
if ( !str_cmp( word, "SYSTEM" ) )
{
fread_sysdata( sys, fp );
break;
}
else
if ( !str_cmp( word, "TIME" ) )
{
fread_timedata( fp );
break;
}
else
if ( !str_cmp( word, "END" ) )
break;
else
{
bugf( "Load_sysdata_file: bad section. %s", word );
break;
}
}
fclose( fp );
}
return found;
}
void ltf(char *txt, char *file, bool send)
{
FILE *fp;
CHAR_DATA *vch;
char buf[MSL];
if( !(fp = fopen(file,"a")) )
{
sprintf(buf,"BUGGERS! log_to_file(ltf): file %s is missing!",file);
log_string(buf);
return;
}
fprintf(fp,"%s\n",txt);
fclose(fp);
if(send)
{
sprintf(buf,"{cf[%s]: %s{x\n\r",file,txt);
for(vch = char_list;vch != NULL;vch = vch->next)
{
if(!IS_IMMORTAL(vch) || IS_NPC(vch))
continue;
stc(buf,vch);
}
}
}
/*
* Clan warnings, info, etc.
*/
void log_clan( const char *str )
{
FILE *fp;
char strsave [ MAX_INPUT_LENGTH ];
fclose( fpReserve );
sprintf( strsave, "%s%s", DATA_DIR, CLAN_FILE );
if ( ( fp = fopen( strsave, "a" ) ) )
{
fprintf( fp, "%s\n", str );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
extern sh_int top_clan;
CLAN_DATA *new_clan_data()
{
CLAN_DATA *new_clan;
char buf[MAX_INPUT_LENGTH];
if( !clan_free )
{
new_clan = (CLAN_DATA *)alloc_perm( sizeof( CLAN_DATA ) );
top_clan++;
}
else
{
new_clan = clan_free;
clan_free = new_clan->next;
}
sprintf( buf, "clan%d.cln", top_clan );
new_clan->filename = str_dup( buf );
new_clan->name = str_dup( "new clan" );
new_clan->motto = str_dup( "" );
new_clan->description = str_dup( "" );
new_clan->overlord = str_dup( "" );
new_clan->chieftain = str_dup( "" );
new_clan->recall = ROOM_VNUM_TEMPLE;
new_clan->who_name = str_dup( "" );
new_clan->pkills = 0;
new_clan->pdeaths = 0;
new_clan->subchiefs = 0;
new_clan->clanheros = 0;
new_clan->clanobj1 = 0;
new_clan->clanobj2 = 0;
if( !clan_first )
clan_first = new_clan;
if( clan_last )
clan_last->next = new_clan;
clan_last = new_clan;
return new_clan;
}
void free_clan_data( CLAN_DATA *clan )
{
CLAN_DATA *prev;
free_string( clan->name );
free_string( clan->motto );
free_string( clan->description );
free_string( clan->overlord );
free_string( clan->chieftain );
free_string( clan->filename );
free_string( clan->who_name );
if( clan == clan_first )
{
clan_first = clan->next;
if( clan_last == clan )
clan_last = NULL;
}
else
{
for( prev = clan_first; prev; prev = prev->next )
if( prev->next == clan )
break;
if( !prev )
bug( "free_clan_data: clan not on list.",0 );
else
{
prev->next = clan->next;
if( clan_last == clan )
clan_last = prev;
}
}
clan->next = clan_free;
clan_free = clan;
}