; $VER: StoneTracker Install 1.26 (18 dec 1995) by Lavaire Michael
;
; Installation script for StoneTracker demonstration version (net version)
; (c) Copyright 1995 Emmanuel Marty & Michael Lavaire
;

(if (= @language "français") (
(set #BadKick
	"Système V2.xx minimum."
)
(set #StoneDir-Msg (cat
	"Sélectionnez le répertoire de destination de StoneTracker. "
	"Aucun autre répertoire ne sera ajouté."
))
(set #StoneLocale-Msg (cat
	"Sélectionnez le répertoire de destination de la localisation "
	"en français de StoneTracker"
))
(set #StonePref-Msg (cat
	"Sélectionnez le répertoire de destination du fichier de "
	"configuration de StoneTracker."
))
(set #StoneLib-Msg (cat
	"Sélectionnez le répertoire de destination de la library "
	"StonePlayer."
))
(set #StoneDocs-Msg (cat
	"Sélectionnez le répertoire de destination de la documentation "
	"de StoneTracker."
))
(set #StoneExam-Msg (cat
	"Sélectionnez le répertoire de destination des modules d'exemple "
	"de StoneTracker. Aucun autre répertoire ne sera ajouté."
))
(set #CopyingStone
	"Copie de StoneTracker en cours ..."
)
(set #CopyingLocale
	"Copie de la localisation en cours ..."
)
(set #CopyingLib
	"Copie de la library StonePlayer en cours ..."
)
(set #CopyingDoc
	"Copie de la documentation de StoneTracker en cours ..."
)
(set #CopyingPref
	"Copie de la configuration de StoneTracker en cours ..."
))

(
(set #BadKick
	"Kickstart 2.04 required."
)
(set #StoneDir-Msg (cat
	"Select StoneTracker destination directory. "
	"No directory will be created."
))
(set #StonePref-Msg (cat
	"Select StoneTracker configuration file "
	"destination directory."
))
(set #StoneLocale-Msg (cat
	"Select StoneTracker french locale file "
	"destination directory."
))
(set #StoneLib-Msg
	"Select StonePlayer library destination directory."
)
(set #StoneDocs-Msg
	"Select StoneTracker documentation destination directory."
)
(set #StoneExam-Msg (cat
	"Select StoneTracker example modules destination directory. "
	"No directory will be created."
))

(set #CopyingStone
	"Copying StoneTracker ..."
)
(set #CopyingLocale
	"Copying locale files ..."
)
(set #CopyingLib
	"Copying StonePlayer library ..."
)
(set #CopyingDoc
	"Copying StoneTracker documentation ..."
)
(set #CopyingPref
	"Copying StoneTracker configuration ..."
)

(set #WorkingInstall
	"Installation in progress ..."
)

))

(if (< (/ (getversion) 65536) 37) (abort #BadKick))

(set DestStone (askdir
	(prompt #StoneDir-Msg)
	(help @askdir-help)
	(default "WORK:")
))
(set @default-dest DestStone)

(set DestPref (askdir
	(prompt #StonePref-Msg)
	(help @askdir-help)
	(default "ENVARC:")
))
(set DestLocale (askdir
	(prompt #StoneLocale-Msg)
	(help @askdir-help)
	(default "LOCALE:Catalogs/français")
))
(set DestLib (askdir
	(prompt #StoneLib-Msg)
	(help @askdir-help)
	(default "LIBS:")
))
(set DestDocs (askdir
	(prompt #StoneDocs-Msg)
	(help @askdir-help)
	(default DestStone)
))
(set DestExam (askdir
	(prompt #StoneExam-Msg)
	(help @askdir-help)
	(default DestStone)
))

(working #CopyingStone)
(copyfiles (source "StoneTracker") (dest DestStone) (infos))

(working #CopyingPref)
(copyfiles (source "Prefs/Env-Archive/StoneTracker.Prefs") (dest "T:"))
(textfile	(dest "ENV:StoneTracker.Prefs")
		(include "T:StoneTracker.Prefs")
		(append "AppIcon		\"")
		(append (tackon DestStone "StoneTracker.Info"))
		(append "\"\nModulePath	\"")
		(append DestExam)
		(append "\"\n")
		(append "Multiview	\"RUN <>NIL: SYS:Utilities/MultiView <>CON:////MultiView/AUTO/WAIT/CLOSE ")
		(append (tackon DestDocs "%s"))
		(append "\"\n")
		)
(copyfiles (source "ENV:StoneTracker.Prefs") (dest DestPref))
(delete ("T:StoneTracker.Prefs"))

(working #CopyingLocale)
(copyfiles (source "Locale/catalogs/Français/StoneTrackerDemo.Catalog") (dest DestLocale))

(working #CopyingLib)
(copyfiles (source "Libs/StonePlayer.Library") (dest DestLib))
(copyfiles (source "Libs/StonePacker.Library") (dest DestLib))
(copylib (source "Libs/ReqTools.Library") (dest DestLib))

(copyfiles (source "Docs/StoneTrackerDemo.Guide") (dest DestDocs))
(copyfiles (source "Docs/StoneTrackerDemo_E.Guide") (dest DestDocs))

(working #CopyingExam)
(copyfiles (source "Modules") (dest DestExam) (files) (all))

(complete 100)