BSD 4_3_Tahoe release

[unix-history] / usr / src / games / trek / initquad.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* 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.
*/

#ifndef lint
static char sccsid[] = "@(#)initquad.c  5.3 (Berkeley) 6/18/88";
#endif /* not lint */

# include       "trek.h"

/*
**  Paramize Quadrant Upon Entering
**
**      A quadrant is initialized from the information held in the
**      Quad matrix.  Basically, everything is just initialized
**      randomly, except for the starship, which goes into a fixed
**      sector.
**
**      If there are Klingons in the quadrant, the captain is informed
**      that the condition is RED, and he is given a chance to put
**      his shields up if the computer is working.
**
**      The flag `f' is set to disable the check for condition red.
**      This mode is used in situations where you know you are going
**      to be docked, i.e., abandon() and help().
*/

initquad(f)
int     f;
{
       register int            i, j;
       int                     rx, ry;
       int                     nbases, nstars;
       register struct quad    *q;
       int                     nholes;

       q = &Quad[Ship.quadx][Ship.quady];

       /* ignored supernova'ed quadrants (this is checked again later anyway */
       if (q->stars < 0)
               return;
       Etc.nkling = q->klings;
       nbases = q->bases;
       nstars = q->stars;
       nholes = q->holes;

       /* have we blundered into a battle zone w/ shields down? */
       if (Etc.nkling > 0 && !f)
       {
               printf("Condition RED\n");
               Ship.cond = RED;
               if (!damaged(COMPUTER))
                       shield(1);
       }

       /* clear out the quadrant */
       for (i = 0; i < NSECTS; i++)
               for (j = 0; j < NSECTS; j++)
                       Sect[i][j] = EMPTY;

       /* initialize Enterprise */
       Sect[Ship.sectx][Ship.secty] = Ship.ship;

       /* initialize Klingons */
       for (i = 0; i < Etc.nkling; i++)
       {
               sector(&rx, &ry);
               Sect[rx][ry] = KLINGON;
               Etc.klingon[i].x = rx;
               Etc.klingon[i].y = ry;
               Etc.klingon[i].power = Param.klingpwr;
               Etc.klingon[i].srndreq = 0;
       }
       compkldist(1);

       /* initialize star base */
       if (nbases > 0)
       {
               sector(&rx, &ry);
               Sect[rx][ry] = BASE;
               Etc.starbase.x = rx;
               Etc.starbase.y = ry;
       }

       /* initialize inhabited starsystem */
       if (q->qsystemname != 0)
       {
               sector(&rx, &ry);
               Sect[rx][ry] = INHABIT;
               nstars -= 1;
       }

       /* initialize black holes */
       for (i = 0; i < nholes; i++)
       {
               sector(&rx, &ry);
               Sect[rx][ry] = HOLE;
       }

       /* initialize stars */
       for (i = 0; i < nstars; i++)
       {
               sector(&rx, &ry);
               Sect[rx][ry] = STAR;
       }
       Move.newquad = 1;
}


sector(x, y)
int     *x, *y;
{
       register int            i, j;

       do
       {
               i = ranf(NSECTS);
               j = ranf(NSECTS);
       } while (Sect[i][j] != EMPTY);
       *x = i;
       *y = j;
       return;
}