home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / megawars.lha / Mega-Wars < prev    next >
Encoding:
Text File  |  1990-11-27  |  991 b   |  28 lines

  1. /* Loader program for Mega-Wars I v2.0 09-28-90 */
  2. options results;mem=Storage();Getuser23;Port=result;Jv=Setclip('RAM'||Port,mem)
  3. transmit '\n1One moment, loading game.'
  4.  
  5. /* INITIAL STARTUP */
  6.  Path = 'PFiles:MWars/'
  7.  PathP = Path'Players/'
  8.  PathG = Path'Games/'
  9.  PathM = 'RAM:MWars/'
  10.  PathS = Path'Ships/'
  11.  PathT = Path'Text/'
  12.  if ~exists(PathM) then
  13.   address command 'MakeDir "'left(PathM,(length(PathM)-1))'"'
  14.  if ~exists(Path) then
  15.   address command 'MakeDir "'left(Path,(length(Path)-1))'"'
  16.  if ~exists(PathP) then
  17.   address command 'MakeDir "'left(PathP,(length(PathP)-1))'"'
  18. /* This next one is for future expansion.. Instead of one game with ten 
  19.    players, this will allow 6 games with 60 players. */
  20.  if ~exists(PathG) then
  21.   address command 'MakeDir "'left(PathG,(length(PathG)-1))'"'
  22.  if ~exists(PathS) then
  23.   address command 'MakeDir "'left(PathS,(length(PathS)-1))'"'
  24.  if ~exists(PathT) then
  25.   address command 'MakeDir "'left(PathT,(length(PathT)-1))'"'
  26.  
  27. SPAWN 'PFiles:M6a'
  28.