Return to schedule.c CVS log

Up to [Research Unix] / researchv10no / games / trek

researchv10 Norman

# include	"trek.h"

/**
 **	schedule an event
 **/

schedule(type, delta, x, y, z)
int	type;
float	delta;
char	x, y;
char	z;
{
	register EVENT		*e;
	register int		i;

	for (i = 0; i < MAXEVENTS; i++)
	{
		e = &Event[i];
		if (e->evcode >= 0)
			continue;
		/* got a slot */
		e->evcode = type;
		e->date = Status.date + delta;
		e->x = x;
		e->y = y;
		e->evdata = z;
		if (type < 64)
			Etc.eventptr[type] = e;
		return(e);
	}
	syserr("Cannot schedule event %d parm %d %d %d", type, x, y, z);
	return(-1);
}


/**
 **	reschedule an event
 **/

reschedule(e, delta)
EVENT		*e;
float		delta;
{
	e->date =+ delta;
	return;
}


/**
 **	unschedule an event
 **/

unschedule(e)
EVENT		*e;
{
	if (e->evcode < 64)
		Etc.eventptr[e->evcode] = 0;
	e->date = 1e50;
	e->evcode = -1;
	return;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.