home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / MUIScrMode1_2.lha / muiscreenmode_v1.2 / Install.script < prev    next >
Encoding:
Text File  |  1995-05-04  |  4.3 KB  |  191 lines
  1. ; Installer installation script for MUIScreenMode
  2. ;$VER: Install 1.002 (03 May 1995)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set programme "MUIScreenMode")
  7. (set progver "1.2")
  8. (set helpdir "HELP:")
  9.  
  10. ;================================================================================
  11. ; English strings
  12.  
  13. (set #bad-kick
  14.   (cat "You must have Kickstart 3.0 or higher installed to use MUIScreenMode!")
  15. )
  16.  
  17. (set #install
  18.   (cat "\n" programme " installation\n\n\n"
  19.        "This script installs " programme " " progver "\n"
  20.        "on your Amiga.\n\n\n\n"
  21.        programme " © 1995 Cyril DEBLE\n"
  22.        "All rights reserved\n\n"
  23.        "(MUI © Stephan Stuntz)")
  24. )
  25.  
  26.  
  27. (set #where
  28.   (cat "In wich drawer should " programme " be installed?")
  29. )
  30.  
  31. (set #copying
  32.   (cat "Copying " programme )
  33. )
  34.  
  35. (set #which-docs
  36.   (cat "\nWhich docs should be installed?")
  37. )
  38. (set #which-docs-help
  39.   (cat "\n" programme " support on line help in many language. "
  40.        "A amigaguide file must be copied to your harddisk "
  41.        "for each language supported.\n\n"
  42.        "To reduce the amount of space consumed by the guide "
  43.        "files, you can select to have only the files of specific "
  44.        "languages copied.\n\n"
  45.        "Simply check the boxes of the languages you wich to have "
  46.        "available on your system.\n\n")
  47. )
  48.  
  49.  
  50. ;================================================================================
  51. ; French strings
  52.  
  53. (if (= @language "français")  
  54.   (
  55.     (set #bad-kick
  56.       (cat "Vous devez posseder le Kickstart 3.0 ou superieur pour utiliser " programme "!")
  57.     )
  58.  
  59.     (set #install
  60.       (cat "\nInstallation de " programme "\n\n\n"
  61.            "Ce script installe " programme " " progver "\n"
  62.            "sur votre Amiga.\n\n\n\n"
  63.            programme " © 1995 Cyril DEBLE\n"
  64.            "Tous droits réservés\n\n"
  65.            "(MUI © Stephan Stuntz)")
  66.     )
  67.  
  68.  
  69.     (set #where
  70.       (cat "Dans quel tiroir installer " programme " ?")
  71.     )
  72.  
  73.     (set #copying
  74.       (cat "Copie de " programme )
  75.     )
  76.  
  77.     (set #which-docs
  78.       (cat "\nQuelle documentation installer ?")
  79.     )
  80.     (set #which-docs-help
  81.       (cat "\n" programme " a une aide en ligne disponible avec "
  82.            "different langages. "
  83.            "Un fichier amigaguide doit être copié sur votre disque dur "
  84.            "pour chaque langage supporté.\n\n"
  85.            "Pour reduire l'espace pris par les fichiers vous pouvez "
  86.            "selectionner un ou plusieur fichiers de langage spécifique "
  87.            "à copier.\n\n"
  88.            "Cochez simplement la case du langage que vous voulez installer "
  89.            "dans votre systeme.\n\n")
  90.     )
  91.   )
  92. )
  93.                           
  94. ;================================================================================
  95. ; make sure we are running under a 3.0 ROM
  96.  
  97. (if (< (/ (getversion) 65536) 39)
  98.   (
  99.     (abort #bad-kick)
  100.   )
  101. )
  102.  
  103. ;================================================================================
  104. ;
  105.  
  106. (complete 0)
  107.  
  108. (message
  109.     (#install)
  110. )
  111.  
  112. (welcome)
  113.  
  114. (set destination
  115.     (askdir
  116.         (prompt #where-catedit)
  117.         (help @askdir-help)
  118.         (default "SYS:Prefs")
  119.     )
  120. )
  121.  
  122. (copylib
  123.     (prompt "\n" #copying)
  124.     (help @copylib-help)
  125.     (source programme)
  126.     (dest destination)
  127.     (confirm)
  128. )
  129.  
  130. (complete 50)
  131.  
  132. (if (NOT (exists (tackon destination (cat programme ".info"))))
  133.     (
  134.         (copyfiles
  135.             (source (cat programme ".info"))
  136.             (dest destination)
  137.         )
  138.     )
  139. )
  140.  
  141. (complete 55)
  142.  
  143. (if (NOT (exists "ENVARC:Sys/Def_Prefs.info"))
  144.     (
  145.         (copyfiles
  146.             (source "Env-Archive/Sys/Def_Prefs.info")
  147.             (dest "ENVARC:Sys/")
  148.         )
  149.     )
  150. )
  151.  
  152. (complete 60)
  153.  
  154. (
  155.     (set lang
  156.         (askoptions
  157.             (prompt #which-language)
  158.             (help #which-docs-help @askoptions-help)
  159.             (choices
  160.                 "English"
  161.                 "Français")
  162.             (default 0)
  163.         )
  164.     )
  165.     (set n 0)
  166.     (while
  167.         (set language
  168.             (select n
  169.                 "english"
  170.                 "français"
  171.                 ""
  172.             )
  173.         )
  174.         (
  175.             (if (IN lang n)
  176.                 (
  177.                      (makedir (tackon helpdir language))
  178.                      (copyfiles
  179.                          (source (tackon (tackon "docs/" language) (cat programme ".guide")))
  180.                          (dest (tackon helpdir language))
  181.                      )
  182.                 )
  183.             )
  184.             (set n (+ n 1))
  185.         )
  186.     )
  187. )
  188.  
  189. (complete 100)
  190. (exit)
  191.