home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume14 / umoria4 / part08 < prev    next >
Internet Message Format  |  1992-08-31  |  57KB
  1. Path: uunet!zephyr.ens.tek.com!master!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v14i040:  umoria4 - single player dungeon simulation (ver. 5.5), Part08/39
  5. Message-ID: <3398@master.CNA.TEK.COM>
  6. Date: 20 Aug 92 18:03:13 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1953
  9. Approved: billr@saab.CNA.TEK.COM
  10.  
  11. Submitted-by: grabiner@math.harvard.edu (David Grabiner)
  12. Posting-number: Volume 14, Issue 40
  13. Archive-name: umoria4/Part08
  14. Supersedes: umoria3: Volume 9, Issue 55-97; Volume 10, Issue 15-17
  15. Environment: Curses, Unix, Mac, MS-DOS, Atari-ST, Amiga, VMS
  16.  
  17.  
  18.  
  19. #! /bin/sh
  20. # This is a shell archive.  Remove anything before this line, then unpack
  21. # it by saving it into a file and typing "sh file".  To overwrite existing
  22. # files, type "sh file -c".  You can also feed this as standard input via
  23. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  24. # will see the following message at the end:
  25. #        "End of archive 8 (of 39)."
  26. # Contents:  source/save.c source/tables.c
  27. # Wrapped by billr@saab on Thu Aug 20 09:11:27 1992
  28. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  29. if test -f 'source/save.c' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'source/save.c'\"
  31. else
  32. echo shar: Extracting \"'source/save.c'\" \(41704 characters\)
  33. sed "s/^X//" >'source/save.c' <<'END_OF_FILE'
  34. X/* source/save.c: save and restore games and monster memory info
  35. X
  36. X   Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke
  37. X
  38. X   This software may be copied and distributed for educational, research, and
  39. X   not for profit purposes provided that this copyright and statement are
  40. X   included in all such copies. */
  41. X
  42. X/* For debugging the savefile code on systems with broken compilers.  */
  43. X#if 0
  44. X#define DEBUG(x)    x
  45. X#else
  46. X#define DEBUG(x)
  47. X#endif
  48. X
  49. X#include <stdio.h>
  50. X
  51. X#ifndef STDIO_LOADED
  52. X#define STDIO_LOADED
  53. X#endif
  54. X
  55. X#ifdef __TURBOC__
  56. X#include    <io.h>
  57. X#endif /* __TURBOC__ */
  58. X 
  59. X#include "config.h"
  60. X#include "constant.h"
  61. X#include "types.h"
  62. X
  63. X#ifndef USG
  64. X/* stuff only needed for Berkeley UNIX */
  65. X#include <sys/types.h>
  66. X#include <sys/file.h>
  67. X#include <sys/param.h>
  68. X#endif
  69. X
  70. X#ifdef VMS
  71. X#include <string.h>
  72. X#include <file.h>
  73. X#else
  74. X#ifdef USG
  75. X#ifndef ATARIST_MWC
  76. X#include <string.h>
  77. X#ifndef ATARIST_TC
  78. X#include <fcntl.h>
  79. X#endif
  80. X#else
  81. X#include "string.h"
  82. X#endif
  83. X#else
  84. X#include <strings.h>
  85. X#endif
  86. X#endif
  87. X
  88. X/* This must be included after fcntl.h, which has a prototype for `open'
  89. X   on some systems.  Otherwise, the `open' prototype conflicts with the
  90. X   `topen' declaration.  */
  91. X#include "externs.h"
  92. X
  93. X#ifdef ATARIST_TC
  94. X#include <time.h>
  95. X#endif
  96. X
  97. XDEBUG(static FILE *logfile);
  98. X
  99. X#if defined(LINT_ARGS)
  100. Xstatic int sv_write(void);
  101. Xstatic void wr_byte(int8u);
  102. Xstatic void wr_short(int16u);
  103. Xstatic void wr_long(int32u);
  104. Xstatic void wr_bytes(int8u *, int);
  105. Xstatic void wr_string(char *);
  106. Xstatic void wr_shorts(int16u *, int);
  107. Xstatic void wr_item(inven_type *);
  108. Xstatic void wr_monster(monster_type *);
  109. Xstatic void rd_byte(int8u *);
  110. Xstatic void rd_short(int16u *);
  111. Xstatic void rd_long(int32u *);
  112. Xstatic void rd_bytes(int8u *, int);
  113. Xstatic void rd_string(char *);
  114. Xstatic void rd_shorts(int16u *, int);
  115. Xstatic void rd_item(inven_type *);
  116. Xstatic void rd_monster(monster_type *);
  117. X#else
  118. Xstatic int sv_write();
  119. Xstatic void wr_byte();
  120. Xstatic void wr_short();
  121. Xstatic void wr_long();
  122. Xstatic void wr_bytes();
  123. Xstatic void wr_string();
  124. Xstatic void wr_shorts();
  125. Xstatic void wr_item();
  126. Xstatic void wr_monster();
  127. Xstatic void rd_byte();
  128. Xstatic void rd_short();
  129. Xstatic void rd_long();
  130. Xstatic void rd_bytes();
  131. Xstatic void rd_string();
  132. Xstatic void rd_shorts();
  133. Xstatic void rd_item();
  134. Xstatic void rd_monster();
  135. X#endif
  136. X
  137. X#if !defined(ATARIST_MWC)
  138. X#ifdef MAC
  139. X#include <time.h>
  140. X#else
  141. Xlong time();
  142. X#endif
  143. X#else
  144. Xchar *malloc();
  145. X#endif
  146. X
  147. X/* these are used for the save file, to avoid having to pass them to every
  148. X   procedure */
  149. Xstatic FILE *fileptr;
  150. Xstatic int8u xor_byte;
  151. Xstatic int from_savefile;    /* can overwrite old savefile when save */
  152. Xstatic int32u start_time;    /* time that play started */
  153. X
  154. X/* This save package was brought to by            -JWT-
  155. X   and                            -RAK-
  156. X   and has been completely rewritten for UNIX by    -JEW-  */
  157. X/* and has been completely rewritten again by     -CJS-    */
  158. X/* and completely rewritten again! for portability by -JEW- */
  159. X
  160. Xstatic int sv_write()
  161. X{
  162. X  int32u l;
  163. X  register int i, j;
  164. X  int count;
  165. X  int8u char_tmp, prev_char;
  166. X  register cave_type *c_ptr;
  167. X  register recall_type *r_ptr;
  168. X  struct stats *s_ptr;
  169. X  register struct flags *f_ptr;
  170. X  store_type *st_ptr;
  171. X  struct misc *m_ptr;
  172. X#if defined(MSDOS) || defined(ATARI_ST)
  173. X  inven_type *t_ptr;
  174. X#endif
  175. X
  176. X  /* clear the death flag when creating a HANGUP save file, so that player
  177. X     can see tombstone when restart */
  178. X  if (eof_flag)
  179. X    death = FALSE;
  180. X
  181. X  l = 0;
  182. X  if (find_cut)
  183. X    l |= 0x1;
  184. X  if (find_examine)
  185. X    l |= 0x2;
  186. X  if (find_prself)
  187. X    l |= 0x4;
  188. X  if (find_bound)
  189. X    l |= 0x8;
  190. X  if (prompt_carry_flag)
  191. X    l |= 0x10;
  192. X  if (rogue_like_commands)
  193. X    l |= 0x20;
  194. X  if (show_weight_flag)
  195. X    l |= 0x40;
  196. X  if (highlight_seams)
  197. X    l |= 0x80;
  198. X  if (find_ignore_doors)
  199. X    l |= 0x100;
  200. X  if (sound_beep_flag)
  201. X    l |= 0x200;
  202. X  if (display_counts)
  203. X    l |= 0x400;
  204. X  if (death)
  205. X    l |= 0x80000000L;    /* Sign bit */
  206. X  if (total_winner)
  207. X    l |= 0x40000000L;
  208. X
  209. X  for (i = 0; i < MAX_CREATURES; i++)
  210. X    {
  211. X      r_ptr = &c_recall[i];
  212. X      if (r_ptr->r_cmove || r_ptr->r_cdefense || r_ptr->r_kills ||
  213. X      r_ptr->r_spells || r_ptr->r_deaths || r_ptr->r_attacks[0] ||
  214. X      r_ptr->r_attacks[1] || r_ptr->r_attacks[2] || r_ptr->r_attacks[3])
  215. X    {
  216. X      wr_short((int16u)i);
  217. X      wr_long(r_ptr->r_cmove);
  218. X      wr_long(r_ptr->r_spells);
  219. X      wr_short(r_ptr->r_kills);
  220. X      wr_short(r_ptr->r_deaths);
  221. X      wr_short(r_ptr->r_cdefense);
  222. X      wr_byte(r_ptr->r_wake);
  223. X      wr_byte(r_ptr->r_ignore);
  224. X      wr_bytes(r_ptr->r_attacks, MAX_MON_NATTACK);
  225. X    }
  226. X    }
  227. X  wr_short((int16u)0xFFFF); /* sentinel to indicate no more monster info */
  228. X
  229. X  wr_long(l);
  230. X
  231. X  m_ptr = &py.misc;
  232. X  wr_string(m_ptr->name);
  233. X  wr_byte(m_ptr->male);
  234. X  wr_long((int32u)m_ptr->au);
  235. X  wr_long((int32u)m_ptr->max_exp);
  236. X  wr_long((int32u)m_ptr->exp);
  237. X  wr_short(m_ptr->exp_frac);
  238. X  wr_short(m_ptr->age);
  239. X  wr_short(m_ptr->ht);
  240. X  wr_short(m_ptr->wt);
  241. X  wr_short(m_ptr->lev);
  242. X  wr_short(m_ptr->max_dlv);
  243. X  wr_short((int16u)m_ptr->srh);
  244. X  wr_short((int16u)m_ptr->fos);
  245. X  wr_short((int16u)m_ptr->bth);
  246. X  wr_short((int16u)m_ptr->bthb);
  247. X  wr_short((int16u)m_ptr->mana);
  248. X  wr_short((int16u)m_ptr->mhp);
  249. X  wr_short((int16u)m_ptr->ptohit);
  250. X  wr_short((int16u)m_ptr->ptodam);
  251. X  wr_short((int16u)m_ptr->pac);
  252. X  wr_short((int16u)m_ptr->ptoac);
  253. X  wr_short((int16u)m_ptr->dis_th);
  254. X  wr_short((int16u)m_ptr->dis_td);
  255. X  wr_short((int16u)m_ptr->dis_ac);
  256. X  wr_short((int16u)m_ptr->dis_tac);
  257. X  wr_short((int16u)m_ptr->disarm);
  258. X  wr_short((int16u)m_ptr->save);
  259. X  wr_short((int16u)m_ptr->sc);
  260. X  wr_short((int16u)m_ptr->stl);
  261. X  wr_byte(m_ptr->pclass);
  262. X  wr_byte(m_ptr->prace);
  263. X  wr_byte(m_ptr->hitdie);
  264. X  wr_byte(m_ptr->expfact);
  265. X  wr_short((int16u)m_ptr->cmana);
  266. X  wr_short(m_ptr->cmana_frac);
  267. X  wr_short((int16u)m_ptr->chp);
  268. X  wr_short(m_ptr->chp_frac);
  269. X  for (i = 0; i < 4; i++)
  270. X    wr_string (m_ptr->history[i]);
  271. X
  272. X  s_ptr = &py.stats;
  273. X  wr_bytes(s_ptr->max_stat, 6);
  274. X  wr_bytes(s_ptr->cur_stat, 6);
  275. X  wr_shorts((int16u *)s_ptr->mod_stat, 6);
  276. X  wr_bytes(s_ptr->use_stat, 6);
  277. X
  278. X  f_ptr = &py.flags;
  279. X  wr_long(f_ptr->status);
  280. X  wr_short((int16u)f_ptr->rest);
  281. X  wr_short((int16u)f_ptr->blind);
  282. X  wr_short((int16u)f_ptr->paralysis);
  283. X  wr_short((int16u)f_ptr->confused);
  284. X  wr_short((int16u)f_ptr->food);
  285. X  wr_short((int16u)f_ptr->food_digested);
  286. X  wr_short((int16u)f_ptr->protection);
  287. X  wr_short((int16u)f_ptr->speed);
  288. X  wr_short((int16u)f_ptr->fast);
  289. X  wr_short((int16u)f_ptr->slow);
  290. X  wr_short((int16u)f_ptr->afraid);
  291. X  wr_short((int16u)f_ptr->poisoned);
  292. X  wr_short((int16u)f_ptr->image);
  293. X  wr_short((int16u)f_ptr->protevil);
  294. X  wr_short((int16u)f_ptr->invuln);
  295. X  wr_short((int16u)f_ptr->hero);
  296. X  wr_short((int16u)f_ptr->shero);
  297. X  wr_short((int16u)f_ptr->blessed);
  298. X  wr_short((int16u)f_ptr->resist_heat);
  299. X  wr_short((int16u)f_ptr->resist_cold);
  300. X  wr_short((int16u)f_ptr->detect_inv);
  301. X  wr_short((int16u)f_ptr->word_recall);
  302. X  wr_short((int16u)f_ptr->see_infra);
  303. X  wr_short((int16u)f_ptr->tim_infra);
  304. X  wr_byte(f_ptr->see_inv);
  305. X  wr_byte(f_ptr->teleport);
  306. X  wr_byte(f_ptr->free_act);
  307. X  wr_byte(f_ptr->slow_digest);
  308. X  wr_byte(f_ptr->aggravate);
  309. X  wr_byte(f_ptr->fire_resist);
  310. X  wr_byte(f_ptr->cold_resist);
  311. X  wr_byte(f_ptr->acid_resist);
  312. X  wr_byte(f_ptr->regenerate);
  313. X  wr_byte(f_ptr->lght_resist);
  314. X  wr_byte(f_ptr->ffall);
  315. X  wr_byte(f_ptr->sustain_str);
  316. X  wr_byte(f_ptr->sustain_int);
  317. X  wr_byte(f_ptr->sustain_wis);
  318. X  wr_byte(f_ptr->sustain_con);
  319. X  wr_byte(f_ptr->sustain_dex);
  320. X  wr_byte(f_ptr->sustain_chr);
  321. X  wr_byte(f_ptr->confuse_monster);
  322. X  wr_byte(f_ptr->new_spells);
  323. X
  324. X  wr_short((int16u)missile_ctr);
  325. X  wr_long((int32u)turn);
  326. X  wr_short((int16u)inven_ctr);
  327. X  for (i = 0; i < inven_ctr; i++)
  328. X    wr_item(&inventory[i]);
  329. X  for (i = INVEN_WIELD; i < INVEN_ARRAY_SIZE; i++)
  330. X    wr_item(&inventory[i]);
  331. X  wr_short((int16u)inven_weight);
  332. X  wr_short((int16u)equip_ctr);
  333. X  wr_long(spell_learned);
  334. X  wr_long(spell_worked);
  335. X  wr_long(spell_forgotten);
  336. X  wr_bytes(spell_order, 32);
  337. X  wr_bytes(object_ident, OBJECT_IDENT_SIZE);
  338. X  wr_long(randes_seed);
  339. X  wr_long(town_seed);
  340. X  wr_short((int16u)last_msg);
  341. X  for (i = 0; i < MAX_SAVE_MSG; i++)
  342. X    wr_string(old_msg[i]);
  343. X
  344. X  /* this indicates 'cheating' if it is a one */
  345. X  wr_short((int16u)panic_save);
  346. X  wr_short((int16u)total_winner);
  347. X  wr_short((int16u)noscore);
  348. X  wr_shorts(player_hp, MAX_PLAYER_LEVEL);
  349. X
  350. X  for (i = 0; i < MAX_STORES; i++)
  351. X    {
  352. X      st_ptr = &store[i];
  353. X      wr_long((int32u)st_ptr->store_open);
  354. X      wr_short((int16u)st_ptr->insult_cur);
  355. X      wr_byte(st_ptr->owner);
  356. X      wr_byte(st_ptr->store_ctr);
  357. X      wr_short(st_ptr->good_buy);
  358. X      wr_short(st_ptr->bad_buy);
  359. X      for (j = 0; j < st_ptr->store_ctr; j++)
  360. X    {
  361. X      wr_long((int32u)st_ptr->store_inven[j].scost);
  362. X      wr_item(&st_ptr->store_inven[j].sitem);
  363. X    }
  364. X    }
  365. X
  366. X  /* save the current time in the savefile */
  367. X#ifdef MAC
  368. X  l = time((time_t *)0);
  369. X#else
  370. X  l = time((long *)0);
  371. X#endif
  372. X  if (l < start_time)
  373. X    {
  374. X      /* someone is messing with the clock!, assume that we have been
  375. X     playing for 1 day */
  376. X      l = start_time + 86400L;
  377. X    }
  378. X  wr_long(l);
  379. X
  380. X  /* starting with 5.2, put died_from string in savefile */
  381. X  wr_string(died_from);
  382. X
  383. X  /* starting with 5.2.2, put the max_score in the savefile */
  384. X  l = total_points ();
  385. X  wr_long (l);
  386. X
  387. X  /* starting with 5.2.2, put the birth_date in the savefile */
  388. X  wr_long ((int32u) birth_date);
  389. X
  390. X  /* only level specific info follows, this allows characters to be
  391. X     resurrected, the dungeon level info is not needed for a resurrection */
  392. X  if (death)
  393. X    {
  394. X      if (ferror(fileptr) || fflush(fileptr) == EOF)
  395. X    return FALSE;
  396. X      return TRUE;
  397. X    }
  398. X
  399. X  wr_short((int16u)dun_level);
  400. X  wr_short((int16u)char_row);
  401. X  wr_short((int16u)char_col);
  402. X  wr_short((int16u)mon_tot_mult);
  403. X  wr_short((int16u)cur_height);
  404. X  wr_short((int16u)cur_width);
  405. X  wr_short((int16u)max_panel_rows);
  406. X  wr_short((int16u)max_panel_cols);
  407. X
  408. X  for (i = 0; i < MAX_HEIGHT; i++)
  409. X    for (j = 0; j < MAX_WIDTH; j++)
  410. X      {
  411. X    c_ptr = &cave[i][j];
  412. X    if (c_ptr->cptr != 0)
  413. X      {
  414. X        wr_byte((int8u)i);
  415. X        wr_byte((int8u)j);
  416. X        wr_byte(c_ptr->cptr);
  417. X      }
  418. X      }
  419. X  wr_byte((int8u)0xFF); /* marks end of cptr info */
  420. X  for (i = 0; i < MAX_HEIGHT; i++)
  421. X    for (j = 0; j < MAX_WIDTH; j++)
  422. X      {
  423. X    c_ptr = &cave[i][j];
  424. X    if (c_ptr->tptr != 0)
  425. X      {
  426. X        wr_byte((int8u)i);
  427. X        wr_byte((int8u)j);
  428. X        wr_byte(c_ptr->tptr);
  429. X      }
  430. X      }
  431. X  wr_byte((int8u)0xFF); /* marks end of tptr info */
  432. X  /* must set counter to zero, note that code may write out two bytes
  433. X     unnecessarily */
  434. X  count = 0;
  435. X  prev_char = 0;
  436. X  for (i = 0; i < MAX_HEIGHT; i++)
  437. X    for (j = 0; j < MAX_WIDTH; j++)
  438. X      {
  439. X    c_ptr = &cave[i][j];
  440. X    char_tmp = c_ptr->fval | (c_ptr->lr << 4) | (c_ptr->fm << 5) |
  441. X      (c_ptr->pl << 6) | (c_ptr->tl << 7);
  442. X    if (char_tmp != prev_char || count == MAX_UCHAR)
  443. X      {
  444. X        wr_byte((int8u)count);
  445. X        wr_byte(prev_char);
  446. X        prev_char = char_tmp;
  447. X        count = 1;
  448. X      }
  449. X    else
  450. X      count++;
  451. X      }
  452. X  /* save last entry */
  453. X  wr_byte((int8u)count);
  454. X  wr_byte(prev_char);
  455. X
  456. X#if defined(MSDOS) || defined(ATARI_ST)
  457. X  /* must change graphics symbols for walls and floors back to default chars,
  458. X     this is necessary so that if the user changes the graphics line, the
  459. X     program will be able change all existing walls and floors to the new
  460. X     symbol */
  461. X  /* Or if the user moves the savefile from one machine to another, we
  462. X     must have a consistent representation here.  */
  463. X  t_ptr = &t_list[tcptr - 1];
  464. X  for (i = tcptr - 1; i >= MIN_TRIX; i--)
  465. X    {
  466. X#ifdef MSDOS
  467. X      if (t_ptr->tchar == wallsym)
  468. X    t_ptr->tchar = '#';
  469. X#endif
  470. X#ifdef ATARI_ST
  471. X      if (t_ptr->tchar == (unsigned char)240)
  472. X    t_ptr->tchar = '#';
  473. X#endif
  474. X      t_ptr--;
  475. X    }
  476. X#endif
  477. X  wr_short((int16u)tcptr);
  478. X  for (i = MIN_TRIX; i < tcptr; i++)
  479. X    wr_item(&t_list[i]);
  480. X  wr_short((int16u)mfptr);
  481. X  for (i = MIN_MONIX; i < mfptr; i++)
  482. X    wr_monster(&m_list[i]);
  483. X
  484. X  if (ferror(fileptr) || (fflush(fileptr) == EOF))
  485. X    return FALSE;
  486. X  return TRUE;
  487. X}
  488. X
  489. X#ifdef MAC
  490. X
  491. X/* Set up prior to actual save, do the save, then clean up */
  492. X/* Notice that Mac version of this function takes a parameter */
  493. X/* To do a "save as" set always_ask */
  494. X/* To do a "save" clear always_ask */
  495. X
  496. Xint save_char(always_ask)
  497. Xint always_ask;
  498. X{
  499. X  int rc, already_set, proceed;
  500. X  int16 vrefnum;
  501. X
  502. X  /* cannot rely on _save_char to do this because we may put up a dialog */
  503. X  if (character_saved) return(TRUE);
  504. X
  505. X  enablefilemenu(FALSE);
  506. X
  507. X  already_set = getsavedefaults(savefile, &vrefnum);
  508. X
  509. X  if (!already_set || always_ask)
  510. X    {
  511. X      /* Here if always_ask or user has not yet specified a save file */
  512. X      /* User specifies a save file when he restarts a previous one */
  513. X      sfposition(vrefnum);
  514. X      proceed = doputfile(death ? "Save memories as:" : "Save game as:",
  515. X              savefile, &vrefnum);
  516. X    }
  517. X  else
  518. X    proceed = TRUE;
  519. X
  520. X  if (proceed)
  521. X    {
  522. X      changedirectory(vrefnum);
  523. X      rc = _save_char(savefile);
  524. X      restoredirectory();
  525. X    }
  526. X  else
  527. X    rc = FALSE;
  528. X
  529. X  if (rc)
  530. X    (void) setfileinfo(savefile, vrefnum, SAVE_FTYPE);
  531. X
  532. X  enablefilemenu(TRUE);
  533. X
  534. X  return(rc);
  535. X}
  536. X
  537. X#else
  538. X
  539. X/* The Mac has different logic here -- See above */
  540. X
  541. Xint save_char()
  542. X{
  543. X  int i;
  544. X  vtype temp;
  545. X
  546. X#ifdef SECURE
  547. X  bePlayer();
  548. X#endif
  549. X
  550. X  while (!_save_char(savefile))
  551. X    {
  552. X      (void) sprintf(temp, "Savefile '%s' fails.", savefile);
  553. X      msg_print(temp);
  554. X      i = 0;
  555. X      if (access(savefile, 0) < 0
  556. X      || get_check("File exists. Delete old savefile?") == 0
  557. X      || (i = unlink(savefile)) < 0)
  558. X    {
  559. X      if (i < 0)
  560. X        {
  561. X          (void) sprintf(temp, "Can't delete '%s'", savefile);
  562. X          msg_print(temp);
  563. X        }
  564. X      prt("New Savefile [ESC to give up]:", 0, 0);
  565. X      if (!get_string(temp, 0, 31, 45))
  566. X        return FALSE;
  567. X      if (temp[0])
  568. X        (void) strcpy(savefile, temp);
  569. X    }
  570. X      (void) sprintf(temp, "Saving with %s...", savefile);
  571. X      prt(temp, 0, 0);
  572. X    }
  573. X#ifdef SECURE
  574. X  beGames();
  575. X#endif
  576. X  return TRUE;
  577. X}
  578. X#endif
  579. X
  580. Xint _save_char(fnam)
  581. Xchar *fnam;
  582. X{
  583. X  vtype temp;
  584. X  register int ok, fd;
  585. X  int8u char_tmp;
  586. X
  587. X  if (character_saved)
  588. X    return TRUE;    /* Nothing to save. */
  589. X
  590. X  nosignals();
  591. X  put_qio();
  592. X  disturb (1, 0);        /* Turn off resting and searching. */
  593. X  change_speed(-pack_heavy);    /* Fix the speed */
  594. X  pack_heavy = 0;
  595. X  ok = FALSE;
  596. X  /* VMS files have version numbers, so don't worry about overwriting
  597. X     the old save file. */
  598. X#if !defined(ATARIST_MWC) && !defined(VMS)
  599. X  fd = -1;
  600. X  fileptr = NULL;        /* Do not assume it has been init'ed */
  601. X#if defined(MAC) || defined(AMIGA)
  602. X  /* The Mac version automatically overwrites */
  603. X  fd = open(fnam, O_RDWR|O_CREAT|O_TRUNC);
  604. X#ifdef MAC
  605. X  macbeginwait ();
  606. X#endif
  607. X#else
  608. X  fd = open(fnam, O_RDWR|O_CREAT|O_EXCL, 0600);
  609. X  if (fd < 0 && access(fnam, 0) >= 0 &&
  610. X      (from_savefile ||
  611. X       (wizard && get_check("Can't make new savefile. Overwrite old?"))))
  612. X    {
  613. X      (void) chmod(fnam, 0600);
  614. X      fd = open(fnam, O_RDWR|O_TRUNC, 0600);
  615. X    }
  616. X#endif
  617. X  if (fd >= 0)
  618. X    {
  619. X      (void) close(fd);
  620. X#endif /* !ATARIST_MWC && !VMS */
  621. X      /* GCC for atari st defines atarist */
  622. X#if defined(atarist) || defined(ATARI_ST) || defined(THINK_C) || defined(MSDOS)
  623. X      fileptr = fopen(savefile, "wb");
  624. X#else
  625. X      fileptr = fopen(savefile, "w");
  626. X#endif
  627. X#if !defined(ATARIST_MWC) && !defined(VMS)
  628. X    }
  629. X#endif
  630. X  DEBUG(logfile = fopen("IO_LOG", "a"));
  631. X  DEBUG(fprintf (logfile, "Saving data to %s\n", savefile));
  632. X  if (fileptr != NULL)
  633. X    {
  634. X      xor_byte = 0;
  635. X      wr_byte((int8u)CUR_VERSION_MAJ);
  636. X      xor_byte = 0;
  637. X      wr_byte((int8u)CUR_VERSION_MIN);
  638. X      xor_byte = 0;
  639. X      wr_byte((int8u)PATCH_LEVEL);
  640. X      xor_byte = 0;
  641. X      char_tmp = randint(256) - 1;
  642. X      wr_byte(char_tmp);
  643. X      /* Note that xor_byte is now equal to char_tmp */
  644. X
  645. X      ok = sv_write();
  646. X
  647. X      DEBUG(fclose (logfile));
  648. X
  649. X      if (fclose(fileptr) == EOF)
  650. X    ok = FALSE;
  651. X    }
  652. X
  653. X#ifdef MAC
  654. X  macendwait ();
  655. X#endif
  656. X
  657. X  if (!ok)
  658. X    {
  659. X      if (fd >= 0)
  660. X    (void) unlink(fnam);
  661. X      signals();
  662. X      if (fd >= 0)
  663. X    (void) sprintf(temp, "Error writing to file %s", fnam);
  664. X      else
  665. X    (void) sprintf(temp, "Can't create new file %s", fnam);
  666. X      msg_print(temp);
  667. X      return FALSE;
  668. X    }
  669. X  else
  670. X    character_saved = 1;
  671. X
  672. X  turn = -1;
  673. X  signals();
  674. X
  675. X  return TRUE;
  676. X}
  677. X
  678. X
  679. X#ifdef MAC
  680. X/* Wrapper to set the appropriate directory */
  681. Xint get_char(generate)
  682. Xint *generate;
  683. X{
  684. X  int rc, exit_flag;
  685. X  int16 vrefnum;
  686. X
  687. X  (void) getsavedefaults(savefile, &vrefnum);
  688. X
  689. X  changedirectory(vrefnum);
  690. X  rc = _get_char(generate, &exit_flag);
  691. X  restoredirectory();
  692. X
  693. X  if (exit_flag)
  694. X    exit_game();
  695. X
  696. X  return(rc);
  697. X}
  698. X#endif
  699. X
  700. X/* Certain checks are ommitted for the wizard. -CJS- */
  701. X
  702. X#ifdef MAC
  703. Xint _get_char(generate, exit_flag)
  704. Xint *generate, *exit_flag;
  705. X#else
  706. Xint get_char(generate)
  707. Xint *generate;
  708. X#endif
  709. X{
  710. X  register int i, j;
  711. X  int fd, c, ok, total_count;
  712. X  int32u l, age, time_saved;
  713. X  vtype temp;
  714. X  int16u int16u_tmp;
  715. X  register cave_type *c_ptr;
  716. X  register recall_type *r_ptr;
  717. X  struct misc *m_ptr;
  718. X  struct stats *s_ptr;
  719. X  register struct flags *f_ptr;
  720. X  store_type *st_ptr;
  721. X  int8u char_tmp, ychar, xchar, count;
  722. X  int8u version_maj, version_min, patch_level;
  723. X#if defined(MSDOS) || defined(ATARI_ST)
  724. X  inven_type *t_ptr;
  725. X#endif
  726. X
  727. X#ifdef MAC
  728. X  *exit_flag = FALSE;
  729. X#endif
  730. X
  731. X  nosignals();
  732. X  *generate = TRUE;
  733. X  fd = -1;
  734. X
  735. X#ifndef MAC
  736. X  /* Not required for Mac, because the file name is obtained through a dialog.
  737. X     There is no way for a non existnat file to be specified.  -BS-    */
  738. X  if (access(savefile, 0) != 0)
  739. X    {
  740. X      signals();
  741. X      msg_print("Savefile does not exist.");
  742. X      return FALSE;    /* Don't bother with messages here. File absent. */
  743. X    }
  744. X#endif
  745. X
  746. X  clear_screen();
  747. X
  748. X  (void) sprintf(temp, "Savefile %s present. Attempting restore.", savefile);
  749. X  put_buffer(temp, 23, 0);
  750. X
  751. X  if (turn >= 0)
  752. X    msg_print("IMPOSSIBLE! Attempt to restore while still alive!");
  753. X
  754. X  /* Allow restoring a file belonging to someone else, if we can delete it. */
  755. X  /* Hence first try to read without doing a chmod. */
  756. X
  757. X#if defined(MAC) || defined(AMIGA)
  758. X  else if ((fd = open(savefile, O_RDONLY)) < 0)
  759. X#else
  760. X#ifdef ATARI_ST
  761. X  else if (FALSE)
  762. X#else
  763. X  else if ((fd = open(savefile, O_RDONLY, 0)) < 0
  764. X       && (chmod(savefile, 0400) < 0 ||
  765. X           (fd = open(savefile, O_RDONLY, 0)) < 0))
  766. X#endif
  767. X#endif
  768. X    msg_print("Can't open file for reading.");
  769. X  else
  770. X    {
  771. X      turn = -1;
  772. X      ok = TRUE;
  773. X
  774. X      (void) close(fd);
  775. X      /* GCC for atari st defines atarist */
  776. X#if defined(atarist) || defined(ATARI_ST) || defined(THINK_C) || defined(MSDOS)
  777. X      fileptr = fopen(savefile, "rb");
  778. X#else
  779. X      fileptr = fopen(savefile, "r");
  780. X#endif
  781. X      if (fileptr == NULL)
  782. X    goto error;
  783. X
  784. X#ifdef MAC
  785. X      macbeginwait ();
  786. X#endif
  787. X
  788. X      prt("Restoring Memory...", 0, 0);
  789. X      put_qio();
  790. X
  791. X      DEBUG(logfile = fopen("IO_LOG", "a"));
  792. X      DEBUG(fprintf (logfile, "Reading data from %s\n", savefile));
  793. X
  794. X      xor_byte = 0;
  795. X      rd_byte(&version_maj);
  796. X      xor_byte = 0;
  797. X      rd_byte(&version_min);
  798. X      xor_byte = 0;
  799. X      rd_byte(&patch_level);
  800. X      xor_byte = 0;
  801. X      rd_byte(&xor_byte);
  802. X
  803. X      /* COMPAT support savefiles from 5.0.14 to 5.0.17 */
  804. X      /* support savefiles from 5.1.0 to present */
  805. X      if ((version_maj != CUR_VERSION_MAJ)
  806. X#if 0
  807. X      /* As of version 5.4, accept savefiles even if they have higher
  808. X         version numbers.  The savefile format was frozen as of version
  809. X         5.2.2.  */
  810. X      || (version_min > CUR_VERSION_MIN)
  811. X      || (version_min == CUR_VERSION_MIN && patch_level > PATCH_LEVEL)
  812. X#endif
  813. X      || (version_min == 0 && patch_level < 14))
  814. X    {
  815. X      prt("Sorry. This savefile is from a different version of umoria.",
  816. X          2, 0);
  817. X      goto error;
  818. X    }
  819. X
  820. X      rd_short(&int16u_tmp);
  821. X      while (int16u_tmp != 0xFFFF)
  822. X    {
  823. X      if (int16u_tmp >= MAX_CREATURES)
  824. X        goto error;
  825. X      r_ptr = &c_recall[int16u_tmp];
  826. X      rd_long(&r_ptr->r_cmove);
  827. X      rd_long(&r_ptr->r_spells);
  828. X      rd_short(&r_ptr->r_kills);
  829. X      rd_short(&r_ptr->r_deaths);
  830. X      rd_short(&r_ptr->r_cdefense);
  831. X      rd_byte(&r_ptr->r_wake);
  832. X      rd_byte(&r_ptr->r_ignore);
  833. X      rd_bytes(r_ptr->r_attacks, MAX_MON_NATTACK);
  834. X      rd_short(&int16u_tmp);
  835. X    }
  836. X
  837. X      /* for save files before 5.2.2, read and ignore log_index (sic) */
  838. X      if ((version_min < 2) || (version_min == 2 && patch_level < 2))
  839. X    rd_short(&int16u_tmp);
  840. X      rd_long(&l);
  841. X
  842. X      if (l & 0x1)
  843. X    find_cut = TRUE;
  844. X      else
  845. X    find_cut = FALSE;
  846. X      if (l & 0x2)
  847. X    find_examine = TRUE;
  848. X      else
  849. X    find_examine = FALSE;
  850. X      if (l & 0x4)
  851. X    find_prself = TRUE;
  852. X      else
  853. X    find_prself = FALSE;
  854. X      if (l & 0x8)
  855. X    find_bound = TRUE;
  856. X      else
  857. X    find_bound = FALSE;
  858. X      if (l & 0x10)
  859. X    prompt_carry_flag = TRUE;
  860. X      else
  861. X    prompt_carry_flag = FALSE;
  862. X      if (l & 0x20)
  863. X    rogue_like_commands = TRUE;
  864. X      else
  865. X    rogue_like_commands = FALSE;
  866. X      if (l & 0x40)
  867. X    show_weight_flag = TRUE;
  868. X      else
  869. X    show_weight_flag = FALSE;
  870. X      if (l & 0x80)
  871. X    highlight_seams = TRUE;
  872. X      else
  873. X    highlight_seams = FALSE;
  874. X      if (l & 0x100)
  875. X    find_ignore_doors = TRUE;
  876. X      else
  877. X    find_ignore_doors = FALSE;
  878. X      /* save files before 5.2.2 don't have sound_beep_flag, set it on
  879. X     for compatibility */
  880. X      if ((version_min < 2) || (version_min == 2 && patch_level < 2))
  881. X    sound_beep_flag = TRUE;
  882. X      else if (l & 0x200)
  883. X    sound_beep_flag = TRUE;
  884. X      else
  885. X    sound_beep_flag = FALSE;
  886. X      /* save files before 5.2.2 don't have display_counts, set it on
  887. X     for compatibility */
  888. X      if ((version_min < 2) || (version_min == 2 && patch_level < 2))
  889. X    display_counts = TRUE;
  890. X      else if (l & 0x400)
  891. X    display_counts = TRUE;
  892. X      else
  893. X    display_counts = FALSE;
  894. X
  895. X      /* Don't allow resurrection of total_winner characters.  It causes
  896. X     problems because the character level is out of the allowed range.  */
  897. X      if (to_be_wizard && (l & 0x40000000L))
  898. X    {
  899. X      msg_print ("Sorry, this character is retired from moria.");
  900. X      msg_print ("You can not resurrect a retired character.");
  901. X    }
  902. X      else if (to_be_wizard && (l & 0x80000000L)
  903. X           && get_check("Resurrect a dead character?"))
  904. X    l &= ~0x80000000L;
  905. X      if ((l & 0x80000000L) == 0)
  906. X    {
  907. X      m_ptr = &py.misc;
  908. X      rd_string(m_ptr->name);
  909. X      rd_byte(&m_ptr->male);
  910. X      rd_long((int32u *)&m_ptr->au);
  911. X      rd_long((int32u *)&m_ptr->max_exp);
  912. X      rd_long((int32u *)&m_ptr->exp);
  913. X      rd_short(&m_ptr->exp_frac);
  914. X      rd_short(&m_ptr->age);
  915. X      rd_short(&m_ptr->ht);
  916. X      rd_short(&m_ptr->wt);
  917. X      rd_short(&m_ptr->lev);
  918. X      rd_short(&m_ptr->max_dlv);
  919. X      rd_short((int16u *)&m_ptr->srh);
  920. X      rd_short((int16u *)&m_ptr->fos);
  921. X      rd_short((int16u *)&m_ptr->bth);
  922. X      rd_short((int16u *)&m_ptr->bthb);
  923. X      rd_short((int16u *)&m_ptr->mana);
  924. X      rd_short((int16u *)&m_ptr->mhp);
  925. X      rd_short((int16u *)&m_ptr->ptohit);
  926. X      rd_short((int16u *)&m_ptr->ptodam);
  927. X      rd_short((int16u *)&m_ptr->pac);
  928. X      rd_short((int16u *)&m_ptr->ptoac);
  929. X      rd_short((int16u *)&m_ptr->dis_th);
  930. X      rd_short((int16u *)&m_ptr->dis_td);
  931. X      rd_short((int16u *)&m_ptr->dis_ac);
  932. X      rd_short((int16u *)&m_ptr->dis_tac);
  933. X      rd_short((int16u *)&m_ptr->disarm);
  934. X      rd_short((int16u *)&m_ptr->save);
  935. X      rd_short((int16u *)&m_ptr->sc);
  936. X      rd_short((int16u *)&m_ptr->stl);
  937. X      rd_byte(&m_ptr->pclass);
  938. X      rd_byte(&m_ptr->prace);
  939. X      rd_byte(&m_ptr->hitdie);
  940. X      rd_byte(&m_ptr->expfact);
  941. X      rd_short((int16u *)&m_ptr->cmana);
  942. X      rd_short(&m_ptr->cmana_frac);
  943. X      rd_short((int16u *)&m_ptr->chp);
  944. X      rd_short(&m_ptr->chp_frac);
  945. X      for (i = 0; i < 4; i++)
  946. X        rd_string (m_ptr->history[i]);
  947. X
  948. X      s_ptr = &py.stats;
  949. X      rd_bytes(s_ptr->max_stat, 6);
  950. X      rd_bytes(s_ptr->cur_stat, 6);
  951. X      rd_shorts((int16u *)s_ptr->mod_stat, 6);
  952. X      rd_bytes(s_ptr->use_stat, 6);
  953. X
  954. X      f_ptr = &py.flags;
  955. X      rd_long(&f_ptr->status);
  956. X      rd_short((int16u *)&f_ptr->rest);
  957. X      rd_short((int16u *)&f_ptr->blind);
  958. X      rd_short((int16u *)&f_ptr->paralysis);
  959. X      rd_short((int16u *)&f_ptr->confused);
  960. X      rd_short((int16u *)&f_ptr->food);
  961. X      rd_short((int16u *)&f_ptr->food_digested);
  962. X      rd_short((int16u *)&f_ptr->protection);
  963. X      rd_short((int16u *)&f_ptr->speed);
  964. X      rd_short((int16u *)&f_ptr->fast);
  965. X      rd_short((int16u *)&f_ptr->slow);
  966. X      rd_short((int16u *)&f_ptr->afraid);
  967. X      rd_short((int16u *)&f_ptr->poisoned);
  968. X      rd_short((int16u *)&f_ptr->image);
  969. X      rd_short((int16u *)&f_ptr->protevil);
  970. X      rd_short((int16u *)&f_ptr->invuln);
  971. X      rd_short((int16u *)&f_ptr->hero);
  972. X      rd_short((int16u *)&f_ptr->shero);
  973. X      rd_short((int16u *)&f_ptr->blessed);
  974. X      rd_short((int16u *)&f_ptr->resist_heat);
  975. X      rd_short((int16u *)&f_ptr->resist_cold);
  976. X      rd_short((int16u *)&f_ptr->detect_inv);
  977. X      rd_short((int16u *)&f_ptr->word_recall);
  978. X      rd_short((int16u *)&f_ptr->see_infra);
  979. X      rd_short((int16u *)&f_ptr->tim_infra);
  980. X      rd_byte(&f_ptr->see_inv);
  981. X      rd_byte(&f_ptr->teleport);
  982. X      rd_byte(&f_ptr->free_act);
  983. X      rd_byte(&f_ptr->slow_digest);
  984. X      rd_byte(&f_ptr->aggravate);
  985. X      rd_byte(&f_ptr->fire_resist);
  986. X      rd_byte(&f_ptr->cold_resist);
  987. X      rd_byte(&f_ptr->acid_resist);
  988. X      rd_byte(&f_ptr->regenerate);
  989. X      rd_byte(&f_ptr->lght_resist);
  990. X      rd_byte(&f_ptr->ffall);
  991. X      rd_byte(&f_ptr->sustain_str);
  992. X      rd_byte(&f_ptr->sustain_int);
  993. X      rd_byte(&f_ptr->sustain_wis);
  994. X      rd_byte(&f_ptr->sustain_con);
  995. X      rd_byte(&f_ptr->sustain_dex);
  996. X      rd_byte(&f_ptr->sustain_chr);
  997. X      rd_byte(&f_ptr->confuse_monster);
  998. X      rd_byte(&f_ptr->new_spells);
  999. X
  1000. X      rd_short((int16u *)&missile_ctr);
  1001. X      rd_long((int32u *)&turn);
  1002. X      rd_short((int16u *)&inven_ctr);
  1003. X      if (inven_ctr > INVEN_WIELD)
  1004. X        goto error;
  1005. X      for (i = 0; i < inven_ctr; i++)
  1006. X        rd_item(&inventory[i]);
  1007. X      for (i = INVEN_WIELD; i < INVEN_ARRAY_SIZE; i++)
  1008. X        rd_item(&inventory[i]);
  1009. X      rd_short((int16u *)&inven_weight);
  1010. X      rd_short((int16u *)&equip_ctr);
  1011. X      rd_long(&spell_learned);
  1012. X      rd_long(&spell_worked);
  1013. X      rd_long(&spell_forgotten);
  1014. X      rd_bytes(spell_order, 32);
  1015. X      rd_bytes(object_ident, OBJECT_IDENT_SIZE);
  1016. X      rd_long(&randes_seed);
  1017. X      rd_long(&town_seed);
  1018. X      rd_short((int16u *)&last_msg);
  1019. X      for (i = 0; i < MAX_SAVE_MSG; i++)
  1020. X        rd_string(old_msg[i]);
  1021. X
  1022. X      rd_short((int16u *)&panic_save);
  1023. X      rd_short((int16u *)&total_winner);
  1024. X      rd_short((int16u *)&noscore);
  1025. X      rd_shorts(player_hp, MAX_PLAYER_LEVEL);
  1026. X
  1027. X      if ((version_min >= 2)
  1028. X          || (version_min == 1 && patch_level >= 3))
  1029. X        for (i = 0; i < MAX_STORES; i++)
  1030. X          {
  1031. X        st_ptr = &store[i];
  1032. X        rd_long((int32u *)&st_ptr->store_open);
  1033. X        rd_short((int16u *)&st_ptr->insult_cur);
  1034. X        rd_byte(&st_ptr->owner);
  1035. X        rd_byte(&st_ptr->store_ctr);
  1036. X        rd_short(&st_ptr->good_buy);
  1037. X        rd_short(&st_ptr->bad_buy);
  1038. X        if (st_ptr->store_ctr > STORE_INVEN_MAX)
  1039. X          goto error;
  1040. X        for (j = 0; j < st_ptr->store_ctr; j++)
  1041. X          {
  1042. X            rd_long((int32u *)&st_ptr->store_inven[j].scost);
  1043. X            rd_item(&st_ptr->store_inven[j].sitem);
  1044. X          }
  1045. X          }
  1046. X
  1047. X      if ((version_min >= 2)
  1048. X          || (version_min == 1 && patch_level >= 3))
  1049. X        rd_long(&time_saved);
  1050. X
  1051. X      if (version_min >= 2)
  1052. X        rd_string(died_from);
  1053. X
  1054. X      if ((version_min >= 3)
  1055. X          || (version_min == 2 && patch_level >= 2))
  1056. X        rd_long ((int32u *)&max_score);
  1057. X      else
  1058. X        max_score = 0;
  1059. X
  1060. X      if ((version_min >= 3)
  1061. X          || (version_min == 2 && patch_level >= 2))
  1062. X        rd_long ((int32u *)&birth_date);
  1063. X      else
  1064. X#ifdef MAC
  1065. X        birth_date = time((time_t *)0);
  1066. X#else
  1067. X        birth_date = time((long *)0);
  1068. X#endif
  1069. X    }
  1070. X      if ((c = getc(fileptr)) == EOF || (l & 0x80000000L))
  1071. X    {
  1072. X      if ((l & 0x80000000L) == 0)
  1073. X        {
  1074. X          if (!to_be_wizard || turn < 0)
  1075. X        goto error;
  1076. X          prt("Attempting a resurrection!", 0, 0);
  1077. X          if (py.misc.chp < 0)
  1078. X        {
  1079. X          py.misc.chp =     0;
  1080. X          py.misc.chp_frac = 0;
  1081. X        }
  1082. X          /* don't let him starve to death immediately */
  1083. X          if (py.flags.food < 0)
  1084. X        py.flags.food = 0;
  1085. X          /* don't let him die of poison again immediately */
  1086. X          if (py.flags.poisoned > 1)
  1087. X        py.flags.poisoned = 1;
  1088. X          dun_level = 0; /* Resurrect on the town level. */
  1089. X          character_generated = 1;
  1090. X          /* set noscore to indicate a resurrection, and don't enter
  1091. X         wizard mode */
  1092. X          to_be_wizard = FALSE;
  1093. X          noscore |= 0x1;
  1094. X        }
  1095. X      else
  1096. X        {
  1097. X          /* Make sure that this message is seen, since it is a bit
  1098. X         more interesting than the other messages.  */
  1099. X          msg_print("Restoring Memory of a departed spirit...");
  1100. X          turn = -1;
  1101. X        }
  1102. X      put_qio();
  1103. X      goto closefiles;
  1104. X    }
  1105. X      if (ungetc(c, fileptr) == EOF)
  1106. X    goto error;
  1107. X
  1108. X      prt("Restoring Character...", 0, 0);
  1109. X      put_qio();
  1110. X
  1111. X      /* only level specific info should follow, not present for dead
  1112. X         characters */
  1113. X
  1114. X      rd_short((int16u *)&dun_level);
  1115. X      rd_short((int16u *)&char_row);
  1116. X      rd_short((int16u *)&char_col);
  1117. X      rd_short((int16u *)&mon_tot_mult);
  1118. X      rd_short((int16u *)&cur_height);
  1119. X      rd_short((int16u *)&cur_width);
  1120. X      rd_short((int16u *)&max_panel_rows);
  1121. X      rd_short((int16u *)&max_panel_cols);
  1122. X
  1123. X      /* read in the creature ptr info */
  1124. X      rd_byte(&char_tmp);
  1125. X      while (char_tmp != 0xFF)
  1126. X    {
  1127. X      ychar = char_tmp;
  1128. X      rd_byte(&xchar);
  1129. X      rd_byte(&char_tmp);
  1130. X      if (xchar > MAX_WIDTH || ychar > MAX_HEIGHT)
  1131. X        goto error;
  1132. X      cave[ychar][xchar].cptr = char_tmp;
  1133. X      rd_byte(&char_tmp);
  1134. X    }
  1135. X      /* read in the treasure ptr info */
  1136. X      rd_byte(&char_tmp);
  1137. X      while (char_tmp != 0xFF)
  1138. X    {
  1139. X      ychar = char_tmp;
  1140. X      rd_byte(&xchar);
  1141. X      rd_byte(&char_tmp);
  1142. X      if (xchar > MAX_WIDTH || ychar > MAX_HEIGHT)
  1143. X        goto error;
  1144. X      cave[ychar][xchar].tptr = char_tmp;
  1145. X      rd_byte(&char_tmp);
  1146. X    }
  1147. X      /* read in the rest of the cave info */
  1148. X      c_ptr = &cave[0][0];
  1149. X      total_count = 0;
  1150. X      while (total_count != MAX_HEIGHT*MAX_WIDTH)
  1151. X    {
  1152. X      rd_byte(&count);
  1153. X      rd_byte(&char_tmp);
  1154. X      for (i = count; i > 0; i--)
  1155. X        {
  1156. X#ifndef ATARIST_MWC
  1157. X          if (c_ptr >= &cave[MAX_HEIGHT][0])
  1158. X        goto error;
  1159. X#endif
  1160. X          c_ptr->fval = char_tmp & 0xF;
  1161. X          c_ptr->lr = (char_tmp >> 4) & 0x1;
  1162. X          c_ptr->fm = (char_tmp >> 5) & 0x1;
  1163. X          c_ptr->pl = (char_tmp >> 6) & 0x1;
  1164. X          c_ptr->tl = (char_tmp >> 7) & 0x1;
  1165. X          c_ptr++;
  1166. X        }
  1167. X      total_count += count;
  1168. X    }
  1169. X
  1170. X      rd_short((int16u *)&tcptr);
  1171. X      if (tcptr > MAX_TALLOC)
  1172. X    goto error;
  1173. X      for (i = MIN_TRIX; i < tcptr; i++)
  1174. X    rd_item(&t_list[i]);
  1175. X      rd_short((int16u *)&mfptr);
  1176. X      if (mfptr > MAX_MALLOC)
  1177. X    goto error;
  1178. X      for (i = MIN_MONIX; i < mfptr; i++)
  1179. X    rd_monster(&m_list[i]);
  1180. X
  1181. X#if defined(MSDOS) || defined(ATARI_ST)
  1182. X      /* change walls and floors to graphic symbols */
  1183. X      t_ptr = &t_list[tcptr - 1];
  1184. X      for (i = tcptr - 1; i >= MIN_TRIX; i--)
  1185. X    {
  1186. X#ifdef MSDOS
  1187. X      if (t_ptr->tchar == '#')
  1188. X        t_ptr->tchar = wallsym;
  1189. X#endif
  1190. X#ifdef ATARI_ST
  1191. X      if (t_ptr->tchar == '#')
  1192. X        t_ptr->tchar = (unsigned char) 240;
  1193. X#endif
  1194. X      t_ptr--;
  1195. X    }
  1196. X#endif
  1197. X
  1198. X      *generate = FALSE;  /* We have restored a cave - no need to generate. */
  1199. X
  1200. X      if ((version_min == 1 && patch_level < 3)
  1201. X      || (version_min == 0))
  1202. X    for (i = 0; i < MAX_STORES; i++)
  1203. X      {
  1204. X        st_ptr = &store[i];
  1205. X        rd_long((int32u *)&st_ptr->store_open);
  1206. X        rd_short((int16u *)&st_ptr->insult_cur);
  1207. X        rd_byte(&st_ptr->owner);
  1208. X        rd_byte(&st_ptr->store_ctr);
  1209. X        rd_short(&st_ptr->good_buy);
  1210. X        rd_short(&st_ptr->bad_buy);
  1211. X        if (st_ptr->store_ctr > STORE_INVEN_MAX)
  1212. X          goto error;
  1213. X        for (j = 0; j < st_ptr->store_ctr; j++)
  1214. X          {
  1215. X        rd_long((int32u *)&st_ptr->store_inven[j].scost);
  1216. X        rd_item(&st_ptr->store_inven[j].sitem);
  1217. X          }
  1218. X      }
  1219. X
  1220. X      /* read the time that the file was saved */
  1221. X      if (version_min == 0 && patch_level < 16)
  1222. X    time_saved = 0; /* no time in file, clear to zero */
  1223. X      else if (version_min == 1 && patch_level < 3)
  1224. X    rd_long(&time_saved);
  1225. X
  1226. X      if (ferror(fileptr))
  1227. X    goto error;
  1228. X
  1229. X      if (turn < 0)
  1230. X      error:
  1231. X    ok = FALSE;    /* Assume bad data. */
  1232. X      else
  1233. X    {
  1234. X      /* don't overwrite the killed by string if character is dead */
  1235. X      if (py.misc.chp >= 0)
  1236. X        (void) strcpy(died_from, "(alive and well)");
  1237. X      character_generated = 1;
  1238. X    }
  1239. X
  1240. X    closefiles:
  1241. X
  1242. X      DEBUG(fclose (logfile));
  1243. X
  1244. X      if (fileptr != NULL)
  1245. X    {
  1246. X      if (fclose(fileptr) < 0)
  1247. X        ok = FALSE;
  1248. X    }
  1249. X      if (fd >= 0)
  1250. X    (void) close(fd);
  1251. X
  1252. X#ifdef MAC
  1253. X      macendwait ();
  1254. X#endif
  1255. X
  1256. X      if (!ok)
  1257. X    msg_print("Error during reading of file.");
  1258. X      else
  1259. X    {
  1260. X      /* let the user overwrite the old savefile when save/quit */
  1261. X      from_savefile = 1;
  1262. X
  1263. X      signals();
  1264. X
  1265. X      if (panic_save == 1)
  1266. X        {
  1267. X          (void) sprintf(temp, "This game is from a panic save.  \
  1268. XScore will not be added to scoreboard.");
  1269. X          msg_print (temp);
  1270. X        }
  1271. X      else if ((!noscore & 0x04) && duplicate_character ())
  1272. X        {
  1273. X          (void) sprintf (temp, "This character is already on the \
  1274. Xscoreboard; it will not be scored again.");
  1275. X          msg_print (temp);
  1276. X          noscore |= 0x4;
  1277. X        }
  1278. X
  1279. X      if (turn >= 0)
  1280. X        {    /* Only if a full restoration. */
  1281. X          weapon_heavy = FALSE;
  1282. X          pack_heavy = 0;
  1283. X          check_strength();
  1284. X
  1285. X          /* rotate store inventory, depending on how old the save file */
  1286. X          /* is foreach day old (rounded up), call store_maint */
  1287. X          /* calculate age in seconds */
  1288. X#ifdef MAC
  1289. X          start_time = time((time_t *)0);
  1290. X#else
  1291. X          start_time = time((long *)0);
  1292. X#endif
  1293. X          /* check for reasonable values of time here ... */
  1294. X          if (start_time < time_saved)
  1295. X        age = 0;
  1296. X          else
  1297. X        age = start_time - time_saved;
  1298. X
  1299. X          age = (age + 43200L) / 86400L;  /* age in days */
  1300. X          if (age > 10) age = 10; /* in case savefile is very old */
  1301. X          for (i = 0; i < age; i++)
  1302. X        store_maint();
  1303. X        }
  1304. X
  1305. X      if (noscore)
  1306. X        msg_print("This save file cannot be used to get on the score board.");
  1307. X
  1308. X      if (version_maj != CUR_VERSION_MAJ
  1309. X          || version_min != CUR_VERSION_MIN)
  1310. X        {
  1311. X          (void) sprintf(temp,
  1312. X                 "Save file version %d.%d %s on game version %d.%d.",
  1313. X                 version_maj, version_min,
  1314. X                 version_min <= CUR_VERSION_MIN
  1315. X                 ? "accepted" : "risky" ,
  1316. X                 CUR_VERSION_MAJ, CUR_VERSION_MIN);
  1317. X          msg_print(temp);
  1318. X        }
  1319. X
  1320. X      if (turn >= 0)
  1321. X        return TRUE;
  1322. X      else
  1323. X        return FALSE;    /* Only restored options and monster memory. */
  1324. X    }
  1325. X    }
  1326. X  turn = -1;
  1327. X  prt("Please try again without that savefile.", 1, 0);
  1328. X  signals();
  1329. X#ifdef MAC
  1330. X  *exit_flag = TRUE;
  1331. X#else
  1332. X  exit_game();
  1333. X#endif
  1334. X
  1335. X  return FALSE;    /* not reached, unless on mac */
  1336. X}
  1337. X
  1338. Xstatic void wr_byte(c)
  1339. Xint8u c;
  1340. X{
  1341. X  xor_byte ^= c;
  1342. X  (void) putc((int)xor_byte, fileptr);
  1343. X  DEBUG(fprintf (logfile, "BYTE:  %02X = %d\n", (int) xor_byte, (int) c));
  1344. X}
  1345. X
  1346. Xstatic void wr_short(s)
  1347. Xint16u s;
  1348. X{
  1349. X  xor_byte ^= (s & 0xFF);
  1350. X  (void) putc((int)xor_byte, fileptr);
  1351. X  DEBUG(fprintf (logfile, "SHORT: %02X", (int) xor_byte));
  1352. X  xor_byte ^= ((s >> 8) & 0xFF);
  1353. X  (void) putc((int)xor_byte, fileptr);
  1354. X  DEBUG(fprintf (logfile, " %02X = %d\n", (int) xor_byte, (int) s));
  1355. X}
  1356. X
  1357. Xstatic void wr_long(l)
  1358. Xregister int32u l;
  1359. X{
  1360. X  xor_byte ^= (l & 0xFF);
  1361. X  (void) putc((int)xor_byte, fileptr);
  1362. X  DEBUG(fprintf (logfile, "LONG:  %02X", (int) xor_byte));
  1363. X  xor_byte ^= ((l >> 8) & 0xFF);
  1364. X  (void) putc((int)xor_byte, fileptr);
  1365. X  DEBUG(fprintf (logfile, " %02X", (int) xor_byte));
  1366. X  xor_byte ^= ((l >> 16) & 0xFF);
  1367. X  (void) putc((int)xor_byte, fileptr);
  1368. X  DEBUG(fprintf (logfile, " %02X", (int) xor_byte));
  1369. X  xor_byte ^= ((l >> 24) & 0xFF);
  1370. X  (void) putc((int)xor_byte, fileptr);
  1371. X  DEBUG(fprintf (logfile, " %02X = %ld\n", (int) xor_byte, (long) l));
  1372. X}
  1373. X
  1374. Xstatic void wr_bytes(c, count)
  1375. Xint8u *c;
  1376. Xregister int count;
  1377. X{
  1378. X  register int i;
  1379. X  register int8u *ptr;
  1380. X
  1381. X  DEBUG(fprintf (logfile, "%d BYTES:", count));
  1382. X  ptr = c;
  1383. X  for (i = 0; i < count; i++)
  1384. X    {
  1385. X      xor_byte ^= *ptr++;
  1386. X      (void) putc((int)xor_byte, fileptr);
  1387. X      DEBUG(fprintf (logfile, "  %02X = %d", (int) xor_byte,
  1388. X             (int) (ptr[-1])));
  1389. X    }
  1390. X  DEBUG(fprintf (logfile, "\n"));
  1391. X}
  1392. X
  1393. Xstatic void wr_string(str)
  1394. Xregister char *str;
  1395. X{
  1396. X  DEBUG(char *s = str);
  1397. X  DEBUG(fprintf (logfile, "STRING:"));
  1398. X  while (*str != '\0')
  1399. X    {
  1400. X      xor_byte ^= *str++;
  1401. X      (void) putc((int)xor_byte, fileptr);
  1402. X      DEBUG(fprintf (logfile, " %02X", (int) xor_byte));
  1403. X    }
  1404. X  xor_byte ^= *str;
  1405. X  (void) putc((int)xor_byte, fileptr);
  1406. X  DEBUG(fprintf (logfile, " %02X = \"%s\"\n", (int) xor_byte, s));
  1407. X}
  1408. X
  1409. Xstatic void wr_shorts(s, count)
  1410. Xint16u *s;
  1411. Xregister int count;
  1412. X{
  1413. X  register int i;
  1414. X  register int16u *sptr;
  1415. X
  1416. X  DEBUG(fprintf (logfile, "%d SHORTS:", count));
  1417. X  sptr = s;
  1418. X  for (i = 0; i < count; i++)
  1419. X    {
  1420. X      xor_byte ^= (*sptr & 0xFF);
  1421. X      (void) putc((int)xor_byte, fileptr);
  1422. X      DEBUG(fprintf (logfile, "  %02X", (int) xor_byte));
  1423. X      xor_byte ^= ((*sptr++ >> 8) & 0xFF);
  1424. X      (void) putc((int)xor_byte, fileptr);
  1425. X      DEBUG(fprintf (logfile, " %02X = %d", (int) xor_byte, (int) sptr[-1]));
  1426. X    }
  1427. X  DEBUG(fprintf (logfile, "\n"));
  1428. X}
  1429. X
  1430. Xstatic void wr_item(item)
  1431. Xregister inven_type *item;
  1432. X{
  1433. X  DEBUG(fprintf (logfile, "ITEM:\n"));
  1434. X  wr_short(item->index);
  1435. X  wr_byte(item->name2);
  1436. X  wr_string(item->inscrip);
  1437. X  wr_long(item->flags);
  1438. X  wr_byte(item->tval);
  1439. X  wr_byte(item->tchar);
  1440. X  wr_short((int16u)item->p1);
  1441. X  wr_long((int32u)item->cost);
  1442. X  wr_byte(item->subval);
  1443. X  wr_byte(item->number);
  1444. X  wr_short(item->weight);
  1445. X  wr_short((int16u)item->tohit);
  1446. X  wr_short((int16u)item->todam);
  1447. X  wr_short((int16u)item->ac);
  1448. X  wr_short((int16u)item->toac);
  1449. X  wr_bytes(item->damage, 2);
  1450. X  wr_byte(item->level);
  1451. X  wr_byte(item->ident);
  1452. X}
  1453. X
  1454. Xstatic void wr_monster(mon)
  1455. Xregister monster_type *mon;
  1456. X{
  1457. X  DEBUG(fprintf (logfile, "MONSTER:\n"));
  1458. X  wr_short((int16u)mon->hp);
  1459. X  wr_short((int16u)mon->csleep);
  1460. X  wr_short((int16u)mon->cspeed);
  1461. X  wr_short(mon->mptr);
  1462. X  wr_byte(mon->fy);
  1463. X  wr_byte(mon->fx);
  1464. X  wr_byte(mon->cdis);
  1465. X  wr_byte(mon->ml);
  1466. X  wr_byte(mon->stunned);
  1467. X  wr_byte(mon->confused);
  1468. X}
  1469. X
  1470. Xstatic void rd_byte(ptr)
  1471. Xint8u *ptr;
  1472. X{
  1473. X  int8u c;
  1474. X
  1475. X  c = getc(fileptr) & 0xFF;
  1476. X  *ptr = c ^ xor_byte;
  1477. X  xor_byte = c;
  1478. X  DEBUG(fprintf (logfile, "BYTE:  %02X = %d\n", (int) c, (int) *ptr));
  1479. X}
  1480. X
  1481. Xstatic void rd_short(ptr)
  1482. Xint16u *ptr;
  1483. X{
  1484. X  int8u c;
  1485. X  int16u s;
  1486. X
  1487. X  c = (getc(fileptr) & 0xFF);
  1488. X  s = c ^ xor_byte;
  1489. X  xor_byte = (getc(fileptr) & 0xFF);
  1490. X  s |= (int16u)(c ^ xor_byte) << 8;
  1491. X  *ptr = s;
  1492. X  DEBUG(fprintf (logfile, "SHORT: %02X %02X = %d\n", (int) c, (int) xor_byte,\
  1493. X         (int) s));
  1494. X}
  1495. X
  1496. Xstatic void rd_long(ptr)
  1497. Xint32u *ptr;
  1498. X{
  1499. X  register int32u l;
  1500. X  register int8u c;
  1501. X
  1502. X  c = (getc(fileptr) & 0xFF);
  1503. X  l = c ^ xor_byte;
  1504. X  xor_byte = (getc(fileptr) & 0xFF);
  1505. X  l |= (int32u)(c ^ xor_byte) << 8;
  1506. X  DEBUG(fprintf (logfile, "LONG:  %02X %02X ", (int) c, (int) xor_byte));
  1507. X  c = (getc(fileptr) & 0xFF);
  1508. X  l |= (int32u)(c ^ xor_byte) << 16;
  1509. X  xor_byte = (getc(fileptr) & 0xFF);
  1510. X  l |= (int32u)(c ^ xor_byte) << 24;
  1511. X  *ptr = l;
  1512. X  DEBUG(fprintf (logfile, "%02X %02X = %ld\n", (int) c, (int) xor_byte,\
  1513. X         (long) l));
  1514. X}
  1515. X
  1516. Xstatic void rd_bytes(ch_ptr, count)
  1517. Xint8u *ch_ptr;
  1518. Xregister int count;
  1519. X{
  1520. X  register int i;
  1521. X  register int8u *ptr;
  1522. X  register int8u c;
  1523. X
  1524. X  DEBUG(fprintf (logfile, "%d BYTES:", count));
  1525. X  ptr = ch_ptr;
  1526. X  for (i = 0; i < count; i++)
  1527. X    {
  1528. X      c = (getc(fileptr) & 0xFF);
  1529. X      *ptr++ = c ^ xor_byte;
  1530. X      xor_byte = c;
  1531. X      DEBUG(fprintf (logfile, "  %02X = %d", (int) c, (int) ptr[-1]));
  1532. X    }
  1533. X  DEBUG(fprintf (logfile, "\n"));
  1534. X}
  1535. X
  1536. Xstatic void rd_string(str)
  1537. Xchar *str;
  1538. X{
  1539. X  register int8u c;
  1540. X
  1541. X  DEBUG(char *s = str);
  1542. X  DEBUG(fprintf (logfile, "STRING: "));
  1543. X  do
  1544. X    {
  1545. X      c = (getc(fileptr) & 0xFF);
  1546. X      *str = c ^ xor_byte;
  1547. X      xor_byte = c;
  1548. X      DEBUG(fprintf (logfile, "%02X ", (int) c));
  1549. X    }
  1550. X  while (*str++ != '\0');
  1551. X  DEBUG(fprintf (logfile, "= \"%s\"\n", s));
  1552. X}
  1553. X
  1554. Xstatic void rd_shorts(ptr, count)
  1555. Xint16u *ptr;
  1556. Xregister int count;
  1557. X{
  1558. X  register int i;
  1559. X  register int16u *sptr;
  1560. X  register int16u s;
  1561. X  int8u c;
  1562. X
  1563. X  DEBUG(fprintf (logfile, "%d SHORTS:", count));
  1564. X  sptr = ptr;
  1565. X  for (i = 0; i < count; i++)
  1566. X    {
  1567. X      c = (getc(fileptr) & 0xFF);
  1568. X      s = c ^ xor_byte;
  1569. X      xor_byte = (getc(fileptr) & 0xFF);
  1570. X      s |= (int16u)(c ^ xor_byte) << 8;
  1571. X      *sptr++ = s;
  1572. X      DEBUG(fprintf (logfile, "  %02X %02X = %d", (int) c, (int) xor_byte,\
  1573. X             (int) s));
  1574. X    }
  1575. X  DEBUG(fprintf (logfile, "\n"));
  1576. X}
  1577. X
  1578. Xstatic void rd_item(item)
  1579. Xregister inven_type *item;
  1580. X{
  1581. X  DEBUG(fprintf (logfile, "ITEM:\n"));
  1582. X  rd_short(&item->index);
  1583. X  rd_byte(&item->name2);
  1584. X  rd_string(item->inscrip);
  1585. X  rd_long(&item->flags);
  1586. X  rd_byte(&item->tval);
  1587. X  rd_byte(&item->tchar);
  1588. X  rd_short((int16u *)&item->p1);
  1589. X  rd_long((int32u *)&item->cost);
  1590. X  rd_byte(&item->subval);
  1591. X  rd_byte(&item->number);
  1592. X  rd_short(&item->weight);
  1593. X  rd_short((int16u *)&item->tohit);
  1594. X  rd_short((int16u *)&item->todam);
  1595. X  rd_short((int16u *)&item->ac);
  1596. X  rd_short((int16u *)&item->toac);
  1597. X  rd_bytes(item->damage, 2);
  1598. X  rd_byte(&item->level);
  1599. X  rd_byte(&item->ident);
  1600. X}
  1601. X
  1602. Xstatic void rd_monster(mon)
  1603. Xregister monster_type *mon;
  1604. X{
  1605. X  DEBUG(fprintf (logfile, "MONSTER:\n"));
  1606. X  rd_short((int16u *)&mon->hp);
  1607. X  rd_short((int16u *)&mon->csleep);
  1608. X  rd_short((int16u *)&mon->cspeed);
  1609. X  rd_short(&mon->mptr);
  1610. X  rd_byte(&mon->fy);
  1611. X  rd_byte(&mon->fx);
  1612. X  rd_byte(&mon->cdis);
  1613. X  rd_byte(&mon->ml);
  1614. X  rd_byte(&mon->stunned);
  1615. X  rd_byte(&mon->confused);
  1616. X}
  1617. X
  1618. X/* functions called from death.c to implement the score file */
  1619. X
  1620. X/* set the local fileptr to the scorefile fileptr */
  1621. Xvoid set_fileptr(file)
  1622. XFILE *file;
  1623. X{
  1624. X  fileptr = file;
  1625. X}
  1626. X
  1627. Xvoid wr_highscore(score)
  1628. Xhigh_scores *score;
  1629. X{
  1630. X  DEBUG(logfile = fopen ("IO_LOG", "a"));
  1631. X  DEBUG(fprintf (logfile, "Saving score:\n"));
  1632. X  /* Save the encryption byte for robustness.  */
  1633. X  wr_byte(xor_byte);
  1634. X
  1635. X  wr_long((int32u) score->points);
  1636. X  wr_long((int32u) score->birth_date);
  1637. X  wr_short((int16u) score->uid);
  1638. X  wr_short((int16u) score->mhp);
  1639. X  wr_short((int16u) score->chp);
  1640. X  wr_byte(score->dun_level);
  1641. X  wr_byte(score->lev);
  1642. X  wr_byte(score->max_dlv);
  1643. X  wr_byte(score->sex);
  1644. X  wr_byte(score->race);
  1645. X  wr_byte(score->class);
  1646. X  wr_bytes((int8u *)score->name, PLAYER_NAME_SIZE);
  1647. X  wr_bytes((int8u *)score->died_from, 25);
  1648. X  DEBUG(fclose (logfile));
  1649. X}
  1650. X
  1651. Xvoid rd_highscore(score)
  1652. Xhigh_scores *score;
  1653. X{
  1654. X  DEBUG(logfile = fopen ("IO_LOG", "a"));
  1655. X  DEBUG(fprintf (logfile, "Reading score:\n"));
  1656. X  /* Read the encryption byte.  */
  1657. X  rd_byte (&xor_byte);
  1658. X
  1659. X  rd_long((int32u *)&score->points);
  1660. X  rd_long((int32u *)&score->birth_date);
  1661. X  rd_short((int16u *)&score->uid);
  1662. X  rd_short((int16u *)&score->mhp);
  1663. X  rd_short((int16u *)&score->chp);
  1664. X  rd_byte(&score->dun_level);
  1665. X  rd_byte(&score->lev);
  1666. X  rd_byte(&score->max_dlv);
  1667. X  rd_byte(&score->sex);
  1668. X  rd_byte(&score->race);
  1669. X  rd_byte(&score->class);
  1670. X  rd_bytes((int8u *)score->name, PLAYER_NAME_SIZE);
  1671. X  rd_bytes((int8u *)score->died_from, 25);
  1672. X  DEBUG(fclose (logfile));
  1673. X}
  1674. END_OF_FILE
  1675. if test 41704 -ne `wc -c <'source/save.c'`; then
  1676.     echo shar: \"'source/save.c'\" unpacked with wrong size!
  1677. fi
  1678. # end of 'source/save.c'
  1679. fi
  1680. if test -f 'source/tables.c' -a "${1}" != "-c" ; then 
  1681.   echo shar: Will not clobber existing file \"'source/tables.c'\"
  1682. else
  1683. echo shar: Extracting \"'source/tables.c'\" \(10747 characters\)
  1684. sed "s/^X//" >'source/tables.c' <<'END_OF_FILE'
  1685. X/* source/tables.c: store/attack/RNG/etc tables and variables
  1686. X
  1687. X   Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke
  1688. X
  1689. X   This software may be copied and distributed for educational, research, and
  1690. X   not for profit purposes provided that this copyright and statement are
  1691. X   included in all such copies. */
  1692. X
  1693. X#include "config.h"
  1694. X#include "constant.h"
  1695. X#include "types.h"
  1696. X
  1697. X#ifdef MORIA_HOU
  1698. X/* Operating hours for Moria                -RAK-    */
  1699. X/*     X = Open; . = Closed                    */
  1700. Xchar  days[7][29] = { "SUN:XXXXXXXXXXXXXXXXXXXXXXXX",
  1701. X            "MON:XXXXXXXX.........XXXXXXX",
  1702. X            "TUE:XXXXXXXX.........XXXXXXX",
  1703. X            "WED:XXXXXXXX.........XXXXXXX",
  1704. X            "THU:XXXXXXXX.........XXXXXXX",
  1705. X            "FRI:XXXXXXXX.........XXXXXXX",
  1706. X            "SAT:XXXXXXXXXXXXXXXXXXXXXXXX" };
  1707. X#endif
  1708. X
  1709. X#ifdef MAC
  1710. Xstore_type *store;
  1711. X#else
  1712. Xstore_type store[MAX_STORES];
  1713. X#endif
  1714. X
  1715. X/* Store owners have different characteristics for pricing and haggling*/
  1716. X/* Note: Store owners should be added in groups, one for each store    */
  1717. X#ifdef MACGAME
  1718. Xowner_type *owners;
  1719. X#else
  1720. Xowner_type owners[MAX_OWNERS] = {
  1721. X{"Erick the Honest       (Human)      General Store",
  1722. X      250,    175,  108,    4, 0, 12},
  1723. X{"Mauglin the Grumpy     (Dwarf)      Armory"        ,
  1724. X    32000,    200,  112,    4, 5,  5},
  1725. X{"Arndal Beast-Slayer    (Half-Elf)   Weaponsmith"  ,
  1726. X    10000,    185,  110,    5, 1,  8},
  1727. X{"Hardblow the Humble    (Human)      Temple"        ,
  1728. X     3500,    175,  109,    6, 0, 15},
  1729. X{"Ga-nat the Greedy      (Gnome)      Alchemist"    ,
  1730. X    12000,    220,  115,    4, 4,  9},
  1731. X{"Valeria Starshine      (Elf)        Magic Shop"   ,
  1732. X    32000,    175,  110,    5, 2, 11},
  1733. X{"Andy the Friendly      (Halfling)   General Store",
  1734. X      200,    170,  108,    5, 3, 15},
  1735. X{"Darg-Low the Grim      (Human)      Armory"        ,
  1736. X    10000,    190,  111,    4, 0,  9},
  1737. X{"Oglign Dragon-Slayer   (Dwarf)      Weaponsmith"  ,
  1738. X    32000,    195,  112,    4, 5,  8},
  1739. X{"Gunnar the Paladin     (Human)      Temple"        ,
  1740. X     5000,    185,  110,    5, 0, 23},
  1741. X{"Mauser the Chemist     (Half-Elf)   Alchemist"    ,
  1742. X    10000,    190,  111,    5, 1,  8},
  1743. X{"Gopher the Great!      (Gnome)      Magic Shop"   ,
  1744. X    20000,    215,  113,    6, 4, 10},
  1745. X{"Lyar-el the Comely     (Elf)        General Store",
  1746. X      300,    165,  107,    6, 2, 18},
  1747. X{"Mauglim the Horrible   (Half-Orc)   Armory"        ,
  1748. X     3000,    200,  113,    5, 6,  9},
  1749. X{"Ithyl-Mak the Beastly  (Half-Troll) Weaponsmith"  ,
  1750. X     3000,    210,  115,    6, 7,  8},
  1751. X{"Delilah the Pure       (Half-Elf)   Temple"        ,
  1752. X    25000,    180,  107,    6, 1, 20},
  1753. X{"Wizzle the Chaotic     (Halfling)   Alchemist"    ,
  1754. X    10000,    190,  110,    6, 3,  8},
  1755. X{"Inglorian the Mage     (Human?)     Magic Shop"   ,
  1756. X    32000,    200,  110,    7, 0, 10}
  1757. X};
  1758. X#endif
  1759. X
  1760. X/* Buying and selling adjustments for character race VS store    */
  1761. X/* owner race                             */
  1762. Xint8u rgold_adj[MAX_RACES][MAX_RACES] = {
  1763. X            /*  Hum,  HfE,    Elf,  Hal,  Gno,  Dwa,    HfO,  HfT*/
  1764. X/*Human         */      {  100,  105,     105,  110,  113,  115,     120,  125},
  1765. X/*Half-Elf     */      {  110,  100,     100,  105,  110,  120,     125,  130},
  1766. X/*Elf         */      {  110,  105,     100,  105,  110,  120,     125,  130},
  1767. X/*Halfling     */      {  115,  110,     105,    95,  105,  110,     115,  130},
  1768. X/*Gnome         */      {  115,  115,     110,  105,   95,  110,     115,  130},
  1769. X/*Dwarf         */      {  115,  120,     120,  110,  110,   95,     125,  135},
  1770. X/*Half-Orc     */      {  115,  120,     125,  115,  115,  130,     110,  115},
  1771. X/*Half-Troll     */      {  110,  115,     115,  110,  110,  130,     110,  110}
  1772. X            };
  1773. X/* object_list[] index of objects that may appear in the store */
  1774. Xint16u store_choice[MAX_STORES][STORE_CHOICES] = {
  1775. X    /* General Store */
  1776. X{366,365,364,84,84,365,123,366,365,350,349,348,347,346,346,345,345,345,
  1777. X    344,344,344,344,344,344,344,344},
  1778. X    /* Armory     */
  1779. X{94,95,96,109,103,104,105,106,110,111,112,114,116,124,125,126,127,129,103,
  1780. X    104,124,125,91,92,95,96},
  1781. X    /* Weaponsmith     */
  1782. X{29,30,34,37,45,49,57,58,59,65,67,68,73,74,75,77,79,80,81,83,29,30,80,83,
  1783. X    80,83},
  1784. X    /* Temple     */
  1785. X{322,323,324,325,180,180,233,237,240,241,361,362,57,58,59,260,358,359,265,
  1786. X    237,237,240,240,241,323,359},
  1787. X    /* Alchemy shop     */
  1788. X{173,174,175,351,351,352,353,354,355,356,357,206,227,230,236,252,253,352,
  1789. X    353,354,355,356,359,363,359,359},
  1790. X    /* Magic-User store*/
  1791. X{318,141,142,153,164,167,168,140,319,320,320,321,269,270,282,286,287,292,
  1792. X    293,294,295,308,269,290,319,282}
  1793. X};
  1794. X
  1795. X#ifndef MAC
  1796. X/* MPW doesn't seem to handle this very well, so replace store_buy array
  1797. X   with a function call on mac */
  1798. X/* functions defined in sets.c */
  1799. Xextern int general_store(), armory(), weaponsmith(), temple(),
  1800. X  alchemist(), magic_shop();
  1801. X
  1802. X/* Each store will buy only certain items, based on TVAL */
  1803. Xint (*store_buy[MAX_STORES])() = {
  1804. X       general_store, armory, weaponsmith, temple, alchemist, magic_shop};
  1805. X#endif
  1806. X
  1807. X/* Following are arrays for descriptive pieces            */
  1808. X
  1809. X#ifdef MACGAME
  1810. X
  1811. Xchar **colors;
  1812. Xchar **mushrooms;
  1813. Xchar **woods;
  1814. Xchar **metals;
  1815. Xchar **rocks;
  1816. Xchar **amulets;
  1817. Xchar **syllables;
  1818. X
  1819. X#else
  1820. X
  1821. Xchar *colors[MAX_COLORS] = {
  1822. X/* Do not move the first three */
  1823. X  "Icky Green", "Light Brown", "Clear",
  1824. X  "Azure","Blue","Blue Speckled","Black","Brown","Brown Speckled","Bubbling",
  1825. X  "Chartreuse","Cloudy","Copper Speckled","Crimson","Cyan","Dark Blue",
  1826. X  "Dark Green","Dark Red","Gold Speckled","Green","Green Speckled","Grey",
  1827. X  "Grey Speckled","Hazy","Indigo","Light Blue","Light Green","Magenta",
  1828. X  "Metallic Blue","Metallic Red","Metallic Green","Metallic Purple","Misty",
  1829. X  "Orange","Orange Speckled","Pink","Pink Speckled","Puce","Purple",
  1830. X  "Purple Speckled","Red","Red Speckled","Silver Speckled","Smoky",
  1831. X  "Tangerine","Violet","Vermilion","White","Yellow"
  1832. X};
  1833. X
  1834. Xchar *mushrooms[MAX_MUSH] = {
  1835. X  "Blue","Black","Black Spotted","Brown","Dark Blue","Dark Green","Dark Red",
  1836. X  "Ecru","Furry","Green","Grey","Light Blue","Light Green","Plaid","Red",
  1837. X  "Slimy","Tan","White","White Spotted","Wooden","Wrinkled","Yellow",
  1838. X};
  1839. X
  1840. Xchar *woods[MAX_WOODS] = {
  1841. X  "Aspen","Balsa","Banyan","Birch","Cedar","Cottonwood","Cypress","Dogwood",
  1842. X  "Elm","Eucalyptus","Hemlock","Hickory","Ironwood","Locust","Mahogany",
  1843. X  "Maple","Mulberry","Oak","Pine","Redwood","Rosewood","Spruce","Sycamore",
  1844. X  "Teak","Walnut",
  1845. X};
  1846. X
  1847. Xchar *metals[MAX_METALS] = {
  1848. X  "Aluminum","Cast Iron","Chromium","Copper","Gold","Iron","Magnesium",
  1849. X  "Molybdenum","Nickel","Rusty","Silver","Steel","Tin","Titanium","Tungsten",
  1850. X  "Zirconium","Zinc","Aluminum-Plated","Copper-Plated","Gold-Plated",
  1851. X  "Nickel-Plated","Silver-Plated","Steel-Plated","Tin-Plated","Zinc-Plated"
  1852. X};
  1853. X
  1854. Xchar *rocks[MAX_ROCKS] = {
  1855. X  "Alexandrite","Amethyst","Aquamarine","Azurite","Beryl","Bloodstone",
  1856. X  "Calcite","Carnelian","Corundum","Diamond","Emerald","Fluorite","Garnet",
  1857. X  "Granite","Jade","Jasper","Lapis Lazuli","Malachite","Marble","Moonstone",
  1858. X  "Onyx","Opal","Pearl","Quartz","Quartzite","Rhodonite","Ruby","Sapphire",
  1859. X  "Tiger Eye","Topaz","Turquoise","Zircon"
  1860. X};
  1861. X
  1862. Xchar *amulets[MAX_AMULETS] = {
  1863. X  "Amber","Driftwood","Coral","Agate","Ivory","Obsidian",
  1864. X  "Bone","Brass","Bronze","Pewter","Tortoise Shell"
  1865. X};
  1866. X
  1867. Xchar *syllables[MAX_SYLLABLES] = {
  1868. X  "a","ab","ag","aks","ala","an","ankh","app",
  1869. X  "arg","arze","ash","aus","ban","bar","bat","bek",
  1870. X  "bie","bin","bit","bjor","blu","bot","bu",
  1871. X  "byt","comp","con","cos","cre","dalf","dan",
  1872. X  "den","doe","dok","eep","el","eng","er","ere","erk",
  1873. X  "esh","evs","fa","fid","for","fri","fu","gan",
  1874. X  "gar","glen","gop","gre","ha","he","hyd","i",
  1875. X  "ing","ion","ip","ish","it","ite","iv","jo",
  1876. X  "kho","kli","klis","la","lech","man","mar",
  1877. X  "me","mi","mic","mik","mon","mung","mur","nej",
  1878. X  "nelg","nep","ner","nes","nis","nih","nin","o",
  1879. X  "od","ood","org","orn","ox","oxy","pay","pet",
  1880. X  "ple","plu","po","pot","prok","re","rea","rhov",
  1881. X  "ri","ro","rog","rok","rol","sa","san","sat",
  1882. X  "see","sef","seh","shu","ski","sna","sne","snik",
  1883. X  "sno","so","sol","sri","sta","sun","ta","tab",
  1884. X  "tem","ther","ti","tox","trol","tue","turs","u",
  1885. X  "ulk","um","un","uni","ur","val","viv","vly",
  1886. X  "vom","wah","wed","werg","wex","whon","wun","x",
  1887. X  "yerg","yp","zun"
  1888. X};
  1889. X#endif
  1890. X
  1891. X/* used to calculate the number of blows the player gets in combat */
  1892. Xint8u blows_table[7][6] = {
  1893. X/* STR/W:       9  18  67 107 117 118   : DEX */
  1894. X/* <2 */    {  1,  1,  1,  1,  1,  1 },
  1895. X/* <3 */    {  1,  1,  1,  1,  2,  2 },
  1896. X/* <4 */    {  1,  1,  1,  2,  2,  3 },
  1897. X/* <5 */    {  1,  1,  2,  2,  3,  3 },
  1898. X/* <7 */    {  1,  2,  2,  3,  3,  4 },
  1899. X/* <9 */    {  1,  2,  2,  3,  4,  4 },
  1900. X/* >9 */    {  2,  2,  3,  3,  4,  4 }
  1901. X};
  1902. X
  1903. X/* this table is used to generate a psuedo-normal distribution.     See the
  1904. X   function randnor() in misc1.c, this is much faster than calling
  1905. X   transcendental function to calculate a true normal distribution */
  1906. Xint16u normal_table[NORMAL_TABLE_SIZE] = {
  1907. X     206,     613,    1022,    1430,    1838,     2245,      2652,       3058,
  1908. X    3463,    3867,    4271,    4673,    5075,     5475,      5874,       6271,
  1909. X    6667,    7061,    7454,    7845,    8234,     8621,      9006,       9389,
  1910. X    9770,   10148,   10524,   10898,   11269,    11638,     12004,      12367,
  1911. X   12727,   13085,   13440,   13792,   14140,    14486,     14828,      15168,
  1912. X   15504,   15836,   16166,   16492,   16814,    17133,     17449,      17761,
  1913. X   18069,   18374,   18675,   18972,   19266,    19556,     19842,      20124,
  1914. X   20403,   20678,   20949,   21216,   21479,    21738,     21994,      22245,
  1915. X   22493,   22737,   22977,   23213,   23446,    23674,     23899,      24120,
  1916. X   24336,   24550,   24759,   24965,   25166,    25365,     25559,      25750,
  1917. X   25937,   26120,   26300,   26476,   26649,    26818,     26983,      27146,
  1918. X   27304,   27460,   27612,   27760,   27906,    28048,     28187,      28323,
  1919. X   28455,   28585,   28711,   28835,   28955,    29073,     29188,      29299,
  1920. X   29409,   29515,   29619,   29720,   29818,    29914,     30007,      30098,
  1921. X   30186,   30272,   30356,   30437,   30516,    30593,     30668,      30740,
  1922. X   30810,   30879,   30945,   31010,   31072,    31133,     31192,      31249,
  1923. X   31304,   31358,   31410,   31460,   31509,    31556,     31601,      31646,
  1924. X   31688,   31730,   31770,   31808,   31846,    31882,     31917,      31950,
  1925. X   31983,   32014,   32044,   32074,   32102,    32129,     32155,      32180,
  1926. X   32205,   32228,   32251,   32273,   32294,    32314,     32333,      32352,
  1927. X   32370,   32387,   32404,   32420,   32435,    32450,     32464,      32477,
  1928. X   32490,   32503,   32515,   32526,   32537,    32548,     32558,      32568,
  1929. X   32577,   32586,   32595,   32603,   32611,    32618,     32625,      32632,
  1930. X   32639,   32645,   32651,   32657,   32662,    32667,     32672,      32677,
  1931. X   32682,   32686,   32690,   32694,   32698,    32702,     32705,      32708,
  1932. X   32711,   32714,   32717,   32720,   32722,    32725,     32727,      32729,
  1933. X   32731,   32733,   32735,   32737,   32739,    32740,     32742,      32743,
  1934. X   32745,   32746,   32747,   32748,   32749,    32750,     32751,      32752,
  1935. X   32753,   32754,   32755,   32756,   32757,    32757,     32758,      32758,
  1936. X   32759,   32760,   32760,   32761,   32761,    32761,     32762,      32762,
  1937. X   32763,   32763,   32763,   32764,   32764,    32764,     32764,      32765,
  1938. X   32765,   32765,   32765,   32766,   32766,    32766,     32766,      32766,
  1939. X};
  1940. END_OF_FILE
  1941. if test 10747 -ne `wc -c <'source/tables.c'`; then
  1942.     echo shar: \"'source/tables.c'\" unpacked with wrong size!
  1943. fi
  1944. # end of 'source/tables.c'
  1945. fi
  1946. echo shar: End of archive 8 \(of 39\).
  1947. cp /dev/null ark8isdone
  1948. MISSING=""
  1949. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 ; do
  1950.     if test ! -f ark${I}isdone ; then
  1951.     MISSING="${MISSING} ${I}"
  1952.     fi
  1953. done
  1954. if test "${MISSING}" = "" ; then
  1955.     echo You have unpacked all 39 archives.
  1956.     echo "Now run "bldfiles.sh" to build split files"
  1957.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1958. else
  1959.     echo You still need to unpack the following archives:
  1960.     echo "        " ${MISSING}
  1961. fi
  1962. ##  End of shell archive.
  1963. exit 0
  1964.