home *** CD-ROM | disk | FTP | other *** search
- /* Loader program for Mega-Wars I v2.0 09-28-90 */
- options results;mem=Storage();Getuser23;Port=result;Jv=Setclip('RAM'||Port,mem)
- transmit '\n1One moment, loading game.'
-
- /* INITIAL STARTUP */
- Path = 'PFiles:MWars/'
- PathP = Path'Players/'
- PathG = Path'Games/'
- PathM = 'RAM:MWars/'
- PathS = Path'Ships/'
- PathT = Path'Text/'
- if ~exists(PathM) then
- address command 'MakeDir "'left(PathM,(length(PathM)-1))'"'
- if ~exists(Path) then
- address command 'MakeDir "'left(Path,(length(Path)-1))'"'
- if ~exists(PathP) then
- address command 'MakeDir "'left(PathP,(length(PathP)-1))'"'
- /* This next one is for future expansion.. Instead of one game with ten
- players, this will allow 6 games with 60 players. */
- if ~exists(PathG) then
- address command 'MakeDir "'left(PathG,(length(PathG)-1))'"'
- if ~exists(PathS) then
- address command 'MakeDir "'left(PathS,(length(PathS)-1))'"'
- if ~exists(PathT) then
- address command 'MakeDir "'left(PathT,(length(PathT)-1))'"'
-
- SPAWN 'PFiles:M6a'
-