Deorbit complete. We dont build these anymore, so into the attic they go.

1 files changed, 0 insertions, 204 deletions

diff --git a/games/hack/hack.steal.c b/games/hack/hack.steal.c
deleted file mode 100644
index 6c97a58..0000000
--- a/games/hack/hack.steal.c
+++ /dev/null
@@ -1,204 +0,0 @@
-/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
-/* hack.steal.c - version 1.0.3 */
-/* $FreeBSD$ */
-
-#include "hack.h"
-
-long		/* actually returns something that fits in an int */
-somegold(){
-	return( (u.ugold < 100) ? u.ugold :
-		(u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold) );
-}
-
-stealgold(mtmp)  struct monst *mtmp; {
-struct gold *gold = g_at(u.ux, u.uy);
-long tmp;
-	if(gold && ( !u.ugold || gold->amount > u.ugold || !rn2(5))) {
-		mtmp->mgold += gold->amount;
-		freegold(gold);
-		if(Invisible) newsym(u.ux, u.uy);
-		pline("%s quickly snatches some gold from between your feet!",
-			Monnam(mtmp));
-		if(!u.ugold || !rn2(5)) {
-			rloc(mtmp);
-			mtmp->mflee = 1;
-		}
-	} else if(u.ugold) {
-		u.ugold -= (tmp = somegold());
-		pline("Your purse feels lighter.");
-		mtmp->mgold += tmp;
-		rloc(mtmp);
-		mtmp->mflee = 1;
-		flags.botl = 1;
-	}
-}
-
-/* steal armor after he finishes taking it off */
-unsigned stealoid;		/* object to be stolen */
-unsigned stealmid;		/* monster doing the stealing */
-stealarm(){
-	struct monst *mtmp;
-	struct obj *otmp;
-
-	for(otmp = invent; otmp; otmp = otmp->nobj)
-	  if(otmp->o_id == stealoid) {
-	    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
-	      if(mtmp->m_id == stealmid) {
-		if(dist(mtmp->mx,mtmp->my) < 3) {
-		  freeinv(otmp);
-		  pline("%s steals %s!", Monnam(mtmp), doname(otmp));
-		  mpickobj(mtmp,otmp);
-		  mtmp->mflee = 1;
-		  rloc(mtmp);
-		}
-		break;
-	      }
-	    break;
-	  }
-	stealoid = 0;
-}
-
-/* returns 1 when something was stolen */
-/* (or at least, when N should flee now) */
-/* avoid stealing the object stealoid */
-steal(mtmp)
-struct monst *mtmp;
-{
-	struct obj *otmp;
-	int tmp;
-	int named = 0;
-
-	if(!invent){
-	    if(Blind)
-	      pline("Somebody tries to rob you, but finds nothing to steal.");
-	    else
-	      pline("%s tries to rob you, but she finds nothing to steal!",
-		Monnam(mtmp));
-	    return(1);	/* let her flee */
-	}
-	tmp = 0;
-	for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
-		tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1);
-	tmp = rn2(tmp);
-	for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2)
-		if((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1))
-			< 0) break;
-	if(!otmp) {
-		impossible("Steal fails!");
-		return(0);
-	}
-	if(otmp->o_id == stealoid)
-		return(0);
-	if((otmp->owornmask & (W_ARMOR | W_RING))){
-		switch(otmp->olet) {
-		case RING_SYM:
-			ringoff(otmp);
-			break;
-		case ARMOR_SYM:
-			if(multi < 0 || otmp == uarms){
-			  setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
-			  break;
-			}
-		{ int curssv = otmp->cursed;
-			otmp->cursed = 0;
-			stop_occupation();
-			pline("%s seduces you and %s off your %s.",
-				Amonnam(mtmp, Blind ? "gentle" : "beautiful"),
-				otmp->cursed ? "helps you to take"
-					    : "you start taking",
-				(otmp == uarmg) ? "gloves" :
-				(otmp == uarmh) ? "helmet" : "armor");
-			named++;
-			(void) armoroff(otmp);
-			otmp->cursed = curssv;
-			if(multi < 0){
-				extern char *nomovemsg;
-				extern int (*afternmv)();
-				/*
-				multi = 0;
-				nomovemsg = 0;
-				afternmv = 0;
-				*/
-				stealoid = otmp->o_id;
-				stealmid = mtmp->m_id;
-				afternmv = stealarm;
-				return(0);
-			}
-			break;
-		}
-		default:
-			impossible("Tried to steal a strange worn thing.");
-		}
-	}
-	else if(otmp == uwep)
-		setuwep((struct obj *) 0);
-	if(otmp->olet == CHAIN_SYM) {
-		impossible("How come you are carrying that chain?");
-	}
-	if(Punished && otmp == uball){
-		Punished = 0;
-		freeobj(uchain);
-		free((char *) uchain);
-		uchain = (struct obj *) 0;
-		uball->spe = 0;
-		uball = (struct obj *) 0;	/* superfluous */
-	}
-	freeinv(otmp);
-	pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
-	mpickobj(mtmp,otmp);
-	return((multi < 0) ? 0 : 1);
-}
-
-mpickobj(mtmp,otmp)
-struct monst *mtmp;
-struct obj *otmp;
-{
-	otmp->nobj = mtmp->minvent;
-	mtmp->minvent = otmp;
-}
-
-stealamulet(mtmp)
-struct monst *mtmp;
-{
-	struct obj *otmp;
-
-	for(otmp = invent; otmp; otmp = otmp->nobj) {
-	    if(otmp->olet == AMULET_SYM) {
-		/* might be an imitation one */
-		if(otmp == uwep) setuwep((struct obj *) 0);
-		freeinv(otmp);
-		mpickobj(mtmp,otmp);
-		pline("%s stole %s!", Monnam(mtmp), doname(otmp));
-		return(1);
-	    }
-	}
-	return(0);
-}
-
-/* release the objects the killed animal has stolen */
-relobj(mtmp,show)
-struct monst *mtmp;
-int show;
-{
-	struct obj *otmp, *otmp2;
-
-	for(otmp = mtmp->minvent; otmp; otmp = otmp2){
-		otmp->ox = mtmp->mx;
-		otmp->oy = mtmp->my;
-		otmp2 = otmp->nobj;
-		otmp->nobj = fobj;
-		fobj = otmp;
-		stackobj(fobj);
-		if(show & cansee(mtmp->mx,mtmp->my))
-			atl(otmp->ox,otmp->oy,otmp->olet);
-	}
-	mtmp->minvent = (struct obj *) 0;
-	if(mtmp->mgold || mtmp->data->mlet == 'L') {
-		long tmp;
-
-		tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold;
-		mkgold((long)(tmp + d(dlevel,30)), mtmp->mx, mtmp->my);
-		if(show & cansee(mtmp->mx,mtmp->my))
-			atl(mtmp->mx,mtmp->my,'$');
-	}
-}