home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
bbs
/
ste304
/
ste.scr
< prev
next >
Wrap
Text File
|
1992-01-18
|
5KB
|
94 lines
SCRIPT
ABORT OFF
; ----------------------------------------------------------------------
; /\
; ----------/ \---------- 29 December 1991
; ---------/ \---------
; --------/ \-------- This Script file written by R. Sanchez,
; -------/ BBS \------- C&R Systems, SysOp, C&R BBS, 717-765-8623.
; ------/ \------
; -----< EXPRESS! >----- Script file to run the online BBS Game
; ------\ /------ Space Trader Elite v3.0.0.
; -------\ ST /-------
; --------\ /--------
; ---------\ /---------
; ----------\ /----------
; \/
; ----------------------------------------------------------------------
; 1. Change the five lines below which contain the DEFINE statements to
; reflect your system.
;
; 2. This Script should be compiled to prevent variable errors from
; occuring from successive loading of the game from a Games Menu Script.
;
; 3. Enjoy the game. It can be quite challenging!
;
;
; Rich
;
; ----------------------------------------------------------------------
;***************************************************************************
;* *
DEFINE Ste_drive = 'F' ;* JUST the Drive Letter which contains *
;* STE.TOS. *
;* *
DEFINE Ste_path = 'F:\STE\' ;* Enter the COMPLETE path to where the *
;* STE.PRG file is located. *
;* *
DEFINE Menu_drive = 'D' ;* Enter JUST the Drive Letter where *
;* your Games Menu is. *
;* *
DEFINE Menu_path = 'D:\SCRIPT\' ;* Path to your Games Menu. *
;* *
DEFINE Menu_name = 'GAMES.COM' ;* File Name of your Games Menu. *
;* *
;***************************************************************************
DEFINE Ch_drive
DEFINE Ch_directory
DEFINE User_selection
DEFINE Count
;--------------------------------------------------------------+
CLEAR SCREEN ;|
;|
Main_: ;|
CLEAR SCREEN ;|
;|
IF TIME_EXCEEDED THEN ;|
PRINTE ;|
PRINTE ;|
PRINTE 'Sorry, your time limit is up for today!' CENTER ;|
PRINTE ;|
PRINTE ;|
EXIT ;|
ENDIF ;|
;--------------------------------------------------------------+
;-----------------------------------------------+
Play_game_: ;|
CLEAR SCREEN ;|
PRINTE ;|
PRINTE ;|
PRINTE 'Space Trader Elite' CENTER ;|
PRINTE ;|
PRINTE ;|
Ch_drive = FILE_CHGDRIVE ('[Ste_drive]') ;|
Ch_directory = FILE_CHGDIR ('[Ste_path]') ;|
TOS ('[Ste_path]ste.tos') ;|
DEFAULT_PATH ;|
CLEAR SCREEN ;|
Ch_drive = FILE_CHGDRIVE ('[Menu_drive]') ;|
Ch_directory = FILE_CHGDIR ('[Menu_path]') ;|
EXECUTE 'Menu_name' ;|
;-----------------------------------------------+
;---------------+
EOF: ;|
CLOSE ;|
DEFAULT_PATH ;|
GOTO Main_ ;|
;---------------+