home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / s / sre0986g.zip / SRE.CFG < prev    next >
Text File  |  1992-10-24  |  7KB  |  178 lines
  1. {
  2.   begin "SRE Installation"
  3.   ------------------------
  4.   (set game "SRE")
  5.   (set version "0.986")
  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.   ]
  22.  
  23.   (write-setup-sr)
  24.  
  25.   (set BatchFile (concat BBSDirectory game ".BAT"))
  26.   [ if (not (ask "Write to " (cc 14) BatchFile (cc 7) "?  [Y/n] "))
  27.       (set BatchFile (read-string "Enter the full filename for your batch file:\n> "))
  28.   ]
  29.  
  30.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  31.  
  32.   "Ask about special effects"
  33.   (set SpecialEffects (ask "Do you want Special Effects? [Y/n] "))
  34.   [ if (not (error? SpecialEffects))
  35.     (if SpecialEffects (set SpecialEffects "TRUE"))
  36.     (if (not SpecialEffects) (set SpecialEffects "FALSE"))
  37.     (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  38.   ]
  39.  
  40.   (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  41.   (if LockedBaud (resource-edit ResourceFile "LockBaudRate" LockedBaud))
  42.   (if (not LockedBaud) (resource-edit ResourceFile "LockBaudRate" "none"))
  43.  
  44.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  45.  
  46.   (set L-ansi-scores
  47.     (read-string "If you want an ANSI score file, enter the full filename:\n> "))
  48.   (set L-text-scores
  49.     (read-string "If you want a TEXT score file, enter the full filename:\n> "))
  50.  
  51.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  52.  
  53.   (set L-ansi-news
  54.     (read-string "If you want an ANSI Today's news file, enter the full filename:\n> "))
  55.   (set L-text-news
  56.     (read-string "If you want a TEXT Today's news file, enter the full filename:\n> "))
  57.   (set L-ansi-ynews
  58.     (read-string "If you want an ANSI Yesterday's news file, enter the full filename:\n> "))
  59.   (set L-text-ynews
  60.     (read-string "If you want a TEXT Yesterday's news file, enter the full filename:\n> "))
  61.  
  62.   (display (cc 12) "\n\n ─────────────────────────────────────────────────────────────────────\n" (cc 7))
  63.  
  64.   [ if (not BatchFile)
  65.     (display "Not creating a batch file.\n")
  66.   ]
  67.  
  68.   [ if BatchFile
  69.     (display "Writing to " (cc 14) BatchFile (cc 7) "\n")
  70.  
  71.     "Write a batch file"
  72.     (rewrite BatchFile)
  73.  
  74.     (write "@ECHO OFF\n")
  75.     [ if 4-dos
  76.         (write "REM 4-DOS version\n")
  77.         (write "PUSHD " (fix-path (get-cwd)) "\n")
  78.     ]
  79.     (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))
  80.  
  81.     (set Setup (setup-type))
  82.     (set done? #f)
  83.  
  84.     [ if (= Setup "Searchlight")
  85.         " %1 is the username "
  86.         " %2 is ANSI:  `C' means yes"
  87.         " %3 is Time left"
  88.         " %4 is Baud rate"
  89.         " %5 is COM port"
  90.         (set done? #t)
  91.         (write "ECHO %1  >DOORFILE.SR\n"
  92.                "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
  93.                "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
  94.                "ECHO -1 >>DOORFILE.SR\n"
  95.                "ECHO 25 >>DOORFILE.SR\n")
  96.         [ if LockedBaud
  97.           (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
  98.                  "ECHO " LockedBaud " >>DOORFILE.SR\n")
  99.         ]
  100.         [ if (not LockedBaud)
  101.           (write "ECHO %4 >>DOORFILE.SR\n")
  102.         ]
  103.         (write "ECHO %5 >>DOORFILE.SR\n")
  104.         (write "ECHO %3 >>DOORFILE.SR\n")
  105.     ]
  106.  
  107.     [ if (= Setup "PC-Board NEW")
  108.         (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
  109.         (set done? #t)
  110.         (set PCB-2-SR (ask "Do you have PCB-2-SRE? [Y/N] "))
  111.         [ if PCB-2-SR
  112.           (display "Which directory is PCB-2-SRE in (include drive and trailing '\\')?\n")
  113.           (set PCB-dir (read-string "> "))
  114.           (write PCB-dir "PCB2SRE /B=" DoorFileDir " /D=. /P /L=24\n")
  115.         ]
  116.         [ if (not PCB-2-SR)
  117.           (write "ECHO PC-Board support is not working yet.")
  118.           (display "PC-Board 14.x support has not been added to SRDOOR.  There "
  119.                    "is a program called PCB-2-SRE that converts PC-Board 14.5 files "
  120.                    "to the format that " game " requires.  You might want to get "
  121.                    "PCB-2-SRE or a door converter that converts to a format used "
  122.                    "by another BBS.  (You will have to run the installation "
  123.                    "again.)  PCB-2-SRE is available on the Solar Realm, and you can "
  124.                    "contact the author at an287@cleveland.freenet.edu (through "
  125.                    "Internet or CompuServe).\n")
  126.         ]
  127.     ]
  128.  
  129.     [ if (= Setup "Maximus")
  130.         (display "The installation program assumes you are using Dennis Lozen's "
  131.                  "Maximus installation setup.  If you are not, and you prefer to "
  132.                  "use DORINFO1.DEF for your setup, please re-run the installer "
  133.                  "for the New RBBS setup.\n")
  134.         (set done? #t)
  135.     ]
  136.  
  137.     [ if (not done?)
  138.         (write "SRDOOR")
  139.         [ if (= Setup "GT")
  140.             (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
  141.             (write " GT " ComPort)
  142.         ]
  143.         [ if (= Setup "PC-Board OLD")
  144.             (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
  145.             (write " PCBOARD2 " ComPort)
  146.         ]
  147.         (write "\n")
  148.     ]
  149.  
  150.     (write game "\n")
  151.  
  152.     (if L-ansi-scores (write "COPY SREScores.ANS " L-ansi-scores "\n"))
  153.     (if L-text-scores (write "COPY SREScores.TXT " L-text-scores "\n"))
  154.  
  155.     (if L-ansi-news (write "COPY NEWS.ANS " L-ansi-news "\n"))
  156.     (if L-text-news (write "COPY NEWS.TXT " L-text-news "\n"))
  157.     (if L-ansi-ynews (write "COPY YESTNEWS.ANS " L-ansi-ynews "\n"))
  158.     (if L-text-ynews (write "COPY YESTNEWS.TXT " L-text-ynews "\n"))
  159.  
  160.     (if 4-dos (write "POPD\n"))
  161.     (if (not 4-dos) (write (cd-cmd BBSDirectory)))
  162.  
  163.     (write "EXIT\n")
  164.   ]
  165.  
  166.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  167.  
  168.   (display (cc 15) "\nImportant:  " (cc 7) "Run " (cc 14) "SRE RESET" (cc 7) " to set up a new game of SRE.\n\n")
  169.   (display "\nSee " (cc 14) "RESOURCE.HLP" (cc 7) " for setup/customization information.\n")
  170.   (display "See " (cc 14) "SYSOP.DOC" (cc 7) " for information on customizing SRE with ANSI files.\n")
  171.   (display "See " (cc 14) "REGISTER.DOC" (cc 7) " for info on registration.\n")
  172.  
  173.   (pause "\nPress any key to exit... ")
  174.   ----------------------
  175.   end "SRE Installation"
  176. }
  177.  
  178.