home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / flyer / flyerv4.1a.dms / flyerv4.1a.adf / Install_SNET_4.1 < prev    next >
Text File  |  1995-12-24  |  6KB  |  127 lines
  1. ;********************************************************;
  2. ;                                                        ;
  3. ;                 ScreamerNet 4.1 Installer              ;
  4. ;                                                        ;
  5. ;                      by Todd Hayes                     ;
  6. ;                    ©1995 NewTek, Inc.                  ;
  7. ;                                                        ;
  8. ;    $VER: ScreamerNet 4.1 CD Installer 4.1 (12-14-95)   ;
  9. ;                                                        ;
  10. ;********************************************************;
  11.  
  12. ;****************** INITIALIZATION ***********************
  13.  
  14. (set disk_label "4.1_Disk")
  15. (set num_disks 1)
  16. (set flyer_drive_1 "Flyer_CD_4.1")
  17. (set default_drive (if (exists "Work:" (noreq))
  18.                        "Work:"
  19.                        (cat (getdevice "c:") ":")))
  20.  
  21. ;************************* Functions *********************
  22. (procedure GET_DRIVE
  23.    ((set toast_drive (askdir
  24.                     (prompt (cat "Please Select the drive "
  25.                                  "to install the ScreamerNet 4.1 "
  26.                                  "software to. This location must be "
  27.                                                                                         "accessible to all systems that will "
  28.                                                                                         "be used for rendering." ))
  29.                              (default default_drive)
  30.                              (help toast_drive_help)
  31.                              (disk)))
  32.          (if (= ":" (substr toast_drive (- (strlen toast_drive) 1) 1))
  33.                         (set newtek_dir (cat toast_drive "NewTek"))
  34.                         (set newtek_dir (cat toast_drive "/NewTek"))
  35.          )
  36.     (set slash (if (= ":" (substr newtek_dir (- (strlen newtek_dir) 1) 1))
  37.                           ""
  38.                    "/"))
  39.     (if (= "NewTek/NewTek" (substr newtek_dir (- (strlen newtek_dir) 13) 13))
  40.         (set newtek_dir (if (askbool (prompt (cat "Are you sure that you "
  41.                                               "want to install the VT 4.1 "
  42.                                               "software to the " newtek_dir
  43.                                               " directory?\n\nIf you choose "
  44.                                               "'NO' then the VT 4.1 software "
  45.                                               "will be installed into the "
  46.                                               (substr newtek_dir 0
  47.                                                  (- (strlen newtek_dir) 7)
  48.                                               ) " directory instead."))
  49.                                       (help newtek_newtek_help)
  50.                                       (default 0))
  51.                              newtek_dir
  52.                              (substr newtek_dir 0 (- (strlen newtek_dir) 7))))
  53.     )
  54.         )
  55. )
  56.  
  57. (procedure MAKEDIRS
  58.         (
  59.                 (if (NOT (exists newtek_dir))
  60.                         (makedir newtek_dir (infos))
  61.                 )
  62.                 (if (NOT (exists (cat newtek_dir slash "Programs")))
  63.                         (makedir (cat newtek_dir slash "Programs") (infos))
  64.                 )
  65.                 (if (NOT (exists (cat newtek_dir slash "Objects")))
  66.                         (makedir (cat newtek_dir slash "Objects") (infos))
  67.                 )
  68.                 (if (NOT (exists (cat newtek_dir slash "Scenes")))
  69.                         (makedir (cat newtek_dir slash "Scenes") (infos))
  70.                 )
  71.                 (if (NOT (exists (cat newtek_dir slash "Images")))
  72.                         (makedir (cat newtek_dir slash "Images") (infos))
  73.                 )
  74.                 (if (NOT (exists (cat newtek_dir slash "Surfaces")))
  75.                         (makedir (cat newtek_dir slash "Surfaces") (infos))
  76.                 )
  77.                 (if (NOT (exists (cat newtek_dir slash "Envelopes")))
  78.                         (makedir (cat newtek_dir slash "Envelopes") (infos))
  79.                 )
  80.                 (if (NOT (exists (cat newtek_dir slash "Motions")))
  81.                         (makedir (cat newtek_dir slash "Motions") (infos))
  82.                 )
  83.         )
  84. )
  85.  
  86. (procedure DO_COPY
  87.         (
  88.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  89.                                         (dest   (cat newtek_dir slash "Programs"))
  90.                                         (optional "force")
  91.                                         (pattern "plug#?")
  92.                 )
  93.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  94.                                         (dest   (cat newtek_dir slash "Programs"))
  95.                                         (optional "force")
  96.                                         (pattern "lw_#?")
  97.                 )
  98.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  99.                                         (dest   (cat newtek_dir slash "Programs"))
  100.                                         (optional "force")
  101.                                         (pattern "hiip_#?")
  102.                 )
  103.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  104.                                         (dest   (cat newtek_dir slash "Programs"))
  105.                                         (optional "force")
  106.                                         (pattern "lwsn#?")
  107.                 )
  108.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  109.                                         (dest   (cat newtek_dir slash "Programs"))
  110.                                         (optional "force")
  111.                                         (pattern "screamer#?")
  112.                 )
  113.                 (copyfiles (source (cat flyer_drive_1 ":Programs"))
  114.                                         (dest   (cat newtek_dir slash "Programs"))
  115.                                         (optional "force")
  116.                                         (pattern "comman#?")
  117.                 )
  118.         )
  119. )
  120. ;*********************** MAIN PROGRAM ********************
  121.  
  122. (welcome)
  123. (GET_DRIVE)
  124. (MAKEDIRS)
  125. (DO_COPY)
  126. (message "Installation is now complete.")
  127.