开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
SAVE.C
资源名称：mercwsrc.zip　[点击查看]
上传用户：kesirui
上传日期：2007-01-07
资源大小：263k
文件大小：23k
源码类别：

Internet/网络编程

开发平台：

WINDOWS

SAVE.C：源码内容
  1. /***************************************************************************
  2.  *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
  3.  *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
  4.  *                                                                         *
  5.  *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
  6.  *  Chastain, Michael Quan, and Mitchell Tse.                              *
  7.  *                                                                         *
  8.  *  In order to use any part of this Merc Diku Mud, you must comply with   *
  9.  *  both the original Diku license in 'license.doc' as well the Merc       *
  10.  *  license in 'license.txt'.  In particular, you may not remove either of *
  11.  *  these copyright notices.                                               *
  12.  *                                                                         *
  13.  *  Much time and thought has gone into this software and you are          *
  14.  *  benefitting.  We hope that you share your changes too.  What goes      *
  15.  *  around, comes around.                                                  *
  16.  ***************************************************************************/
  18. #if defined(macintosh)
  19. #include <types.h>
  20. #else
  21. #include <sys/types.h>
  22. #endif
  23. #include <ctype.h>
  24. #include <stdio.h>
  25. #include <string.h>
  26. #include <time.h>
  27. #include "merc.h"
  29. #if !defined(macintosh)
  30. extern int _filbuf args( (FILE *) );
  31. #endif
  33. #if !defined(macintosh) && !defined(MSDOS)
  34. void    system          args( ( char *string ) );
  35. #endif
  37. /*
  38.  * Array of containers read for proper re-nesting of objects.
  39.  */
  40. #define MAX_NEST 100
  41. static OBJ_DATA * rgObjNest [MAX_NEST];
  45. /*
  46.  * Local functions.
  47.  */
  48. void fwrite_char args( ( CHAR_DATA *ch,  FILE *fp ) );
  49. void fwrite_obj args( ( CHAR_DATA *ch,  OBJ_DATA  *obj,
  50.     FILE *fp, int iNest ) );
  51. void fread_char args( ( CHAR_DATA *ch,  FILE *fp ) );
  52. void fread_obj args( ( CHAR_DATA *ch,  FILE *fp ) );
  55. /* Courtesy of Yaz of 4th Realm */
  56. char *initial( const char *str )
  57. {
  58.     static char strint[ MAX_STRING_LENGTH ];
  60.     strint[0] = LOWER( str[ 0 ] );
  61.     return strint;
  63. }
  65. /*
  66.  * Save a character and inventory.
  67.  * Would be cool to save NPC's too for quest purposes,
  68.  *   some of the infrastructure is provided.
  69.  */
  70. void save_char_obj( CHAR_DATA *ch )
  71. {
  72.     char strsave[MAX_INPUT_LENGTH];
  73.     FILE *fp;
  75.     // @@@ ECS Allow 1st level to save
  76.     if ( IS_NPC(ch) /*|| ch->level < 2*/ )
  77. return;
  79.     if ( ch->desc != NULL && ch->desc->original != NULL )
  80. ch = ch->desc->original;
  82.     ch->save_time = current_time;
  83.     fclose( fpReserve );
  85.     /* player files parsed directories by Yaz 4th Realm */
  86. #if !defined(machintosh) && !defined(MSDOS) && !defined(WIN32)
  87.     sprintf( strsave, "%s%s%s%s", PLAYER_DIR, initial( ch->name ),
  88.     "/", capitalize( ch->name ) );
  89. #else
  90.     sprintf( strsave, "%s%s", PLAYER_DIR, capitalize( ch->name ) );
  91. #endif
  92.     if ( ( fp = fopen( strsave, "w" ) ) == NULL )
  93.     {
  94. bug( "Save_char_obj: fopen", 0 );
  95. perror( strsave );
  96.     }
  97.     else
  98.     {
  99. fwrite_char( ch, fp );
  100. if ( ch->carrying != NULL )
  101.     fwrite_obj( ch, ch->carrying, fp, 0 );
  102. if (fprintf( fp, "#ENDn" ) == EOF)
  103. //      log_error("I/O error writing player file");
  104.       bug("I/O error writing player file", 0);
  105.     }
  106.     fclose( fp );
  107.     fpReserve = fopen( NULL_FILE, "r" );
  108.     return;
  109. }
  113. /*
  114.  * Write the char.
  115.  */
  116. void fwrite_char( CHAR_DATA *ch, FILE *fp )
  117. {
  118.     AFFECT_DATA *paf;
  119.     int sn;
  121.     fprintf( fp, "#%sn", IS_NPC(ch) ? "MOB" : "PLAYER" );
  123.     fprintf( fp, "Name         %s~n", ch->name );
  124.     fprintf( fp, "ShortDescr   %s~n", ch->short_descr );
  125.     fprintf( fp, "LongDescr    %s~n", ch->long_descr );
  126.     fprintf( fp, "Description  %s~n", ch->description );
  127.     fprintf( fp, "Prompt       %s~n", ch->prompt );
  128.     fprintf( fp, "Sex          %dn", ch->sex );
  129.     fprintf( fp, "Class        %dn", ch->class );
  130.     fprintf( fp, "Race         %dn", ch->race );
  131.     fprintf( fp, "Level        %dn", ch->level );
  132.     fprintf( fp, "Trust        %dn", ch->trust );
  133.     fprintf( fp, "Wizbit       %dn", ch->wizbit );
  134.     fprintf( fp, "Played       %dn",
  135. ch->played + (int) (current_time - ch->logon) );
  136.     fprintf( fp, "Note         %ldn",   ch->last_note           );
  137. //    fprintf( fp, "Note         %dn",   ch->last_note           );
  138.     fprintf( fp, "Room         %dn",
  139. (  ch->in_room == get_room_index( ROOM_VNUM_LIMBO )
  140. && ch->was_in_room != NULL )
  141.     ? ch->was_in_room->vnum
  142.     : ch->in_room->vnum );
  144.     fprintf( fp, "HpManaMove   %d %d %d %d %d %dn",
  145. ch->hit, ch->max_hit, ch->mana, ch->max_mana, ch->move, ch->max_move );
  146.     fprintf( fp, "Gold         %dn", ch->gold );
  147.     fprintf( fp, "Exp          %dn", ch->exp );
  148.     fprintf( fp, "Act          %dn",   ch->act );
  149.     fprintf( fp, "AffectedBy   %dn", ch->affected_by );
  150.     /* Bug fix from Alander */
  151.     fprintf( fp, "Position     %dn",
  152.         ch->position == POS_FIGHTING ? POS_STANDING : ch->position );
  154.     fprintf( fp, "Practice     %dn", ch->practice );
  155.     fprintf( fp, "SavingThrow  %dn", ch->saving_throw );
  156.     fprintf( fp, "Alignment    %dn", ch->alignment );
  157.     fprintf( fp, "Hitroll      %dn", ch->hitroll );
  158.     fprintf( fp, "Damroll      %dn", ch->damroll );
  159.     fprintf( fp, "Armor        %dn", ch->armor );
  160.     fprintf( fp, "Wimpy        %dn", ch->wimpy );
  161.     fprintf( fp, "Deaf         %dn", ch->deaf );
  163.     if ( IS_NPC(ch) )
  164.     {
  165. fprintf( fp, "Vnum         %dn", ch->pIndexData->vnum );
  166.     }
  167.     else
  168.     {
  169. fprintf( fp, "Password     %s~n", ch->pcdata->pwd );
  170. fprintf( fp, "Bamfin       %s~n", ch->pcdata->bamfin );
  171. fprintf( fp, "Bamfout      %s~n", ch->pcdata->bamfout );
  172. fprintf( fp, "Title        %s~n", ch->pcdata->title );
  173. fprintf( fp, "AttrPerm     %d %d %d %d %dn",
  174.     ch->pcdata->perm_str,
  175.     ch->pcdata->perm_int,
  176.     ch->pcdata->perm_wis,
  177.     ch->pcdata->perm_dex,
  178.     ch->pcdata->perm_con );
  180. fprintf( fp, "AttrMod      %d %d %d %d %dn",
  181.     ch->pcdata->mod_str, 
  182.     ch->pcdata->mod_int, 
  183.     ch->pcdata->mod_wis,
  184.     ch->pcdata->mod_dex, 
  185.     ch->pcdata->mod_con );
  187. fprintf( fp, "Condition    %d %d %dn",
  188.     ch->pcdata->condition[0],
  189.     ch->pcdata->condition[1],
  190.     ch->pcdata->condition[2] );
  192. fprintf( fp, "Pagelen      %dn",   ch->pcdata->pagelen     );
  194. for ( sn = 0; sn < MAX_SKILL; sn++ )
  195. {
  196.     if ( skill_table[sn].name != NULL && ch->pcdata->learned[sn] > 0 )
  197.     {
  198. fprintf( fp, "Skill        %d '%s'n",
  199.     ch->pcdata->learned[sn], skill_table[sn].name );
  200.     }
  201. }
  202.     }
  204.     for ( paf = ch->affected; paf != NULL; paf = paf->next )
  205.     {
  206. fprintf( fp, "Affect %3d %3d %3d %3d %10dn",
  207.     paf->type,
  208.     paf->duration,
  209.     paf->modifier,
  210.     paf->location,
  211.     paf->bitvector
  212.     );
  213.     }
  215.     fprintf( fp, "Endnn" );
  216.     return;
  217. }
  221. /*
  222.  * Write an object and its contents.
  223.  */
  224. void fwrite_obj( CHAR_DATA *ch, OBJ_DATA *obj, FILE *fp, int iNest )
  225. {
  226.     EXTRA_DESCR_DATA *ed;
  227.     AFFECT_DATA *paf;
  229.     /*
  230.      * Slick recursion to write lists backwards,
  231.      *   so loading them will load in forwards order.
  232.      */
  233.     if ( obj->next_content != NULL )
  234. fwrite_obj( ch, obj->next_content, fp, iNest );
  236.     /*
  237.      * Castrate storage characters.
  238.      */
  239.     if ( ch->level < obj->level
  240.     ||   obj->item_type == ITEM_KEY
  241.     ||   obj->item_type == ITEM_POTION )
  242. return;
  244.     fprintf( fp, "#OBJECTn" );
  245.     fprintf( fp, "Nest         %dn", iNest      );
  246.     fprintf( fp, "Name         %s~n", obj->name      );
  247.     fprintf( fp, "ShortDescr   %s~n", obj->short_descr      );
  248.     fprintf( fp, "Description  %s~n", obj->description      );
  249.     fprintf( fp, "Vnum         %dn", obj->pIndexData->vnum      );
  250.     fprintf( fp, "ExtraFlags   %dn", obj->extra_flags      );
  251.     fprintf( fp, "WearFlags    %dn", obj->wear_flags      );
  252.     fprintf( fp, "WearLoc      %dn", obj->wear_loc      );
  253.     fprintf( fp, "ItemType     %dn", obj->item_type      );
  254.     fprintf( fp, "Weight       %dn", obj->weight      );
  255.     fprintf( fp, "Level        %dn", obj->level      );
  256.     fprintf( fp, "Timer        %dn", obj->timer      );
  257.     fprintf( fp, "Cost         %dn", obj->cost      );
  258.     fprintf( fp, "Values       %d %d %d %dn",
  259. obj->value[0], obj->value[1], obj->value[2], obj->value[3]      );
  261.     switch ( obj->item_type )
  262.     {
  263.     case ITEM_POTION:
  264.     case ITEM_SCROLL:
  265. if ( obj->value[1] > 0 )
  266. {
  267.     fprintf( fp, "Spell 1      '%s'n",
  268. skill_table[obj->value[1]].name );
  269. }
  271. if ( obj->value[2] > 0 )
  272. {
  273.     fprintf( fp, "Spell 2      '%s'n", 
  274. skill_table[obj->value[2]].name );
  275. }
  277. if ( obj->value[3] > 0 )
  278. {
  279.     fprintf( fp, "Spell 3      '%s'n", 
  280. skill_table[obj->value[3]].name );
  281. }
  283. break;
  285.     case ITEM_PILL:
  286.     case ITEM_STAFF:
  287.     case ITEM_WAND:
  288. if ( obj->value[3] > 0 )
  289. {
  290.     fprintf( fp, "Spell 3      '%s'n", 
  291. skill_table[obj->value[3]].name );
  292. }
  294. break;
  295.     }
  297.     for ( paf = obj->affected; paf != NULL; paf = paf->next )
  298.     {
  299. fprintf( fp, "Affect       %d %d %d %d %dn",
  300.     paf->type,
  301.     paf->duration,
  302.     paf->modifier,
  303.     paf->location,
  304.     paf->bitvector
  305.     );
  306.     }
  308.     for ( ed = obj->extra_descr; ed != NULL; ed = ed->next )
  309.     {
  310. fprintf( fp, "ExtraDescr   %s~ %s~n",
  311.     ed->keyword, ed->description );
  312.     }
  314.     fprintf( fp, "Endnn" );
  316.     if ( obj->contains != NULL )
  317. fwrite_obj( ch, obj->contains, fp, iNest + 1 );
  319.     return;
  320. }
  324. /*
  325.  * Load a char and inventory into a new ch structure.
  326.  */
  327. bool load_char_obj( DESCRIPTOR_DATA *d, char *name )
  328. {
  329.     static PC_DATA pcdata_zero;
  330.     char strsave[MAX_INPUT_LENGTH];
  331.     char buf [MAX_STRING_LENGTH];
  332.     CHAR_DATA *ch;
  333.     FILE *fp;
  334.     bool found;
  336.     if ( char_free == NULL )
  337.     {
  338. ch = alloc_perm( sizeof(*ch) );
  339.     }
  340.     else
  341.     {
  342. ch = char_free;
  343. char_free = char_free->next;
  344.     }
  345.     clear_char( ch );
  347.     if ( pcdata_free == NULL )
  348.     {
  349. ch->pcdata = alloc_perm( sizeof(*ch->pcdata) );
  350.     }
  351.     else
  352.     {
  353. ch->pcdata = pcdata_free;
  354. pcdata_free = pcdata_free->next;
  355.     }
  356.     *ch->pcdata = pcdata_zero;
  358.     d->character = ch;
  359.     ch->desc = d;
  360.     ch->name = str_dup( name );
  361.     ch->prompt                          = str_dup( "<%hhp %mm %vmv> " );
  362.     ch->last_note                       = 0;
  363.     ch->act = PLR_BLANK
  364. | PLR_COMBINE
  365. | PLR_PROMPT;
  366.     ch->pcdata->pwd = str_dup( "" );
  367.     ch->pcdata->bamfin = str_dup( "" );
  368.     ch->pcdata->bamfout = str_dup( "" );
  369.     ch->pcdata->title = str_dup( "" );
  370.     ch->pcdata->perm_str = 13;
  371.     ch->pcdata->perm_int = 13; 
  372.     ch->pcdata->perm_wis = 13;
  373.     ch->pcdata->perm_dex = 13;
  374.     ch->pcdata->perm_con = 13;
  375.     ch->pcdata->condition[COND_THIRST] = 48;
  376.     ch->pcdata->pagelen                 = 20;
  377.     ch->pcdata->condition[COND_FULL] = 48;
  379.     found = FALSE;
  380.     fclose( fpReserve );
  382.     /* parsed player file directories by Yaz of 4th Realm */
  383.     /* decompress if .gz file exists - Thx Alander */
  384. #if !defined(macintosh) && !defined(MSDOS) && !defined(WIN32)
  385.     sprintf( strsave, "%s%s%s%s%s", PLAYER_DIR, initial( ch->name ),
  386.     "/", capitalize( name ), ".gz" );
  387.     if ( ( fp = fopen( strsave, "r" ) ) != NULL )
  388.     {
  389. fclose( fp );
  390. sprintf( buf, "gzip -dfq %s", strsave );
  391. system( buf );
  392.     }
  393. #endif
  395. #if !defined(machintosh) && !defined(MSDOS) && !defined(WIN32)
  396.     sprintf( strsave, "%s%s%s%s", PLAYER_DIR, initial( ch->name ),
  397.     "/", capitalize( name ) );
  398. #else
  399.     sprintf( strsave, "%s%s", PLAYER_DIR, capitalize( name ) );
  400. #endif
  401.     if ( ( fp = fopen( strsave, "r" ) ) != NULL )
  402.     {
  403. int iNest;
  405. for ( iNest = 0; iNest < MAX_NEST; iNest++ )
  406.     rgObjNest[iNest] = NULL;
  408. found = TRUE;
  409. for ( ; ; )
  410. {
  411.     char letter;
  412.     char *word;
  414.     letter = fread_letter( fp );
  415.     if ( letter == '*' )
  416.     {
  417. fread_to_eol( fp );
  418. continue;
  419.     }
  421.     if ( letter != '#' )
  422.     {
  423. bug( "Load_char_obj: # not found.", 0 );
  424. break;
  425.     }
  427.     word = fread_word( fp );
  428.     if      ( !str_cmp( word, "PLAYER" ) ) fread_char ( ch, fp );
  429.     else if ( !str_cmp( word, "OBJECT" ) ) fread_obj  ( ch, fp );
  430.     else if ( !str_cmp( word, "END"    ) ) break;
  431.     else
  432.     {
  433. bug( "Load_char_obj: bad section.", 0 );
  434. break;
  435.     }
  436. }
  437. fclose( fp );
  438.     }
  440.     fpReserve = fopen( NULL_FILE, "r" );
  441.     return found;
  442. }
  446. /*
  447.  * Read in a char.
  448.  */
  450. #if defined(KEY)
  451. #undef KEY
  452. #endif
  454. #define KEY( literal, field, value )
  455. if ( !str_cmp( word, literal ) )
  456. {
  457.     field  = value;
  458.     fMatch = TRUE;
  459.     break;
  460. }
  462. void fread_char( CHAR_DATA *ch, FILE *fp )
  463. {
  464.     char buf[MAX_STRING_LENGTH];
  465.     char *word;
  466.     bool fMatch;
  468.     for ( ; ; )
  469.     {
  470. word   = feof( fp ) ? "End" : fread_word( fp );
  471. fMatch = FALSE;
  473. switch ( UPPER(word[0]) )
  474. {
  475. case '*':
  476.     fMatch = TRUE;
  477.     fread_to_eol( fp );
  478.     break;
  480. case 'A':
  481.     KEY( "Act", ch->act, fread_number( fp ) );
  482.     KEY( "AffectedBy", ch->affected_by, fread_number( fp ) );
  483.     KEY( "Alignment", ch->alignment, fread_number( fp ) );
  484.     KEY( "Armor", ch->armor, fread_number( fp ) );
  486.     if ( !str_cmp( word, "Affect" ) )
  487.     {
  488. AFFECT_DATA *paf;
  490. if ( affect_free == NULL )
  491. {
  492.     paf = alloc_perm( sizeof(*paf) );
  493. }
  494. else
  495. {
  496.     paf = affect_free;
  497.     affect_free = affect_free->next;
  498. }
  500. paf->type = fread_number( fp );
  501. paf->duration = fread_number( fp );
  502. paf->modifier = fread_number( fp );
  503. paf->location = fread_number( fp );
  504. paf->bitvector = fread_number( fp );
  505. paf->next = ch->affected;
  506. ch->affected = paf;
  507. fMatch = TRUE;
  508. break;
  509.     }
  511.     if ( !str_cmp( word, "AttrMod"  ) )
  512.     {
  513. ch->pcdata->mod_str  = fread_number( fp );
  514. ch->pcdata->mod_int  = fread_number( fp );
  515. ch->pcdata->mod_wis  = fread_number( fp );
  516. ch->pcdata->mod_dex  = fread_number( fp );
  517. ch->pcdata->mod_con  = fread_number( fp );
  518. fMatch = TRUE;
  519. break;
  520.     }
  522.     if ( !str_cmp( word, "AttrPerm" ) )
  523.     {
  524. ch->pcdata->perm_str = fread_number( fp );
  525. ch->pcdata->perm_int = fread_number( fp );
  526. ch->pcdata->perm_wis = fread_number( fp );
  527. ch->pcdata->perm_dex = fread_number( fp );
  528. ch->pcdata->perm_con = fread_number( fp );
  529. fMatch = TRUE;
  530. break;
  531.     }
  532.     break;
  534. case 'B':
  535.     KEY( "Bamfin", ch->pcdata->bamfin, fread_string( fp ) );
  536.     KEY( "Bamfout", ch->pcdata->bamfout, fread_string( fp ) );
  537.     break;
  539. case 'C':
  540.     KEY( "Class", ch->class, fread_number( fp ) );
  542.     if ( !str_cmp( word, "Condition" ) )
  543.     {
  544. ch->pcdata->condition[0] = fread_number( fp );
  545. ch->pcdata->condition[1] = fread_number( fp );
  546. ch->pcdata->condition[2] = fread_number( fp );
  547. fMatch = TRUE;
  548. break;
  549.     }
  550.     break;
  552. case 'D':
  553.     KEY( "Damroll", ch->damroll, fread_number( fp ) );
  554.     KEY( "Deaf", ch->deaf, fread_number( fp ) );
  555.     KEY( "Description", ch->description, fread_string( fp ) );
  556.     break;
  558. case 'E':
  559.     if ( !str_cmp( word, "End" ) )
  560.         {
  561.         /* If a bug caused the affected_by to drop off, restore it--Slash */
  562.         ch->affected_by |= race_table[ch->race].bitvector;
  563.   return;
  564.         }
  565.     KEY( "Exp", ch->exp, fread_number( fp ) );
  566.     break;
  568. case 'G':
  569.     KEY( "Gold", ch->gold, fread_number( fp ) );
  570.     break;
  572. case 'H':
  573.     KEY( "Hitroll", ch->hitroll, fread_number( fp ) );
  575.     if ( !str_cmp( word, "HpManaMove" ) )
  576.     {
  577. ch->hit = fread_number( fp );
  578. ch->max_hit = fread_number( fp );
  579. ch->mana = fread_number( fp );
  580. ch->max_mana = fread_number( fp );
  581. ch->move = fread_number( fp );
  582. ch->max_move = fread_number( fp );
  583. fMatch = TRUE;
  584. break;
  585.     }
  586.     break;
  588. case 'L':
  589.     KEY( "Level", ch->level, fread_number( fp ) );
  590.     KEY( "LongDescr", ch->long_descr, fread_string( fp ) );
  591.     break;
  593. case 'N':
  594.     if ( !str_cmp( word, "Name" ) )
  595.     {
  596. /*
  597.  * Name already set externally.
  598.  */
  599. fread_to_eol( fp );
  600. fMatch = TRUE;
  601. break;
  602.     }
  603.     KEY( "Note",        ch->last_note,          fread_number( fp ) );
  604.     break;
  606. case 'P':
  607.     KEY( "Pagelen",     ch->pcdata->pagelen,    fread_number( fp ) );
  608.     KEY( "Password", ch->pcdata->pwd, fread_string( fp ) );
  609.     KEY( "Played", ch->played, fread_number( fp ) );
  610.     KEY( "Position", ch->position, fread_number( fp ) );
  611.     KEY( "Practice", ch->practice, fread_number( fp ) );
  612.     KEY( "Prompt", ch->prompt, fread_string( fp ) );
  613.     break;
  615. case 'R':
  616.     KEY( "Race",        ch->race, fread_number( fp ) );
  618.     if ( !str_cmp( word, "Room" ) )
  619.     {
  620. ch->in_room = get_room_index( fread_number( fp ) );
  621. if ( ch->in_room == NULL )
  622.     ch->in_room = get_room_index( ROOM_VNUM_LIMBO );
  623. fMatch = TRUE;
  624. break;
  625.     }
  627.     break;
  629. case 'S':
  630.     KEY( "SavingThrow", ch->saving_throw, fread_number( fp ) );
  631.     KEY( "Sex", ch->sex, fread_number( fp ) );
  632.     KEY( "ShortDescr", ch->short_descr, fread_string( fp ) );
  634.     if ( !str_cmp( word, "Skill" ) )
  635.     {
  636. int sn;
  637. int value;
  639. value = fread_number( fp );
  640. sn    = skill_lookup( fread_word( fp ) );
  641. if ( sn < 0 )
  642.     bug( "Fread_char: unknown skill.", 0 );
  643. else
  644.     ch->pcdata->learned[sn] = value;
  645. fMatch = TRUE;
  646.     }
  648.     break;
  650. case 'T':
  651.     KEY( "Trust", ch->trust, fread_number( fp ) );
  653.     if ( !str_cmp( word, "Title" ) )
  654.     {
  655. ch->pcdata->title = fread_string( fp );
  656. if ( isalpha(ch->pcdata->title[0])
  657. ||   isdigit(ch->pcdata->title[0]) )
  658. {
  659.     sprintf( buf, " %s", ch->pcdata->title );
  660.     free_string( ch->pcdata->title );
  661.     ch->pcdata->title = str_dup( buf );
  662. }
  663. fMatch = TRUE;
  664. break;
  665.     }
  667.     break;
  669. case 'V':
  670.     if ( !str_cmp( word, "Vnum" ) )
  671.     {
  672. ch->pIndexData = get_mob_index( fread_number( fp ) );
  673. fMatch = TRUE;
  674. break;
  675.     }
  676.     break;
  678. case 'W':
  679.     KEY( "Wimpy", ch->wimpy, fread_number( fp ) );
  680.     KEY( "Wizbit", ch->wizbit, fread_number( fp ) );
  681.     break;
  682. }
  684. /* Make sure old chars have this field - Kahn */
  685. if ( !ch->pcdata->pagelen )
  686.     ch->pcdata->pagelen = 20;
  687. if ( !ch->prompt || ch->prompt == '' )
  688.     ch->prompt = "<%h %m %mv> ";
  690. if ( !fMatch )
  691. {
  692.     bug( "Fread_char: no match.", 0 );
  693.     fread_to_eol( fp );
  694. }
  695.     }
  696. }
  700. void fread_obj( CHAR_DATA *ch, FILE *fp )
  701. {
  702.     static OBJ_DATA obj_zero;
  703.     OBJ_DATA *obj;
  704.     char *word;
  705.     int iNest;
  706.     bool fMatch;
  707.     bool fNest;
  708.     bool fVnum;
  710.     if ( obj_free == NULL )
  711.     {
  712. obj = alloc_perm( sizeof(*obj) );
  713.     }
  714.     else
  715.     {
  716. obj = obj_free;
  717. obj_free = obj_free->next;
  718.     }
  720.     *obj = obj_zero;
  721.     obj->name = str_dup( "" );
  722.     obj->short_descr = str_dup( "" );
  723.     obj->description = str_dup( "" );
  725.     fNest = FALSE;
  726.     fVnum = TRUE;
  727.     iNest = 0;
  729.     for ( ; ; )
  730.     {
  731. word   = feof( fp ) ? "End" : fread_word( fp );
  732. fMatch = FALSE;
  734. switch ( UPPER(word[0]) )
  735. {
  736. case '*':
  737.     fMatch = TRUE;
  738.     fread_to_eol( fp );
  739.     break;
  741. case 'A':
  742.     if ( !str_cmp( word, "Affect" ) )
  743.     {
  744. AFFECT_DATA *paf;
  746. if ( affect_free == NULL )
  747. {
  748.     paf = alloc_perm( sizeof(*paf) );
  749. }
  750. else
  751. {
  752.     paf = affect_free;
  753.     affect_free = affect_free->next;
  754. }
  756. paf->type = fread_number( fp );
  757. paf->duration = fread_number( fp );
  758. paf->modifier = fread_number( fp );
  759. paf->location = fread_number( fp );
  760. paf->bitvector = fread_number( fp );
  761. paf->next = obj->affected;
  762. obj->affected = paf;
  763. fMatch = TRUE;
  764. break;
  765.     }
  766.     break;
  768. case 'C':
  769.     KEY( "Cost", obj->cost, fread_number( fp ) );
  770.     break;
  772. case 'D':
  773.     KEY( "Description", obj->description, fread_string( fp ) );
  774.     break;
  776. case 'E':
  777.     KEY( "ExtraFlags", obj->extra_flags, fread_number( fp ) );
  779.     if ( !str_cmp( word, "ExtraDescr" ) )
  780.     {
  781. EXTRA_DESCR_DATA *ed;
  783. if ( extra_descr_free == NULL )
  784. {
  785.     ed = alloc_perm( sizeof(*ed) );
  786. }
  787. else
  788. {
  789.     ed = extra_descr_free;
  790.     extra_descr_free = extra_descr_free->next;
  791. }
  793. ed->keyword = fread_string( fp );
  794. ed->description = fread_string( fp );
  795. ed->next = obj->extra_descr;
  796. obj->extra_descr = ed;
  797. fMatch = TRUE;
  798.     }
  800.     if ( !str_cmp( word, "End" ) )
  801.     {
  802. if ( !fNest || !fVnum )
  803. {
  804.     bug( "Fread_obj: incomplete object.", 0 );
  805.     free_string( obj->name        );
  806.     free_string( obj->description );
  807.     free_string( obj->short_descr );
  808.     obj->next = obj_free;
  809.     obj_free  = obj;
  810.     return;
  811. }
  812. else
  813. {
  814.     obj->next = object_list;
  815.     object_list = obj;
  816.     obj->pIndexData->count++;
  817.     if ( iNest == 0 || rgObjNest[iNest] == NULL )
  818. obj_to_char( obj, ch );
  819.     else
  820. obj_to_obj( obj, rgObjNest[iNest-1] );
  821.     return;
  822. }
  823.     }
  824.     break;
  826. case 'I':
  827.     KEY( "ItemType", obj->item_type, fread_number( fp ) );
  828.     break;
  830. case 'L':
  831.     KEY( "Level", obj->level, fread_number( fp ) );
  832.     break;
  834. case 'N':
  835.     KEY( "Name", obj->name, fread_string( fp ) );
  837.     if ( !str_cmp( word, "Nest" ) )
  838.     {
  839. iNest = fread_number( fp );
  840. if ( iNest < 0 || iNest >= MAX_NEST )
  841. {
  842.     bug( "Fread_obj: bad nest %d.", iNest );
  843. }
  844. else
  845. {
  846.     rgObjNest[iNest] = obj;
  847.     fNest = TRUE;
  848. }
  849. fMatch = TRUE;
  850.     }
  851.     break;
  853. case 'S':
  854.     KEY( "ShortDescr", obj->short_descr, fread_string( fp ) );
  856.     if ( !str_cmp( word, "Spell" ) )
  857.     {
  858. int iValue;
  859. int sn;
  861. iValue = fread_number( fp );
  862. sn     = skill_lookup( fread_word( fp ) );
  863. if ( iValue < 0 || iValue > 3 )
  864. {
  865.     bug( "Fread_obj: bad iValue %d.", iValue );
  866. }
  867. else if ( sn < 0 )
  868. {
  869.     bug( "Fread_obj: unknown skill.", 0 );
  870. }
  871. else
  872. {
  873.     obj->value[iValue] = sn;
  874. }
  875. fMatch = TRUE;
  876. break;
  877.     }
  879.     break;
  881. case 'T':
  882.     KEY( "Timer", obj->timer, fread_number( fp ) );
  883.     break;
  885. case 'V':
  886.     if ( !str_cmp( word, "Values" ) )
  887.     {
  888. obj->value[0] = fread_number( fp );
  889. obj->value[1] = fread_number( fp );
  890. obj->value[2] = fread_number( fp );
  891. obj->value[3] = fread_number( fp );
  892. fMatch = TRUE;
  893. break;
  894.     }
  896.     if ( !str_cmp( word, "Vnum" ) )
  897.     {
  898. int vnum;
  900. vnum = fread_number( fp );
  901. if ( ( obj->pIndexData = get_obj_index( vnum ) ) == NULL )
  902.           {
  903. //     bug( "Fread_obj: bad vnum %d.", vnum );
  904.           log_string("Fread_object: player file contained invalid vnum");
  905.           obj->pIndexData = get_obj_index(OBJ_VNUM_ERROR);
  906.           }
  907. else
  908.     fVnum = TRUE;
  909. fMatch = TRUE;
  910. break;
  911.     }
  912.     break;
  914. case 'W':
  915.     KEY( "WearFlags", obj->wear_flags, fread_number( fp ) );
  916.     KEY( "WearLoc", obj->wear_loc, fread_number( fp ) );
  917.     KEY( "Weight", obj->weight, fread_number( fp ) );
  918.     break;
  920. }
  922. if ( !fMatch )
  923. {
  924.     bug( "Fread_obj: no match.", 0 );
  925.     fread_to_eol( fp );
  926. }
  927.     }
  928. }