initial import of 386bsd-0.1 sources

1 files changed, 47 insertions, 0 deletions

diff --git a/larn/savelev.c b/larn/savelev.c
new file mode 100644
index 00000000..4419acb9
--- /dev/null
+++ b/larn/savelev.c
@@ -0,0 +1,47 @@
+/* savelev.c		 Larn is copyrighted 1986 by Noah Morgan. */
+#include "header.h"
+extern struct cel *cell;
+
+/*
+ *	routine to save the present level into storage
+ */
+savelevel()
+	{
+	register struct cel *pcel;
+	register char *pitem,*pknow,*pmitem;
+	register short *phitp,*piarg;
+	register 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++;
+		}
+	}
+
+/*
+ *	routine to restore a level from storage
+ */
+getlevel()
+	{
+	register struct cel *pcel;
+	register char *pitem,*pknow,*pmitem;
+	register short *phitp,*piarg;
+	register 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;
+		}
+	}