home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / megatrek.zip / END.ASC < prev    next >
Text File  |  1982-07-03  |  3KB  |  71 lines
  1. 50000 PRINT:PRINT:PRINT:INPUT"CONFLICT RESOLVED - PREPARED FOR RATING ";B$
  2. 50010 PRINT CHR$(12):A2=1:PRINT:PRINT"IT IS STARDATE";FNR(D0):PRINT
  3. 50020 ON F9 GOTO 50040,50230,50300,50350,50360,50380,50390,50410
  4. 50030 ON F9-8 GOTO 50430,50470,50490
  5. 50040 PRINT"YOU HAVE DESTROYED THE KLINGON INVASION FLEET":PRINT
  6. 50050 PRINT"     ***THE FEDERATION IS SAVED***":G1=1
  7. 50060 IF(A1=0)OR(B1<>0)THEN 50210
  8. 50070 IF LEFT$(S5$,1)<>"E"THEN 50210
  9. 50080 IF 3*S1+35*N1+C4>=100 THEN 50210
  10. 50090 IF D0-J2<=6 THEN 50120
  11. 50100 R8=.1*S8*(S8+1)+.1
  12. 50110 IF(K1+K2)/(D0-J2)<R8 THEN 50210
  13. 50120 PRINT:PRINT"YOU HAVE DONE SO WELL THAT COMMAND"
  14. 50130 IF S8=4 THEN 50190
  15. 50140 PRINT"PROMOTES YOU.....";
  16. 50150 IF S8=1 THEN PRINT"TO NOVICE CLASS!"
  17. 50160 IF S8=2 THEN PRINT"TO SENIOR CLASS!"
  18. 50170 IF S8=3 THEN PRINT"TO EXPERT CLASS!"
  19. 50180 PRINT"   ***CONGRATULATIONS***":GOTO 50210
  20. 50190 PRINT"PROMOTES YOU TO 'COMMODORE EMERITUS'."
  21. 50200 PRINT:PRINT"NOW YOU CAN RETIRE !"
  22. 50210 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
  23. 50220 GOTO 70
  24. 50230 PRINT"TIME HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT"
  25. 50240 PRINT"IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A WAR-CRIMINAL..."
  26. 50250 PRINT"ON THE BASIS OF YOUR RECORD YOU WILL BE";
  27. 50260 IF R1*3>I1 THEN 50290
  28. 50270 PRINT" SUMMARILY EXECUTED"
  29. 50280 A1=0:CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
  30. 50290 PRINT" IMPRISONED FOR LIFE"
  31. 50300 PRINT"YOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND"
  32. 50310 PRINT"YOU WILL SOON DIE!!!"
  33. 50320 PRINT
  34. 50330 PRINT"YOUR STARSHIP IS A DERELICT IN SPACE."
  35. 50340 GOTO 50500
  36. 50350 PRINT"YOUR ENERGY SUPPLY IS EXHAUSTED.":GOTO 50320
  37. 50360 PRINT"THE ";S5$;" HAS BEEN DESTROYED IN BATTLE."
  38. 50370 GOTO 50500
  39. 50380 GOTO 70
  40. 50390 PRINT"YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA."
  41. 50400 PRINT"NICE WORK, IDIOT !!!":GOTO 50500
  42. 50410 PRINT"THE ";S5$;" HAS BEEN INCINERATED BY A SUPERNOVA."
  43. 50420 GOTO 50500
  44. 50430 PRINT"YOU HAVE BEEN CAPTURED BY THE ENEMY. IF YOU STILL HAD A STARBASE,"
  45. 50440 PRINT"YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL"
  46. 50450 PRINT"BE MERCILESSLY TORTURED !!"
  47. 50460 GOTO 50500
  48. 50470 PRINT:PRINT"THE ";S5$;" IS NOW AN EXPANDING CLOUD"
  49. 50480 PRINT"OF SUB-ATOMIC PARTICLES...":GOTO 50500
  50. 50490 PRINT"STARBASE WAS UNABLE TO RE-MATERIALIZE YOUR STARSHIP."
  51. 50500 PRINT
  52. 50510 IF LEFT$(S5$,1)="F"THEN S5$=""
  53. 50520 IF LEFT$(S5$,1)="E"THEN S5$="FAERIE QUEENE"
  54. 50530 A1=0
  55. 50540 IF R1=0 THEN 50660
  56. 50550 G3=R4/I3:B8=(R1+2*R2)/(I1+2*I4)
  57. 50560 A3=G3/B8
  58. 50570 IF A3<1+.5+RND(1)THEN 50640
  59. 50580 PRINT"AS A RESULT OF YOUR ACTIONS, A TREATY WITH THE KLINGON"
  60. 50590 PRINT"EMPIRE HAS BEEN SIGNED.  THE TERMS OF THE TREATY ARE"
  61. 50600 IF A3<3*RND(1)THEN 50630
  62. 50610 PRINT"FAVORABLE TO THE FEDERATION.":PRINT
  63. 50620 PRINT"CONGRATULATIONS.":GOTO 50650
  64. 50630 PRINT"HIGHLY UNFAVORABLE TO THE FEDERATION.":GOTO 50650
  65. 50640 PRINT"THE FEDERATION WILL BE DESTROYED!"
  66. 50650 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
  67. 50660 PRINT"SINCE YOU TOOK THE LAST KLINGON WITH YOU, YOU ARE"
  68. 50670 PRINT"A MARTYR AND A HERO.":G1=1:A1=0
  69. 50680 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
  70. 60000 REM END OVERLAY
  71. 670 PRINT"A MAR