home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / Archivers / DMS_MUI.lha / dms_mui / installation < prev    next >
Text File  |  1998-03-15  |  3KB  |  115 lines
  1. ;Installation de MUI_DMS par Daniel TARTAVEL
  2.  
  3. (SET #dms_mui "")
  4. (if (= @language "franτais")
  5.   (
  6.   (debug "franτais")
  7.   (set newtiroir "\nVoulez-vous qu'un tiroir \'DMS_MUI\' soit crΘΘ automatiquement ?")
  8.   (set oui "Oui")
  9.   (set non "Non")
  10.   (set choixtiroir "\nChoisissez le tiroir de destination")
  11.   (set choixlangage "\n\nChoisissez le langage que\nvous voulez installer")
  12.   (set franτais "Franτais")
  13.   (set anglais "Anglais")
  14.   (set copie "Copie de MUI_DMS")
  15.   (set localisation "Localisation du programme")
  16.   (set def_langage 1)
  17.   )
  18.   (
  19.   (debug "anglais")
  20.   (set newtiroir "\nDo you want I make a new drawer\n named \'DMS_MUI\' ?")
  21.   (set oui "Yes")
  22.   (set non "No")
  23.   (set choixtiroir "\nChooose the destination drawer")
  24.   (set choixlangage "\n\nChoose the language \nyou want to install")
  25.   (set franτais "French")
  26.   (set anglais "English")
  27.   (set copie "Copying MUI_DMS")
  28.   (set localisation "Localization of DMS_MUI")
  29.   (set def_langage 2)
  30.   )
  31. )
  32. ;(onerror
  33. ;    (
  34. ;    (delete (tackon #dms_mui ) (help @delete-help) (ALL) (optional force)
  35. ;    )
  36. ;)
  37.  
  38.    
  39. (set pathorigin "")
  40. (set level_int @user-level)
  41. (set level (select @user-level "NOVICE" "AVERAGE" "EXPERT"))
  42.  
  43. (set newdrawer 
  44.     (askbool    (help @askchoice-help)
  45.             (prompt newtiroir)
  46.             (default 1)
  47.             (choices oui non)
  48.     )
  49. )
  50.  
  51. (user 2)
  52.  
  53. (set dest-dir
  54.      (askdir   (prompt choixtiroir)
  55.            (help @askdir-help)
  56.            (default @default-dest)
  57.            (newpath)
  58.      )
  59. )
  60.  
  61. (set language
  62.      (askoptions    (help @askoptions-help)
  63.             (prompt choixlangage)
  64.             (default def_langage )
  65.             (choices franτais anglais)
  66.      )
  67. )
  68.  
  69. (user level_int)
  70. (set @default-dest (tackon dest-dir "DMS_MUI"))
  71. (if (NOT (exists @default-dest)) (makedir (@default-dest (infos))))
  72. (set @default-dest (cat @default-dest "/"))
  73.  
  74.  
  75. (copyfiles           (prompt copie)
  76.              (help @copyfiles-help)
  77.              (dest @default-dest)
  78.              (source "/dms_mui")
  79.              (all)
  80.              (infos)
  81.  
  82. )
  83.  
  84. (debug language)
  85.  
  86. (if (= language 1)
  87.     (  (copyfiles      (prompt localisation)
  88.                (help @copyfiles-help)
  89.                (dest "locale:catalogs/franτais")
  90.                (source "catalogs/franτais" )
  91.                (all)
  92.                (infos)
  93.        )
  94.  
  95.        (delete         (tackon @default-dest "help/engli#?")
  96.                (help @delete-help)
  97.                (optional force)
  98.                (all)
  99.        )
  100.     )
  101.     (delete            (tackon @default-dest "help/fran#?")
  102.                (help @delete-help)
  103.                (optional force)
  104.                (all)
  105.     )
  106. )
  107.  
  108. (if (= language 2)
  109.     (delete            (tackon @default-dest "help/fran#?")
  110.                (help @delete-help)
  111.                (optional force)
  112.                (all)
  113.     )
  114. )
  115.