void read_obj_file( char *dirname, char *filename )
{
ROOM_INDEX_DATA *room;
FILE *fp;
char fname[256];
int vnum;
vnum = atoi( filename );
if( ( room = get_room_index( vnum ) ) == NULL )
{
bug( "read_obj_file: ARGH! Missing room index for %d!", vnum );
return;
}
snprintf( fname, 256, "%s%s", dirname, filename );
if( ( fp = fopen( fname, "r" ) ) != NULL )
{
short iNest;
bool found;
OBJ_DATA *tobj, *tobj_next;
rset_supermob( room );
for( iNest = 0; iNest < MAX_NEST; iNest++ )
rgObjNest[iNest] = NULL;
found = TRUE;
for( ;; )
{
char letter;
const char *word;
letter = fread_letter( fp );
if( letter == '*' )
{
fread_to_eol( fp );
continue;
}
if( letter != '#' )
{
bug( "%s", "read_obj_file: # not found." );
break;
}
word = fread_word( fp );
if( !str_cmp( word, "OBJECT" ) ) /* Objects */
fread_obj( supermob, fp, OS_CARRY );
else if( !str_cmp( word, "END" ) ) /* Done */
break;
else
{
bug( "read_obj_file: bad section: %s", word );
break;
}
}
FCLOSE( fp );
unlink( fname );
for( tobj = supermob->first_carrying; tobj; tobj = tobj_next )
{
tobj_next = tobj->next_content;
#ifdef OVERLANDCODE
if( IS_OBJ_STAT( tobj, ITEM_ONMAP ) )
{
SET_ACT_FLAG( supermob, ACT_ONMAP );
supermob->map = tobj->map;
supermob->x = tobj->x;
supermob->y = tobj->y;
}
#endif
obj_from_char( tobj );
#ifndef OVERLANDCODE
obj_to_room( tobj, room );
#else
obj_to_room( tobj, room, supermob );
REMOVE_ACT_FLAG( supermob, ACT_ONMAP );
supermob->map = -1;
supermob->x = -1;
supermob->y = -1;
#endif
}
release_supermob( );
}
else
log_string( "Cannot open obj file" );
return;
}
/*
* Load a char and inventory into a new ch structure.
*/
bool load_char_obj( DESCRIPTOR_DATA *d, char *name )
{
extern char *daPrompt;
FILE *fp;
CHAR_DATA *ch;
char strsave [ MAX_INPUT_LENGTH ];
bool found;
char sorry_player [] =
"********************************************************\r\n"
"** One or more of the critical fields in your player **\r\n"
"** file were corrupted since you last played. Please **\r\n"
"** contact an administrator or programmer to **\r\n"
"** investigate the recovery of your characters. **\r\n"
"********************************************************\r\n";
char sorry_object [] =
"********************************************************\r\n"
"** One or more of the critical fields in your player **\r\n"
"** file were corrupted leading to the loss of one or **\r\n"
"** more of your possessions. **\r\n"
"********************************************************\r\n";
ch = new_character( TRUE );
d->character = ch;
ch->desc = d;
ch->name = str_dup( name );
ch->pcdata->prompt = str_dup( daPrompt );
ch->last_note = 0;
ch->act = PLR_BLANK
| PLR_COMBINE
| PLR_PROMPT;
ch->pcdata->pwd = str_dup( "" );
ch->pcdata->bamfin = str_dup( "" );
ch->pcdata->bamfout = str_dup( "" );
ch->pcdata->immskll = str_dup( "" );
ch->pcdata->title = str_dup( "" );
ch->pcdata->perm_str = 13;
ch->pcdata->perm_int = 13;
ch->pcdata->perm_wis = 13;
ch->pcdata->perm_dex = 13;
ch->pcdata->perm_con = 13;
ch->pcdata->condition[COND_THIRST] = 48;
ch->pcdata->condition[COND_FULL] = 48;
ch->pcdata->pagelen = 20;
ch->pcdata->switched = FALSE;
found = FALSE;
fclose( fpReserve );
/* parsed player file directories by Yaz of 4th Realm */
/* decompress if .gz file exists - Thx Alander */
sprintf( strsave, "%s%s%s%s%s", PLAYER_DIR, initial( ch->name ),
"/", capitalize( name ), ".gz" );
if ( ( fp = fopen( strsave, "r" ) ) )
{
char buf [ MAX_STRING_LENGTH ];
fclose( fp );
sprintf( buf, "gzip -dfq %s", strsave );
system( buf );
}
sprintf( strsave, "%s%s%s%s", PLAYER_DIR, initial( ch->name ),
"/", capitalize( name ) );
if ( ( fp = fopen( strsave, "r" ) ) )
{
char buf[ MAX_STRING_LENGTH ];
int iNest;
for ( iNest = 0; iNest < MAX_NEST; iNest++ )
rgObjNest[iNest] = NULL;
found = TRUE;
for ( ; ; )
{
char *word;
char letter;
int status;
letter = fread_letter( fp );
if ( letter == '*' )
{
fread_to_eol( fp );
continue;
}
if ( letter != '#' )
{
bug( "Load_char_obj: # not found.", 0 );
break;
}
word = fread_word( fp, &status );
if ( !str_cmp( word, "PLAYER" ) )
{
if ( fread_char ( ch, fp ) )
{
sprintf( buf,
"Load_char_obj: %s section PLAYER corrupt.\r\n",
name );
bug( buf, 0 );
write_to_buffer( d, sorry_player, 0 );
/*
* In case you are curious,
* it is ok to leave ch alone for close_socket
* to free.
* We want to now kick the bad character out as
* what we are missing are MANDATORY fields. -Kahn
*/
SET_BIT( ch->act, PLR_DENY );
return TRUE;
}
}
else if ( !str_cmp( word, "OBJECT" ) )
{
if ( !fread_obj ( ch, fp ) )
{
sprintf( buf,
"Load_char_obj: %s section OBJECT corrupt.\r\n",
name );
bug( buf, 0 );
write_to_buffer( d, sorry_object, 0 );
return FALSE;
}
}
else if ( !str_cmp( word, "END" ) ) break;
else
{
bug( "Load_char_obj: bad section.", 0 );
break;
}
} /* for */
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return found;
}
CHAR_DATA *load_mobile( FILE * fp )
{
CHAR_DATA *mob = NULL;
const char *word;
bool fMatch;
int inroom = 0;
ROOM_INDEX_DATA *pRoomIndex = NULL;
word = feof( fp ) ? "EndMobile" : fread_word( fp );
if( !str_cmp( word, "Vnum" ) )
{
int vnum;
vnum = fread_number( fp );
if( get_mob_index( vnum ) == NULL )
{
bug( "%s: No index data for vnum %d", __FUNCTION__, vnum );
return NULL;
}
mob = create_mobile( get_mob_index( vnum ) );
if( !mob )
{
for( ;; )
{
word = feof( fp ) ? "EndMobile" : fread_word( fp );
/*
* So we don't get so many bug messages when something messes up
* * --Shaddai
*/
if( !str_cmp( word, "EndMobile" ) )
break;
}
bug( "%s: Unable to create mobile for vnum %d", __FUNCTION__, vnum );
return NULL;
}
}
else
{
for( ;; )
{
word = feof( fp ) ? "EndMobile" : fread_word( fp );
/*
* So we don't get so many bug messages when something messes up
* * --Shaddai
*/
if( !str_cmp( word, "EndMobile" ) )
break;
}
extract_char( mob, TRUE );
bug( "%s: Vnum not found", __FUNCTION__ );
return NULL;
}
for( ;; )
{
word = feof( fp ) ? "EndMobile" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER( word[0] ) )
{
case '*':
fMatch = TRUE;
fread_to_eol( fp );
break;
case '#':
if( !str_cmp( word, "#OBJECT" ) )
{
mob->tempnum = -9999; /* Hackish, yes. Works though doesn't it? */
fread_obj( mob, fp, OS_CARRY );
}
break;
case 'A':
if( !str_cmp( word, "Affect" ) || !str_cmp( word, "AffectData" ) )
{
AFFECT_DATA *paf;
CREATE( paf, AFFECT_DATA, 1 );
if( !str_cmp( word, "Affect" ) )
{
paf->type = fread_number( fp );
}
else
{
int sn;
const char *sname = fread_word( fp );
if( ( sn = skill_lookup( sname ) ) < 0 )
{
if( ( sn = herb_lookup( sname ) ) < 0 )
bug( "%s", "load_mobile: unknown skill." );
else
sn += TYPE_HERB;
}
paf->type = sn;
}
paf->duration = fread_number( fp );
paf->modifier = fread_number( fp );
paf->location = fread_number( fp );
if( paf->location == APPLY_WEAPONSPELL
|| paf->location == APPLY_WEARSPELL
|| paf->location == APPLY_REMOVESPELL || paf->location == APPLY_STRIPSN )
paf->modifier = slot_lookup( paf->modifier );
paf->bitvector = fread_bitvector( fp );
LINK( paf, mob->first_affect, mob->last_affect, next, prev );
fMatch = TRUE;
break;
}
KEY( "AffectedBy", mob->affected_by, fread_bitvector( fp ) );
break;
#ifdef OVERLANDCODE
case 'C':
if( !str_cmp( word, "Coordinates" ) )
{
mob->x = fread_number( fp );
mob->y = fread_number( fp );
mob->map = fread_number( fp );
fMatch = TRUE;
break;
}
break;
#endif
case 'D':
if( !str_cmp( word, "Description" ) )
{
STRFREE( mob->description );
mob->description = fread_string( fp );
fMatch = TRUE;
break;
}
break;
case 'E':
if( !str_cmp( word, "EndMobile" ) )
{
if( inroom == 0 )
inroom = ROOM_VNUM_LIMBO;
pRoomIndex = get_room_index( inroom );
if( !pRoomIndex )
pRoomIndex = get_room_index( ROOM_VNUM_LIMBO );
char_to_room( mob, pRoomIndex );
mob->tempnum = -9998; /* Yet another hackish fix! */
update_room_reset( mob, FALSE );
return mob;
}
if( !str_cmp( word, "End" ) ) /* End of object, need to ignore this. sometimes they creep in there somehow -- Scion */
fMatch = TRUE; /* Trick the system into thinking it matched something */
break;
case 'F':
KEY( "Flags", mob->act, fread_number( fp ) );
break;
case 'G':
KEY( "Gold", mob->gold, fread_number( fp ) );
break;
case 'H':
if( !str_cmp( word, "HpManaMove" ) )
{
mob->hit = fread_number( fp );
mob->max_hit = fread_number( fp );
mob->mana = fread_number( fp );
mob->max_mana = fread_number( fp );
mob->move = fread_number( fp );
mob->max_move = fread_number( fp );
if( mob->max_move <= 0 )
mob->max_move = 150;
fMatch = TRUE;
break;
}
break;
case 'L':
if( !str_cmp( word, "Long" ) )
{
STRFREE( mob->long_descr );
mob->long_descr = fread_string( fp );
fMatch = TRUE;
break;
}
KEY( "Level", mob->top_level, fread_number( fp ) );
break;
case 'M':
if( !str_cmp( word, "Mobclan" ) )
{
STRFREE( mob->mob_clan );
mob->mob_clan = fread_string( fp );
fMatch = TRUE;
break;
}
break;
case 'N':
if( !str_cmp( word, "Name" ) )
{
STRFREE( mob->name );
mob->name = fread_string( fp );
fMatch = TRUE;
break;
}
break;
case 'P':
KEY( "Position", mob->position, fread_number( fp ) );
break;
case 'R':
KEY( "Room", inroom, fread_number( fp ) );
KEY( "Resetvnum", mob->resetvnum, fread_number( fp ) );
KEY( "Resetnum", mob->resetnum, fread_number( fp ) );
break;
case 'S':
if( !str_cmp( word, "Short" ) )
{
STRFREE( mob->short_descr );
mob->short_descr = fread_string( fp );
fMatch = TRUE;
break;
}
break;
}
if( !fMatch && str_cmp( word, "End" ) )
bug( "%s: no match: %s", __FUNCTION__, word );
}
return NULL;
}
/*
* Load a char and inventory into a new ch structure.
*/
bool load_char_obj( DESCRIPTOR_DATA *d, char *name )
{
static PC_DATA pcdata_zero;
char strsave[MAX_INPUT_LENGTH];
char buf [MAX_STRING_LENGTH];
CHAR_DATA *ch;
FILE *fp;
bool found;
if ( char_free == NULL )
{
ch = alloc_perm( sizeof(*ch) );
}
else
{
ch = char_free;
char_free = char_free->next;
}
clear_char( ch );
if ( pcdata_free == NULL )
{
ch->pcdata = alloc_perm( sizeof(*ch->pcdata) );
}
else
{
ch->pcdata = pcdata_free;
pcdata_free = pcdata_free->next;
}
*ch->pcdata = pcdata_zero;
d->character = ch;
ch->desc = d;
ch->name = str_dup( name );
ch->prompt = str_dup( "<%hhp %mm %vmv> " );
ch->last_note = 0;
ch->act = PLR_BLANK
| PLR_COMBINE
| PLR_PROMPT;
ch->pcdata->pwd = str_dup( "" );
ch->pcdata->bamfin = str_dup( "" );
ch->pcdata->bamfout = str_dup( "" );
ch->pcdata->title = str_dup( "" );
ch->pcdata->perm_str = 13;
ch->pcdata->perm_int = 13;
ch->pcdata->perm_wis = 13;
ch->pcdata->perm_dex = 13;
ch->pcdata->perm_con = 13;
ch->pcdata->condition[COND_THIRST] = 48;
ch->pcdata->pagelen = 20;
ch->pcdata->condition[COND_FULL] = 48;
found = FALSE;
fclose( fpReserve );
/* parsed player file directories by Yaz of 4th Realm */
/* decompress if .gz file exists - Thx Alander */
#if !defined(macintosh) && !defined(MSDOS)
sprintf( strsave, "%s%s%s%s%s", PLAYER_DIR, initial( ch->name ),
"/", capitalize( name ), ".gz" );
if ( ( fp = fopen( strsave, "r" ) ) != NULL )
{
fclose( fp );
sprintf( buf, "gzip -dfq %s", strsave );
system( buf );
}
#endif
#if !defined(machintosh) && !defined(MSDOS)
sprintf( strsave, "%s%s%s%s", PLAYER_DIR, initial( ch->name ),
"/", capitalize( name ) );
#else
sprintf( strsave, "%s%s", PLAYER_DIR, capitalize( name ) );
#endif
if ( ( fp = fopen( strsave, "r" ) ) != NULL )
{
int iNest;
for ( iNest = 0; iNest < MAX_NEST; iNest++ )
rgObjNest[iNest] = NULL;
found = TRUE;
for ( ; ; )
{
char letter;
char *word;
letter = fread_letter( fp );
if ( letter == '*' )
{
fread_to_eol( fp );
continue;
}
if ( letter != '#' )
{
bug( "Load_char_obj: # not found.", 0 );
break;
}
word = fread_word( fp );
if ( !str_cmp( word, "PLAYER" ) ) fread_char ( ch, fp );
else if ( !str_cmp( word, "OBJECT" ) ) fread_obj ( ch, fp );
else if ( !str_cmp( word, "END" ) ) break;
else
{
bug( "Load_char_obj: bad section.", 0 );
break;
}
}
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return found;
}
