ftp.nice.ch/pub/next/unix/games/nethack.3.0.N.bs.tar.gz#/PubDomain/Games/HACK/src/track.c

This is track.c in view mode; [Download] [Up]

/*	SCCS Id: @(#)track.c	1.4	87/08/08
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed.  See license for details. */
/* track.c - version 1.0.2 */

#include "hack.h"

#define	UTSZ	50

VSTATIC int utcnt, utpnt;
VSTATIC coord utrack[UTSZ];

#ifdef OVLB
void
initrack(){
	utcnt = utpnt = 0;
}
#endif /* OVLB */

#ifdef OVL1

/* add to track */
void
settrack(){
	if(utcnt < UTSZ) utcnt++;
	if(utpnt == UTSZ) utpnt = 0;
	utrack[utpnt].x = u.ux;
	utrack[utpnt].y = u.uy;
	utpnt++;
}

#endif /* OVL1 */
#ifdef OVL0

coord *
gettrack(x, y)
register int x, y;
{
	register int i, cnt, ndist;
	coord tc;
	cnt = utcnt;
	for(i = utpnt-1; cnt--; i--){
		if(i == -1) i = UTSZ-1;
		tc = utrack[i];
		ndist = dist2(x,y,tc.x,tc.y);
		if(ndist < 3)
			return(ndist ? (coord *)&(utrack[i]) : 0);
	}
	return (coord *)0;
}

#endif /* OVL0 */

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.