; * $VER: Install Picture Converter 2.4
; * Script written by Eckhard Ludwig
;=============================================================================

(complete 0)

(set Opt 2)
(set #welcome
  (cat
	"\n\n\nWelcome to the Picture Converter installation utility.\n\n"
	"This program lets you install PictureConverter 2.4a on your Amiga.\n\n\n"
	"PictureConverter © 1997 Eckhard Ludwig."
  ))

(set #choose-text
  (cat "Please choose a directory where PictureConvert should be installed. A drawer will be created there."
  ))

(set #choose-help
  (cat "In this location a drawer will be created. All files will be installed inside this drawer. The complete installation will require about 1.7MB of free harddisk space."
  ))

(set #inst-main
  (cat "Installing PictureConvert ..."
  ))

(set #inst-Libs
  (cat "Installiere "
  ))

(set #inst-Lokale
  (cat "Installing Lokale.exe ..."
  ))

(set #create-maindir
  (cat "Creating PicConvert directory"
  ))

(set #create-bindir
  (cat "Creating Bin dir"
  ))

(set #create-docsdir
  (cat "Creating Docs dir"
  ))

(set #inst-bin
  (cat "Installing Net PBM ..."
  ))

(set #inst-docs
  (cat "Installing program documentation ..."
  ))

(set #inst-fonts
  (cat "Installing XEN Fonts ..."
  ))

(set #Install-Prompt 
  (cat "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !"
  ))

