home *** CD-ROM | disk | FTP | other *** search
- SCRIPT
-
- ; CONFLICT SCRIPT FILE
- ; BY CHRIS GREGORY
- ; 6/4/89
-
- ; Set Up Menu
-
- define %0
- define prompt
- define cutoff
- define time_left_call
- define time_used_call
- define time_used_day
- define time_left_day
- define time_on
- define time_ok
- define time_per_day = '&14'
- define time_today = '&15'
-
- Menu:
- clear screen
- printe
- printe' &23 '
- printe'
- printe'\I****************************'
- printe'*\o \I\RCONFLICT\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 \i*'
- printe'*\o \g\{O\} O\bld news \i*'
- printe'*\o \g\{P\} P\blay conflict \i*'
- printe'****************************\i'
- printe'*\o \r\{G\} G\bame 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:\conflict\conflict.txt'
-
- ef %0 = H
- clear screen
- Printe 'Hall of Champions'
- View 'D:\conflict\champions.txt'
-
- ef %0 = N
- clear screen
- Printe 'Conflict Combat News'
- printe
- printe 'Hit a ? to return to menu'
- printe
- view 'D:\conflict\Newsfile.txt'
-
- ef %0 = O
- clear screen
- Printe 'Yesterdays News'
- printe
- printe 'Hit a ? to return to menu'
- printe
- view 'D:\conflict\Yestrday.txt'
-
- ; ef %0 = S
- ; clear screen
- ; printe 'Conquest Empires'
- ; printe
- ; printe 'Hit a ? to return to Menu'
- ; printe
- ; view 'D:\conflict\conflict.sco'
-
- ; ef %0 = Y
- ; Printe 'Your Stats'
-
- ef %0 = G
- clear screen
- printe 'Teleporting to Game Menu'
- execute [G:inter.com]
-
- ; ef %0 = C
- ; clear screen
- ; printe 'Warping to Championship Level'
- ; execute [G:champs.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:
-
- if command_level (20)
- else
- printe ' Your user level does not permit it'
- goto menu
- endif
-
- cutoff = 12
- if &29 = 300
- cutoff = [cutoff] +7
- endif
-
- time_ok = Y
- time_on = &32
- time_left_day = [time_per_day] - [time_today]
- if time_left_day < cutoff
- printe '\n Not enough time left to play !'
- time_ok = N
- endif
- if time_ok = N
- goto Menu
- endif
-
- printe 'Play Conflict'
-
- OPEN ('D:\CONflict\userinfo.tmp', OUTPUT)
- FPRINTE '&1'
- CLOSE
-
- GEM 'D:\CONFLICT\HOST.PRG'
-
-
- goto menu
-
- ⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