release/1.1.5.1_cvsreleng/1

1 files changed, 0 insertions, 238 deletions

diff --git a/games/hack/hack.save.c b/games/hack/hack.save.c
deleted file mode 100644
index fe09e1e72e1e..000000000000
--- a/games/hack/hack.save.c
+++ /dev/null
@@ -1,238 +0,0 @@
-/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
-/* hack.save.c - version 1.0.3 */
-
-#include "hack.h"
-extern char genocided[60];	/* defined in Decl.c */
-extern char fut_geno[60];	/* idem */
-#include <signal.h>
-
-extern char SAVEF[], nul[];
-extern char pl_character[PL_CSIZ];
-extern long lseek();
-extern struct obj *restobjchn();
-extern struct monst *restmonchn();
-
-dosave(){
-	if(dosave0(0)) {
-		settty("Be seeing you ...\n");
-		exit(0);
-	}
-#ifdef lint
-	return(0);
-#endif lint
-}
-
-#ifndef NOSAVEONHANGUP
-hangup(){
-	(void) dosave0(1);
-	exit(1);
-}
-#endif NOSAVEONHANGUP
-
-/* returns 1 if save successful */
-dosave0(hu) int hu; {
-	register fd, ofd;
-	int tmp;		/* not register ! */
-
-	(void) signal(SIGHUP, SIG_IGN);
-	(void) signal(SIGINT, SIG_IGN);
-	if((fd = creat(SAVEF, FMASK)) < 0) {
-		if(!hu) pline("Cannot open save file. (Continue or Quit)");
-		(void) unlink(SAVEF);		/* ab@unido */
-		return(0);
-	}
-	if(flags.moonphase == FULL_MOON)	/* ut-sally!fletcher */
-		u.uluck--;			/* and unido!ab */
-	savelev(fd,dlevel);
-	saveobjchn(fd, invent);
-	saveobjchn(fd, fcobj);
-	savemonchn(fd, fallen_down);
-	tmp = getuid();
-	bwrite(fd, (char *) &tmp, sizeof tmp);
-	bwrite(fd, (char *) &flags, sizeof(struct flag));
-	bwrite(fd, (char *) &dlevel, sizeof dlevel);
-	bwrite(fd, (char *) &maxdlevel, sizeof maxdlevel);
-	bwrite(fd, (char *) &moves, sizeof moves);
-	bwrite(fd, (char *) &u, sizeof(struct you));
-	if(u.ustuck)
-		bwrite(fd, (char *) &(u.ustuck->m_id), sizeof u.ustuck->m_id);
-	bwrite(fd, (char *) pl_character, sizeof pl_character);
-	bwrite(fd, (char *) genocided, sizeof genocided);
-	bwrite(fd, (char *) fut_geno, sizeof fut_geno);
-	savenames(fd);
-	for(tmp = 1; tmp <= maxdlevel; tmp++) {
-		extern int hackpid;
-		extern boolean level_exists[];
-
-		if(tmp == dlevel || !level_exists[tmp]) continue;
-		glo(tmp);
-		if((ofd = open(lock, 0)) < 0) {
-		    if(!hu) pline("Error while saving: cannot read %s.", lock);
-		    (void) close(fd);
-		    (void) unlink(SAVEF);
-		    if(!hu) done("tricked");
-		    return(0);
-		}
-		getlev(ofd, hackpid, tmp);
-		(void) close(ofd);
-		bwrite(fd, (char *) &tmp, sizeof tmp);	/* level number */
-		savelev(fd,tmp);			/* actual level */
-		(void) unlink(lock);
-	}
-	(void) close(fd);
-	glo(dlevel);
-	(void) unlink(lock);	/* get rid of current level --jgm */
-	glo(0);
-	(void) unlink(lock);
-	return(1);
-}
-
-dorecover(fd)
-register fd;
-{
-	register nfd;
-	int tmp;		/* not a register ! */
-	unsigned mid;		/* idem */
-	struct obj *otmp;
-	extern boolean restoring;
-
-	restoring = TRUE;
-	getlev(fd, 0, 0);
-	invent = restobjchn(fd);
-	for(otmp = invent; otmp; otmp = otmp->nobj)
-		if(otmp->owornmask)
-			setworn(otmp, otmp->owornmask);
-	fcobj = restobjchn(fd);
-	fallen_down = restmonchn(fd);
-	mread(fd, (char *) &tmp, sizeof tmp);
-	if(tmp != getuid()) {		/* strange ... */
-		(void) close(fd);
-		(void) unlink(SAVEF);
-		puts("Saved game was not yours.");
-		restoring = FALSE;
-		return(0);
-	}
-	mread(fd, (char *) &flags, sizeof(struct flag));
-	mread(fd, (char *) &dlevel, sizeof dlevel);
-	mread(fd, (char *) &maxdlevel, sizeof maxdlevel);
-	mread(fd, (char *) &moves, sizeof moves);
-	mread(fd, (char *) &u, sizeof(struct you));
-	if(u.ustuck)
-		mread(fd, (char *) &mid, sizeof mid);
-	mread(fd, (char *) pl_character, sizeof pl_character);
-	mread(fd, (char *) genocided, sizeof genocided);
-	mread(fd, (char *) fut_geno, sizeof fut_geno);
-	restnames(fd);
-	while(1) {
-		if(read(fd, (char *) &tmp, sizeof tmp) != sizeof tmp)
-			break;
-		getlev(fd, 0, tmp);
-		glo(tmp);
-		if((nfd = creat(lock, FMASK)) < 0)
-			panic("Cannot open temp file %s!\n", lock);
-		savelev(nfd,tmp);
-		(void) close(nfd);
-	}
-	(void) lseek(fd, 0L, 0);
-	getlev(fd, 0, 0);
-	(void) close(fd);
-	(void) unlink(SAVEF);
-	if(Punished) {
-		for(otmp = fobj; otmp; otmp = otmp->nobj)
-			if(otmp->olet == CHAIN_SYM) goto chainfnd;
-		panic("Cannot find the iron chain?");
-	chainfnd:
-		uchain = otmp;
-		if(!uball){
-			for(otmp = fobj; otmp; otmp = otmp->nobj)
-				if(otmp->olet == BALL_SYM && otmp->spe)
-					goto ballfnd;
-			panic("Cannot find the iron ball?");
-		ballfnd:
-			uball = otmp;
-		}
-	}
-	if(u.ustuck) {
-		register struct monst *mtmp;
-
-		for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
-			if(mtmp->m_id == mid) goto monfnd;
-		panic("Cannot find the monster ustuck.");
-	monfnd:
-		u.ustuck = mtmp;
-	}
-#ifndef QUEST
-	setsee();  /* only to recompute seelx etc. - these weren't saved */
-#endif QUEST
-	docrt();
-	restoring = FALSE;
-	return(1);
-}
-
-struct obj *
-restobjchn(fd)
-register fd;
-{
-	register struct obj *otmp, *otmp2;
-	register struct obj *first = 0;
-	int xl;
-#ifdef lint
-	/* suppress "used before set" warning from lint */
-	otmp2 = 0;
-#endif lint
-	while(1) {
-		mread(fd, (char *) &xl, sizeof(xl));
-		if(xl == -1) break;
-		otmp = newobj(xl);
-		if(!first) first = otmp;
-		else otmp2->nobj = otmp;
-		mread(fd, (char *) otmp, (unsigned) xl + sizeof(struct obj));
-		if(!otmp->o_id) otmp->o_id = flags.ident++;
-		otmp2 = otmp;
-	}
-	if(first && otmp2->nobj){
-		impossible("Restobjchn: error reading objchn.");
-		otmp2->nobj = 0;
-	}
-	return(first);
-}
-
-struct monst *
-restmonchn(fd)
-register fd;
-{
-	register struct monst *mtmp, *mtmp2;
-	register struct monst *first = 0;
-	int xl;
-
-	struct permonst *monbegin;
-	long differ;
-
-	mread(fd, (char *)&monbegin, sizeof(monbegin));
-	differ = (char *)(&mons[0]) - (char *)(monbegin);
-
-#ifdef lint
-	/* suppress "used before set" warning from lint */
-	mtmp2 = 0;
-#endif lint
-	while(1) {
-		mread(fd, (char *) &xl, sizeof(xl));
-		if(xl == -1) break;
-		mtmp = newmonst(xl);
-		if(!first) first = mtmp;
-		else mtmp2->nmon = mtmp;
-		mread(fd, (char *) mtmp, (unsigned) xl + sizeof(struct monst));
-		if(!mtmp->m_id)
-			mtmp->m_id = flags.ident++;
-		mtmp->data = (struct permonst *)
-			((char *) mtmp->data + differ);
-		if(mtmp->minvent)
-			mtmp->minvent = restobjchn(fd);
-		mtmp2 = mtmp;
-	}
-	if(first && mtmp2->nmon){
-		impossible("Restmonchn: error reading monchn.");
-		mtmp2->nmon = 0;
-	}
-	return(first);
-}