;
; PowerGuide 1.23 - Install Script
;
; (c) 1996 by Matthias Scheler
;

(set ProductName "PowerGuide")
(set ProductVers "1.23")

(transcript #install ProductName " " ProductVers " ...")

(complete 0)

; Use "spatch"

(working "Applying patch...")
(run ("Delete T:PowerGuide ALL QUIET"))
(run ("MakeDir T:PowerGuide"))
(run ("spatch -oT:PowerGuide/PowerGuide -pPowerGuide120to123.pch AMINET14:Tools/PowerGuide"))
(run ("Copy PowerGuide.noinfo T:PowerGuide/PowerGuide.info CLONE QUIET"))
(run ("Copy Catalogs T:PowerGuide/Catalogs ALL CLONE QUIET"))
(complete 50)

; Copy files

(set @default-dest "Work:")
(copyfiles
 (prompt "Installing " ProductName "...")
 (source "T:PowerGuide/")
 (choices "PowerGuide" "PowerGuide.info" "Catalogs")
 (help @copyfiles-help)
 (confirm)
 (set @default-dest
  (askdir 
   (prompt ("Please select a directory for \"%s\"." ProductName))
   (help @askdir-help)
   (default @default-dest)
  )
 )
 (dest @default-dest)
)
(complete 75)

; Clean up

(working "Cleaning up...")
(run ("Delete T:PowerGuide ALL QUIET"))
(complete 100)

; All Done

(exit)