home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma59.dms / ma59.adf / Trashman / Install-Trashman < prev    next >
Text File  |  1996-07-04  |  4KB  |  180 lines

  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Install-Trashman
  4. ;
  5. ; $VER: Install-Trashman 1.0 (28.5.96)
  6. ;
  7. ;------------------------------------------------------------------------
  8.  
  9. ;
  10. ; initialize variables
  11. ;
  12.  
  13. (set #FlagENGLISH 0)
  14. (set #FlagPOLSKI  1)
  15. (set #FlagOTHER   2)
  16.  
  17. (if (= @language "polski")
  18. (
  19.     (set #welcome (cat "Witam w instalacji Trashman'a."))
  20.     (set #trashdestdir-prompt (cat "Proszë wybraê katalog w którym Trashman powinien byê zainstalowany. Katalog nie bëdzie utworzony.\n"))
  21.     (set #trashdestdir-help (cat "Wybierz katalog lub dysk w którym bëdzie zainstalowany katalog Trashmana.\n"))
  22.     (set #language-prompt (cat "Wybierz jakie chcesz zainstalowaê wersje jëzykowe"))
  23.     (set #language-help (cat "Trashman pozwala na pracë w róûnych jëzykach. Domyôlnie wbudowany jest jëzyk angielski.\nJeôli wybierzesz 'inny' to bëdziesz mógî sam przetîumaczyê Trashman'a na dowolny jëzyk. Zaznacz wtedy jeszcze jakiô inny jëzyk (np. angielski) aby skopiowaê pliki pomocy."))
  24.     (set #gadget-prompt (cat "Czy mam skopiowaê progress.gadget?"))
  25.     (set #gadget-help (cat "Progress.gadget jest potrzebny do uruchomienia Trashman'a"))
  26.     (set #translation (cat "inny - pliki tîumaczeï"))
  27. )
  28. (
  29.     (set #welcome (cat "Welcome to the Installation of Trashman."))
  30.     (set #trashdestdir-prompt (cat "Please select the drawer where Trashman should be installed. Directory will not be created.\n"))
  31.     (set #trashdestdir-help (cat "If you want to start Trashman at startup select SYS:WBStartup.\n"))
  32.     (set #language-prompt (cat "Select what language versions you prefer to install."))
  33.     (set #language-help (cat "Trashman can work in many languages. Default language is english - built in.\nIf you select other you will be able to translate Trashman yourself, with this option select also other language."))
  34.     (set #gadget-prompt (cat "Do you want to copy progress.gadget?"))
  35.     (set #gadget-help (cat "Progress.gadget is required to run Trashman"))
  36.     (set #translation (cat "other - translation files"))
  37. )
  38. )
  39.  
  40. ;
  41. ; begin installation
  42. ;
  43.  
  44. (welcome #welcome)
  45. (complete 0)
  46.  
  47. (set @default-dest (cat "SYS:Utilities"))
  48. (set #DestDir
  49.     (askdir    (prompt #trashdestdir-prompt)
  50.         (help    #trashdestdir-help)
  51.         (default    @default-dest)
  52.         (newpath)
  53.     )
  54. )
  55.  
  56. (set #Languages    (askoptions    (prompt    #language-prompt)
  57.                 (help    #language-help)
  58.                 (choices    "english" "polski" #translation)
  59.         )
  60. )
  61.  
  62. (complete 10)
  63.  
  64. ;
  65. ; copy libraries and gadgets
  66. ;
  67.  
  68. (copylib    (prompt    #gadget-prompt)
  69.         (help    #gadget-help)
  70.         (source    "gadgets/progress.gadget")
  71.         (dest    "SYS:Classes/gadgets")
  72.         (confirm)
  73. )
  74.  
  75. (copyfiles    (source    "Trashman")
  76.         (dest    #DestDir)
  77.         (infos)
  78. )
  79.  
  80. (complete 20)
  81.  
  82. ;
  83. ; copy polish version
  84. ;
  85.  
  86. (if (IN #Languages #FlagPOLSKI)
  87. (
  88.     (if (<> (exists    "LOCALE:catalogs/polski") 2)
  89.         (makedir "LOCALE:catalogs/polski")
  90.     )
  91.     (complete 30)
  92.     (copyfiles    (source    "catalogs/polski")
  93.             (dest    "LOCALE:catalogs/polski")
  94.             (all)
  95.     )
  96.     (complete 40)
  97.  
  98.     (set #HELPdest (tackon #DestDir "Help/Polski"))
  99.     (if (<> (exists    #HELPdest) 2)
  100.         (makedir #HELPdest)
  101.     )
  102.     (complete 50)
  103.     (copyfiles    (source    "Help/Polski")
  104.             (dest    #HELPdest)
  105.             (infos)
  106.             (all)
  107.     )
  108.     (complete 60)
  109.     (set #HELPdest (tackon #DestDir "Help"))
  110.     (copyfiles    (source    "Help/Polski.info")
  111.             (dest    #HELPdest)
  112.             (nogauge)
  113.     )
  114.     (copyfiles    (source    "Help.info")
  115.             (dest    #DestDir)
  116.             (nogauge)
  117.     )
  118. ))
  119.  
  120. ;
  121. ; copy english version
  122. ;
  123.  
  124. (if (IN #Languages #FlagENGLISH)
  125. (
  126.     (set #HELPdest (tackon #DestDir "Help/English"))
  127.     (if (<> (exists    #HELPdest) 2)
  128.         (makedir #HELPdest)
  129.     )
  130.     (complete 70)
  131.     (copyfiles    (source    "Help/English")
  132.             (dest    #HELPdest)
  133.             (infos)
  134.             (all)
  135.     )
  136.     (complete 80)
  137.     (set #HELPdest (tackon #DestDir "Help"))
  138.     (copyfiles    (source    "Help/English.info")
  139.             (dest    #HELPdest)
  140.             (nogauge)
  141.     )
  142.     (copyfiles    (source    "Help.info")
  143.             (dest    #DestDir)
  144.             (nogauge)
  145.     )
  146. ))
  147.  
  148. ;
  149. ; copy catalog description and translation template
  150. ;
  151.  
  152. (if (IN #Languages #FlagOTHER)
  153. (
  154.     (set #CATAdest (tackon #DestDir "catalogs"))
  155.     (if (<> (exists    #CATAdest) 2)
  156.         (makedir #CATAdest)
  157.     )
  158.  
  159.     (copyfiles    (source    "catalogs.info")
  160.             (dest    #DestDir)
  161.             (nogauge)
  162.     )
  163.  
  164.     (complete 90)
  165.     (copyfiles    (source    "catalogs/Trashman.cd")
  166.             (dest    #CATAdest)
  167.     )
  168.     (complete 95)
  169.     (copyfiles    (source    "catalogs/Trashman.ct")
  170.             (dest    #CATAdest)
  171.     )
  172. ))
  173.  
  174. ;
  175. ; say goodbye
  176. ;
  177.  
  178. (complete 100)
  179. (exit)
  180.