Return to ram.c CVS log

Up to [CSRG BSD Unix] / 43BSD / games / trek

Annotation of 43BSD/games/trek/ram.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Copyright (c) 1980 Regents of the University of California.
        !             3:  * All rights reserved.  The Berkeley software License Agreement
        !             4:  * specifies the terms and conditions for redistribution.
        !             5:  */
        !             6: 
        !             7: #ifndef lint
        !             8: static char sccsid[] = "@(#)ram.c      5.1 (Berkeley) 5/30/85";
        !             9: #endif not lint
        !            10: 
        !            11: # include      "trek.h"
        !            12: 
        !            13: /*
        !            14: **  RAM SOME OBJECT
        !            15: **
        !            16: **     You have run into some sort of object.  It may be a Klingon,
        !            17: **     a star, or a starbase.  If you run into a star, you are really
        !            18: **     stupid, because there is no hope for you.
        !            19: **
        !            20: **     If you run into something else, you destroy that object.  You
        !            21: **     also rack up incredible damages.
        !            22: */
        !            23: 
        !            24: ram(ix, iy)
        !            25: int    ix, iy;
        !            26: {
        !            27:        register int            i;
        !            28:        register char           c;
        !            29: 
        !            30:        printf("RED ALERT: collision imminent\n");
        !            31:        c = Sect[ix][iy];
        !            32:        switch (c)
        !            33:        {
        !            34: 
        !            35:          case KLINGON:
        !            36:                printf("%s rams Klingon at %d,%d\n", Ship.shipname, ix, iy);
        !            37:                killk(ix, iy);
        !            38:                break;
        !            39: 
        !            40:          case STAR:
        !            41:          case INHABIT:
        !            42:                printf("Yeoman Rand: Captain, isn't it getting hot in here?\n");
        !            43:                sleep(2);
        !            44:                printf("Spock: Hull temperature approaching 550 Degrees Kelvin.\n");
        !            45:                lose(L_STAR);
        !            46: 
        !            47:          case BASE:
        !            48:                printf("You ran into the starbase at %d,%d\n", ix, iy);
        !            49:                killb(Ship.quadx, Ship.quady);
        !            50:                /* don't penalize the captain if it wasn't his fault */
        !            51:                if (!damaged(SINS))
        !            52:                        Game.killb += 1;
        !            53:                break;
        !            54:        }
        !            55:        sleep(2);
        !            56:        printf("%s heavily damaged\n", Ship.shipname);
        !            57: 
        !            58:        /* select the number of deaths to occur */
        !            59:        i = 10 + ranf(20 * Game.skill);
        !            60:        Game.deaths += i;
        !            61:        Ship.crew -= i;
        !            62:        printf("McCoy: Take it easy Jim; we had %d casualties.\n", i);
        !            63: 
        !            64:        /* damage devices with an 80% probability */
        !            65:        for (i = 0; i < NDEV; i++)
        !            66:        {
        !            67:                if (ranf(100) < 20)
        !            68:                        continue;
        !            69:                damage(i, (2.5 * (franf() + franf()) + 1.0) * Param.damfac[i]);
        !            70:        }
        !            71: 
        !            72:        /* no chance that your shields remained up in all that */
        !            73:        Ship.shldup = 0;
        !            74: }

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