; $VER: Install 2.0 (5.10.93)
; Script to install Release 1.3 PresTerm

(complete 0)

;=============================================================================
; English strings

(if (= @language "english")
(
(set default_lang 1)

(set #bad-kick
(cat "You need at least Kickstart 2.0 to install PresTerm"
))

(set #which-dir
(cat "In which directory should the program be installed?"
))

(set #which-language
(cat "Which languages should be installed?"
))

(set #delold-font
(cat "The old font used by PresTerm before Release 1.3 has been found in "
     "your FONTS: directory.  This is now obsolete and replaced by new "
     "ones.  Do you wish it to be deleted?"
))

(set #check-point
(cat "This is your last chance to abort the installation.  After this point "
     "all files will be copied.\n\nDo you still want to continue?"
))

(set #copy-lib
(cat "Confirm library copy."
))

))

;=============================================================================
; French strings

(if (= @language "français")
(
(set default_lang 2)

(set #bad-kick
(cat "Vous devez avoir le Kickstart 2.0 au moins pour installer PresTerm"
))

(set #which-dir
(cat "Dans quel répertoire faut-il installer le programme?"
))

(set #which-language
(cat "Quels langues doivent être installées?"
))

(set #delold-font
(cat "L'ancienne fonte utilisée par PresTerm avant la Release 1.3 se trouve "
     "dans votre répertoire FONTS:.  Celle-ci est maintenant désuète et est "
     "remplacée par des nouvelles.  Faut-il l'effacer?"
))

(set #check-point
(cat "Ceci est votre dernière chance d'abandonner l'installation.  Après "
     "quoi tous les fichiers seront copiés.\n\nVoulez-vous toujours "
     "continuer?"
))

(set #copy-lib
(cat "Confirm library copy."
))

))

;=============================================================================
; Dutch strings

(if (= @language "nederlands")
(
(set default_lang 4)

(set #bad-kick
(cat "U moet ten minste Kickstart 2.0 hebben om PresTerm te installeren"
))

(set #which-dir
(cat "In welke directory moet de program geïnstalleerd worden?"
))

(set #which-language
(cat "Welke talen moeten geïnstalleerd worden?"
))

(set #delold-font
(cat "De oude font gebruikt door PresTerm vóór Release 1.3 is gevonden in "
     "uw FONTS: directory.  Deze is niet meer gebruikt en wordt vervangen "
     "door nieuwen.  Wilt U dat het geschrapt wordt?"
))

(set #check-point
(cat "Dit is U laatste mogelijkheid om het installatie af te breken.  Hierna "
     "worden alle bestanden gecopieerd.\n\nWilt U nog doorgaan?"
))

(set #copy-lib
(cat "Confirm library copy."
))

))

;=============================================================================
; Make sure we are running under V36+

(set ver_kick (/ (getversion) 65536))
(if (< ver_kick 36)
    (abort #bad-kick)
)

;=============================================================================
; Say hi!

(user 0)
(welcome)
(set old_level @user-level)

;=============================================================================
; Get target directory where program is to be installed

(user 2)
(set target (askdir (prompt #which-dir)
		    (help @askdir-help)
		    (default "Work:")
		    (disk)
	    )
)
(user old_level)

(set @default-dest target)

(complete 2)

;=============================================================================
; Which languages should be installed?

(set ver_loc (/ (getversion "locale.library" (resident)) 65536))
(if (>= ver_loc 38)
    (set lang (askoptions (prompt #which-language)
			  (help @askoptions-help)
			  (choices "English" "Français" "Nederlands")
			  (default default_lang)
	      )
    )
)

(complete 4)

;=============================================================================
; Delete files that are no longer needed

(if (= old_level 1)
    (user 0)
)
(if (exists "FONTS:Prestel.font")
    (if (askbool (prompt #delold-font)
		 (help @askbool-help)
		 (default 1)
	)
	(
		(delete "FONTS:Prestel.font")
		(delete "FONTS:Prestel/18e")
		(delete "FONTS:Prestel/9e")
		(delete "FONTS:Prestel")
	)
    )
)
(user old_level)
    
(complete 10)

;=============================================================================
; Last check point

(message #check-point)

;=============================================================================
; Copy fonts

(copyfiles (source "/Fonts")
	   (dest "FONTS:")
	   (all)
)

(complete 30)

;=============================================================================
; Copy catalog files

(if (>= ver_loc 38)
    ((set n 1)
     (while (set language (select n "english"
				    "français"
				    "nederlands"
				    ""
			  )
	    )
	    ((if (IN lang n)
		 (copyfiles (source (cat "/Catalogs/" language))
			    (dest (cat "LOCALE:Catalogs/" language))
			    (pattern "PresTerm.catalog")
		 )
	     )
	     (set n (+ n 1))
	    )
     )
    )
)

(complete 50)

;=============================================================================
; Copy help files

(if (< ver_loc 38)
    (copyfiles (source "/Help/english")
	       (dest target)
	       (pattern "PresTerm.guide")
    )
    ((makedir "LOCALE:Help")
     (set n 0)
     (while (set language (select n "english"
				    "français"
				    "nederlands"
				    ""
			  )
	    )
	    ((if (IN lang n)
		 (copyfiles (source (cat "/Help/" language))
			    (dest (cat "LOCALE:Help/" language))
			    (pattern "PresTerm.guide")
		 )
	     )
	     (set n (+ n 1))
	    )
     )
    )
)

(complete 70)

;=============================================================================
; Copy main program

(copyfiles (source "/")
	   (dest target)
	   (pattern "PresTerm#?")
)

(complete 90)

;=============================================================================
; Copy AmigaGuide files if newer

(copylib (prompt "amigaguide.library")
	 (help @copylib-help)
	 (source "/Libs/amigaguide.library")
	 (dest "LIBS:")
	 (confirm)
)

(complete 92)

(copylib (prompt "WDisplay")
	 (help @copylib-help)
	 (source "/Utilities/WDisplay")
	 (dest "SYS:Utilities")
	 (infos)
	 (confirm)
)

(complete 94)

(copylib (prompt "AmigaGuide")
	 (help @copylib-help)
	 (source "/Utilities/AmigaGuide")
	 (dest "SYS:Utilities")
	 (infos)
	 (confirm)
)

(complete 96)

(copylib (prompt "help.guide")
	 (help @copylib-help)
	 (source "/S/help.guide")
	 (dest "S:")
	 (confirm)
)

(complete 100)

;=============================================================================
; The End