home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0962.lha / MuchMore / Install_MuchMore < prev    next >
Text File  |  1994-01-31  |  10KB  |  215 lines
  1. ;  *** MuchMore installation scipt ***
  2.  
  3. (welcome "Welcome to the MuchMore installation!")
  4.  
  5. (
  6.         ;get destination dir for MuchMore-executable
  7.         (set mydest
  8.                 (askdir
  9.                         (prompt "Select the directory where you want to put the MuchMore executable.")
  10.                         (help   "The directory where you store the executable "
  11.                                 "should be easily accessible via WorkBench or CLI/Shell.\n\n"
  12.                                 @askfile-help
  13.                         )
  14.                         (default "C:")
  15.                         (disk)
  16.                 )
  17.         )
  18.  
  19.         (set @default-dest mydest)
  20.  
  21.         (set mmdest (tackon mydest "MuchMore"))
  22.  
  23.         (
  24.                 (if (= 1 (exists mmdest))
  25.                         (
  26.                                 (if (= 0
  27.  
  28.                                         (askbool
  29.                                                 (prompt "You have already installed MuchMore. Do you wish to overwrite it?\n\n")
  30.                                                 (help @askbool-help)
  31.                                                 (default 1)
  32.                                                 (choices "Continue" "Abort")
  33.                                         ))
  34.  
  35.                                 (abort "Okay, I didn't overwrite the executable.")
  36.                                 )
  37.  
  38.                         )
  39.  
  40.                 )
  41.         )
  42.  
  43.         (copyfiles
  44.                 (prompt ("Copying MuchMore executable to %s." mydest))
  45.                 (help @copyfiles-help)
  46.                 (source "MuchMore")
  47.                 (dest mydest)
  48.                 (infos)
  49.         )
  50.  
  51. )
  52.  
  53.  
  54. (
  55.         ;Copy Docs
  56.  
  57.         (if
  58.                 (set qval
  59.                         (askoptions
  60.                                 (prompt "Please choose which docs you want to have installed! "
  61.                                         "(Or choose none to have no docs installed!)")
  62.                                 (choices
  63.                                         "English Docs"
  64.                                         "German Docs"
  65.                                 )
  66.                                 (default 0)
  67.                                 (help
  68.                                         "Not installing the docs is unwise because you could have "
  69.                                         "questions while using MuchMore. Choosing the "
  70.                                         "documentation in your favourite language is sufficient.\n\n"
  71.                                         @askoptions-help
  72.                                 )
  73.                         )
  74.                 )
  75.  
  76.                 (
  77.                         (set docsdest
  78.                                 (askdir
  79.                                         (prompt "Select the directory where you want to put the docs.")
  80.                                         (help
  81.                                                 "You may store the docs where you usually store docs or "
  82.                                                 "in the directory where MuchMore resides in.\n\n"
  83.                                                 @askfile-help
  84.                                         )
  85.                                         (default mydest)
  86.                                 )
  87.                         )
  88.  
  89.                         (if (IN qval 0)
  90.                                 (copyfiles
  91.                                         (prompt ("Copying english docs to %s." docsdest))
  92.                                         (help @copyfiles-help)
  93.                                         (source "MuchMore.doc")
  94.                                         (dest docsdest)
  95.                                         (infos)
  96.                                 )
  97.                         )
  98.  
  99.                         (if (IN qval 1)
  100.                                 (copyfiles
  101.                                         (prompt ("Copying german docs to %s." docsdest))
  102.                                         (help @copyfiles-help)
  103.                                         (source "MuchMore.dok")
  104.                                         (dest docsdest)
  105.                                         (infos)
  106.                                 )
  107.                         )
  108.                 )
  109.         )
  110. )
  111.  
  112. (
  113.         ;install LOCALEs
  114.  
  115.         (set catdir "LOCALE:catalogs")
  116.  
  117.         (if (= 2 (exists "LOCALE:" (noreq)))
  118.                 (if
  119.                         (set qval
  120.                                 (askoptions
  121.                                         (prompt "Please choose which catalogs you want to have "
  122.                                                 "installed! "
  123.                                                 "(Or choose none to have no catalogs installed!)")
  124.                                         (choices
  125.                                                 "Dansk"
  126.                                                 "Deutsch"
  127.                                                 "Franτais"
  128.                                                 "Italiano"
  129.                                                 "Nederlands"
  130.                                                 "Norsk"
  131.                                                 "Svenska"
  132.                                         )
  133.  
  134.                                         (default 0)
  135.                                         (help
  136.                                                 "It is sufficient to install the catalog(s) of the language(s) "
  137.                                                 "that you specified as 'preferred' in the locale-preferences "
  138.                                                 "editor. \n\n"
  139.                                                 @askoptions-help
  140.                                         )
  141.                                 )
  142.                         )
  143.                 (
  144.                         (if (IN qval 0)
  145.                                 (copyfiles
  146.                                         (prompt ("Copying danish catalog to %s." (tackon catdir "dansk")))
  147.                                         (help @copyfiles-help)
  148.                                         (source "Catalogs/dansk/muchmore.catalog")
  149.                                         (dest (tackon catdir "dansk"))
  150.                                         (infos)
  151.                                 )
  152.                         )
  153.                         (if (IN qval 1)
  154.                                 (copyfiles
  155.                                         (prompt ("Copying german catalog to %s." (tackon catdir "deutsch")))
  156.                                         (help @copyfiles-help)
  157.                                         (source "Catalogs/deutsch/muchmore.catalog")
  158.                                         (dest (tackon catdir "deutsch"))
  159.                                         (infos)
  160.                                 )
  161.                         )
  162.                         (if (IN qval 2)
  163.                                 (copyfiles
  164.                                         (prompt ("Copying france catalog to %s." (tackon catdir "franτais")))
  165.                                         (help @copyfiles-help)
  166.                                         (source "Catalogs/franτais/muchmore.catalog")
  167.                                         (dest (tackon catdir "franτais"))
  168.                                         (infos)
  169.                                 )
  170.                         )
  171.                         (if (IN qval 3)
  172.                                 (copyfiles
  173.                                         (prompt ("Copying italian catalog to %s." (tackon catdir "italiano")))
  174.                                         (help @copyfiles-help)
  175.                                         (source "Catalogs/italiano/muchmore.catalog")
  176.                                         (dest (tackon catdir "italiano"))
  177.                                         (infos)
  178.                                 )
  179.                         )
  180.                         (if (IN qval 4)
  181.                                 (copyfiles
  182.                                         (prompt ("Copying dutch catalog to %s." (tackon catdir "nederlands")))
  183.                                         (help @copyfiles-help)
  184.                                         (source "Catalogs/nederlands/muchmore.catalog")
  185.                                         (dest (tackon catdir "nederlands"))
  186.                                         (infos)
  187.                                 )
  188.                         )
  189.                         (if (IN qval 5)
  190.                                 (copyfiles
  191.                                         (prompt ("Copying norwegian catalog to %s." (tackon catdir "norsk")))
  192.                                         (help @copyfiles-help)
  193.                                         (source "Catalogs/norsk/muchmore.catalog")
  194.                                         (dest (tackon catdir "norsk"))
  195.                                         (infos)
  196.                                 )
  197.                         )
  198.                         (if (IN qval 6)
  199.                                 (copyfiles
  200.                                         (prompt ("Copying swedish catalog to %s." (tackon catdir "svenska")))
  201.                                         (help @copyfiles-help)
  202.                                         (source "Catalogs/deutsch/muchmore.catalog")
  203.                                         (dest (tackon catdir "svenska"))
  204.                                         (infos)
  205.                                 )
  206.                         )
  207.  
  208.  
  209.                 )
  210.  
  211.                 )
  212.         )
  213. )
  214.  
  215.