(set #Locale-Copy   "Copy cataloges ...")


 (SET #exit-Msg 
  (CAT "\n\nMuch fun with Programmes\n wish you\n\n"
                   "Eckhard Ludwig" 
  ))

; deutsche Texte *****************************

(IF (= @language "deutsch")
(
(set Opt 1)
(set #welcome
  (cat
	"\n\n\nWillkommen zu dem Picture Converter Installations Utility.\n\n"
	"Dieses Programm installiert Picture Converter 2.4a auf Ihrem Amiga.\n\n\n"
	"PictureConverter ist ©1997 by Eckhard Ludwig."
  ))

(set #choose-text
  (cat "Bitte wählen Sie das Verzeichniss wohin PictureConvert installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  ))

(set #choose-help
  (cat "Bei der Installation werden alle Dateien in dieses Verzeichniss installiert. Die vollständige Installation von PictureConvert belegt auf der Festplatte etwa 1,7MB."
  ))

(set #create-maindir
  (cat "Erstelle PicConvert-Verzeichniss"
  ))

(set #inst-main
  (cat "Installiere Hauptprogramm ..."
  ))

(set #inst-Libs
  (cat "Installiere "
  ))

(set #inst-Lokale
  (cat "Installiere Lokale.exe ..."
  ))

(set #create-bindir
  (cat "Erstelle BIN-Verzeichniss"
  ))

(set #create-docsdir
  (cat "Erstelle Docs-Verzeichniss"
  ))

(set #inst-bin
  (cat "Installiere NetPBM ..."
  ))

(set #inst-docs
  (cat "Installiere Programm Dokumentation ..."
  ))

(set #inst-fonts
  (cat "Installiere XEN Fonts ..."
  ))

(set #Install-prompt 
  (cat "Bitte wählen Sie für das Programm die bevorzugte(n) Sprachversion(en).\nMit n/a gekennzeichnete Sprachen sind momentan nicht verfügbar."
  ))

(set #Locale-Copy   "Kopiere Cataloge ...")


(SET #exit-Msg
  (CAT "\n\nViel Spaß mit den Programmen\n wünscht\n\n"
                   "Eckhard Ludwig"
  ))
))
;*********************************************
; Greetings & Path ...

(message #welcome)

(welcome)

(set @default-dest (getassign "Work" "dva"))
  (if (= @default-dest "")
   (set @default-dest "SYS:"))
  
(set @default-dest (askdir
    (prompt #choose-text)
    (help #choose-help)
    (default @default-dest))
  ) 
  
(set @default-dest (tackon @default-dest "PicConvert"))

(makedir @default-dest (prompt #create-maindir)(infos))
  
;*********************************************
; Installation procedure
; 

(copyfiles
	(prompt	#inst-main)
	(help	@copyfiles-help)
	(source "PictureConvert")
	(dest	@default-dest)
        (confirm "EXPERT")
        (optional "force" "askuser")
	(infos)
)

(complete 5)

(makedir (tackon @default-dest "bin")
 (prompt #create-bindir)
)

(copyfiles
	(prompt	#inst-bin)
	(help	@copyfiles-help)
	(source "bin")
	(dest	(tackon @default-dest "bin"))
   	(pattern "#?")
   	(optional "force" "askuser")
   	(confirm "EXPERT")
   	(files)
)

(complete 45)

(copylib
	(prompt	(cat #inst-Libs "iff.library"))
	(help	@copylib-help)
	(source "iff.library")
	(dest	"SYS:Libs")
   	(optional "force" "askuser")
   	(confirm "EXPERT")
)

(complete 50)

(makedir (tackon @default-dest "Docs")
 (prompt #create-docsdir)
 (infos)
)

(copyfiles
	(prompt	#inst-docs)
	(help	@copyfiles-help)
	(source "Docs")
	(dest	(tackon @default-dest "Docs"))
   	(pattern "#?")
   	(optional "force" "askuser")
   	(confirm "EXPERT")
   	(files)
	(infos)
)

(complete 70)

(copyfiles
	(prompt	#inst-fonts)
	(help	@copyfiles-help)
	(source "Fonts")
	(dest	"SYS:Fonts")
   	(pattern "#?")
   	(optional "force" "askuser")
   	(confirm "EXPERT")
   	(files)
)
(copyfiles
	(prompt	#inst-fonts)
	(help	@copyfiles-help)
	(source "Fonts/XEN")
	(dest	"SYS:Fonts/XEN")
   	(pattern "#?")
   	(optional "force" "askuser")
   	(confirm "EXPERT")
   	(files)
)
(complete 80)

;*********************************************
; copy the locales

(IF (= @language "All")
    (set Opt 511))

(set installchoice
   (askoptions
   (prompt #Install-Prompt)
   (help @askoptions-help)
   (choices "Deutsch" "English" "dansk n/a" "français n/a" "italiano" "nederlands" "norsk n/a" "suomi n/a" "svenska n/a")
   (default Opt)
))

(IF (BITAND installchoice 2)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/english")
   (dest "SYS:Locale/Catalogs/english")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 4)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/dansk")
   (dest "SYS:Locale/Catalogs/dansk")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 8)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/français")
   (dest "SYS:Locale/Catalogs/français")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 16)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/italiano")
   (dest "SYS:Locale/Catalogs/italiano")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 32)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/nederlands")
   (dest "SYS:Locale/Catalogs/nederlands")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 64)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/norsk")
   (dest "SYS:Locale/Catalogs/norsk")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 128)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/suomi")
   (dest "SYS:Locale/Catalogs/suomi")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(IF (BITAND installchoice 256)
  (copyfiles
   (prompt #Locale-Copy)
   (help @copyfiles-help)
   (source "Locale/Catalogs/svenska")
   (dest "SYS:Locale/Catalogs/svenska")
   (pattern "#?.catalog")
   (confirm "EXPERT")
   (optional "force" "askuser" "nofail")
  ))

(complete 80)

(IF (> installchoice 1)
    (copyfiles
	(prompt	#inst-lokale)
	(help	@copyfiles-help)
	(source "Lokale.exe")
	(dest	@default-dest)
        (confirm "EXPERT")
        (optional "force" "askuser")
))

(complete 90)

;*********************************************
; Set Loadpath SYS: (Tooltype), falls Work: not exists 

(set #Loadpath (getassign "Work" "dva"))
  (if (= #Loadpath "")
    (tooltype
	(prompt "Set Tooltype")
	(help @askchoice-help)
	(dest (tackon @default-dest "PictureConvert"))
        (confirm "EXPERT")
        (optional "force" "askuser")
	(settooltype "LOADDIR" "SYS:")
  ))

(complete 100)


(EXIT #exit-Msg )