home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / d / drafuplusv1.01reg.lha / DRAFUplus / Install_DRAFU < prev    next >
Text File  |  1995-12-30  |  3KB  |  88 lines
  1. ; $VER: Install_DRAFU.script V1.00 (28.12.95)
  2. ; © 1993-95 by Andreas R. Kleinert.
  3.  
  4. (set selectlang (askchoice
  5.                    (prompt "")
  6.                    (help @askchoice-help)
  7.                    (choices "Deutsche Installation" "English Installation")
  8.                    (default 1)
  9.                  )
  10. )
  11.  
  12. (if (= selectlang 0) (set @language "deutsch")  )
  13. (if (= selectlang 1) (set @language "english")  )
  14.  
  15. (if (= @language "deutsch")
  16.   (
  17.     (set MSG_wrong_OS       (cat "Sie benötigen mindestens OS V2.04 für DRAFU !\n\n"
  18.                                  "DRAFU wird auf Ihrem System nicht laufen !"))
  19.     (set MSG_InstallingDRAFU "Installiere jetzt DRAFU. Die Libraries müssen separat installiert werden !")
  20.     (set MSG_SelectPath          "Wählen Sie das Zielverzeichnis für DRAFU")
  21.     (set MSG_InstallingCatalogs  "Installiere jetzt die Katalog-Dateien für die\nOS V2.1+ Sprach-Unterstützung.")
  22.     (set MSG_SelectCatalogPath   "Wählen Sie den Pfad für die Katalog-Dateien")
  23.     (set MSG_DoInstallDRAFU  "DRAFU wurde installiert.")
  24.     (set MSG_DRAFUPath       "Modifiziere jetzt S:User-Startup für einen Suchpfad...")
  25.   )
  26. )
  27.  
  28. (if (= @language "english")
  29.   (
  30.     (set MSG_wrong_OS       (cat "You need at least OS V2.04 to run DRAFU !\n\n"
  31.                                  "DRAFU will not run with your system configuration !"))
  32.     (set MSG_InstallingDRAFU "Installing DRAFU now. Libraries have to be installed separately !")
  33.     (set MSG_SelectPath          "Select path to install DRAFU to")
  34.     (set MSG_InstallingCatalogs  "Installing Catalog-Files for OS V2.1+\nCode localization.")
  35.     (set MSG_SelectCatalogPath   "Select path to install Catalogs to")
  36.     (set MSG_DoInstallDRAFU  "DRAFU has been installed.")
  37.     (set MSG_DRAFUPath       "Now modifying your S:User-Startup for a search path...")
  38.   )
  39. )
  40.  
  41. (set OS_VER (/ (getversion) 65536) )
  42.  
  43. (if(< OS_VER 37)
  44.   (abort MSG_wrong_OS)
  45. )
  46.  
  47. (complete 0)
  48.  
  49. (copyfiles
  50.   (prompt MSG_Installing)
  51.   (help @copyfiles-help)
  52.   (source "")
  53.   (set svcomdir
  54.               (askdir
  55.                      (prompt MSG_SelectPath)
  56.                      (help @askdir-help)
  57.                      (newpath)
  58.                      (default "SYS:DRAFU")
  59.               )
  60.   )
  61.   (dest svcomdir)
  62.   (all)
  63.   (confirm)
  64. )
  65.  
  66. (complete 70)
  67.  
  68. (copyfiles
  69.   (prompt MSG_InstallingCatalogs)
  70.   (help @copyfiles-help)
  71.   (source "locale/catalogs")
  72.   (set svcomdir
  73.               (askdir
  74.                      (prompt MSG_SelectCatalogPath)
  75.                      (help @askdir-help)
  76.                      (newpath)
  77.                      (default "SYS:locale/Catalogs")
  78.               )
  79.   )
  80.   (dest svcomdir)
  81.   (all)
  82.   (confirm)
  83. )
  84.  
  85. (complete 99)
  86.  
  87. (exit MSG_DoInstallDRAFU)
  88.