;  $VER: Install-Forge (4.06.93)
; 
;  Copyright © 1994 Apex Software Publishing


(complete 1)



(set instdir (askdir 
  (default @default-dest)
  (prompt "What directory would you like to install Forge into? If you have "
  "Imagine, you might want to install Forge into the same directory as the  "
  "Imagine executable, though this is not necessary. " )
  (help "The installer needs to know where to put the files. You can put Forge anywhere, "
        "but it can be convienient to have it in the Imagine directory if you use Imagine. ")))


(complete 8)



(if (NOT (= 2 (exists instdir (noreq)))) (makedir instdir (infos)) )

(if (exists (tackon instdir "Forge") (noreq))
	
 (if (askbool ((prompt "Hmm, it looks like there's a copy (or partial copy) "
            "of Forge already here. Do you want to reinstall "
            "over the file(s) here, or abort the install?")
           (help "Forge might already be installed; I found a file called Forge "
                 "in the directory already. Should I stop the installation?")
           (choices "Abort" "Overwrite")))
	(abort "Installation Aborted.")))

(complete 15)
(set @default-dest instdir)

(set forgefile "Forge040")
(if (askbool (prompt "There are two versions of the Forge program you can install "
                 "depending on what CPU you have. The '68020' version of Forge will "
                 "run on a 68020, 68030, or 68040 processor. The '68040' version  "
                 "will run ONLY on a 68040, but will be slightly faster. Which would "
                 "you like to install?")
         (help "If you don't know what to choose, pick 68020.")
	(choices "68020" "68040"))
     (set forgefile "Forge020"))





(complete 25)
(working "Copying Forge Program")
(complete 30)

(copyfiles (source (tackon "Forge_Install:" forgefile)) (dest instdir) (newname "Forge"))
(complete 60)

(working "Copying Forge Support Files")

(copyfiles (source "Forge_Install:Forgeinfo") (dest instdir) (newname "Forge.info"))

(complete 70)
(copyfiles (source "Forge_Install:Forge.db") (dest instdir))
(complete 80)

(working "Copying AREXX Files")
(copyfiles (all) (source "Forge_Install:AREXX") (dest (tackon instdir "AREXX")))
(complete 100)