home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / SRE0992A.ZIP / SRE.CFG < prev    next >
Encoding:
Text File  |  1993-08-26  |  8.1 KB  |  205 lines
  1. {
  2.   begin "SRE:II Installation"
  3.   ------------------------
  4.   (set game "SRE")
  5.   (set version "0.99x")
  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 filename for your batch file:\n> "))
  29.   ]
  30.  
  31.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  32.  
  33.   "Ask about special effects"
  34.   (display "Special effects are extra ANSI animations shown when the user is at a\n"
  35.            "prompt.  They may slow down systems running under DESQview, MS-Windows,\n"
  36.            "or OS/2.  They also may fill up your modem buffer if you use locked\n"
  37.            "baud rates.  If you are running under a multitasking system or you\n"
  38.            "have a high-speed modem, I recommend not using special effects.\n")
  39.   (set SpecialEffects (ask "Do you want Special Effects? [Y/n] "))
  40.   [ if (not (error? SpecialEffects))
  41.     (if SpecialEffects (set SpecialEffects "TRUE"))
  42.     (if (not SpecialEffects) (set SpecialEffects "FALSE"))
  43.     (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  44.   ]
  45.  
  46.   "Ask about fossil"
  47.   (display "SRE can use the FOSSIL driver for communications.\n")
  48.   (set UseFossil (ask "Do you want SRE to use FOSSIL? [Y/n] "))
  49.   [ if (not (error? UseFossil))
  50.     (if UseFossil (set UseFossil "TRUE"))
  51.     (if (not UseFossil) (set UseFossil "FALSE"))
  52.     (resource-edit ResourceFile "System.Fossil" UseFossil)
  53.   ]
  54.  
  55.   (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  56.   (if LockedBaud (resource-edit ResourceFile "LockBaudRate" LockedBaud))
  57.   (if (not LockedBaud) (resource-edit ResourceFile "LockBaudRate" "none"))
  58.  
  59.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  60.  
  61.   (set L-ansi-scores
  62.     (read-string "If you want an ANSI score file, enter the full filename:\n> "))
  63.   (if L-ansi-scores
  64.         (resource-edit ResourceFile "Scores.File.ANSI" L-ansi-scores))
  65.   (if (not L-ansi-scores)
  66.         (resource-edit ResourceFile "Scores.File.ANSI" "\"\""))
  67.   (set L-text-scores
  68.     (read-string "If you want a TEXT score file, enter the full filename:\n> "))
  69.   (if L-text-scores
  70.         (resource-edit ResourceFile "Scores.File.Text" L-text-scores))
  71.   (if (not L-text-scores)
  72.         (resource-edit ResourceFile "Scores.File.Text" "\"\""))
  73.  
  74.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  75.  
  76.   (set L-ansi-news
  77.     (read-string "If you want an ANSI Today's news file, enter the full filename:\n> "))
  78.   (set L-text-news
  79.     (read-string "If you want a TEXT Today's news file, enter the full filename:\n> "))
  80.   (set L-ansi-ynews
  81.     (read-string "If you want an ANSI Yesterday's news file, enter the full filename:\n> "))
  82.   (set L-text-ynews
  83.     (read-string "If you want a TEXT Yesterday's news file, enter the full filename:\n> "))
  84.  
  85.   (display (cc 12) "\n\n ─────────────────────────────────────────────────────────────────────\n" (cc 7))
  86.  
  87.   [ if (not BatchFile)
  88.     (display "Not creating a batch file.\n")
  89.   ]
  90.  
  91.   [ if BatchFile
  92.     (display "Writing to " (cc 14) BatchFile (cc 7) "\n")
  93.  
  94.     "Write a batch file"
  95.     (rewrite BatchFile)
  96.  
  97.     (write "@ECHO OFF\n")
  98.     [ if 4-dos
  99.         (write "REM 4-DOS version\n")
  100.         (write "PUSHD " (fix-path (get-cwd)) "\n")
  101.     ]
  102.     (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))
  103.  
  104.     (set Setup (setup-type))
  105.     (set done? #f)
  106.  
  107.     [ if (= Setup "Searchlight")
  108.         " %1 is the username "
  109.         " %2 is ANSI:  `C' means yes"
  110.         " %3 is Time left"
  111.         " %4 is Baud rate"
  112.         " %5 is COM port"
  113.         (set done? #t)
  114.         (write "ECHO %1  >DOORFILE.SR\n"
  115.                "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
  116.                "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
  117.                "ECHO -1 >>DOORFILE.SR\n"
  118.                "ECHO 25 >>DOORFILE.SR\n")
  119.         [ if LockedBaud
  120.           (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
  121.                  "ECHO " LockedBaud " >>DOORFILE.SR\n")
  122.         ]
  123.         [ if (not LockedBaud)
  124.           (write "ECHO %4 >>DOORFILE.SR\n")
  125.         ]
  126.         (write "ECHO %5 >>DOORFILE.SR\n")
  127.         (write "ECHO %3 >>DOORFILE.SR\n")
  128.     ]
  129.  
  130.     [ if (= Setup "COPY")
  131.         (set done? #t)
  132.         (write "COPY " DoorFileDir "DOORFILE.SR DOORFILE.SR\n")
  133.     ]
  134.  
  135.     [ if (= Setup "PC-Board NEW")
  136.         (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
  137.         (set done? #t)
  138.         (set PCB-2-SR (ask "Do you have PCB-2-SRE? [Y/N] "))
  139.         [ if PCB-2-SR
  140.           (display "Which directory is PCB-2-SRE in (include drive and trailing '\\')?\n")
  141.           (set PCB-dir (read-string "> "))
  142.           (write PCB-dir "PCB2SRE /B=" DoorFileDir " /D=. /P /L=24\n")
  143.         ]
  144.         [ if (not PCB-2-SR)
  145.           (write "ECHO PC-Board support is not working yet.")
  146.           (display "PC-Board 14.x support has not been added to SRDOOR.  There "
  147.                    "is a program called PCB-2-SRE that converts PC-Board 14.5 files "
  148.                    "to the format that " game " requires.  You might want to get "
  149.                    "PCB-2-SRE or a door converter that converts to a format used "
  150.                    "by another BBS.  (You will have to run the installation "
  151.                    "again.)  PCB-2-SRE is available on the Solar Realm, and you can "
  152.                    "contact the author at an287@cleveland.freenet.edu (through "
  153.                    "Internet or CompuServe).\n")
  154.         ]
  155.     ]
  156.  
  157.     [ if (= Setup "Maximus")
  158.         (display "The installation program assumes you are using Dennis Lozen's "
  159.                  "Maximus installation setup.  If you are not, and you prefer to "
  160.                  "use DORINFO1.DEF for your setup, please re-run the installer "
  161.                  "for the New RBBS setup.\n")
  162.         (set done? #t)
  163.     ]
  164.  
  165.     [ if (not done?)
  166.         (write "SRDOOR")
  167.         [ if (= Setup "GT")
  168.             (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
  169.             (write " GT " ComPort)
  170.         ]
  171.         [ if (= Setup "PC-Board OLD")
  172.             (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
  173.             (write " PCBOARD2 " ComPort)
  174.         ]
  175.         (write "\n")
  176.     ]
  177.  
  178.     (write game "\n")
  179.  
  180.     (if L-ansi-news (write "COPY NEWS.ANS " L-ansi-news "\n"))
  181.     (if L-text-news (write "COPY NEWS.TXT " L-text-news "\n"))
  182.     (if L-ansi-ynews (write "COPY YESTNEWS.ANS " L-ansi-ynews "\n"))
  183.     (if L-text-ynews (write "COPY YESTNEWS.TXT " L-text-ynews "\n"))
  184.  
  185.     (if 4-dos (write "POPD\n"))
  186.     (if (not 4-dos) (write (cd-cmd BBSDirectory)))
  187.  
  188.     (write "REM take the EXIT line out if your BBS is not running\n")
  189.     (write "REM this batch file in a DOS shell\n")
  190.     (write "EXIT\n")
  191.   ]
  192.  
  193.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  194.  
  195.   (display (cc 15) "\nImportant:  " (cc 7) "Run " (cc 14) "SRE RESET" (cc 7) " to set up a new game of SRE.\n\n")
  196.   (display "\nSee " (cc 14) "Docs/Resource.DOC" (cc 7) " for setup/customization information.\n")
  197.   (display "See " (cc 14) "Docs/Sysop.DOC" (cc 7) " for information on customizing SRE.\n")
  198.   (display "See " (cc 14) "Docs/Register.DOC" (cc 7) " for info on registration.\n")
  199.  
  200.   (pause "\nPress any key to exit... ")
  201.   ----------------------
  202.   end "SRE Installation"
  203. }
  204.  
  205.