Category : Batch File Utilities - mostly for DOS
Archive   : MENUBTMS.ZIP
Filename : GAMES.BTM

REM -- GAMES.BTM: a program selection menuing system
REM -- the subdirectory tree for this batch file looks as follows:

: 729,573 26 ÃÄÄÄgames
: 277,472 22 ³ ÃÄÄÄblockout
: 142,438 4 ³ ÃÄÄÄinfocom
: 306,379 1 ³ ÃÄÄÄlarry
: 1,048,134 79 ³ ÃÄÄÄrails
: 198,997 15 ³ ÃÄÄÄtetris
: 165,198 3 ³ ÃÄÄÄtrek
: 550,379 22 ³ ÃÄÄÄgolf
: 281,629 66 ³ ÃÄÄÄjeoprdy1
: 307,781 66 ³ ÀÄÄÄjeoprdy2

REM two programs referenced here: mypallet is an alias that calls
REM KC-SETPAL to selecte the EGA color pallet. This is helpful for cleaning
REM up after graphics games that muck with the pallet. PC Mag's PRISM utility
REM would be a good substitute for VGA. BURNOUT controls the screen
REM blanker. BURNOUT 0 turns it off, BURNOUT 5000 sets the timeout to
REM about 5 minutes. I turn it off for mouse-only games to ensure that
REM the screen doesn't blank in the middle of the game!

REM begin by going to the GAMES subdir, and making sure the mouse is loaded
@echo off ^ pushd c:\games ^ mark ^ mouse ^ cls ^ goto MENU


REM at exit, clear out the mouse
:EXIT
release ^ call mypallet
set game= ^ set again= ^ popd ^ 25 ^ burnout 5000 > nul: ^ cancel

:GOLF
burnout 0 >nul: ^ cd golf ^ golf2 ^ burnout 5000 >nul: ^ cd .. ^ goto MENU


REM this block is set up to allow re-invoking a one-play-at-a-time
REM game without returning to the full games menu
:TREK
cd trek ^ set again=
:PLAYTREK
trek ^ mypallet ^ color bri cyan on black
screen 6 6 ^ Inkey Do you wish to play again? %%again
if %again==y GOTO PLAYTREK ^ set again= ^ cd .. ^ goto MENU

:TETRIS
cd tetris ^ keystack "n" 13 ^ etetris ^ cd .. ^ goto MENU

:PHOBOS
cd infocom ^ leather ^ cd .. ^ goto menu

:JEP1
cd jeoprdy1 ^ jeopardy ^ call mypallet ^ cd .. ^ goto MENU

:JEP2
cd jeoprdy2 ^ jeopardy ^ call mypallet ^ cd .. ^ goto MENU

:BLOCKOUT
cd blockout ^ bl ^ cd .. ^ goto MENU

:GAMMON
burnout 0 > nul: ^ egagam ^ burnout 5000 > nul: ^ goto MENU

:RAILS
cd rails ^ newkeysp \newkey\rails.key /l ^ burnout 0 > nul:
keystack 0 "3" 0 "2" 0 "1" ^ game ^ cd .. ^ burnout 5000 > nul: ^ goto MENU

:KLONDIKE
burnout 0 > nul: ^ solitair ^ burnout 5000 > nul: ^ goto MENU

:MENU
cd \games ^ call mypallet ^ del egagam.ini >&nul
gosub MENU_DISPLAY
goto GET_GAME
:GET_GAME
REM scrput 22 13 bri yellow on cyan ÿÿPress A Function Key To Select A Game Or Q to Quit:ÿÿ
screen 22 13
color bri yel on cya
inkey ÿÿPress A Function Key To Select A Game Or Q to Quit:ÿÿ %%game
color bri cya on bla
if %game==Q goto EXIT
if %game==@59 goto RAILS
if %game==@60 goto GAMMON
if %game==@61 goto BLOCKOUT
if %game==@62 goto KLONDIKE
if %game==@63 gravwar2
if %game==@64 goto GOLF
if %game==@65 goto JEP1
if %game==@66 goto JEP2
if %game==@67 goto TETRIS
if %game==@68 goto TREK
if %game==@84 mstrmind
if %game==@85 goto PHOBOS

REM this FOR loop prevents redisplay of the menu (which takes a little time)
REM if the input key wasn't valid. The same result can probably be achieved
REM with the INKEY /K optional parameter, I've just not tried that yet.
REM if the input key was a valid parameter, redisplay the menu, otherwise
REM just get another key.
for %check in (@59 @60 @61 @62 @63 @64 @65 @66 @67 @68 @84 @85 @86) if %check==%game goto MENU
goto GET_GAME


REM this subroutine displays the menu screen. the DRAWBOX, DRAWHLINE,
REM DRAWVLINE and SCRPUT commands are used
:MENU_DISPLAY
cls
drawbox 1 1 23 78 2 bri bla on black fil black
for %%a in (3 5 7 9 11 13 15 17 19 21 ) drawhline %%a 1 78 1 bri bla on black
drawvline 1 39 21 1 bri bla on black
scrput 0 24 bright yellow on red * * * *ÿÿÿGAMES MENUÿÿÿ* * * *
scrput 2 5 red on cyan ÿF1ÿ
scrput 2 9 bri cyan on black ÿ-- Railroad Tycoon
scrput 2 43 red on cyan ÿF2ÿ
scrput 2 47 bri cyan on black ÿ-- EGA Backgammon
scrput 4 5 red on cyan ÿF3ÿ
scrput 4 9 bri cyan on black ÿ-- Blockout
scrput 4 43 red on cyan ÿF4ÿ
scrput 4 47 bri cyan on black ÿ-- EGA Solitaire
scrput 6 5 red on cyan ÿF5ÿ
scrput 6 9 bri cyan on black ÿ-- Gravity Wars
scrput 6 43 red on cyan ÿF6ÿ
scrput 6 47 bri cyan on black ÿ-- PGA Tour Golf
scrput 8 5 red on cyan ÿF7ÿ
scrput 8 9 bri cyan on black ÿ-- Jeopardy, 1st Ed.
scrput 8 43 red on cyan ÿF8ÿ
scrput 8 47 bri cyan on black ÿ-- Jeopardy, 2nd Ed.
scrput 10 5 red on cyan ÿF9ÿ
scrput 10 9 bri cyan on black ÿ-- Tetris
scrput 10 43 red on cyan ÿF10ÿ
scrput 10 48 bri cyan on black ÿ- EGA Star Trek
scrput 12 5 red on cyan ÿsF1ÿ
scrput 12 10 bri cyan on black ÿ- Mastermind
scrput 12 43 red on cyan ÿsF2ÿ
scrput 12 48 bri cyan on black ÿ- Leather Godesses
scrput 14 5 red on cyan ÿsF3ÿ
scrput 14 10 bri cyan on black ÿ-
scrput 14 43 red on cyan ÿsF4ÿ
scrput 14 48 bri cyan on black ÿ-
scrput 16 5 red on cyan ÿsF5ÿ
scrput 16 10 bri cyan on black ÿ-
scrput 16 43 red on cyan ÿsF6ÿ
scrput 16 48 bri cyan on black ÿ-
scrput 18 5 red on cyan ÿsF7ÿ
scrput 18 10 bri cyan on black ÿ-
scrput 18 43 red on cyan ÿsF8ÿ
scrput 18 48 bri cyan on black ÿ-
RETURN