home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / packer / dms_mui / installation < prev   
Encoding:
Text File  |  1998-03-15  |  2.5 KB  |  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.