Return to info.c CVS log

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

Annotation of researchv10no/games/sail/info.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char *sccsid = "@(#)info.c      1.1 83/03/17";
        !             3: #endif
        !             4: #include "externs.h"
        !             5: 
        !             6: char *
        !             7: speed(n)
        !             8: int    n;
        !             9: {
        !            10:        switch(n)
        !            11:        {
        !            12:        case 1:
        !            13:                return("light breeze");
        !            14:        case 2:
        !            15:                return("moderate breeze");
        !            16:        case 3:
        !            17:                return("fresh breeze");
        !            18:        case 4:
        !            19:                return("strong breeze");
        !            20:        case 5:
        !            21:                return("gale");
        !            22:        default:
        !            23:                return("radioactive winds");
        !            24:        }
        !            25: }
        !            26: 
        !            27: char *
        !            28: wind(n)
        !            29: int    n;
        !            30: {
        !            31:        switch(scene[n].winddir)
        !            32:        {
        !            33:        case 1:
        !            34:                return("S");
        !            35:        case 2:
        !            36:                return("SW");
        !            37:        case 3:
        !            38:                return("W");
        !            39:        case 4:
        !            40:                return("NW");
        !            41:        case 5:
        !            42:                return("N");
        !            43:        case 6:
        !            44:                return("NE");
        !            45:        case 7:
        !            46:                return("E");
        !            47:        case 8:
        !            48:                return("SE");
        !            49:        default:
        !            50:                return("Lost in space");
        !            51:        }
        !            52: }
        !            53: 
        !            54: char
        !            55: colours(ship)
        !            56: int    ship;
        !            57: {
        !            58:        switch(ship)
        !            59:        {
        !            60:        case 0:
        !            61:                return('a');
        !            62:        case 1:
        !            63:                return('b');
        !            64:        case 2:
        !            65:                return('s');
        !            66:        case 3:
        !            67:                return('f');
        !            68:        default:
        !            69:                return('z');
        !            70:        }
        !            71: }
        !            72: 
        !            73: char *
        !            74: quality(game, shipnum)
        !            75: int    shipnum;
        !            76: int    game;
        !            77: {
        !            78:        switch(specs[scene[game].ship[shipnum].shipnum].qual)
        !            79:        {
        !            80:        case 5:
        !            81:                return("elite");
        !            82:        case 4:
        !            83:                return("crack");
        !            84:        case 3:
        !            85:                return("average");
        !            86:        case 2:
        !            87:                return("green");
        !            88:        case 1:
        !            89:                return("mutinous");
        !            90:        default:
        !            91:                return("stoned");
        !            92:        }
        !            93: }
        !            94: 
        !            95: char *
        !            96: info(game, ship, final)
        !            97: int    game;
        !            98: int    ship;
        !            99: char * final;
        !           100: {
        !           101:        sprintf(final, "%d gun ", specs[scene[game].ship[ship].shipnum].guns);
        !           102:        switch(specs[scene[game].ship[ship].shipnum].class)
        !           103:        {
        !           104:        case 1:
        !           105:                strcat(final, "3 Decker SOL");
        !           106:                break;
        !           107:        case 2:
        !           108:                strcat(final, "Ship of the Line");
        !           109:                break;
        !           110:        case 3:
        !           111:                strcat(final, "Frigate");
        !           112:                break;
        !           113:        case 4:
        !           114:                strcat(final, "Corvette");
        !           115:                break;
        !           116:        case 5:
        !           117:                strcat(final, "Sloop");
        !           118:                break;
        !           119:        case 6:
        !           120:                strcat(final, "Brig");
        !           121:                break;
        !           122:        }
        !           123:        return(final);
        !           124: }
        !           125: 
        !           126: main()
        !           127: {
        !           128:        char            buf[80];
        !           129:        register int    n,j;
        !           130: 
        !           131:        for (n=0; n < NUMOFSCENES; n++)
        !           132:        {
        !           133:                printf("\n(%d) %s: Wind from the %s, blowing a %s.\n",
        !           134:                        n,
        !           135:                        scene[n].name,
        !           136:                        wind(n),
        !           137:                        speed(scene[n].windspeed));
        !           138:                for (j = 0; j < scene[n].vessels; j++)
        !           139:                        printf("\t(%c) %-18s%s (%s crew) (%d pts)\n",
        !           140:                                colours(scene[n].ship[j].nationality),
        !           141:                                scene[n].ship[j].shipname,
        !           142:                                info(n, j, buf),
        !           143:                                quality(n, j),
        !           144:                                specs[scene[n].ship[j].shipnum].pts);
        !           145:        }
        !           146: }

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