home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma83.dms / ma83.adf / DeepX12.lha / DeepXInstall < prev    next >
Encoding:
Text File  |  1996-06-03  |  2.5 KB  |  109 lines
  1. ; $VER: DeepXInstall 1.2 (29.04.96)
  2.  
  3. (if (= @language "english")
  4. (    (set #drawer "Select a drawer where to copy DeepX")
  5.     (set #copy "Copying DeepX")
  6.     (set #copyicon "Copying DeepX icons")
  7.     (set #copycat "Copying DeepX catalogs")
  8.     (set #icon "Select icons type")
  9.     (set #col4 "4-color icons (Normal)")
  10.     (set #col8 "8-color icons (MagicWB)")
  11. ))
  12.  
  13. (if (= @language "polski")
  14. (    (set #drawer "Wybierz szufladë, do której skopiowaê DeepXa")
  15.     (set #copy "Kopiujë DeepXa")
  16.     (set #copyicon "Kopiujë ikony DeepXa")
  17.     (set #copycat "Kopiujë katalogi DeepXa")
  18.     (set #icon "Wybierz rodzaj ikon")
  19.     (set #col4 "4-kolorowe ikony (Normalne)")
  20.     (set #col8 "8-kolorowe ikony (MagicWB)")
  21. ))
  22.  
  23. (if (= @language "français")
  24. (    (set #drawer "Choisir un répertoire où copier DeepX")
  25.     (set #copy "Copie de DeepX")
  26.     (set #copyicon "Copie des icônes de DeepX")
  27.     (set #copycat "Copie des catalogues de DeepX")
  28.     (set #icon "Choisir le type des icônes")
  29.     (set #col4 "Icônes 4 couleurs (Normaux)")
  30.     (set #col8 "Icônes 8 couleurs (MagicWB)")
  31. ))
  32. (if (= @language "svenska")
  33. (    (set #drawer "Välj ett bibliotek att installera DeepX till")
  34.     (set #copy "Kopierar DeepX")
  35.     (set #copyicon "Kopierar DeepX ikoner")
  36.     (set #copycat "Kopierar DeepX kataloger")
  37.     (set #icon "Välj ikon typ")
  38.     (set #col4 "4-Färgers ikon (Normal)")
  39.     (set #col8 "8-Färgers ikon (MagicWB)")
  40. ))
  41.  
  42. (set src (expandpath (pathonly @icon)))
  43.  
  44. (complete 0)
  45. (set @default-dest
  46.     (askdir
  47.         (prompt #drawer)
  48.         (help @askdir-help)
  49.         (default @default-dest)
  50.     )
  51. )
  52.  
  53. (set man "DeepX.guide")
  54. (if (= @language "polski") (set man "DeepX.PL.guide"))
  55. (copyfiles
  56.     (prompt #copy)
  57.     (help @copyfiles-help)
  58.     (source src)
  59.     (dest @default-dest)
  60.     (choices "DeepX" "DeepXPrefs" man)
  61. )
  62.  
  63. (complete 50)
  64. (set icons
  65.     (askchoice
  66.         (prompt #icon)
  67.         (help @askchoice-help)
  68.         (choices #col4 #col8)
  69.     )
  70. )
  71.  
  72. (if icons
  73.     (copyfiles
  74.         (prompt #copyicon)
  75.         (help @copyfiles-help)
  76.         (source src)
  77.         (dest @default-dest)
  78.         (choices "DeepX.info" "DeepXPrefs.info")
  79.     )
  80.  
  81.     ((copyfiles
  82.         (prompt #copyicon)
  83.         (help @copyfiles-help)
  84.         (source (tackon src "DeepX.info.4"))
  85.         (dest @default-dest)
  86.         (newname "DeepX.info")
  87.     )
  88.     (copyfiles
  89.         (prompt #copyicon)
  90.         (help @copyfiles-help)
  91.         (source (tackon src "DeepXPrefs.info.4"))
  92.         (dest @default-dest)
  93.         (newname "DeepXPrefs.info")
  94.     ))
  95. )
  96.  
  97. (complete 90)
  98. (if (NOT (= @language "english"))
  99.     (copyfiles
  100.         (prompt #copycat)
  101.         (help @copyfiles-help)
  102.         (source (cat (tackon src "Catalogs/") @language ))
  103.         (dest (tackon "LOCALE:Catalogs" @language))
  104.         (choices "DeepX.catalog" "DeepXPrefs.catalog")
  105.     )
  106. )
  107.  
  108. (complete 100)
  109.