home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
REXMENU2.ZIP
/
SOLITAIR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-27
|
1KB
|
31 lines
/* Solitair.cmd - Example RexxMenu script to choose personal configuration for
* a game of KLONDIKE solitaire. User configurations are stored
* in NAME.SOL files.
*/
/* Build File of all NAME.SOL players */
'@dir *.SOL /b > SolNames.tmp'
/* Add Name for New Player */
'@echo New Player.sol >> SolNames.tmp'
/* Get choice from RexxMenu for player name */
if 1 = RxFuncQuery('RexxMenu') then
CALL RxFuncAdd 'RexxMenu', 'RexxMenu', 'RexxMenu'
PlayerName = RexxMenu('SolNames.tmp','/Suf','.SOL',,
'/Init','New Player','/Esc',,
'/Prompt','Choose solitaire player option (Esc for none):')
'@del SolNames.tmp'
'@cls'
if PlayerName = 'New Player' then do
say 'What is your name, New Player?'
PULL PlayerName
end /* Do */
if \(PlayerName = '') then do
'@if exist KLONDIKE.INI del KLONDIKE.INI'
'@if exist' INSERT(PlayerName,'.SOL') 'copy' INSERT(PlayerName,'.SOL') 'KLONDIKE.INI'
'KLONDIKE.EXE'
'@if exist KLONDIKE.INI copy KLONDIKE.INI' INSERT(PlayerName,'.SOL')
end /* Do */
EXIT