Return to srscan.c CVS log

Up to [Research Unix] / researchv10no / games / trek

Annotation of researchv10no/games/trek/srscan.c, revision 1.1

1.1     ! root        1: # include      "trek.h"
        !             2: 
        !             3: /**
        !             4:  **    short range sensor scan
        !             5:  **/
        !             6: 
        !             7: srscan()
        !             8: {
        !             9:        scansys(0);
        !            10: }
        !            11: 
        !            12: status()
        !            13: {
        !            14:        scansys(-1);
        !            15: }
        !            16: 
        !            17: scansys(f)
        !            18: int f;
        !            19: {
        !            20:        register int            i, j;
        !            21:        register int            statinfo;
        !            22:        QUAD                    *q;
        !            23:        static int              savestat;
        !            24: 
        !            25:        if (Damage[SRSCAN] && f >= 0) {
        !            26:                if (!f)
        !            27:                        printf("S.R. scanners out");
        !            28:                if(Status.cond==DOCKED) {
        !            29:                        printf("; using Starbase scanners.\n");
        !            30:                } else {
        !            31:                        printf("\n");
        !            32:                        return;
        !            33:                }
        !            34:        }
        !            35:        if (f)
        !            36:                statinfo = 1;
        !            37:        else
        !            38:        {
        !            39:                if (lineended()==0)
        !            40:                        savestat = getynpar("Status report");
        !            41:                statinfo = savestat;
        !            42:        }
        !            43:        if (f > 0)
        !            44:                savestat = 1;
        !            45:        if (f >= 0)
        !            46:        {
        !            47:                q = &Quad[Quadx][Quady];
        !            48:                q->scanned = q->qkling * 100 + q->bases * 10 + q->stars;
        !            49:                printf("  ");
        !            50:                for (i = 0; i < NSECTS; i++)
        !            51:                {
        !            52:                        printf("%d ", i);
        !            53:                }
        !            54:                printf("\tS.R. sensor scan for quadrant %d,%d\n", Quadx, Quady);
        !            55:        }
        !            56: 
        !            57:        for (i=0; i<NSECTS && mkfault==0; i++)
        !            58:        {
        !            59:                if (f >= 0)
        !            60:                {
        !            61:                        printf("%d ", i);
        !            62:                        for (j = 0; j < NSECTS; j++)
        !            63:                                printf("%c ", Sect[i][j]);
        !            64:                        printf("%d", i);
        !            65:                        if (statinfo)
        !            66:                                printf("   ");
        !            67:                }
        !            68:                if (statinfo)
        !            69:                        getinfo(i);
        !            70:                else    printf("\n");
        !            71:        }
        !            72:        if (f < 0)
        !            73:        {
        !            74:                printf("current crew  %d\n", Status.crew);
        !            75:                printf("brig space    %d\n", Status.brigfree);
        !            76:                return;
        !            77:        }
        !            78:        printf("  ");
        !            79:        for (i = 0; i < NSECTS; i++)
        !            80:                printf("%d ", i);
        !            81:        if (q->systemname&Q_DISTRESS)
        !            82:                printf("\tDistressed starsystem %s",
        !            83:                                Systemname[Event[q->systemname&Q_STARNAME].evdata]);
        !            84:        else
        !            85:                if (q->systemname&Q_GHOST)
        !            86:                        printf("\tGhost starsystem %s",
        !            87:                                        Systemname[q->systemname&Q_STARNAME]);
        !            88:                else    if(q->systemname)
        !            89:                        printf("\tStarsystem %s", Systemname[q->systemname]);
        !            90:        printf("\n");
        !            91: }
        !            92: 
        !            93: effshld()
        !            94: {
        !            95:        return(100.0 * Status.shield / Initial.shield);
        !            96: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.