From 057afceb86e030ad65b0130436860d9a18066186 Mon Sep 17 00:00:00 2001
From: jkh <jkh@FreeBSD.org>
Date: Sun, 4 Sep 1994 04:03:31 +0000
Subject: Bring in the 4.4 Lite games directory, modulo man page changes and
 segregation of the x11 based games.  I'm not going to tag the originals with
 bsd_44_lite and do this in two stages since it's just not worth it for this
 collection, and I've got directory renames to deal with that way.  Bleah.
 Submitted by:	jkh

---
 games/hack/hack.worn.c | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 games/hack/hack.worn.c

(limited to 'games/hack/hack.worn.c')

diff --git a/games/hack/hack.worn.c b/games/hack/hack.worn.c
new file mode 100644
index 0000000..bfec47f
--- /dev/null
+++ b/games/hack/hack.worn.c
@@ -0,0 +1,65 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.worn.c - version 1.0.2 */
+
+#include "hack.h"
+
+struct worn {
+	long w_mask;
+	struct obj **w_obj;
+} worn[] = {
+	{ W_ARM, &uarm },
+	{ W_ARM2, &uarm2 },
+	{ W_ARMH, &uarmh },
+	{ W_ARMS, &uarms },
+	{ W_ARMG, &uarmg },
+	{ W_RINGL, &uleft },
+	{ W_RINGR, &uright },
+	{ W_WEP, &uwep },
+	{ W_BALL, &uball },
+	{ W_CHAIN, &uchain },
+	{ 0, 0 }
+};
+
+setworn(obj, mask)
+register struct obj *obj;
+long mask;
+{
+	register struct worn *wp;
+	register struct obj *oobj;
+
+	for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {
+		oobj = *(wp->w_obj);
+		if(oobj && !(oobj->owornmask & wp->w_mask))
+			impossible("Setworn: mask = %ld.", wp->w_mask);
+		if(oobj) oobj->owornmask &= ~wp->w_mask;
+		if(obj && oobj && wp->w_mask == W_ARM){
+			if(uarm2) {
+				impossible("Setworn: uarm2 set?");
+			} else
+				setworn(uarm, W_ARM2);
+		}
+		*(wp->w_obj) = obj;
+		if(obj) obj->owornmask |= wp->w_mask;
+	}
+	if(uarm2 && !uarm) {
+		uarm = uarm2;
+		uarm2 = 0;
+		uarm->owornmask ^= (W_ARM | W_ARM2);
+	}
+}
+
+/* called e.g. when obj is destroyed */
+setnotworn(obj) register struct obj *obj; {
+	register struct worn *wp;
+
+	for(wp = worn; wp->w_mask; wp++)
+		if(obj == *(wp->w_obj)) {
+			*(wp->w_obj) = 0;
+			obj->owornmask &= ~wp->w_mask;
+		}
+	if(uarm2 && !uarm) {
+		uarm = uarm2;
+		uarm2 = 0;
+		uarm->owornmask ^= (W_ARM | W_ARM2);
+	}
+}
-- 
cgit v1.1