Return to damage.c CVS log

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

researchv10 Norman

# include	"trek.h"

/**
 **	schedule damages to device
 **/

damage(dev, dam)
int	dev;		/*  device index */
float	dam;		/* time to repair */
{
	register int		i;
	register EVENT		*e;
	register int		f;

	if (dam <= 0.0)
		return;
	if (Status.cond == DOCKED)
		dam =* Param.dockfac;
	f = Damage[dev];
	Damage[dev] = 1;
	if (!f)
	{
		schedule(E_FIXDV, dam, 0, 0, dev);
		return;
	}
	for (i = 0;  i  < MAXEVENTS; i++)
	{
		e = &Event[i];
		if (e->evcode != E_FIXDV || e->systemname != dev)
			continue;
		reschedule(e, dam);
		return;
	}
	syserr("Cannot find old damages %d\n", dev);
}

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