* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
static char sccsid
[] = "@(#)damage.c 5.3 (Berkeley) 6/18/88";
** 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
);