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