; Installation script for TurboPrint Professional 4.x Update-Disk
; (C) 1995 IrseeSoft
;
;
; $VER: TurboPrint Professional 4.10 (05.11.95)
;
;
;   "Install TurboPrint"         operationMode = 0
;   "Update TurboPrint"          operationMode = 1
;   "Remove TurboPrint"          operationMode = 2
;   "Query TurboPrint Version"   operationMode = 3
;
; TODO
;
; String constants section. All messages and strings appear in this section
; for easier translation into foreign languages.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; LANGUAGE SECTION
;
; to support more than only one language, there is a special section for
; each supported language.
;

(if (<> @language "english")
((if (<> @language "deutsch")
 ( set @language "english")
 )
))
   (set #tp-version "TurboPrint Professional 4.10 (05.11.95)" )

   (set #introduction
      (cat "\nInstallation des Updates auf\n"
	     "TurboPrint Professional 4.10\n"
             "    Copyright © 1988-1995 IrseeSoft SPCS\n\n"
      )
   )

   (set #need-os2
      (cat "\nTurboPrint Professional 4 benötigt Kickstart 2.04 oder höher\n"
           "Um TurboPrint Professional 4 zu verwenden, müssen Sie Ihren "
           "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
           "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
	   "sind im Fachhandel oder Versandhandel erhältlich.\n"
	   "Als Übergangslösung empfehlen wir die Verwendung von "
           "TurboPrint 3.0.\n"
      )
   )

   (set #installation-done
      (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
	"Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
	"Sie Ihren Amiga neu."
	)
   )

; General initialisation of internal states, options and pre-defined
; variables go here.

(delopts askuser)

; Check whether this system is operating with at least Workbench 2.04 (V37).
; This is needed for the WBStartup feature and the Printmanager

(set kickVersion (shiftright (getversion) 16))

(set wbVersion (shiftright (getversion "LIBS:version.library") 16))

; set source directory

(set sourcedir (pathonly @icon))

;
(if (< kickVersion 37)
  (
   (message #need-os2)
   (exit (quiet))
  )
)
;
(welcome)

; remember current user level

(set old-level @user-level)

; Introduce ourself to the user.

(set operationMode 1)

(message #introduction)


   (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
			  "in welches das Update installiert werden soll?")
   )

; ask for the destination directory

(if (not (exists "Work:"))
   (user 1)
)

(set target
   (askdir (prompt #path-prompt)
   (help #generic-help @askdir-help)
   (default "Work:") )
)

(user old-level)

;Copy printer stuff
   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Printers"))
   	      (dest   (tackon target "TurboPrint/Printers"))
              (all)
   )

   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "DruckManager"))
   	      (dest   (tackon target "TurboPrint") )
	      (infos)
   )
   (copylib
         (source (tackon sourcedir "libs/multipic.library"))
         (dest   "LIBS:")
   )

   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "LiesMich"))
   	      (dest   (tackon target "TurboPrint") )
	      (infos)
   )

   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Turbo"))
   	      (dest   (tackon target "TurboPrint/Turbo"))
              (all)
   )
   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Extra"))
   	      (dest   (tackon target "TurboPrint/Extra"))
	      (infos)
              (all)
   )
   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Configs/_Default_"))
   	      (dest   (tackon target "TurboPrint/Configs"))
   )
   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Colors"))
   	      (dest   (tackon target "TurboPrint/Colors"))
              (all)
   )
   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon sourcedir "Drivers"))
   	      (dest   (tackon target "TurboPrint/Drivers"))
              (all)
   )

;Update Personalization

   (run (cat (tackon sourcedir "c/Update") " >nil: \"" 
	     (tackon target "TurboPrint/Turboprefs") "\" \"" 
	     (tackon target "TurboPrint/turbo/tpr") "\"")
   )

   (copyfiles
	      (help   #generic-help @copyfiles-help)
	      (source (tackon target "TurboPrint/turbo/tpr"))
   	      (dest   (tackon target "TurboPrint"))
   	      (newname "Turboprefs")
   )

(user 1)
(message #installation-done)
(exit (quiet))