V10/games/trek/damage.c
# 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);
}