1 files changed, 0 insertions, 183 deletions
diff --git a/games/hack/hack.worm.c b/games/hack/hack.worm.c
deleted file mode 100644
index ba3505d19b4f3..0000000000000
--- a/games/hack/hack.worm.c
+++ /dev/null
@@ -1,183 +0,0 @@
-/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
-/* hack.worm.c - version 1.0.2 */
-
-#include "hack.h"
-#ifndef NOWORM
-#include "def.wseg.h"
-
-struct wseg *wsegs[32];	/* linked list, tail first */
-struct wseg *wheads[32];
-long wgrowtime[32];
-
-getwn(mtmp) struct monst *mtmp; {
-register tmp;
-	for(tmp=1; tmp<32; tmp++) if(!wsegs[tmp]) {
-		mtmp->wormno = tmp;
-		return(1);
-	}
-	return(0);	/* level infested with worms */
-}
-
-/* called to initialize a worm unless cut in half */
-initworm(mtmp) struct monst *mtmp; {
-register struct wseg *wtmp;
-register tmp = mtmp->wormno;
-	if(!tmp) return;
-	wheads[tmp] = wsegs[tmp] = wtmp = newseg();
-	wgrowtime[tmp] = 0;
-	wtmp->wx = mtmp->mx;
-	wtmp->wy = mtmp->my;
-/*	wtmp->wdispl = 0; */
-	wtmp->nseg = 0;
-}
-
-worm_move(mtmp) struct monst *mtmp; {
-register struct wseg *wtmp, *whd;
-register tmp = mtmp->wormno;
-	wtmp = newseg();
-	wtmp->wx = mtmp->mx;
-	wtmp->wy = mtmp->my;
-	wtmp->nseg = 0;
-/*	wtmp->wdispl = 0; */
-	(whd = wheads[tmp])->nseg = wtmp;
-	wheads[tmp] = wtmp;
-	if(cansee(whd->wx,whd->wy)){
-		unpmon(mtmp);
-		atl(whd->wx, whd->wy, '~');
-		whd->wdispl = 1;
-	} else	whd->wdispl = 0;
-	if(wgrowtime[tmp] <= moves) {
-		if(!wgrowtime[tmp]) wgrowtime[tmp] = moves + rnd(5);
-		else wgrowtime[tmp] += 2+rnd(15);
-		mtmp->mhpmax += 3;
-		mtmp->mhp += 3;
-		return;
-	}
-	whd = wsegs[tmp];
-	wsegs[tmp] = whd->nseg;
-	remseg(whd);
-}
-
-worm_nomove(mtmp) register struct monst *mtmp; {
-register tmp;
-register struct wseg *wtmp;
-	tmp = mtmp->wormno;
-	wtmp = wsegs[tmp];
-	if(wtmp == wheads[tmp]) return;
-	if(wtmp == 0 || wtmp->nseg == 0) panic("worm_nomove?");
-	wsegs[tmp] = wtmp->nseg;
-	remseg(wtmp);
-	mtmp->mhp -= 3;	/* mhpmax not changed ! */
-}
-
-wormdead(mtmp) register struct monst *mtmp; {
-register tmp = mtmp->wormno;
-register struct wseg *wtmp, *wtmp2;
-	if(!tmp) return;
-	mtmp->wormno = 0;
-	for(wtmp = wsegs[tmp]; wtmp; wtmp = wtmp2){
-		wtmp2 = wtmp->nseg;
-		remseg(wtmp);
-	}
-	wsegs[tmp] = 0;
-}
-
-wormhit(mtmp) register struct monst *mtmp; {
-register tmp = mtmp->wormno;
-register struct wseg *wtmp;
-	if(!tmp) return;	/* worm without tail */
-	for(wtmp = wsegs[tmp]; wtmp; wtmp = wtmp->nseg)
-		(void) hitu(mtmp,1);
-}
-
-wormsee(tmp) register unsigned tmp; {
-register struct wseg *wtmp = wsegs[tmp];
-	if(!wtmp) panic("wormsee: wtmp==0");
-	for(; wtmp->nseg; wtmp = wtmp->nseg)
-		if(!cansee(wtmp->wx,wtmp->wy) && wtmp->wdispl){
-			newsym(wtmp->wx, wtmp->wy);
-			wtmp->wdispl = 0;
-		}
-}
-
-pwseg(wtmp) register struct wseg *wtmp; {
-	if(!wtmp->wdispl){
-		atl(wtmp->wx, wtmp->wy, '~');
-		wtmp->wdispl = 1;
-	}
-}
-
-cutworm(mtmp,x,y,weptyp)
-register struct monst *mtmp;
-register xchar x,y;
-register uchar weptyp;		/* uwep->otyp or 0 */
-{
-	register struct wseg *wtmp, *wtmp2;
-	register struct monst *mtmp2;
-	register tmp,tmp2;
-	if(mtmp->mx == x && mtmp->my == y) return;	/* hit headon */
-
-	/* cutting goes best with axe or sword */
-	tmp = rnd(20);
-	if(weptyp == LONG_SWORD || weptyp == TWO_HANDED_SWORD ||
-		weptyp == AXE) tmp += 5;
-	if(tmp < 12) return;
-
-	/* if tail then worm just loses a tail segment */
-	tmp = mtmp->wormno;
-	wtmp = wsegs[tmp];
-	if(wtmp->wx == x && wtmp->wy == y){
-		wsegs[tmp] = wtmp->nseg;
-		remseg(wtmp);
-		return;
-	}
-
-	/* cut the worm in two halves */
-	mtmp2 = newmonst(0);
-	*mtmp2 = *mtmp;
-	mtmp2->mxlth = mtmp2->mnamelth = 0;
-
-	/* sometimes the tail end dies */
-	if(rn2(3) || !getwn(mtmp2)){
-		monfree(mtmp2);
-		tmp2 = 0;
-	} else {
-		tmp2 = mtmp2->wormno;
-		wsegs[tmp2] = wsegs[tmp];
-		wgrowtime[tmp2] = 0;
-	}
-	do {
-		if(wtmp->nseg->wx == x && wtmp->nseg->wy == y){
-			if(tmp2) wheads[tmp2] = wtmp;
-			wsegs[tmp] = wtmp->nseg->nseg;
-			remseg(wtmp->nseg);
-			wtmp->nseg = 0;
-			if(tmp2){
-				pline("You cut the worm in half.");
-				mtmp2->mhpmax = mtmp2->mhp =
-					d(mtmp2->data->mlevel, 8);
-				mtmp2->mx = wtmp->wx;
-				mtmp2->my = wtmp->wy;
-				mtmp2->nmon = fmon;
-				fmon = mtmp2;
-				pmon(mtmp2);
-			} else {
-				pline("You cut off part of the worm's tail.");
-				remseg(wtmp);
-			}
-			mtmp->mhp /= 2;
-			return;
-		}
-		wtmp2 = wtmp->nseg;
-		if(!tmp2) remseg(wtmp);
-		wtmp = wtmp2;
-	} while(wtmp->nseg);
-	panic("Cannot find worm segment");
-}
-
-remseg(wtmp) register struct wseg *wtmp; {
-	if(wtmp->wdispl)
-		newsym(wtmp->wx, wtmp->wy);
-	free((char *) wtmp);
-}
-#endif NOWORM