Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/games/vmsnet/startrek/part05

Internet Message Format | 1993-04-06 | 14.6 KB

Path: uunet!usc!elroy.jpl.nasa.gov!decwrl!concert!lester.appstate.edu!pembvax1.pembroke.edu!rennie
From: [e-mail]
Newsgroups: vmsnet.sources.games
Subject: Star Trek - Part [05/18]
Date: 7 Apr 93 10:47:31 EDT
Organization: Pembroke State University
Lines: 370
Message-ID: <[e-mail]>
NNTP-Posting-Host: papa.pembroke.edu
Xref: uunet vmsnet.sources.games:647

-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
X A CERTIFICATE OF MERIT PRINTED WITH YOUR NAME, DATE, AND
X KLINGON KILL RATE, PROVIDED YOU ARE PROMOTED FROM EITHER THE
X "EXPERT" OR "EMERITUS" LEVELS.
X
X     YOU SHOULD PROBABLY START OUT AT THE NOVICE LEVEL, EVEN IF YOU
X ARE ALREADY FAMILIAR WITH ONE OF THE OTHER VERSIONS OF THE STAR TREK
X GAME--BUT, OF COURSE, THE LEVEL OF GAME YOU PLAY IS UP TO YOU.  IF
X YOU WANT TO START AT THE EXPERT LEVEL, GO AHEAD.  IT'S YOUR FUNERAL.
X THE EMERITUS GAME IS STRICTLY FOR MASOCHISTS.
X`0C
X                                                                        23
X
X                  ----------MODIFICATIONS----------
X
X
X     THE STAR TREK GAME IS SUPPORTED BY THE AUTHORS.  FROM TIME TO
X TIME, CORRECTIONS, MODIFICATIONS AND IMPROVEMENTS WILL BE MADE IN
X THE GAME.  THE DOCUMENTATION FOR THE GAME (WHICH YOU ARE READING
X NOW) IS KEPT UP TO DATE, AND THE LATEST VERSION OF THE DOCUMENTATION
X IS AVAILABLE BY EXECUTING THE CONTROL CARDS:
X
X          EXECPF 1234 GAMES.
X AND ENTERING  "TRKINST" AS YOUR GAME.
X
X PLAYERS WHO ALREADY HAVE A COPY OF THE DOCUMENTATION CAN KEEP
X ABREAST OF THE NEW MODIFICATIONS BY EXECUTING THE CONTROL CARDS:
X
X          EXECPF 1234 GAMES.
X AND ENTERING "TRKNEWS" AS YOUR GAME.
X
X CORRECTIONS AND MINOR MODIFICATIONS (THOSE WHICH HAVE LITTLE EFFECT
X ON THE GAME) WILL NOT IN GENERAL BE REPORTED.
X
X     CAVEAT:  SINCE THE GAME IS CONTINUALLY BEING IMPROVED, IT IS
X POSSIBLE THAT NEW REVISIONS WILL ALTER THE NATURE OF TOURNAMENT
X GAMES OR WILL RENDER PREVIOUSLY FROZEN GAMES UNPLAYABLE.  THE
X AUTHORS WILL ATTEMPT TO AVOID SUCH OCCURRANCES WHEREVER POSSIBLE
X AND TO MINIMIZE THE EFFECTS WHEN THEY DO OCCUR, BUT CANNOT MAKE
X ANY GUARANTEES.
X`0C
X                                                                        24
X           ----------HANDY REFERENCE PAGE----------
X
X ABBREV    FULL COMMAND                           DEVICE USED
X ------    ------------                           -----------
X ABANDON   ABANDON                                SHUTTLE CRAFT
X C         CHART                                  (NONE)
X CR        CRYSTALS                               (NONE)
X DA        DAMAGES                                (NONE)
X DEATHRAY  DEATHRAY                               DEATHRAY
X DESTRUCT  DESTRUCT                               COMPUTER
X D         DOCK                                   (NONE)
X E         EMEXIT                                 (NONE)
X FREEZE    FREEZE <FILE NAME>                     (NONE)
X G         GAME                                   (NONE)
X HELP      HELP                                   SUBSPACE RADIO
X I         IMPULSE <MANUAL> <DISPLACEMENT>        IMPULSE ENGINES
X           IMPULSE <AUTOMATIC> <DESTINATION>      IMPULSE ENGINES AND COMPUT
VER
X L         LRSCAN                                 LONG-RANGE SENSORS
X MI        MINE                                   (NONE)
X M         MOVE <MANUAL> <DISPLACEMENT>           WARP ENGINES
X           MOVE <AUTOMATIC> <DESTINATION>         WARP ENGINES AND COMPUTER
X O         ORBIT                                  WARP OR IMPULSE ENGINES
X P         PHASERS <TOTAL AMOUNT>                 PHASERS AND COMPUTER
X           PHASERS AUTOMATIC <TOTAL AMOUNT>       PHASERS, COMPUTER, SR SENS
VORS
X           PHASERS MANUAL <AMT1> <AMT2> ...       PHASERS
X PHO       PHOTONS <NUMBER> <TARGETS>             TORPEDO TUBES
X PL        PLANETS                                (NONE)
X REQ       REQUEST                                (NONE)
X R         REST <NUMBER OF STARDATES>             (NONE)
X SE        SENSORS                                SHORT-RANGE SENSORS
X SH        SHIELDS <UP, DOWN, OR TRANSFER>        DEFLECTOR SHIELDS
X SHU       SHUTTLE                                SHUTTLE CRAFT
X S         SRSCAN <YES OR NO>                     SHORT-RANGE SENSORS
X ST        STATUS                                 (NONE)
X TERMINATE TERMINATE                              (NONE)
X T         TRANSPORT                              TRANSPORTER
X W         WARP <FACTOR>                          (NONE)
X L. R. SCAN:   THOUSANDS DIGIT:   SUPERNOVA
X               HUNDREDS DIGIT:    KLINGONS
X               TENS DIGIT:        STARBASES
X               ONES DIGIT:        STARS
X               PERIOD (.):        DIGIT NOT KNOWN (STAR CHART ONLY)
X
X COURSES ARE GIVEN IN MANUAL MODE IN X - Y DISPLACEMENTS; IN AUTOMATIC
X     MODE AS DESTINATION QUADRANT AND/OR SECTOR.  MANUAL MODE IS DEFAULT.
X DISTANCES ARE GIVEN IN QUADRANTS.  A DISTANCE OF ONE SECTOR IS 0.1 QUADRANT
V.
X ORDINARY KLINGONS HAVE ABOUT 400 UNITS OF ENERGY, COMMANDERS ABOUT
X     1200.  ROMULANS NORMALLY HAVE ABOUT 800 UNITS OF ENERGY, AND THE
X     (GULP) "SUPER-COMMANDER" HAS ABOUT 1800.
X PHASER FIRE DIMINISHES TO ABOUT 60 PERCENT AT 5 SECTORS.  UP TO 1500
X     UNITS MAY BE FIRED IN A SINGLE BURST WITHOUT DANGER OF OVERHEAT.
X WARP 6 IS THE FASTEST SAFE SPEED.  AT HIGHER SPEEDS, ENGINE DAMAGE
X     MAY OCCUR.  AT WARP 10 YOU MAY ENTER A TIME WARP.
X SHIELDS COST 50 UNITS OF ENERGY TO RAISE, AND DOUBLE THE POWER
X     REQUIREMENTS OF MOVING UNDER WARP DRIVE.  ENGAGING THE HIGH-SPEED
X     SHIELD CONTROL REQUIRES 200 UNITS OF ENERGY.
X WARP DRIVE REQUIRES (DISTANCE)*(WARP FACTOR CUBED) UNITS OF ENERGY
X     TO TRAVEL AT A SPEED OF (WARP FACTOR SQUARED)/10 QUADRANTS PER STARDATE
V.
X IMPULSE ENGINES REQUIRE 20 UNITS TO WARM UP, PLUS 100 UNITS PER
X     QUADRANT.  SPEED IS JUST UNDER ONE SECTOR PER STARDATE.
X`0C
X                                                                        25
X               ----------ACKNOWLEDGMENTS----------
X
X
X     THE AUTHORS WOULD LIKE TO THANK PROFESSOR MICHAEL DUGGAN FOR
X HIS ENCOURAGEMENT AND ADMINISTRATIVE ASSISTANCE WITH THE DEVELOPMENT
X OF THE STAR TREK GAME, WITHOUT WHICH IT MIGHT NEVER HAVE BEEN
X COMPLETED.
X
X     MUCH CREDIT IS DUE TO PATRICK MCGEHEARTY AND RICH COHEN, WHO
X ASSISTED WITH THE ORIGINAL DESIGN OF THE GAME AND CONTRIBUTED
X GREATLY TO ITS CONCEPTUAL DEVELOPMENT.
X
X     THANKS ARE ALSO DUE TO CARL STRANGE, HARDY TICHENOR AND STEVEN
X BRUELL FOR THEIR ASSISTANCE WITH CERTAIN CODING PROBLEMS.
X
X     THIS GAME WAS INSPIRED BY AND RATHER LOOSELY BASED ON AN EARLIER
X GAME, PROGRAMMED IN THE BASIC LANGUAGE, BY JIM KORP AND GRADY HICKS.
X IT IS THE AUTHORS' UNDERSTANDING THAT THE BASIC GAME WAS IN TURN
X DERIVED FROM A STILL EARLIER VERSION IN USE AT PENN STATE UNIVERSITY.
X
X
X
X
X                 ----------REFERENCES----------
X
X
X 1.  STAR TREK (THE ORIGINAL TELEVISION SERIES), PRODUCED AND
X     DIRECTED BY GENE RODENBERRY.
X
X 2.  STAR TREK (THE ANIMATED TELEVISION SERIES), PRODUCED BY GENE
X     RODENBERRY AND DIRECTED BY HAL SUTHERLAND.  ALSO EXCELLENT,
X     AND NOT JUST KIDDIE FARE.  IF YOU ENJOYED THE ORIGINAL SERIES
X     YOU SHOULD ENJOY THIS ONE (UNLESS YOU HAVE SOME SORT OF A
X     HANGUP ABOUT WATCHING CARTOONS).
X
X 3.  THE MAKING OF STAR TREK, BY STEVEN E. WHITFIELD AND GENE
X     RODENBERRY.  THE BEST AND MOST COMPLETE READILY AVAILABLE
X     BOOK ABOUT STAR TREK.  (BALLANTINE BOOKS)
X
X 4.  THE WORLD OF STAR TREK, BY DAVID GERROLD.  SIMILIAR IN SCOPE
X     TO THE ABOVE BOOK.  (BANTAM)
X
X 5.  THE STAR TREK GUIDE, THIRD REVISION 4/17/67, BY GENE
X     RODENBERRY.  THE ORIGINAL WRITER'S GUIDE FOR THE TELEVISION
X     SERIES, BUT LESS COMPREHENSIVE THAN (3) ABOVE.
X     (NORWAY PRODUCTIONS)
X
X 6.  THE TROUBLE WITH TRIBBLES, BY DAVID GERROLD.  INCLUDES THE
X     COMPLETE SCRIPT OF THIS POPULAR SHOW.  (BALLANTINE BOOKS)
X
X 7.  STAR TREK, STAR TREK 2, ..., STAR TREK 9, BY JAMES BLISH.
X     THE ORIGINAL SHOWS IN SHORT STORY FORM.  (BANTAM)
X
X 8.  SPOCK MUST DIE, BY JAMES BLISH.  AN ORIGINAL NOVEL, BUT
X     RATHER SIMILAR TO THE SHOW "THE ENEMY WITHIN".  (BANTAM)
X
X 9.  MODEL KITS OF THE ENTERPRISE AND A "KLINGON BATTLE-CRUISER"
X     BY AMT CORPORATION ARE AVAILABLE AT MOST HOBBY SHOPS.
$ CALL UNPACK STARTREK.DOC;1 1128481061
$ create 'f'
X      SUBROUTINE ABANDON
X`09INCLUDE 'TREKCOM/NOLIST'
X`09LOGICAL*1 ISHIP
X`09EQUIVALENCE(ISHIP,SHIP)
X      IF(DAMAGE(10)) 5,15,10
X 5    IF(DAMAGE(10) .EQ. -1.) GO TO 6`20
X      CALL PROUT(36HSHUTTLE CRAFT NOW SERVING BIG MAC'S.,36)
X`09RETURN
X 6    CALL PROUT(38HYE FAERIE QUEENE HAS NO SHUTTLE CRAFT.,38)`20
X      RETURN
X 10   CALL PROUT(22HSHUTTLE CRAFT DAMAGED.,22)`20
X      RETURN
X 15   IF((LANDED .NE. 1) .AND. (ICRAFT .NE. 1)) GO TO 16
X      CALL PROUT(34HYOU MUST BE ABOARD THE ENTERPRISE.  ,34)
X`09RETURN
X 16   IF(ISCRAFT .EQ. 1) GO TO 17`20
X      CALL PROUT(38HSHUTTLE CRAFT NOT CURRENTLY AVAILABLE.       ,38)
X      RETURN
XC--------PRINT ABANDON SHIP MESSAGES
X 17   CALL SKIP(1)
X      CALL PROUT(31H***ABANDON SHIP!  ABANDON SHIP!,31)   `20
X      CALL PROUT(26H***ALL HANDS ABANDON SHIP!,26)`20
X      CALL SKIP(1)
X      CALL PROUT(`20
X     +   41HCAPTAIN AND CREW ESCAPE IN SHUTTLE CRAFT.,41)
X      CALL PROUT(`20
X     +   41HREMAINDER OF SHIP'S COMPLEMENT BEAM DOWN ,41) `20
X      CALL PROUT(`20
X     +   28HTO NEAREST HABITABLE PLANET.,28)`20
XC--------IF THERE ARE NO STARBASES LEFT, GAME IS OVER`20
X      IF(REMBASE .NE. 0) GO TO 20`20
X      CALL FINISH(9)
X      RETURN
XC--------IF THERE IS AT LEAST ONE BASE LEFT, YOU GET THE FAERIE QUEENE
X 20   CALL SKIP(1)
X      CALL PROUT(`20
X     +   44HYOU ARE CAPTURED BY KLINGONS AND RELEASED TO,44)`20
X      CALL PROUT(`20
X     +   45HTHE FEDERATION IN A PRISONER-OF-WAR EXCHANGE.,45)
X      CALL PROUT(`20
X     +   46HSTARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,,46)`20
X      CALL PROUT(42HTHE FAERIE QUEENE, WHICH IS ANTIQUATED BUT,42)`20
X      CALL PROUT(14HSTILL USEABLE.,14)`20
XC--------SELECT BASE AT WHICH TO BEGIN AGAIN
X      NB=RANF(0)*REMBASE+1
XC--------RESET FLAGS.`20
X`09ICRYSTL=0
X`09IMINE=0
X`09ISCATE=0
XC--------SET UP QUADRANT AND POSITION F. Q. ADJACENT TO BASE
X      QUADX=BASEQX(NB)
X      QUADY=BASEQY(NB)
X 40   SECTX=5`20
X`09SECTY=5
X      CALL NEWQUAD
X      QUAD(SECTX,SECTY)=IHDOT`20
X      DO 50 L=1,3`20
X      SECTX=3.0*RANF(0)-1.0+BASEX`20
X      IF(SECTX .LT. 1 .OR. SECTX .GT. 10) GO TO 50
X      SECTY=3.0*RANF(0)-1.0+BASEY`20
X      IF(SECTY .LT. 1 .OR. SECTY .GT. 10) GO TO 50
X      IF(QUAD(SECTX,SECTY) .EQ. IHDOT) GO TO 60`20
X 50   CONTINUE
X      GO TO 40
X60`09ISHIP=IHF
X`09QUAD(SECTX,SECTY)=IHF
XC--------CLEAR AND RESUPPLY SHIP
X      CONDIT=IHDOCKD
X      DO 70 L=1,NDEVICE`20
X 70   DAMAGE(L)=0`20
X      DAMAGE(10)=-1`20
X`09INENRG=3000.0
X`09ENERGY=3000.0
X`09INSHLD=1250.
X`09SHLD=1250.0
X`09INTORPS=6
X`09TORPS=6
X`09INLSR=3.0
X`09LSUPRES=3.0
X      SHLDUP=0
X      WARPFAC=5.0`20
X      WFACSQ=25.0`20
X      RETURN
X      END`20
$ CALL UNPACK TRABANDON.FOR;1 1614546643
$ create 'f'
X      SUBROUTINE ATTACK`20
X`09INCLUDE 'TREKCOM/NOLIST'
X`09LOGICAL*1 IQUAD
X      INTEGER PERCENT`20
X      EQUIVALENCE (CRACKS(1),HIT),(CRACKS(3),IHURT),(CRACKS(4),L)`20
X      EQUIVALENCE (CRACKS(6),KDIDIT)
X      EQUIVALENCE (KSTUF(1),ITHERE),(KSTUF(2),ITHX),(KSTUF(3),ITHY)`20
X      IF(ALLDONE.NE.0) RETURN`20
X      IF(ITHERE.NE.0) CALL MOVETHO   `20
X      IF(NEUTZ .EQ. 0) GO TO 1`20
X`09NEUTZ=0
X`09RETURN
X1     IF((((COMHERE.NE.0) .OR. (ISHERE.NE.0)).AND.(JUSTIN.EQ.0)).OR.  `20
X     1(KSTUF(5).EQ.2
X     + ))  CALL MOVECOM`20
X      IF(NENHERE.EQ. 0) RETURN
X      IHURT=0`20
X      CALL SKIP(1)
XC--------ALLOW EACH KLINGON IN TURN TO DO HIS DAMNEDEST`20
X`09HITMAX=0.0
X`09HITTOT=0.0
X      ATTCKD=0`20
XC--------LOOP FOR ENEMY ATTACKS STARTS HERE`20
X      L=0`20
X 5    L=L+1`20
X      IF(L .GT. NENHERE) GO TO 80`20
XC--------IF ENTERPRISE IS DOCKED DON'T HIT IT. `20
X      IF(CONDIT.NE.IHDOCKD) GO TO 6  `20
X      CALL CRAM( `20
X     +41HENEMIES ATTACK, STARBASE SHIELDS PROTECT        )
X      CALL CRAMSHP
X      CALL CREND `20
X      CALL SKIP(1)
X      RETURN     `20
XC--------IF KPOWER IS LT ZERO THEN ENEMY CAN'T ATTACK.   `20
X6     IF(KPOWER(L) .LT. 0)GO TO 5    `20
X      ATTCKD=1`20
XC--------COMPUTE HIT STRENGTH AND DIMINISH SHIELD POWER`20
X      DUSTFAC=0.80+0.05*RANF(0)`20
X      HIT=KPOWER(L)*DUSTFAC**KDIST(L)`20
X`09II=KX(L)
X`09JJ=KY(L)
X      IQUAD=QUAD(II,JJ)`20
XC--------DECIDE IF ENEMY SHOULD FIRE PHOTON TORPEDO`20
X      IF(HIT .GT. 400.0  .OR.  JUSTIN .EQ. 1) GO TO 10
X      IF(HIT .GT. 300.0 .AND. KDIST(L) .GT. 5.0) GO TO 10`20
X      IF(IQUAD .EQ. IHK  .AND.  RANF(0) .GT. 0.10) GO TO 10`20
XC--------ENEMY FIRES PHOTON TORPEDO.
X      IPHWHO=1   `20
X      CALL KPHOTON
X      IPHWHO=IHGREEN
X      KDIDIT=1
X      IF(ALLDONE .EQ. 1  .OR.  GALAXY(QUADX,QUADY) .EQ. 1000) RETURN
X      GO TO 5`20
XC--------ENEMIES FIRE PHASER-LIKE WEAPONS`20
X 10   CALL ZAP
X      HITTOT=HITTOT+HIT`20
X      HITMAX=AMAX1(HITMAX,HIT)
XC--------LOOP FOR ENEMY ATTACKS ENDS HERE`20
X      GO TO 5`20
X 80   IF(ATTCKD .EQ. 0  .OR.  HITTOT .EQ. 0.0) RETURN
X      IF(ENERGY .LE. 0) GO TO 100`20
X      PERCENT=100.0*SHLD/INSHLD + 0.5`20
X      IF(IHURT.NE.0)GO TO 85
XC--------PRINT MESSAGE IF SHIELDS FULLY PROTECTED STARSHIP
X      CALL CRAM(35HENEMIES ATTACK--SHIELDS REDUCED TO )`20
X      GO TO 90
XC--------PRINT MESSAGE IF STARSHIP ITSELF SUFFERED HITS`20
X 85   CALL SKIP(1)
X      CALL CRAM(12HENERGY LEFT )
X      CALL CRAMF(ENERGY,0,2)
X      CALL CRAM(19H    TORPEDOES LEFT )`20
X`09CALL CRAMI(TORPS,0)
X      CALL CRAM(12H    SHIELDS )
X      IF(SHLDUP.NE.0) CALL CRAM(4HUP, )`20
X      IF(SHLDUP .EQ. 0 .AND. DAMAGE(8) .EQ. 0) CALL CRAM(6HDOWN, )
X      IF(DAMAGE(8) .GT. 0) CALL CRAM(9HDAMAGED, )`20
X 90   CALL CRAMI(PERCENT,0)`20
X`09CALL CRAMDMP(1H%)
XC--------CHECK IF ANYONE WAS HURT`20
X      IF(HITMAX.LT.200.0 .AND. HITTOT.LT.500.0) GO TO 120`20
X      HIT=HITTOT
X      CALL CASULTY
X      GO TO 120`20
XC--------RETURNING HOME UPON YOUR SHIELD, NOT WITH IT...
X 100  CALL FINISH(5)
X      RETURN
XC--------AFTER ATTACK, SORT OUT ENEMIES`20
X 120  CALL SORTKL`20
X      RETURN
X      END`20
$ CALL UNPACK TRATTACK.FOR;1 1009525986
$ create 'f'
X      SUBROUTINE AUTOVER
XC
XC`0923-APR-79
XC`09CHANGE 'INSUFFICIENT ENERGY' MESSAGE TO ONE WHICH IS
XC`09APPROPRIATE FOR ALL CASES.
XC
X`09INCLUDE 'TREKCOM/NOLIST'
X      II=16`20
X      IGRAB=0`20
X`09GO TO 5
XC*`20
X      ENTRY GRAB
XC*`20
X`09IGRAB=1
X`09II=14
XC--------CHECK TO SEE IF CAPTAIN ON A PLANET
X 5    IF(LANDED .NE. 1) GO TO 45
X      IF(DAMAGE(12) .GT. 0) GO TO 25
X      CALL PROUT(42HSCOTTY RUSHES TO THE TRANSPORTER CONTROLS.,42)`20
X      IF(SHLDUP .EQ. 0) GO TO 20
X      CALL PROUT(38HBUT WITH THE SHIELDS UP IT'S HOPELESS.,8)      `20
X      GO TO 25
+-+-+-+-+-+-+-+-  END  OF PART 5 +-+-+-+-+-+-+-+-