initial commit

1 files changed, 67 insertions, 0 deletions

diff --git a/larn/savelev.c b/larn/savelev.c
new file mode 100644
index 0000000..9954ff0
--- /dev/null
+++ b/larn/savelev.c
@@ -0,0 +1,67 @@
+/*	$NetBSD: savelev.c,v 1.7 2012/06/19 05:30:44 dholland Exp $	*/
+
+/* savelev.c		 Larn is copyrighted 1986 by Noah Morgan. */
+#include <sys/cdefs.h>
+#ifndef lint
+__RCSID("$NetBSD: savelev.c,v 1.7 2012/06/19 05:30:44 dholland Exp $");
+#endif				/* not lint */
+#include "header.h"
+#include "extern.h"
+
+/*
+ *	routine to save the present level into storage
+ */
+void
+savelevel(void)
+{
+	struct cel *pcel;
+	u_char  *pitem, *pknow, *pmitem;
+	short *phitp, *piarg;
+	struct cel *pecel;
+	pcel = &cell[level * MAXX * MAXY];	/* pointer to this level's
+						 * cells */
+	pecel = pcel + MAXX * MAXY;	/* pointer to past end of this
+					 * level's cells */
+	pitem = item[0];
+	piarg = iarg[0];
+	pknow = know[0];
+	pmitem = mitem[0];
+	phitp = hitp[0];
+	while (pcel < pecel) {
+		pcel->mitem = *pmitem++;
+		pcel->hitp = *phitp++;
+		pcel->item = *pitem++;
+		pcel->know = *pknow++;
+		pcel->iarg = *piarg++;
+		pcel++;
+	}
+}
+
+/*
+ *	routine to restore a level from storage
+ */
+void
+getlevel(void)
+{
+	struct cel *pcel;
+	u_char  *pitem, *pknow, *pmitem;
+	short *phitp, *piarg;
+	struct cel *pecel;
+	pcel = &cell[level * MAXX * MAXY];	/* pointer to this level's
+						 * cells */
+	pecel = pcel + MAXX * MAXY;	/* pointer to past end of this
+					 * level's cells */
+	pitem = item[0];
+	piarg = iarg[0];
+	pknow = know[0];
+	pmitem = mitem[0];
+	phitp = hitp[0];
+	while (pcel < pecel) {
+		*pmitem++ = pcel->mitem;
+		*phitp++ = pcel->hitp;
+		*pitem++ = pcel->item;
+		*pknow++ = pcel->know;
+		*piarg++ = pcel->iarg;
+		pcel++;
+	}
+}