home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
utilities
/
educational
/
france.guide_v1.3
/
install
/
install_france_guide
< prev
Wrap
Text File
|
1995-02-26
|
12KB
|
275 lines
; $VER: Install_France_Guide 2.0 (25.02.95) écrit par Gérard Cornu pour Saint Jérôme le Gueux ;-)
;
;-- Language specific string definitions --------------------------------------
; ENGLISH -----------------------------
(procedure english (
(set README_FILE "ReadMe")
(set MSG_BAD_KICK "%s needs at least System 2.0\n(3.x preferable !)")
(set MSG_NOT_3.0 (cat "\n\nI just found out that you are not using system 3.x."
" %s can be used on your system, with AmigaGuide©, but you won't be able to"
" display the maps directly from %s.\n\n"
"Click on \"Help...\" to get some infos about a work around."))
(set MSG_HELP_NOT_3.0 (cat "You just have to replace, in the France.Guide file the\n\n"
" LINK Cartes/....iff/MAIN}\n\n"
"parts, by\n\n"
" SYSTEM \"PPShow Cartes:....iff\"}\n\n"
"Then you'll have to assign Cartes: to the directory where you"
" installed France Guide with Cartes appended to it, ie:\n\n"
"assign Cartes: My_HD:My_directory/France/Cartes\n\n"
"Of course, you may replace PPShow by your prefered"
" picture viewer. Please note that the quotes below are important.\n\n"
"Two find and replace in your text editor will accomplish this:\n\n"
"Find:\n\n"
"LINK Cartes/\n\n"
"Replace by:\n\n"
"SYSTEM \"PPShow Cartes:\n\n"
"Then find:\n\n"
".iff/MAIN}\n\n"
" and replace by:\n\n"
".iff\"}\n\n"
"Yet again, the quotes are note here for decorative purpose ;-)\n\n"
"The directory containing the picture viewer, PPShow in our"
" example, must be in your command path."))
(set MSG_DESTINATION (cat "Where would you like to install %s?\n"
"A drawer named \"France\" will be created there and"
" all files needed by %s will be copied into this \"France\" drawer."))
(set MSG_FONT (cat "\n\n\n%s is supplied with an Helvetica font in 9 points size,"
" optimized by myself. Would you like to copy it to your"
" \"Fonts:\" directory?"))
(set MSG_HELP_FONT (cat "For optimum comfort, your screen should be set at least"
" to 640 x 512, 4 colo(u)rs.\n\n"
"The supplied font (Helvetica 9) is perfect for a 17\""
" or bigger screen."))
(set MSG_COPY_FONT "Copy font")
(set MSG_FIXFONTS "\"Sys:System/FixFonts\" is currently updating your \"Fonts:\" directory.")
(set MSG_PATH (cat "\n\nFor %s to work properly, the path where you just installed %s"
" must be included in the \"AmigaGuide/Path\" system environment"
" variable.\n\n"
" Would you like me to modify (or create, if necessary) this"
" environment variable?"))
(set MSG_HELP_PATH (cat "If you choose to \"skip this part\", you'll have to do it"
" manually. For more infos about this environment variable, click"
" on the \"Help\" gadget while you are using AmigaGuide (or MultiView)."))
(set MSG_APPENDING_PATH (cat "Updating your \"ENV:AmigaGuide/Path\" environment variable"
" and copying it to \"ENVARC:AmigaGuide/Path\"."))
(set MSG_SKIP "Skip this part")
(set MSG_YES "Yes")
(set MSG_THANKS "\n\n\nThank you for having installed %s!")
))
; Français --------------------------------------------------------
(procedure français (
(set README_FILE "Lise_&_Moi")
(set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)")
(set MSG_NOT_3.0 (cat "\n\nIl semblerait que votre machine n'utilise pas le"
" système 3.x. %s peut fonctionner sur"
" votre système, avec AmigaGuide©, mais vous ne pourrez pas afficher les"
" cartes directement depuis %s.\n\n"
" Cliquez sur \"Aide...\" pour les modifications"
" à apporter de façon à voir les cartes comme sous"
" le système 3.x, (ou presque ;-)"))
(set MSG_HELP_NOT_3.0 (cat "Il suffit simplement de remplacer, dans le fichier"
" France.guide, les\n\n"
" LINK Cartes/....iff/MAIN}\n\n"
"par des\n\n"
" SYSTEM \"PPShow Cartes:....iff\"}\n\n"
"Ensuite il vous faudra assigner Cartes: au répertoire où"
" vous aurez installé France Guide, terminé par Cartes, par exemple:\n\n"
"assign Cartes: Disque:Répertoire/France/Cartes\n\n"
"Vous pouvez évidemment remplacer PPShow par votre"
" afficheur d'images préféré. Notez que les guillemets ci-dessous"
" ont leur importance.\n\n"
"Deux chercher/remplacer dans votre éditeur de texte y parviendront:\n\n"
"Chercher:\n\n"
"LINK Cartes/\n\n"
"Remplacer par:\n\n"
"SYSTEM \"PPShow Cartes:\n\n"
"Puis, chercher:\n\n"
".iff/MAIN}\n\n"
"et remplacer par:\n\n"
".iff\"}\n\n"
"Encore une fois les guillemets ne sont pas là uniquement pour"
" décorer ;-).\n\n"
"Le répertoire qui contient l'afficheur d'images,\n"
"PPShow dans notre exemple, doit bien sûr être\n"
"dans votre chemin de commandes (\"Path\")."))
(set MSG_DESTINATION (cat "Où désirez-vous installer l'ensemble %s?\n"
"Un répertoire \"France\" y sera créé, et l'ensemble"
" des fichiers nécessaires à %s sera copié dans ce répertoire"
" \"France\"."))
(set MSG_FONT (cat "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
" optimisée par mes soins. Voulez-vous la copier dans"
" votre répertoire \"Fonts:\"?"))
(set MSG_HELP_FONT (cat "Pour un confort optimal, votre écran doit être au"
" minimum en 640 x 512, 4 couleurs.\n\n"
"La police de caractère fournie (Helvetica 9) est parfaite"
" pour un écran 17 pouces ou supérieur."))
(set MSG_COPY_FONT "Copier la font")
(set MSG_FIXFONTS "\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")
(set MSG_PATH (cat "\n\nAfin que %s fonctionne correctement"
" il est nécessaire que le chemin où vous venez d'installer %s soit"
" inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
"Voulez-vous que je modifie (ou crée, si nécessaire)"
" cette variable d'environnement?"))
(set MSG_HELP_PATH (cat "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
" faire manuellement. Pour plus d'infos sur cette variable"
" d'environnement, cliquez sur le bouton \"Aide\""
" lorsque vous êtes dans AmigaGuide (ou Multiview)."))
(set MSG_APPENDING_PATH (cat "Mise à jour de votre variable d'environnement"
" \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))
(set MSG_SKIP "Passer cette partie")
(set MSG_YES "Oui")
(set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")
))
;------------------------------------------------------------------------------
; what are we speaking around here, not much ;^)
(if (= @language "english") (english))
(if (= @language "français") (français))
; Choose default tool for guide, depending on user's OS version
(set osversion (/ (getversion) 65536))
(if (>= osversion 39)
(set guide_reader "MultiView")
(set guide_reader "AmigaGuide")
)
(set installed "")
(welcome)
(if (< osversion 37)
(abort (MSG_BAD_KICK @app-name))
)
(if (< osversion 39)
(message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
)
(set dest_dir
(askdir (prompt (MSG_DESTINATION @app-name @app-name))
(help @askdir-help)
(default "Help:")
(newpath)
)
)
(set @default-dest (tackon dest_dir "France"))
(copyfiles (source "/France")
(dest @default-dest)
(infos)
(all)
)
(copyfiles (source (cat "/" README_FILE))
(dest @default-dest)
(infos)
(files)
)
(set installed "YES")
(set font
(askbool (prompt (MSG_FONT @app-name))
(help MSG_HELP_FONT)
(choices MSG_COPY_FONT MSG_SKIP)
)
)
(if (= font 1)
(
(copyfiles (source "/fonts")
(dest "Fonts:")
(all)
)
(if (exists "Sys:System/FixFonts" (noreq))
(
(working MSG_FIXFONTS)
(run "Sys:System/FixFonts")
)
)
)
)
(set dopath
(askbool (prompt (MSG_PATH @app-name @app-name))
(help MSG_HELP_PATH)
(choices MSG_YES MSG_SKIP)
)
)
(if (= 1 dopath)
(
(working MSG_APPENDING_PATH)
(if (exists "ENV:AmigaGuide/Path" (noreq))
(textfile (dest "ENV:AmigaGuide/Path")
(append (getenv "AmigaGuide/Path"))
(append (cat "\n" @default-dest))
)
(textfile (dest "ENV:AmigaGuide/Path")
(append @default-dest)
)
)
(copyfiles (source "ENV:AmigaGuide/Path")
(dest "ENVARC:AmigaGuide")
(files)
(nogauge)
)
)
)
(if (exists (tackon @default-dest "France.guide.info") (noreq))
(
(tooltype (dest (tackon @default-dest "France.guide"))
(noposition) (setdefaulttool guide_reader))
(set installed "YES")
)
)
(if (exists (tackon @default-dest (cat README_FILE ".info")) (noreq))
(
(tooltype (dest (tackon @default-dest README_FILE))
(noposition) (setdefaulttool guide_reader))
(set installed "YES")
)
)
(if (= installed "YES")
(exit (MSG_THANKS @app-name))
(exit)
)