; Installer Script for Trek-The Guide v1.5
; 07/31/95  James L. Hines

; set up an error cleanup routine
(onerror
    (makeassign "STsrc" (safe))
    (makeassign "STdest" (safe))
)

;started
(complete 0)

;cancel the assign in case of installation restart
(makeassign "STsrc" (safe))
(makeassign "STdest" (safe))

; get the dest dir for Trek-The Guide (create it if it does not exist)
(set st_dest
    (tackon
        (askdir
            (prompt "Where should Trek-The Guide be installed? A drawer named `TrekGuide' will be created there.")
            (help @askdir-help)
            (default @default-dest)
        )
        "TrekGuide"
    )
)
(makeassign "STdest"
    (pathonly st_dest)
    (safe)
)
(if (exists "STdest:TrekGuide")
    (+ 1 1)
    (makedir
        "STdest:TrekGuide"
        (infos)
        (safe)
    )
)

;We now have a valid destination, so tell Installer where ST will end up
;so the exit page will be correct.
(set @default-dest st_dest)


;Copy the LHEX program to ram:
(copyfiles
    (source "STGDemo:c/lhex")
    (dest "ram:")
)
(copyfiles
    (source "STGDemo:Trek-Readme")
    (dest "STdest:TrekGuide")
    (infos)
)


;copy program files from source to dest
        (copyfiles
            (source "STGDemo:Trek-The.Guide")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 20)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekGuide.index")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 23)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Cartoons")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 26)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Collectables")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 28)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-DS9")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 30)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-MSC")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 32)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Novels")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 34)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Orig")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 36)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-STMP")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 38)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-TNG")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 40)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Voyager")
            (dest "STdest:TrekGuide")
            (infos)
        )


;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Trivia")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 41)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:Trekguide.rexx")
            (dest "STdest:TrekGuide")
            (infos)
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:Trekguide.info")
            (dest "STdest:TrekGuide")
            (infos)
        )

(complete 42)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:Trek.Doc")
            (dest "STdest:TrekGuide")
            (infos)
        )


(complete 44)

;copy rexx files from source to dest
        (if (exists "STdest:TrekGuide/TRx")
            (+ 1 1)
            (makedir
                "STdest:TrekGuide/TRx"
                (safe)
            )
)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:trx/about")
            (dest "STdest:TrekGuide/TRx")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:trx/MV.rexx")
            (dest "STdest:TrekGuide/TRx")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:trx/Pics.rexx")
            (dest "STdest:TrekGuide/TRx")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:trx/VCR.rexx")
            (dest "STdest:TrekGuide/TRx")
        )

;copy program files from source to dest
;        (copyfiles
;            (source "STGDemo:trx/Pics.rexx-640x480")
;            (dest "STdest:TrekGuide/TRx")
;        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:prefs/env-archive/trekguide.prefs")
            (dest "envarc:")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Screen.rexx")
            (dest "STdest:TrekGuide")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TG-Screen.info")
            (dest "STdest:TrekGuide")
        )


(complete 46)

;copy library files from source to dest with version checking
        (copylib
            (source "STGDemo:Libs/arp.library")
            (dest "libs:")
        )

;copy library files from source to dest with version checking
        (copylib
            (source "STGDemo:Libs/rexxarplib.library")
            (dest "libs:")
        )

;copy library files from source to dest with version checking
        (copylib
            (source "STGDemo:Libs/iff.library")
            (dest "libs:")
        )


;copy pic files from source to dest
        (if (exists "STdest:TrekGuide/TrekPics")
            (+ 1 1)
            (makedir
                "STdest:TrekGuide/TrekPics"
                (infos)
                (safe)
            )
)

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP001")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP001-2")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP002")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP004")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP005")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/EP007")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/OpenPic")
            (dest "STdest:TrekGuide/TrekPics")
        )

;copy program files from source to dest
        (copyfiles
            (source "STGDemo:TrekPics/UFP")
            (dest "STdest:TrekGuide/TrekPics")
        )


;add the assign for TrekGuide: to user-startup
(set stassign ("Assign TrekGuide: \"%s\"\n" st_dest))
(startup
        "TrekGuide"
        (prompt "Trek-The Guide requires that an AmigaDOS assign be created. It WILL NOT work properly without it! The following will be added to your s:user-startup file:\n\n"
            stassign
            "\nIs it okay to add this now?"
            "\n\nIMPORTANT: REBOOT YOUR COMPUTER BEFORE RUNNING TREK-THE GUIDE FOR THE FIRST TIME.")
        (help @startup-help)
        (command stassign)
)

(complete 95)

;un-snapshot the Star Trek drawer icon
(tooltype
    (dest st_dest)
    (noposition)
)

;remove the LHX program
(delete "ram:lhex")

;finished with install
(complete 100)

;cleanup
(makeassign "STsrc" (safe))
(makeassign "STdest" (safe))

;display the readme file
(run "run STGDemo:c/more STGDemo:Trek.doc" (safe))

;leave
(exit)