home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: Strategic Simulations / Chip-Special_Strategische-Simulationen.bin / share / dos / bre / bre.cfg < prev    next >
Encoding:
Text File  |  1993-01-15  |  6.6 KB  |  173 lines
  1. {
  2.   begin "BRE Installation"
  3.   ------------------------
  4.   (set game "BRE")
  5.   (set version "0.0850")
  6.   (set 4-dos (4-dos?))
  7.   (set ResourceFile "RESOURCE.DAT")
  8.  
  9.   (display (cc 14) game " " (cc 15) version (cc 7) " setup:\n\n")
  10.  
  11.   (display "The " game " directory is `" (cc 14) (fix-path (get-cwd)) (cc 7) "'.\n\n")
  12.  
  13.   (set BBSDirectory (read-string "Which directory is your BBS in?\n> "))
  14.   [ if (not BBSDirectory)
  15.       (set BBSDirectory ".")
  16.   ]
  17.   (set BBSDirectory (fix-path BBSDirectory))
  18.  
  19.   (write-setup-sr)
  20.  
  21.   (set BatchFile (concat BBSDirectory game ".BAT"))
  22.   [ if (not (ask "Write to " (cc 14) BatchFile (cc 7) "?  [Y/N] "))
  23.       (set BatchFile (read-string "Enter the full pathname for your batch file:\n> "))
  24.   ]
  25.  
  26.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  27.  
  28.   "Ask about special effects"
  29.   (set SpecialEffects (ask "Do you want Special Effects? [Y/N] "))
  30.   [ if (not (error? SpecialEffects))
  31.     (if SpecialEffects (set SpecialEffects "TRUE"))
  32.     (if (not SpecialEffects) (set SpecialEffects "FALSE"))
  33.     (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  34.   ]
  35.  
  36.   (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  37.   (if LockedBaud (resource-edit "RESOURCE.DAT" "LockedBaud" LockedBaud))
  38.   (if (not LockedBaud) (resource-edit "RESOURCE.DAT" "LockedBaud" "none"))
  39.  
  40.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  41.  
  42.   (set Scores? (ask "Do you want to have score files? [Y/N] "))
  43.   [ if (not (error? Scores?))
  44.     [ if (not Scores?)
  45.       (resource-edit ResourceFile "Scores" "NO")
  46.     ]
  47.     [ if Scores?
  48.       (resource-edit ResourceFile "Scores" "YES")
  49.       (set L-ansi-scores
  50.         (read-string "If you want an ANSI score file, enter the full path/filename:\n> "))
  51.       (resource-edit ResourceFile "AnsiScores" L-ansi-scores)
  52.       (set L-text-scores
  53.         (read-string "If you want a TEXT score file, enter the full path/filename:\n> "))
  54.       (resource-edit ResourceFile "AsciiScores" L-text-scores)
  55.     ]
  56.   ]
  57.  
  58.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  59.  
  60.   (set News? (ask "Do you want to store the daily news files? [Y/N] "))
  61.   [ if (not (error? News))
  62.     [ if News?
  63.       (set L-ansi-news
  64.         (read-string "If you want an ANSI Today's news file, enter the full path/filename:\n> "))
  65.       (resource-edit ResourceFile "TodayNewsAnsi" L-ansi-news)
  66.       (set L-text-news
  67.         (read-string "If you want a TEXT Today's news file, enter the full path/filename:\n> "))
  68.       (resource-edit ResourceFile "TodayNewsAscii" L-text-news)
  69.       (set L-ansi-ynews
  70.         (read-string "If you want an ANSI Yesterday's news file, enter the full path/filename:\n> "))
  71.       (resource-edit ResourceFile "YesterdayNewsAnsi" L-ansi-ynews)
  72.       (set L-text-ynews
  73.         (read-string "If you want a TEXT Yesterday's news file, enter the full path/filename:\n> "))
  74.       (resource-edit ResourceFile "YesterdayNewsAscii" L-text-ynews)
  75.     ]
  76.   ]
  77.   
  78.   (display (cc 12) "\n\n ─────────────────────────────────────────────────────────────────────\n" (cc 7))
  79.  
  80.   [ if (not BatchFile)
  81.     (display "Not creating a batch file.\n")
  82.   ]
  83.  
  84.   [ if BatchFile
  85.     (display "Writing to " (cc 14) BatchFile (cc 7) "\n")
  86.  
  87.     "Write a batch file"
  88.     (rewrite BatchFile)
  89.  
  90.     (write "@ECHO OFF\n")
  91.     [ if 4-dos
  92.         (write "REM 4-DOS version\n")
  93.         (write "PUSHD " (fix-path (get-cwd)) "\n")
  94.     ]
  95.     (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))
  96.  
  97.     (set Setup (setup-type))
  98.     [ if (= Setup "Searchlight")
  99.         " %1 is the username "
  100.         " %2 is ANSI:  `C' means yes"
  101.         " %3 is Time left"
  102.         " %4 is Baud rate"
  103.         " %5 is COM port"
  104.         (write "ECHO %1  >DOORFILE.SR\n"
  105.                "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
  106.                "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
  107.                "ECHO -1 >>DOORFILE.SR\n"
  108.                "ECHO 25 >>DOORFILE.SR\n")
  109.         [ if LockedBaud
  110.           (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
  111.                  "ECHO " LockedBaud " >>DOORFILE.SR\n")
  112.         ]
  113.         [ if (not LockedBaud)
  114.           (write "ECHO %4 >>DOORFILE.SR\n")
  115.         ]
  116.         (write "ECHO %5 >>DOORFILE.SR\n")
  117.         (write "ECHO %3 >>DOORFILE.SR\n")
  118.     ]
  119.  
  120.     [ if (= Setup "PC-Board NEW")
  121.         (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
  122.         (set PCB-2-SR (ask "Do you have PCB-2-SR? [Y/N] "))
  123.         [ if PCB-2-SR
  124.           (write "PCB2SR")
  125.           (display "Please put PCB2SR.EXE in the " (cc 14) game (cc 7) " directory, or modify "
  126.                    BatchFile to run PCB-2-SR from the right directory.\n")
  127.         ]
  128.         [ if (not PCB-2-SR)
  129.           (write "ECHO PC-Board support is not working yet.")
  130.           (display "PC-Board 14.x support has not been added to SRDOOR.  There "
  131.                    "is a program called PCB-2-SR that converts PC-Board files "
  132.                    "to the format that " game " requires.  You might want to get "
  133.                    "PCB-2-SR or a door converter that converts to a format used "
  134.                    "by another BBS.  (You will have to run the installation "
  135.                    "again.)\n")
  136.         ]
  137.     ]
  138.  
  139.     [ if (and (<> Setup "PC-Board NEW") (<> Setup "Searchlight"))
  140.         (write "SRDOOR")
  141.         [ if (= Setup "GT")
  142.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  143.             (write " GT " ComPort)
  144.         ]
  145.         [ if (= Setup "PC-Board OLD")
  146.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  147.             (write " PCBOARD2 " ComPort)
  148.         ]
  149.         (write "\n")
  150.     ]
  151.  
  152.     (write game "\n")
  153.  
  154.     (if 4-dos (write "POPD\n"))
  155.     (if (not 4-dos) (write (cd-cmd BBSDirectory)))
  156.  
  157.     (write "EXIT\n")
  158.   ]
  159.  
  160.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  161.  
  162.   (display "\nSee " (cc 14) "OPTIONS.DOC" (cc 7) " for other parameters.\n")
  163.   (display "\nSee " (cc 14) "RESOURCE.DOC" (cc 7) " for customization information.\n")
  164.   (display "See " (cc 14) "IPSETUP.DOC" (cc 7) " for information on inter-BBS setup.\n")
  165.   (display "See " (cc 14) "BRANSI.DOC" (cc 7) " for information on customizing BRE with ANSI files.\n")
  166.   (display (cc 15) "Note" (cc 7) ": *.SAM files are not used by BRE; they are only samples.\n")
  167.  
  168.   (pause "\nPress any key to exit... ")
  169.   ----------------------
  170.   end "BRE Installation"
  171. }
  172.  
  173.