* Copyright (c) 1980 Regents of the University of California.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)damage.c 5.4 (Berkeley) %G%";
** Schedule Ship.damages to a Device
** Device `dev1' is damaged in an amount `dam'. Dam is measured
** in stardates, and is an additional amount of damage. It should
** be the amount to occur in non-docked mode. The adjustment
** to docked mode occurs automatically if we are docked.
** Note that the repair of the device occurs on a DATE, meaning
** that the dock() and undock() have to reschedule the event.
int dev1
; /* device index */
double dam
; /* time to repair */
register struct event
*e
;
/* ignore zero damages */
printf("\t%s damaged\n", Device
[dev
].name
);
/* find actual length till it will be fixed */
/* set the damage flag */
/* new damages -- schedule a fix */
schedule(E_FIXDV
, dam
, 0, 0, dev
);
/* device already damaged -- add to existing damages */
/* scan for old damages */
for (i
= 0; i
< MAXEVENTS
; i
++)
if (e
->evcode
!= E_FIXDV
|| e
->systemname
!= dev
)
/* got the right one; add on the new damages */
reschedule(e
, e
->date
- Now
.date
+ dam
);
syserr("Cannot find old damages %d\n", dev
);