home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Workbench
/
Archivers
/
DMS_MUI.lha
/
dms_mui
/
installation
< prev
next >
Wrap
Text File
|
1998-03-15
|
3KB
|
115 lines
;Installation de MUI_DMS par Daniel TARTAVEL
(SET #dms_mui "")
(if (= @language "franτais")
(
(debug "franτais")
(set newtiroir "\nVoulez-vous qu'un tiroir \'DMS_MUI\' soit crΘΘ automatiquement ?")
(set oui "Oui")
(set non "Non")
(set choixtiroir "\nChoisissez le tiroir de destination")
(set choixlangage "\n\nChoisissez le langage que\nvous voulez installer")
(set franτais "Franτais")
(set anglais "Anglais")
(set copie "Copie de MUI_DMS")
(set localisation "Localisation du programme")
(set def_langage 1)
)
(
(debug "anglais")
(set newtiroir "\nDo you want I make a new drawer\n named \'DMS_MUI\' ?")
(set oui "Yes")
(set non "No")
(set choixtiroir "\nChooose the destination drawer")
(set choixlangage "\n\nChoose the language \nyou want to install")
(set franτais "French")
(set anglais "English")
(set copie "Copying MUI_DMS")
(set localisation "Localization of DMS_MUI")
(set def_langage 2)
)
)
;(onerror
; (
; (delete (tackon #dms_mui ) (help @delete-help) (ALL) (optional force)
; )
;)
(set pathorigin "")
(set level_int @user-level)
(set level (select @user-level "NOVICE" "AVERAGE" "EXPERT"))
(set newdrawer
(askbool (help @askchoice-help)
(prompt newtiroir)
(default 1)
(choices oui non)
)
)
(user 2)
(set dest-dir
(askdir (prompt choixtiroir)
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set language
(askoptions (help @askoptions-help)
(prompt choixlangage)
(default def_langage )
(choices franτais anglais)
)
)
(user level_int)
(set @default-dest (tackon dest-dir "DMS_MUI"))
(if (NOT (exists @default-dest)) (makedir (@default-dest (infos))))
(set @default-dest (cat @default-dest "/"))
(copyfiles (prompt copie)
(help @copyfiles-help)
(dest @default-dest)
(source "/dms_mui")
(all)
(infos)
)
(debug language)
(if (= language 1)
( (copyfiles (prompt localisation)
(help @copyfiles-help)
(dest "locale:catalogs/franτais")
(source "catalogs/franτais" )
(all)
(infos)
)
(delete (tackon @default-dest "help/engli#?")
(help @delete-help)
(optional force)
(all)
)
)
(delete (tackon @default-dest "help/fran#?")
(help @delete-help)
(optional force)
(all)
)
)
(if (= language 2)
(delete (tackon @default-dest "help/fran#?")
(help @delete-help)
(optional force)
(all)
)
)