;$VER: Install_Menu-Lzx&Lha 5.0 (05.11.99) Par JMC
(welcome "Bienvenue sur l'installation de MENU-LZX&LHA")
(complete 0)
(message "\n\nLes outils seront copiés dans 'Sys:Outils/menu-Lzx&Lha' par défaut. Vous pourrez changer le chemin de destination, et créer un répertoire de votre choix si vous le désirez.") 
(set @app-name "Menu-Lzx&Lha")
(set @language "français")
(set tmp @user-level)
(user 2)

(user tmp)

(complete 5)
(set instdir
	(askdir
		(prompt "\nChoisissez une destination pour l'installation des outils. Vous avez \nla possibilité de créer un répertoire de votre choix.\nAucune assignation n'est nécessaire !")
		(help @askdir-help)
		(default "Sys:Outils/Menu-Lzx&Lha")
		(newpath)
		(disk)
	)
)
(complete 20)
(if ( = (exists instdir (noreq)) 1)   ;si c'est un fichier...
	;then delete file and make dir
	(
		(set tmp @user-level)
		(user 2)
		(delete instdir 
			(prompt ("\n\n ATTENTION :  \"%s\"  !!!     Un fichier portant le même nom existe déjà.\n\nL'éffacer et continuer ?" instdir))
			(help "\n\n  En sélectionnant \"Continuer\" le fichier existant sera éffacer.  "
				  "\n  Choisir  \"Interrompre l'installation\" afin annuler l'installation.  "
				  "\n\n  Choisissez une autre destination, ou créez un répertoire de votre choix. "
                                  "\n\n  N'oubliez pas que le chemin par défaut que j'ai pré-défini ici "
				  "\n  peut être changer, ainsi que le répertoire qui contiendra mes outils ! \n\n\n                                AmIgAlEmEnT    JmC")
			(confirm) 
			(optional "askuser")
			(infos)
		)
(complete 50)
		(user tmp)
		(makedir instdir
			(prompt ("\n\nLe répertoire Menu-Lzx&Lha n'existe pas !  Création du répertoire \"%s\"" instdir))
			(help @makedir-help)
			(infos)
			(confirm)
		)
	)
	;else
	(
		(if ( = (exists instdir (noreq)) 0)   ;s'il n'existe pas...
			;alors création du tiroir
			(makedir instdir
				(prompt ("\nLe répertoire Menu-Lzx&Lha n'existe pas ! \n  Création automatique du répertoire Menu-Lzx&Lha.\nSon emplacement : \"%s\"" instdir))
				(help @makedir-help)
				(infos)
				(confirm)
			)
			;autrement l'utiliser.
			;()
		)
	)
)
(complete 30)
;(
	(message "\nIl est encore temps d'interrompre l'installation, désirez-vous continuer ou interrompre l'installation ?")
;        (run ("c:lzx x archives/~(.lzx) \"%s/\"" instdir)
;		)
(complete 50)
  (copyfiles
              (prompt ("\n Installation des outils...")) 
              (help @askfile-help)
              (source "archives" (all))
              (dest (instdir))
              (infos)
              (confirm)
  )
(complete 80)
  (copyfiles
              (prompt ("\n Installation de quelques fontes...")) 
              (help @askfile-help)
              (source "fonts" (all))
              (dest "fonts:")
              (infos)
              (confirm)
  )
(complete 90)
(message "\nMENU-LZX&LHA a été conçu sous 'CANDO', cette partie du script va installer la librairie 'CanDo.library' vers LIBS:\nSi vous possédez 'Cando.library', sélectionnez l'option 'Passer cette partie' dans la fenêtre suivante.")
  (copyfiles
              (prompt ("\n Installation de CanDo.library")) 
              (help @askfile-help)
	      (source "libs/Cando.library")
	      (dest "libs:")
	      (confirm)
)
(complete 100)
(set @default-dest instdir)