-/* $NetBSD: events.c,v 1.5 1997/10/13 22:05:26 cjs Exp $ */
+/* $NetBSD: events.c,v 1.11 2009/05/24 22:55:03 dholland Exp $ */
/*
* Copyright (c) 1980, 1993
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
#if 0
static char sccsid[] = "@(#)events.c 8.1 (Berkeley) 5/31/93";
#else
-__RCSID("$NetBSD: events.c,v 1.5 1997/10/13 22:05:26 cjs Exp $");
+__RCSID("$NetBSD: events.c,v 1.11 2009/05/24 22:55:03 dholland Exp $");
#endif
#endif /* not lint */
** This routine does a hell of a lot. It elapses time, eats up
** energy, regenerates energy, processes any events that occur,
** and so on.
+**
+** 'timewarp' is set if called in a time warp.
*/
-
int
-events(warp)
-int warp; /* set if called in a time warp */
+events(int timewarp)
{
int i;
char *p;
int restcancel;
/* if nothing happened, just allow for any Klingons killed */
- if (Move.time <= 0.0)
- {
+ if (Move.time <= 0.0) {
Now.time = Now.resource / Now.klings;
return (0);
}
schedule(E_ATTACK, 0.5, 0, 0, 0);
/* scan the event list */
- while (1)
- {
+ while (1) {
restcancel = 0;
evnum = -1;
/* xdate is the date of the current event */
xdate = idate + Move.time;
/* find the first event that has happened */
- for (i = 0; i < MAXEVENTS; i++)
- {
+ for (i = 0; i < MAXEVENTS; i++) {
e = &Event[i];
if (e->evcode == 0 || (e->evcode & E_GHOST))
continue;
- if (e->date < xdate)
- {
+ if (e->date < xdate) {
xdate = e->date;
ev = e;
evnum = i;
/* check for out of time */
if (Now.time <= 0.0)
lose(L_NOTIME);
-# ifdef xTRACE
+#ifdef xTRACE
if (evnum >= 0 && Trace)
printf("xdate = %.2f, evcode %d params %d %d %d\n",
xdate, e->evcode, e->x, e->y, e->systemname);
-# endif
+#endif
/* if evnum < 0, no events occurred */
if (evnum < 0)
break;
/* otherwise one did. Find out what it is */
- switch (e->evcode & E_EVENT)
- {
+ switch (e->evcode & E_EVENT) {
case E_SNOVA: /* supernova */
/* cause the supernova to happen */
/* schedule the next one */
xresched(e, E_LRTB, Now.klings);
/* LRTB cannot occur if we are docked */
- if (Ship.cond != DOCKED)
- {
+ if (Ship.cond != DOCKED) {
/* pick a new quadrant */
i = ranf(Now.klings) + 1;
- for (ix = 0; ix < NQUADS; ix++)
- {
- for (iy = 0; iy < NQUADS; iy++)
- {
+ for (ix = 0; ix < NQUADS; ix++) {
+ for (iy = 0; iy < NQUADS; iy++) {
q = &Quad[ix][iy];
if (q->stars >= 0)
- if ((i -= q->klings) <= 0)
+ if ((i -= q->klings)
+ <= 0)
break;
}
if (i <= 0)
/* nope, dump him in the new quadrant */
Ship.quadx = ix;
Ship.quady = iy;
- printf("\n%s caught in long range tractor beam\n", Ship.shipname);
- printf("*** Pulled to quadrant %d,%d\n", Ship.quadx, Ship.quady);
+ printf("\n%s caught in long range tractor "
+ "beam\n",
+ Ship.shipname);
+ printf("*** Pulled to quadrant %d,%d\n",
+ Ship.quadx, Ship.quady);
Ship.sectx = ranf(NSECTS);
Ship.secty = ranf(NSECTS);
initquad(0);
case E_KATSB: /* Klingon attacks starbase */
/* if out of bases, forget it */
- if (Now.bases <= 0)
- {
+ if (Now.bases <= 0) {
unschedule(e);
break;
}
/* check for starbase and Klingons in same quadrant */
- for (i = 0; i < Now.bases; i++)
- {
+ for (i = 0; i < Now.bases; i++) {
ix = Now.base[i].x;
iy = Now.base[i].y;
/* see if a Klingon exists in this quadrant */
continue;
/* see if already distressed */
- for (j = 0; j < MAXEVENTS; j++)
- {
+ for (j = 0; j < MAXEVENTS; j++) {
e = &Event[j];
if ((e->evcode & E_EVENT) != E_KDESB)
continue;
break;
}
e = ev;
- if (i >= Now.bases)
- {
- /* not now; wait a while and see if some Klingons move in */
+ if (i >= Now.bases) {
+ /*
+ * not now; wait a while and see if
+ * some Klingons move in
+ */
reschedule(e, 0.5 + 3.0 * franf());
break;
}
- /* schedule a new attack, and a destruction of the base */
+ /*
+ * schedule a new attack, and a destruction of
+ * the base
+ */
xresched(e, E_KATSB, 1);
e = xsched(E_KDESB, 1, ix, iy, 0);
/* report it if we can */
- if (!damaged(SSRADIO))
- {
- printf("\nUhura: Captain, we have recieved a distress signal\n");
- printf(" from the starbase in quadrant %d,%d.\n",
+ if (!damaged(SSRADIO)) {
+ printf("\nUhura: Captain, we have received a "
+ "distress signal\n");
+ printf(" from the starbase in quadrant "
+ "%d,%d.\n",
ix, iy);
restcancel++;
- }
- else
- /* SSRADIO out, make it so we can't see the distress call */
- /* but it's still there!!! */
+ } else {
+ /*
+ * SSRADIO out, make it so we can't see the
+ * distress call but it's still there!!!
+ */
e->evcode |= E_HIDDEN;
+ }
break;
case E_KDESB: /* Klingon destroys starbase */
unschedule(e);
q = &Quad[e->x][e->y];
- /* if the base has mysteriously gone away, or if the Klingon
- got tired and went home, ignore this event */
+ /*
+ * if the base has mysteriously gone away, or if the
+ * Klingon got tired and went home, ignore this event
+ */
if (q->bases <=0 || q->klings <= 0)
break;
/* are we in the same quadrant? */
- if (e->x == Ship.quadx && e->y == Ship.quady)
- {
+ if (e->x == Ship.quadx && e->y == Ship.quady) {
/* yep, kill one in this quadrant */
printf("\nSpock: ");
killb(Ship.quadx, Ship.quady);
- }
- else
+ } else {
/* kill one in some other quadrant */
killb(e->x, e->y);
+ }
break;
case E_ISSUE: /* issue a distress call */
/* if we already have too many, throw this one away */
if (Ship.distressed >= MAXDISTR)
break;
- /* try a whole bunch of times to find something suitable */
- for (i = 0; i < 100; i++)
- {
+ /* try a bunch of times to find something suitable */
+ for (i = 0; i < 100; i++) {
ix = ranf(NQUADS);
iy = ranf(NQUADS);
q = &Quad[ix][iy];
- /* need a quadrant which is not the current one,
- which has some stars which are inhabited and
- not already under attack, which is not
- supernova'ed, and which has some Klingons in it */
- if (!((ix == Ship.quadx && iy == Ship.quady) || q->stars < 0 ||
- (q->qsystemname & Q_DISTRESSED) ||
- (q->qsystemname & Q_SYSTEM) == 0 || q->klings <= 0))
+ /*
+ * need a quadrant which is not the current
+ * one, which has some inhabited stars which
+ * are not already under attack, which is not
+ * supernova'ed, and which has some Klingons
+ * in it
+ */
+ if (!((ix == Ship.quadx && iy == Ship.quady) ||
+ q->stars < 0 ||
+ (q->qsystemname & Q_DISTRESSED) ||
+ (q->qsystemname & Q_SYSTEM) == 0 ||
+ q->klings <= 0))
break;
}
if (i >= 100)
q->qsystemname = (e - Event) | Q_DISTRESSED;
/* tell the captain about it if we can */
- if (!damaged(SSRADIO))
- {
- printf("\nUhura: Captain, starsystem %s in quadrant %d,%d is under attack\n",
+ if (!damaged(SSRADIO)) {
+ printf("\nUhura: Captain, starsystem %s in "
+ "quadrant %d,%d is under attack\n",
Systemname[e->systemname], ix, iy);
restcancel++;
- }
- else
+ } else {
/* if we can't tell him, make it invisible */
e->evcode |= E_HIDDEN;
+ }
break;
case E_ENSLV: /* starsystem is enslaved */
unschedule(e);
/* see if current distress call still active */
q = &Quad[e->x][e->y];
- if (q->klings <= 0)
- {
+ if (q->klings <= 0) {
/* no Klingons, clean up */
/* restore the system name */
q->qsystemname = e->systemname;
}
/* play stork and schedule the first baby */
- e = schedule(E_REPRO, Param.eventdly[E_REPRO] * franf(), e->x, e->y, e->systemname);
+ e = schedule(E_REPRO, Param.eventdly[E_REPRO] * franf(),
+ e->x, e->y, e->systemname);
/* report the disaster if we can */
- if (!damaged(SSRADIO))
- {
- printf("\nUhura: We've lost contact with starsystem %s\n",
+ if (!damaged(SSRADIO)) {
+ printf("\nUhura: We've lost contact with "
+ "starsystem %s\n",
Systemname[e->systemname]);
printf(" in quadrant %d,%d.\n",
e->x, e->y);
- }
- else
+ } else
e->evcode |= E_HIDDEN;
break;
case E_REPRO: /* Klingon reproduces */
/* see if distress call is still active */
q = &Quad[e->x][e->y];
- if (q->klings <= 0)
- {
+ if (q->klings <= 0) {
unschedule(e);
q->qsystemname = e->systemname;
break;
/* reproduce one Klingon */
ix = e->x;
iy = e->y;
- if (Now.klings == 127)
- break; /* full right now */
- if (q->klings >= MAXKLQUAD)
- {
+ if (Now.klings == 127) {
+ /* full right now */
+ break;
+ }
+ if (q->klings >= MAXKLQUAD) {
/* this quadrant not ok, pick an adjacent one */
- for (i = ix - 1; i <= ix + 1; i++)
- {
+ for (i = ix - 1; i <= ix + 1; i++) {
if (i < 0 || i >= NQUADS)
continue;
- for (j = iy - 1; j <= iy + 1; j++)
- {
+ for (j = iy - 1; j <= iy + 1; j++) {
if (j < 0 || j >= NQUADS)
continue;
q = &Quad[i][j];
- /* check for this quad ok (not full & no snova) */
- if (q->klings >= MAXKLQUAD || q->stars < 0)
+ /*
+ * check for this quad ok (not
+ * full & no snova)
+ */
+ if (q->klings >= MAXKLQUAD ||
+ q->stars < 0)
continue;
break;
}
/* deliver the child */
q->klings++;
Now.klings++;
- if (ix == Ship.quadx && iy == Ship.quady)
- {
+ if (ix == Ship.quadx && iy == Ship.quady) {
/* we must position Klingon */
sector(&ix, &iy);
Sect[ix][iy] = KLINGON;
k->y = iy;
k->power = Param.klingpwr;
k->srndreq = 0;
- compkldist(Etc.klingon[0].dist == Etc.klingon[0].avgdist ? 0 : 1);
+ compkldist(Etc.klingon[0].dist ==
+ Etc.klingon[0].avgdist ? 0 : 1);
}
/* recompute time left */
break;
case E_ATTACK: /* Klingons attack during rest period */
- if (!Move.resting)
- {
+ if (!Move.resting) {
unschedule(e);
break;
}
Device[i].person, Device[i].name);
/* handle special processing upon fix */
- switch (i)
- {
+ switch (i) {
case LIFESUP:
Ship.reserves = Param.reserves;
case SINS:
if (Ship.cond == DOCKED)
break;
- printf("Spock has tried to recalibrate your Space Internal Navigation System,\n");
- printf(" but he has no standard base to calibrate to. Suggest you get\n");
- printf(" to a starbase immediately so that you can properly recalibrate.\n");
+ printf("Spock has tried to recalibrate your "
+ "Space Internal Navigation System,\n");
+ printf(" but he has no standard base to "
+ "calibrate to. Suggest you get\n");
+ printf(" to a starbase immediately so that "
+ "you can properly recalibrate.\n");
Ship.sinsbad = 1;
break;
break;
}
- if (restcancel && Move.resting && getynpar("Spock: Shall we cancel our rest period"))
+ if (restcancel && Move.resting &&
+ getynpar("Spock: Shall we cancel our rest period"))
Move.time = xdate - idate;
}
if ((e = Now.eventptr[E_ATTACK]) != NULL)
unschedule(e);
- if (!warp)
- {
+ if (!timewarp) {
/* eat up energy if cloaked */
if (Ship.cloaked)
Ship.energy -= Param.cloakenergy * Move.time;
git.ckatri.com / bsdgames-darwin.git / blobdiff