;********************************************************;
;                                                        ;
;                 ScreamerNet 4.1 Installer              ;
;                                                        ;
;                      by Todd Hayes                     ;
;                    ©1995 NewTek, Inc.                  ;
;                                                        ;
;    $VER: ScreamerNet 4.1 CD Installer 4.1 (12-14-95)   ;
;                                                        ;
;********************************************************;

;****************** INITIALIZATION ***********************

(set disk_label "4.1_Disk")
(set num_disks 1)
(set flyer_drive_1 "Flyer_CD_4.1")
(set default_drive (if (exists "Work:" (noreq))
                       "Work:"
                       (cat (getdevice "c:") ":")))

;************************* Functions *********************
(procedure GET_DRIVE
   ((set toast_drive (askdir
                    (prompt (cat "Please Select the drive "
                                 "to install the ScreamerNet 4.1 "
                                 "software to. This location must be "
                                                                                        "accessible to all systems that will "
                                                                                        "be used for rendering." ))
                             (default default_drive)
                             (help toast_drive_help)
                             (disk)))
         (if (= ":" (substr toast_drive (- (strlen toast_drive) 1) 1))
                        (set newtek_dir (cat toast_drive "NewTek"))
                        (set newtek_dir (cat toast_drive "/NewTek"))
         )
    (set slash (if (= ":" (substr newtek_dir (- (strlen newtek_dir) 1) 1))
                          ""
                   "/"))
    (if (= "NewTek/NewTek" (substr newtek_dir (- (strlen newtek_dir) 13) 13))
        (set newtek_dir (if (askbool (prompt (cat "Are you sure that you "
                                              "want to install the VT 4.1 "
                                              "software to the " newtek_dir
                                              " directory?\n\nIf you choose "
                                              "'NO' then the VT 4.1 software "
                                              "will be installed into the "
                                              (substr newtek_dir 0
                                                 (- (strlen newtek_dir) 7)
                                              ) " directory instead."))
                                      (help newtek_newtek_help)
                                      (default 0))
                             newtek_dir
                             (substr newtek_dir 0 (- (strlen newtek_dir) 7))))
    )
        )
)

(procedure MAKEDIRS
        (
                (if (NOT (exists newtek_dir))
                        (makedir newtek_dir (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Programs")))
                        (makedir (cat newtek_dir slash "Programs") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Objects")))
                        (makedir (cat newtek_dir slash "Objects") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Scenes")))
                        (makedir (cat newtek_dir slash "Scenes") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Images")))
                        (makedir (cat newtek_dir slash "Images") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Surfaces")))
                        (makedir (cat newtek_dir slash "Surfaces") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Envelopes")))
                        (makedir (cat newtek_dir slash "Envelopes") (infos))
                )
                (if (NOT (exists (cat newtek_dir slash "Motions")))
                        (makedir (cat newtek_dir slash "Motions") (infos))
                )
        )
)

(procedure DO_COPY
        (
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "plug#?")
                )
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "lw_#?")
                )
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "hiip_#?")
                )
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "lwsn#?")
                )
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "screamer#?")
                )
                (copyfiles (source (cat flyer_drive_1 ":Programs"))
                                        (dest   (cat newtek_dir slash "Programs"))
                                        (optional "force")
                                        (pattern "comman#?")
                )
        )
)
;*********************** MAIN PROGRAM ********************

(welcome)
(GET_DRIVE)
(MAKEDIRS)
(DO_COPY)
(message "Installation is now complete.")