home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / ste304 / ste.scr < prev    next >
Text File  |  1992-01-18  |  5KB  |  94 lines
  1. SCRIPT
  2. ABORT OFF
  3. ;    ----------------------------------------------------------------------
  4. ;               /\           
  5. ;    ----------/  \----------                              29 December 1991
  6. ;    ---------/    \---------
  7. ;    --------/      \-------- This Script file written by R. Sanchez,
  8. ;    -------/  BBS   \------- C&R Systems, SysOp, C&R BBS, 717-765-8623.
  9. ;    ------/          \------
  10. ;    -----<  EXPRESS!  >----- Script file to run the online BBS Game
  11. ;    ------\          /------ Space Trader Elite v3.0.0.
  12. ;    -------\   ST   /-------
  13. ;    --------\      /--------
  14. ;    ---------\    /---------
  15. ;    ----------\  /----------
  16. ;               \/
  17. ;    ----------------------------------------------------------------------
  18. ;    1.  Change the five lines below which contain the DEFINE statements to
  19. ;    reflect your system.
  20. ;
  21. ;    2.  This Script should be compiled to prevent variable errors from
  22. ;    occuring from successive loading of the game from a Games Menu Script.
  23. ;
  24. ;    3.  Enjoy the game.  It can be quite challenging!
  25. ;
  26. ;
  27. ;                           Rich
  28. ;
  29. ;    ----------------------------------------------------------------------                          
  30.  
  31. ;***************************************************************************
  32.                                  ;*                                        *
  33. DEFINE Ste_drive = 'F'           ;* JUST the Drive Letter which contains   *
  34.                                  ;* STE.TOS.                               *
  35.                                  ;*                                        *
  36. DEFINE Ste_path  = 'F:\STE\'     ;* Enter the COMPLETE path to where the   *
  37.                                  ;* STE.PRG file is located.               *
  38.                                  ;*                                        *
  39. DEFINE Menu_drive = 'D'          ;* Enter JUST the Drive Letter where      *
  40.                                  ;* your Games Menu is.                    *
  41.                                  ;*                                        *
  42. DEFINE Menu_path  = 'D:\SCRIPT\' ;* Path to your Games Menu.               *
  43.                                  ;*                                        *
  44. DEFINE Menu_name  = 'GAMES.COM'  ;* File Name of your Games Menu.          *
  45.                                  ;*                                        *
  46. ;***************************************************************************
  47.  
  48. DEFINE Ch_drive
  49. DEFINE Ch_directory
  50. DEFINE User_selection
  51. DEFINE Count
  52.  
  53. ;--------------------------------------------------------------+
  54. CLEAR SCREEN                                                  ;|
  55.                                                               ;|
  56. Main_:                                                        ;|
  57.    CLEAR SCREEN                                               ;|
  58.                                                               ;|
  59.    IF TIME_EXCEEDED THEN                                      ;|
  60.       PRINTE                                                  ;|
  61.       PRINTE                                                  ;|
  62.       PRINTE 'Sorry, your time limit is up for today!' CENTER ;|
  63.       PRINTE                                                  ;|
  64.       PRINTE                                                  ;|
  65.       EXIT                                                    ;|
  66.    ENDIF                                                      ;|
  67. ;--------------------------------------------------------------+
  68.  
  69. ;-----------------------------------------------+
  70. Play_game_:                                    ;|
  71.    CLEAR SCREEN                                ;|
  72.    PRINTE                                      ;|
  73.    PRINTE                                      ;|
  74.    PRINTE 'Space Trader Elite' CENTER          ;|
  75.    PRINTE                                      ;|
  76.    PRINTE                                      ;|
  77.    Ch_drive = FILE_CHGDRIVE ('[Ste_drive]')    ;|
  78.    Ch_directory = FILE_CHGDIR ('[Ste_path]')   ;|
  79.    TOS ('[Ste_path]ste.tos')                   ;|
  80.    DEFAULT_PATH                                ;|
  81.    CLEAR SCREEN                                ;|
  82.    Ch_drive = FILE_CHGDRIVE ('[Menu_drive]')   ;|
  83.    Ch_directory = FILE_CHGDIR ('[Menu_path]')  ;|
  84.    EXECUTE 'Menu_name'                         ;|
  85. ;-----------------------------------------------+
  86.  
  87. ;---------------+
  88. EOF:           ;|
  89. CLOSE          ;|
  90. DEFAULT_PATH   ;|
  91. GOTO Main_     ;|
  92. ;---------------+
  93.  
  94.