Source:NetHack 3.4.3/src/track.c

Below is the full text to src/track.c from NetHack 3.4.3. To link to a particular line, write Source:NetHack 3.4.3/src/track.c#line123, for example.

Top of file

/*	SCCS Id: @(#)track.c	3.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 */

The NetHack General Public License applies to screenshots, source code and other content from NetHack.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

#include "hack.h"

#define UTSZ	50

STATIC_VAR NEARDATA int utcnt, utpnt;
STATIC_VAR NEARDATA coord utrack[UTSZ];

#ifdef OVLB

initrack

void
initrack()
{
	utcnt = utpnt = 0;
}

#endif /* OVLB */
#ifdef OVL1

settrack

/* 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

gettrack

coord *
gettrack(x, y)
register int x, y;
{
register int cnt, ndist;
register coord *tc;
cnt = utcnt;
for(tc = &utrack[utpnt]; cnt--; ){
	if(tc == utrack) tc = &utrack[UTSZ-1];
	else tc--;
	ndist = distmin(x,y,tc->x,tc->y);

	/* if far away, skip track entries til we're closer */
	if(ndist > 2) {
	    ndist -= 2; /* be careful due to extra decrement at top of loop */
	    cnt -= ndist;
	    if(cnt <= 0)
		return (coord *) 0; /* too far away, no matches possible */
	    if(tc < &utrack[ndist])
		tc += (UTSZ-ndist);
	    else
		tc -= ndist;
	} else if(ndist <= 1)
	    return(ndist ? tc : 0);
}
return (coord *)0;
}

#endif /* OVL0 */

/*track.c*/