home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
bbs
/
conquest
/
express
/
conquest.scr
< prev
next >
Wrap
Text File
|
1985-11-21
|
3KB
|
143 lines
SCRIPT
; CONQUEST SCRIPT FILE
; BY CHRIS GREGORY
; 11/15/88
; Wargamers BBS (816)-966-8188
; Set Up Menu
define %0
define prompt
Menu:
clear screen
printe
printe' &23 '
printe'
printe'\I****************************'
printe'*\o \I\RCONQUEST\O\B \i*'
printe'\i****************************'
printe'*\o \g\{D\} D\bocumentation \i*'
printe'*\o \g\{H\} H\ball of Champions \i*'
printe'*\o \g\{N\} N\bews of Attacks \i*'
printe'*\o \g\{O\} O\bld News \i*'
printe'*\o \g\{P\} P\blay conquest \i*'
printe'*\o \g\{S\}\b See \gS\bcores \i*'
printe'*\o \g\{Y\}\b \gY\bour Stats \i*'
printe'****************************\i'
printe'*\o \r\{I\} I\bntermediate menu \i*'
printe'****************************'
printe'*\o \g\{X\}\b \iE\o\gx\b\iit to BBS\o \i*'
printe'*\o \g\{?\}\b List the Menu \i*'
printe'****************************\o'
printe
abort off
Get_Choice:
if time_exceeded
printe ' Sorry but your out of time!'
exit
endif
prompt = 'Enter Selection >'
print '[prompt]'
get_key %0
if %0 = D
clear screen
Printe 'Read the docs.'
View 'D:\conquest\conquest.doc'
ef %0 = H
clear screen
Printe 'Hall of Champions'
View 'D:\conquest\champions.txt'
ef %0 = N
clear screen
Printe 'Conquest Combat News'
printe
printe 'Hit a ? to return to menu'
printe
view 'D:\conquest\Conquest.nws'
ef %0 = O
clear screen
Printe 'Yesterdays News'
printe
printe 'Hit a ? to return to menu'
printe
view 'D:\conquest\Oldnews.txt'
ef %0 = S
clear screen
printe 'Conquest Empires'
printe
printe 'Hit a ? to return to Menu'
printe
view 'D:\conquest\plpath.plr'
; ef %0 = Y
; Printe 'Your Stats'
ef %0 = I
clear screen
printe 'Teleporting to Intermediate Level'
execute [G:inter.com]
ef %0 = X
clear screen
printe 'Exiting to BBS.'
Exit
ef %0 = '?'
clear screen
printe 'Whats going on Here'
goto menu
ef %0 = P
clear screen
Play Conquest!
goto playit
else
printe 'Enter ? for Help'
goto Get_Choice
endif
goto Get_Choice
Playit:
; ok on the next line change the 30 to what level you want it to be!
if command_level (30)
else
printe ' Your user level does not permit it'
goto menu
endif
printe 'Play Conquest'
; on the next few change the paths to your own taste
OPEN ('D:\CONQUEST\PLAYER.DAT', OUTPUT)
FPRINTE '&1'
CLOSE
OPEN ('D:\CONQUEST\todaydat.TIM',OUTPUT)
FPRINTE '&24'
CLOSE
GEM 'D:\CONQUEST\CONQUEST.PRG'
goto menu