initial import of 386bsd-0.1 sources

1 files changed, 62 insertions, 0 deletions

diff --git a/hack/hack.timeout.c b/hack/hack.timeout.c
new file mode 100644
index 00000000..d8282976
--- /dev/null
+++ b/hack/hack.timeout.c
@@ -0,0 +1,62 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.timeout.c - version 1.0.3 */
+
+#include	"hack.h"
+
+timeout(){
+register struct prop *upp;
+	if(Stoned) stoned_dialogue();
+	for(upp = u.uprops; upp < u.uprops+SIZE(u.uprops); upp++)
+	    if((upp->p_flgs & TIMEOUT) && !--upp->p_flgs) {
+		if(upp->p_tofn) (*upp->p_tofn)();
+		else switch(upp - u.uprops){
+		case STONED:
+			killer = "cockatrice";
+			done("died");
+			break;
+		case SICK:
+			pline("You die because of food poisoning.");
+			killer = u.usick_cause;
+			done("died");
+			break;
+		case FAST:
+			pline("You feel yourself slowing down.");
+			break;
+		case CONFUSION:
+			pline("You feel less confused now.");
+			break;
+		case BLIND:
+			pline("You can see again.");
+			setsee();
+			break;
+		case INVIS:
+			on_scr(u.ux,u.uy);
+			pline("You are no longer invisible.");
+			break;
+		case WOUNDED_LEGS:
+			heal_legs();
+			break;
+		}
+	}
+}
+
+/* He is being petrified - dialogue by inmet!tower */
+char *stoned_texts[] = {
+	"You are slowing down.",		/* 5 */
+	"Your limbs are stiffening.",		/* 4 */
+	"Your limbs have turned to stone.",	/* 3 */
+	"You have turned to stone.",		/* 2 */
+	"You are a statue."			/* 1 */
+};
+
+stoned_dialogue()
+{
+	register long i = (Stoned & TIMEOUT);
+
+	if(i > 0 && i <= SIZE(stoned_texts))
+		pline(stoned_texts[SIZE(stoned_texts) - i]);
+	if(i == 5)
+		Fast = 0;
+	if(i == 3)
+		nomul(-3);
+}