warden/early-roguelike
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
early-roguelike/rogue5/state.c
John "Elwin" Edwards 6c3cd116ff Fix many compiler warnings. 
There should only be two changes in behavior:

arogue7/fight.c, arogue7/fight.c: a to-hit bonus is now correctly
applied to characters who are not monks instead of monks who are not
empty-handed.

urogue/fight.c: fixed an interaction with the "debug" macro that could
cause the wrong message to be displayed.
2021-04-14 18:55:33 -04:00

1474 lines
33 KiB
C
Raw Permalink Blame History

/*
state.c - Portable Rogue Save State Code
Copyright (C) 1999, 2000, 2005 Nicholas J. Kisseberth
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions
are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
3. Neither the name(s) of the author(s) nor the names of other contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND CONTRIBUTORS ``AS IS'' AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) OR CONTRIBUTORS BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.
*/
#include <stdlib.h>
#include <string.h>
#include <curses.h>
#include <errno.h>
#include "rogue.h"
/************************************************************************/
/* Save State Code */
/************************************************************************/
#define RSID_STATS 0xABCD0001
#define RSID_THING 0xABCD0002
#define RSID_THING_NULL 0xDEAD0002
#define RSID_OBJECT 0xABCD0003
#define RSID_MAGICITEMS 0xABCD0004
#define RSID_KNOWS 0xABCD0005
#define RSID_GUESSES 0xABCD0006
#define RSID_OBJECTLIST 0xABCD0007
#define RSID_BAGOBJECT 0xABCD0008
#define RSID_MONSTERLIST 0xABCD0009
#define RSID_MONSTERSTATS 0xABCD000A
#define RSID_MONSTERS 0xABCD000B
#define RSID_TRAP 0xABCD000C
#define RSID_WINDOW 0xABCD000D
#define RSID_DAEMONS 0xABCD000E
#define RSID_IWEAPS 0xABCD000F
#define RSID_IARMOR 0xABCD0010
#define RSID_SPELLS 0xABCD0011
#define RSID_ILIST 0xABCD0012
#define RSID_HLIST 0xABCD0013
#define RSID_DEATHTYPE 0xABCD0014
#define RSID_CTYPES 0XABCD0015
#define RSID_COORDLIST 0XABCD0016
#define RSID_ROOMS 0XABCD0017
static int endian = 0x01020304;
#define big_endian ( *((char *)&endian) == 0x01 )
void
rs_write(FILE *savef, const void *ptr, size_t size)
{
encwrite(ptr, size, savef);
}
void
rs_read(FILE *savef, void *ptr, size_t size)
{
encread(ptr, size, savef);
}
void
rs_write_int(FILE *savef, int c)
{
char bytes[4];
char *buf = (char *) &c;
if (big_endian)
{
bytes[3] = buf[0];
bytes[2] = buf[1];
bytes[1] = buf[2];
bytes[0] = buf[3];
buf = bytes;
}
rs_write(savef, buf, 4);
}
void
rs_read_int(FILE *savef, int *i)
{
char bytes[4];
int input = 0;
char *buf = (char *)&input;
rs_read(savef, &input, 4);
if (encerror())
return;
if (big_endian)
{
bytes[3] = buf[0];
bytes[2] = buf[1];
bytes[1] = buf[2];
bytes[0] = buf[3];
buf = bytes;
}
*i = *((int *) buf);
}
void
rs_write_uint(FILE *savef, unsigned int c)
{
char bytes[4];
char *buf = (char *) &c;
if (big_endian)
{
bytes[3] = buf[0];
bytes[2] = buf[1];
bytes[1] = buf[2];
bytes[0] = buf[3];
buf = bytes;
}
rs_write(savef, buf, 4);
}
void
rs_read_uint(FILE *savef, unsigned int *i)
{
char bytes[4];
int input = 0;
char *buf = (char *)&input;
rs_read(savef, &input, 4);
if (encerror())
return;
if (big_endian)
{
bytes[3] = buf[0];
bytes[2] = buf[1];
bytes[1] = buf[2];
bytes[0] = buf[3];
buf = bytes;
}
*i = *((unsigned int *) buf);
}
void
rs_write_chars(FILE *savef, const char *c, int cnt)
{
rs_write_int(savef, cnt);
rs_write(savef, c, cnt);
}
void
rs_read_chars(FILE *savef, char *i, int cnt)
{
int value = 0;
rs_read_int(savef, &value);
if (!encerror() && (value != cnt))
encseterr(EILSEQ);
rs_read(savef, i, cnt);
}
void
rs_write_ints(FILE *savef, int *c, int cnt)
{
int n = 0;
rs_write_int(savef, cnt);
for(n = 0; n < cnt; n++)
rs_write_int(savef,c[n]);
}
void
rs_read_ints(FILE *savef, int *i, int cnt)
{
int n, value;
rs_read_int(savef,&value);
if (!encerror() && (value != cnt))
encseterr(EILSEQ);
for(n = 0; n < cnt; n++)
rs_read_int(savef, &i[n]);
}
void
rs_write_marker(FILE *savef, int id)
{
rs_write_int(savef, id);
}
void
rs_read_marker(FILE *savef, int id)
{
int nid;
rs_read_int(savef, &nid);
if (!encerror() && (id != nid))
encseterr(EILSEQ);
}
/******************************************************************************/
void
rs_write_string(FILE *savef, const char *s)
{
int len = 0;
len = (s == NULL) ? 0 : (int) strlen(s) + 1;
rs_write_int(savef, len);
rs_write_chars(savef, s, len);
}
void
rs_read_string(FILE *savef, char *s, int max)
{
int len = 0;
rs_read_int(savef, &len);
if (!encerror() && (len > max))
encseterr(EILSEQ);
rs_read_chars(savef, s, len);
}
void
rs_read_new_string(FILE *savef, char **s)
{
int len=0;
char *buf=0;
rs_read_int(savef, &len);
if (encerror())
return;
if (len == 0)
buf = NULL;
else
{
buf = malloc(len);
if (buf == NULL)
encseterr(ENOMEM);
}
rs_read_chars(savef, buf, len);
*s = buf;
}
void
rs_write_string_index(FILE *savef, const char *master[], int max, const char *str)
{
int i;
for(i = 0; i < max; i++)
if (str == master[i])
{
rs_write_int(savef, i);
return;
}
rs_write_int(savef,-1);
}
void
rs_read_string_index(FILE *savef, const char *master[], int maxindex, const char **str)
{
int i;
rs_read_int(savef, &i);
if (!encerror() && (i > maxindex))
encseterr(EILSEQ);
else if (i >= 0)
*str = master[i];
else
*str = NULL;
}
void
rs_write_coord(FILE *savef, coord c)
{
rs_write_int(savef, c.x);
rs_write_int(savef, c.y);
}
void
rs_read_coord(FILE *savef, coord *c)
{
coord in;
rs_read_int(savef,&in.x);
rs_read_int(savef,&in.y);
if (!encerror())
{
c->x = in.x;
c->y = in.y;
}
}
void
rs_write_window(FILE *savef, WINDOW *win)
{
int row,col,height,width;
width = getmaxx(win);
height = getmaxy(win);
rs_write_marker(savef,RSID_WINDOW);
rs_write_int(savef,height);
rs_write_int(savef,width);
for(row=0;row<height;row++)
for(col=0;col<width;col++)
rs_write_int(savef, mvwinch(win,row,col));
}
void
rs_read_window(FILE *savef, WINDOW *win)
{
int row,col,maxlines,maxcols,value,width,height;
width = getmaxx(win);
height = getmaxy(win);
rs_read_marker(savef, RSID_WINDOW);
rs_read_int(savef, &maxlines);
rs_read_int(savef, &maxcols);
if (encerror())
return;
for(row = 0; row < maxlines; row++)
for(col = 0; col < maxcols; col++)
{
rs_read_int(savef, &value);
if ((row < height) && (col < width))
mvwaddch(win,row,col,value);
}
}
/******************************************************************************/
void *
get_list_item(THING *l, int i)
{
int cnt;
for(cnt = 0; l != NULL; cnt++, l = l->l_next)
if (cnt == i)
return(l);
return(NULL);
}
int
find_list_ptr(THING *l, void *ptr)
{
int cnt;
for(cnt = 0; l != NULL; cnt++, l = l->l_next)
if (l == ptr)
return(cnt);
return(-1);
}
int
list_size(THING *l)
{
int cnt;
for(cnt = 0; l != NULL; cnt++, l = l->l_next)
;
return(cnt);
}
/******************************************************************************/
void
rs_write_stats(FILE *savef, struct stats *s)
{
rs_write_marker(savef, RSID_STATS);
rs_write_int(savef, s->s_str);
rs_write_int(savef, s->s_exp);
rs_write_int(savef, s->s_lvl);
rs_write_int(savef, s->s_arm);
rs_write_int(savef, s->s_hpt);
rs_write_chars(savef, s->s_dmg, sizeof(s->s_dmg));
rs_write_int(savef,s->s_maxhp);
}
void
rs_read_stats(FILE *savef, struct stats *s)
{
rs_read_marker(savef, RSID_STATS);
rs_read_int(savef,&s->s_str);
rs_read_int(savef,&s->s_exp);
rs_read_int(savef,&s->s_lvl);
rs_read_int(savef,&s->s_arm);
rs_read_int(savef,&s->s_hpt);
rs_read_chars(savef,s->s_dmg,sizeof(s->s_dmg));
rs_read_int(savef,&s->s_maxhp);
}
void
rs_write_stone_index(FILE *savef, const STONE master[], int max, const char *str)
{
int i;
for(i = 0; i < max; i++)
if (str == master[i].st_name)
{
rs_write_int(savef,i);
return;
}
rs_write_int(savef,-1);
}
void
rs_read_stone_index(FILE *savef, const STONE master[], int maxindex, const char **str)
{
int i = 0;
rs_read_int(savef,&i);
if (!encerror() && (i > maxindex))
encseterr(EILSEQ);
else if (i >= 0)
*str = master[i].st_name;
else
*str = NULL;
}
void
rs_write_scrolls(FILE *savef)
{
int i;
for(i = 0; i < MAXSCROLLS; i++)
rs_write_string(savef, s_names[i]);
}
void
rs_read_scrolls(FILE *savef)
{
int i;
for(i = 0; i < MAXSCROLLS; i++)
rs_read_new_string(savef, &s_names[i]);
}
void
rs_write_potions(FILE *savef)
{
int i;
for(i = 0; i < MAXPOTIONS; i++)
rs_write_string_index(savef, rainbow, cNCOLORS, p_colors[i]);
}
void
rs_read_potions(FILE *savef)
{
int i;
for(i = 0; i < MAXPOTIONS; i++)
rs_read_string_index(savef, rainbow, cNCOLORS, &p_colors[i]);
}
void
rs_write_rings(FILE *savef)
{
int i;
for(i = 0; i < MAXRINGS; i++)
rs_write_stone_index(savef, stones, cNSTONES, r_stones[i]);
}
void
rs_read_rings(FILE *savef)
{
int i;
for(i = 0; i < MAXRINGS; i++)
rs_read_stone_index(savef, stones, cNSTONES, &r_stones[i]);
}
void
rs_write_sticks(FILE *savef)
{
int i;
for (i = 0; i < MAXSTICKS; i++)
{
if (strcmp(ws_type[i],"staff") == 0)
{
rs_write_int(savef,0);
rs_write_string_index(savef, wood, cNWOOD, ws_made[i]);
}
else
{
rs_write_int(savef,1);
rs_write_string_index(savef, metal, cNMETAL, ws_made[i]);
}
}
}
void
rs_read_sticks(FILE *savef)
{
int i = 0, list = 0;
for(i = 0; i < MAXSTICKS; i++)
{
rs_read_int(savef,&list);
if (list == 0)
{
rs_read_string_index(savef, wood, cNWOOD, &ws_made[i]);
ws_type[i] = "staff";
}
else
{
rs_read_string_index(savef, metal, cNMETAL, &ws_made[i]);
ws_type[i] = "wand";
}
}
}
void
rs_write_daemons(FILE *savef, struct delayed_action *dlist, int cnt)
{
int i = 0;
int func = 0;
rs_write_marker(savef, RSID_DAEMONS);
rs_write_int(savef, cnt);
for(i = 0; i < cnt; i++)
{
if (dlist[i].d_func == rollwand)
func = 1;
else if (dlist[i].d_func == doctor)
func = 2;
else if (dlist[i].d_func == stomach)
func = 3;
else if (dlist[i].d_func == runners)
func = 4;
else if (dlist[i].d_func == swander)
func = 5;
else if (dlist[i].d_func == nohaste)
func = 6;
else if (dlist[i].d_func == unconfuse)
func = 7;
else if (dlist[i].d_func == unsee)
func = 8;
else if (dlist[i].d_func == sight)
func = 9;
else if (dlist[i].d_func == turn_see_off)
func = 10;
else if (dlist[i].d_func == land)
func = 11;
else if (dlist[i].d_func == come_down)
func = 12;
else if (dlist[i].d_func == visuals)
func = 13;
else if (dlist[i].d_func == NULL)
func = 0;
else
func = -1;
rs_write_int(savef, dlist[i].d_type);
rs_write_int(savef, func);
rs_write_int(savef, dlist[i].d_arg);
rs_write_int(savef, dlist[i].d_time);
}
}
void
rs_read_daemons(FILE *savef, struct delayed_action *dlist, int cnt)
{
int i = 0;
int func = 0;
int value = 0;
rs_read_marker(savef, RSID_DAEMONS);
rs_read_int(savef, &value);
if (!encerror() && (value > cnt))
{
encseterr(EILSEQ);
return;
}
for(i=0; i < cnt; i++)
{
func = 0;
rs_read_int(savef, &dlist[i].d_type);
rs_read_int(savef, &func);
rs_read_int(savef, &dlist[i].d_arg);
rs_read_int(savef, &dlist[i].d_time);
if (encerror())
return;
switch(func)
{
case 1: dlist[i].d_func = rollwand;
break;
case 2: dlist[i].d_func = doctor;
break;
case 3: dlist[i].d_func = stomach;
break;
case 4: dlist[i].d_func = runners;
break;
case 5: dlist[i].d_func = swander;
break;
case 6: dlist[i].d_func = nohaste;
break;
case 7: dlist[i].d_func = unconfuse;
break;
case 8: dlist[i].d_func = unsee;
break;
case 9: dlist[i].d_func = sight;
break;
case 10: dlist[i].d_func = turn_see_off;
break;
case 11: dlist[i].d_func = land;
break;
case 12: dlist[i].d_func = come_down;
break;
case 13: dlist[i].d_func = visuals;
break;
default:dlist[i].d_func = NULL;
break;
}
if (dlist[i].d_func == NULL)
{
dlist[i].d_type = 0;
dlist[i].d_arg = 0;
dlist[i].d_time = 0;
}
}
}
void
rs_write_obj_info(FILE *savef, struct obj_info *i, int cnt)
{
int n;
rs_write_marker(savef, RSID_MAGICITEMS);
rs_write_int(savef, cnt);
for(n = 0; n < cnt; n++)
{
/* oi_name is constant, defined at compile time in all cases */
rs_write_int(savef,i[n].oi_prob);
rs_write_int(savef,i[n].oi_worth);
rs_write_string(savef,i[n].oi_guess);
rs_write_int(savef,i[n].oi_know);
}
}
void
rs_read_obj_info(FILE *savef, struct obj_info *mi, int cnt)
{
int n;
int value;
rs_read_marker(savef, RSID_MAGICITEMS);
rs_read_int(savef, &value);
if (!encerror() && (value > cnt))
{
encseterr(EILSEQ);
return;
}
for(n = 0; n < value; n++)
{
/* mi_name is const, defined at compile time in all cases */
rs_read_int(savef,&mi[n].oi_prob);
rs_read_int(savef,&mi[n].oi_worth);
rs_read_new_string(savef,&mi[n].oi_guess);
rs_read_int(savef,&mi[n].oi_know);
}
}
void
rs_write_room(FILE *savef, struct room *r)
{
rs_write_coord(savef, r->r_pos);
rs_write_coord(savef, r->r_max);
rs_write_coord(savef, r->r_gold);
rs_write_int(savef, r->r_goldval);
rs_write_int(savef, r->r_flags);
rs_write_int(savef, r->r_nexits);
rs_write_coord(savef, r->r_exit[0]);
rs_write_coord(savef, r->r_exit[1]);
rs_write_coord(savef, r->r_exit[2]);
rs_write_coord(savef, r->r_exit[3]);
rs_write_coord(savef, r->r_exit[4]);
rs_write_coord(savef, r->r_exit[5]);
rs_write_coord(savef, r->r_exit[6]);
rs_write_coord(savef, r->r_exit[7]);
rs_write_coord(savef, r->r_exit[8]);
rs_write_coord(savef, r->r_exit[9]);
rs_write_coord(savef, r->r_exit[10]);
rs_write_coord(savef, r->r_exit[11]);
}
void
rs_read_room(FILE *savef, struct room *r)
{
rs_read_coord(savef,&r->r_pos);
rs_read_coord(savef,&r->r_max);
rs_read_coord(savef,&r->r_gold);
rs_read_int(savef,&r->r_goldval);
rs_read_int(savef,&r->r_flags);
rs_read_int(savef,&r->r_nexits);
rs_read_coord(savef,&r->r_exit[0]);
rs_read_coord(savef,&r->r_exit[1]);
rs_read_coord(savef,&r->r_exit[2]);
rs_read_coord(savef,&r->r_exit[3]);
rs_read_coord(savef,&r->r_exit[4]);
rs_read_coord(savef,&r->r_exit[5]);
rs_read_coord(savef,&r->r_exit[6]);
rs_read_coord(savef,&r->r_exit[7]);
rs_read_coord(savef,&r->r_exit[8]);
rs_read_coord(savef,&r->r_exit[9]);
rs_read_coord(savef,&r->r_exit[10]);
rs_read_coord(savef,&r->r_exit[11]);
}
void
rs_write_rooms(FILE *savef, struct room r[], int cnt)
{
int n = 0;
rs_write_int(savef, cnt);
for(n = 0; n < cnt; n++)
rs_write_room(savef, &r[n]);
}
void
rs_read_rooms(FILE *savef, struct room *r, int cnt)
{
int value = 0, n = 0;
rs_read_int(savef,&value);
if (!encerror() && (value > cnt))
encseterr(EILSEQ);
else
for(n = 0; n < value; n++)
rs_read_room(savef,&r[n]);
}
void
rs_write_room_reference(FILE *savef, struct room *rp)
{
int i, room = -1;
for (i = 0; i < MAXROOMS; i++)
if (&rooms[i] == rp)
room = i;
rs_write_int(savef, room);
}
void
rs_read_room_reference(FILE *savef, struct room **rp)
{
int i;
rs_read_int(savef, &i);
if (!encerror()) {
if (i >= 0 && i < MAXROOMS)
*rp = &rooms[i];
else
*rp = NULL;
}
}
void
rs_write_monsters(FILE *savef, struct monster *m, int cnt)
{
int n;
rs_write_marker(savef, RSID_MONSTERS);
rs_write_int(savef, cnt);
for(n=0;n<cnt;n++)
rs_write_stats(savef, &m[n].m_stats);
}
void
rs_read_monsters(FILE *savef, struct monster *m, int cnt)
{
int value = 0, n = 0;
rs_read_marker(savef, RSID_MONSTERS);
rs_read_int(savef, &value);
if (!encerror() && (value != cnt))
encseterr(EILSEQ);
else
for(n = 0; n < cnt; n++)
rs_read_stats(savef, &m[n].m_stats);
}
void
rs_write_object(FILE *savef, THING *o)
{
rs_write_marker(savef, RSID_OBJECT);
rs_write_int(savef, o->_o._o_type);
rs_write_coord(savef, o->_o._o_pos);
rs_write_int(savef, o->_o._o_launch);
rs_write_int(savef, o->_o._o_packch);
rs_write_chars(savef, o->_o._o_damage, sizeof(o->_o._o_damage));
rs_write_chars(savef, o->_o._o_hurldmg, sizeof(o->_o._o_hurldmg));
rs_write_int(savef, o->_o._o_count);
rs_write_int(savef, o->_o._o_which);
rs_write_int(savef, o->_o._o_hplus);
rs_write_int(savef, o->_o._o_dplus);
rs_write_int(savef, o->_o._o_arm);
rs_write_int(savef, o->_o._o_flags);
rs_write_int(savef, o->_o._o_group);
rs_write_string(savef, o->_o._o_label);
}
void
rs_read_object(FILE *savef, THING *o)
{
rs_read_marker(savef, RSID_OBJECT);
rs_read_int(savef, &o->_o._o_type);
rs_read_coord(savef, &o->_o._o_pos);
rs_read_int(savef, &o->_o._o_launch);
rs_read_int(savef, &o->_o._o_packch);
rs_read_chars(savef, o->_o._o_damage, sizeof(o->_o._o_damage));
rs_read_chars(savef, o->_o._o_hurldmg, sizeof(o->_o._o_hurldmg));
rs_read_int(savef, &o->_o._o_count);
rs_read_int(savef, &o->_o._o_which);
rs_read_int(savef, &o->_o._o_hplus);
rs_read_int(savef, &o->_o._o_dplus);
rs_read_int(savef, &o->_o._o_arm);
rs_read_int(savef, &o->_o._o_flags);
rs_read_int(savef, &o->_o._o_group);
rs_read_new_string(savef, &o->_o._o_label);
}
void
rs_write_object_list(FILE *savef, THING *l)
{
rs_write_marker(savef, RSID_OBJECTLIST);
rs_write_int(savef, list_size(l));
for( ;l != NULL; l = l->l_next)
rs_write_object(savef, l);
}
void
rs_read_object_list(FILE *savef, THING **list)
{
int i, cnt;
THING *l = NULL, *previous = NULL, *head = NULL;
rs_read_marker(savef, RSID_OBJECTLIST);
rs_read_int(savef, &cnt);
if (encerror())
return;
for (i = 0; i < cnt; i++)
{
l = new_item();
l->l_prev = previous;
if (previous != NULL)
previous->l_next = l;
rs_read_object(savef,l);
if (previous == NULL)
head = l;
previous = l;
}
if (l != NULL)
l->l_next = NULL;
*list = head;
}
void
rs_write_object_reference(FILE *savef, THING *list, THING *item)
{
int i;
i = find_list_ptr(list, item);
rs_write_int(savef, i);
}
void
rs_read_object_reference(FILE *savef, THING *list, THING **item)
{
int i;
rs_read_int(savef, &i);
if (!encerror())
*item = get_list_item(list,i);
else
*item = NULL;
}
int
find_room_coord(const struct room *rmlist,const coord *c, int n)
{
int i = 0;
for(i = 0; i < n; i++)
if(&rmlist[i].r_gold == c)
return(i);
return(-1);
}
int
find_thing_coord(THING *monlist, const coord *c)
{
THING *mitem;
THING *tp;
int i = 0;
for(mitem = monlist; mitem != NULL; mitem = mitem->l_next)
{
tp = mitem;
if (c == &tp->t_pos)
return(i);
i++;
}
return(-1);
}
int
find_object_coord(THING *objlist, const coord *c)
{
THING *oitem;
THING *obj;
int i = 0;
for(oitem = objlist; oitem != NULL; oitem = oitem->l_next)
{
obj = oitem;
if (c == &obj->o_pos)
return(i);
i++;
}
return(-1);
}
void
rs_write_thing(FILE *savef, THING *t)
{
int i = -1;
rs_write_marker(savef, RSID_THING);
if (t == NULL)
{
rs_write_int(savef, 0);
return;
}
rs_write_int(savef, 1);
rs_write_coord(savef, t->_t._t_pos);
rs_write_int(savef, t->_t._t_turn);
rs_write_int(savef, t->_t._t_type);
rs_write_int(savef, t->_t._t_disguise);
rs_write_int(savef, t->_t._t_oldch);
/*
t_dest can be:
0,0: NULL
0,1: location of hero
1,i: location of a thing (monster)
2,i: location of an object
3,i: location of gold in a room
We need to remember what we are chasing rather than
the current location of what we are chasing.
*/
if (t->t_dest == &hero)
{
rs_write_int(savef,0);
rs_write_int(savef,1);
}
else if (t->t_dest != NULL)
{
i = find_thing_coord(mlist, t->t_dest);
if (i >=0 )
{
rs_write_int(savef,1);
rs_write_int(savef,i);
}
else
{
i = find_object_coord(lvl_obj, t->t_dest);
if (i >= 0)
{
rs_write_int(savef,2);
rs_write_int(savef,i);
}
else
{
i = find_room_coord(rooms, t->t_dest, MAXROOMS);
if (i >= 0)
{
rs_write_int(savef,3);
rs_write_int(savef,i);
}
else
{
rs_write_int(savef, 0);
rs_write_int(savef,1); /* chase the hero anyway */
}
}
}
}
else
{
rs_write_int(savef,0);
rs_write_int(savef,0);
}
rs_write_int(savef, t->_t._t_flags);
rs_write_stats(savef, &t->_t._t_stats);
rs_write_room_reference(savef, t->_t._t_room);
rs_write_object_list(savef, t->_t._t_pack);
}
void
rs_read_thing(FILE *savef, THING *t)
{
int listid = 0, index = -1;
THING *item;
rs_read_marker(savef, RSID_THING);
rs_read_int(savef, &index);
if (encerror())
return;
if (index == 0)
return;
rs_read_coord(savef,&t->_t._t_pos);
rs_read_int(savef,&t->_t._t_turn);
rs_read_int(savef,&t->_t._t_type);
rs_read_int(savef,&t->_t._t_disguise);
rs_read_int(savef,&t->_t._t_oldch);
/*
t_dest can be (listid,index):
0,0: NULL
0,1: location of hero
1,i: location of a thing (monster)
2,i: location of an object
3,i: location of gold in a room
We need to remember what we are chasing rather than
the current location of what we are chasing.
*/
rs_read_int(savef, &listid);
rs_read_int(savef, &index);
t->_t._t_reserved = -1;
if (encerror())
return;
if (listid == 0) /* hero or NULL */
{
if (index == 1)
t->_t._t_dest = &hero;
else
t->_t._t_dest = NULL;
}
else if (listid == 1) /* monster/thing */
{
t->_t._t_dest = NULL;
t->_t._t_reserved = index;
}
else if (listid == 2) /* object */
{
THING *obj;
item = get_list_item(lvl_obj, index);
if (item != NULL)
{
obj = item;
t->_t._t_dest = &obj->o_pos;
}
}
else if (listid == 3) /* gold */
{
t->_t._t_dest = &rooms[index].r_gold;
}
else
t->_t._t_dest = NULL;
rs_read_int(savef,&t->_t._t_flags);
rs_read_stats(savef,&t->_t._t_stats);
rs_read_room_reference(savef, &t->_t._t_room);
rs_read_object_list(savef,&t->_t._t_pack);
}
void
rs_fix_thing(THING *t)
{
THING *item;
THING *tp;
if (t->t_reserved < 0)
return;
item = get_list_item(mlist,t->t_reserved);
if (item != NULL)
{
tp = item;
t->t_dest = &tp->t_pos;
}
}
void
rs_write_thing_list(FILE *savef, THING *l)
{
int cnt = 0;
rs_write_marker(savef, RSID_MONSTERLIST);
cnt = list_size(l);
rs_write_int(savef, cnt);
if (cnt < 1)
return;
while (l != NULL) {
rs_write_thing(savef, l);
l = l->l_next;
}
}
void
rs_read_thing_list(FILE *savef, THING **list)
{
int i, cnt;
THING *l = NULL, *previous = NULL, *head = NULL;
rs_read_marker(savef, RSID_MONSTERLIST);
rs_read_int(savef, &cnt);
if (encerror())
return;
for (i = 0; i < cnt; i++)
{
l = new_item();
l->l_prev = previous;
if (previous != NULL)
previous->l_next = l;
rs_read_thing(savef,l);
if (previous == NULL)
head = l;
previous = l;
}
if (l != NULL)
l->l_next = NULL;
*list = head;
}
void
rs_fix_thing_list(THING *list)
{
THING *item;
for(item = list; item != NULL; item = item->l_next)
rs_fix_thing(item);
}
void
rs_write_thing_reference(FILE *savef, THING *list, THING *item)
{
int i;
if (item == NULL)
rs_write_int(savef,-1);
else
{
i = find_list_ptr(list, item);
rs_write_int(savef, i);
}
}
void
rs_read_thing_reference(FILE *savef, THING *list, THING **item)
{
int i;
rs_read_int(savef, &i);
if (encerror())
return;
if (i == -1)
*item = NULL;
else
*item = get_list_item(list,i);
}
void
rs_write_thing_references(FILE *savef, THING *list, THING *items[], int cnt)
{
int i;
for(i = 0; i < cnt; i++)
rs_write_thing_reference(savef,list,items[i]);
}
void
rs_read_thing_references(FILE *savef, THING *list, THING *items[], int cnt)
{
int i;
for(i = 0; i < cnt; i++)
rs_read_thing_reference(savef,list,&items[i]);
}
void
rs_write_places(FILE *savef, PLACE *p, int cnt)
{
int i = 0;
for(i = 0; i < cnt; i++)
{
rs_write_int(savef, p[i].p_ch);
rs_write_int(savef, p[i].p_flags);
rs_write_thing_reference(savef, mlist, p[i].p_monst);
}
}
void
rs_read_places(FILE *savef, PLACE *p, int cnt)
{
int i = 0;
for(i = 0; i < cnt; i++)
{
rs_read_int(savef,&p[i].p_ch);
rs_read_int(savef,&p[i].p_flags);
rs_read_thing_reference(savef, mlist, &p[i].p_monst);
}
}
int
rs_save_file(FILE *savef)
{
encclearerr();
rs_write_int(savef, noscore);
rs_write_int(savef, seenstairs);
rs_write_int(savef, amulet);
rs_write_int(savef, fight_flush);
rs_write_int(savef, jump);
rs_write_int(savef, passgo);
rs_write_int(savef, see_floor);
rs_write_int(savef, terse);
rs_write_int(savef, tombstone);
rs_write_ints(savef, pack_used, 26);
rs_write_chars(savef, file_name, MAXSTR);
rs_write_chars(savef, huh, MAXSTR);
rs_write_potions(savef);
rs_write_rings(savef);
rs_write_scrolls(savef);
rs_write_chars(savef, whoami, MAXSTR);
rs_write_sticks(savef);
rs_write_chars(savef, fruit, MAXSTR);
rs_write_int(savef,n_objs);
rs_write_int(savef, ntraps);
rs_write_int(savef, hungry_state);
rs_write_int(savef, inpack);
rs_write_int(savef, inv_type);
rs_write_int(savef, level);
rs_write_int(savef, max_level);
rs_write_int(savef, no_food);
rs_write_int(savef, food_left);
rs_write_int(savef, lastscore);
rs_write_int(savef, no_move);
rs_write_int(savef, purse);
rs_write_int(savef, quiet);
rs_write_int(savef, vf_hit);
rs_write_uint(savef, seed);
rs_write_coord(savef, stairs);
rs_write_thing(savef, &player);
rs_write_object_reference(savef, player.t_pack, cur_armor);
rs_write_object_reference(savef, player.t_pack, cur_ring[0]);
rs_write_object_reference(savef, player.t_pack, cur_ring[1]);
rs_write_object_reference(savef, player.t_pack, cur_weapon);
rs_write_object_list(savef, lvl_obj);
rs_write_thing_list(savef, mlist);
rs_write_places(savef,places,MAXLINES*MAXCOLS);
rs_write_stats(savef,&max_stats);
rs_write_rooms(savef, rooms, MAXROOMS);
rs_write_rooms(savef, passages, MAXPASS);
rs_write_monsters(savef,monsters,26);
rs_write_obj_info(savef, things, NUMTHINGS);
rs_write_obj_info(savef, arm_info, MAXARMORS);
rs_write_obj_info(savef, pot_info, MAXPOTIONS);
rs_write_obj_info(savef, ring_info, MAXRINGS);
rs_write_obj_info(savef, scr_info, MAXSCROLLS);
rs_write_obj_info(savef, weap_info, MAXWEAPONS+1);
rs_write_obj_info(savef, ws_info, MAXSTICKS);
rs_write_daemons(savef, &d_list[0], 20);
rs_write_int(savef,between);
rs_write_int(savef, group);
rs_write_window(savef,stdscr);
return( encclearerr() );
}
int
rs_restore_file(FILE *savef)
{
char fake_file_name[MAXSTR];
THING *mitem;
encclearerr();
rs_read_int(savef, &noscore);
rs_read_int(savef, &seenstairs);
rs_read_int(savef, &amulet);
rs_read_int(savef, &fight_flush);
rs_read_int(savef, &jump);
rs_read_int(savef, &passgo);
rs_read_int(savef, &see_floor);
rs_read_int(savef, &terse);
rs_read_int(savef, &tombstone);
rs_read_ints(savef, pack_used, 26);
rs_read_chars(savef, fake_file_name, MAXSTR);
rs_read_chars(savef, huh, MAXSTR);
rs_read_potions(savef);
rs_read_rings(savef);
rs_read_scrolls(savef);
rs_read_chars(savef, whoami, MAXSTR);
rs_read_sticks(savef);
rs_read_chars(savef, fruit, MAXSTR);
rs_read_int(savef, &n_objs);
rs_read_int(savef, &ntraps);
rs_read_int(savef, &hungry_state);
rs_read_int(savef, &inpack);
rs_read_int(savef, &inv_type);
rs_read_int(savef, &level);
rs_read_int(savef, &max_level);
rs_read_int(savef, &no_food);
rs_read_int(savef, &food_left);
rs_read_int(savef, &lastscore);
rs_read_int(savef, &no_move);
rs_read_int(savef, &purse);
rs_read_int(savef, &quiet);
rs_read_int(savef, &vf_hit);
rs_read_uint(savef, &seed);
rs_read_coord(savef, &stairs);
rs_read_thing(savef, &player);
rs_read_object_reference(savef, player.t_pack, &cur_armor);
rs_read_object_reference(savef, player.t_pack, &cur_ring[0]);
rs_read_object_reference(savef, player.t_pack, &cur_ring[1]);
rs_read_object_reference(savef, player.t_pack, &cur_weapon);
rs_read_object_list(savef, &lvl_obj);
rs_read_thing_list(savef, &mlist);
rs_fix_thing(&player);
rs_fix_thing_list(mlist);
rs_read_places(savef,places,MAXLINES*MAXCOLS);
rs_read_stats(savef, &max_stats);
rs_read_rooms(savef, rooms, MAXROOMS);
rs_read_rooms(savef, passages, MAXPASS);
rs_read_monsters(savef,monsters,26);
rs_read_obj_info(savef, things, NUMTHINGS);
rs_read_obj_info(savef, arm_info, MAXARMORS);
rs_read_obj_info(savef, pot_info, MAXPOTIONS);
rs_read_obj_info(savef, ring_info, MAXRINGS);
rs_read_obj_info(savef, scr_info, MAXSCROLLS);
rs_read_obj_info(savef, weap_info, MAXWEAPONS+1);
rs_read_obj_info(savef, ws_info, MAXSTICKS);
rs_read_daemons(savef, d_list, 20);
rs_read_int(savef,&between);
rs_read_int(savef,&group);
rs_read_window(savef,stdscr);
if (player.t_room == NULL)
player.t_room = roomin(&hero);
for (mitem = mlist; mitem != NULL; mitem = mitem->l_next) {
if (mitem->t_room == NULL)
mitem->t_room = roomin(&(mitem->t_pos));
}
return( encclearerr() );
}
Reference in a new issue View git blame Copy permalink