;*******************************************************;
;                                                       ; 
;                Modeler Patch Installer                ;
;                                                       ;
;                     by Todd Hayes                     ;
;                   ©1994 NewTek, Inc.                  ;
;                                                       ;
;    $VER: Lightwave Unbundled Updater 1.1 (9-9-94)     ;
;                                                       ;
;*******************************************************;

;************* Initialize **************
(set @app-name "Modeler Update")
(set default_drive (if (exists "Work:" (noreq))
                       "Work:"
                       (cat (getdevice "c:") ":")))
(set @default-dest (tackon default_drive "toaster"))
(if (NOT (exists @default-dest))
    (set @default-dest default_drive)) 

(set disk1 "ModelerUpdate")

(welcome)
(set mod_file (askfile (prompt "Please locate your Modeler.FP file:")
                       (help (cat "The installer needs to know where your "
                                  "Modeler program resides so that it may "
                                  "replace it with the new version.  Please "
                                  "select your Modeler.FP file so that it "
                                  "may be properly updated."))
                       (default @default-dest)))
(if (OR (= "Ram Disk" (substr mod_file 0 8)) (= "ram disk" (substr mod_file 0 8)))
    (set mod_file  (cat "ram" (substr mod_file 8 
                                          (- (strlen mod_file) 8)))))
(if (exists mod_file)
    ((working "Updating your Modeler.FP file...")
     (run (cat "ModelerUpdate:spatch -o" mod_file " -pModelerUpdate:Modeler.pch "
               mod_file)))
    (abort "Sorry, No Modeler.FP file was located."))

(set @default-dest (pathonly mod_file))