home *** CD-ROM | disk | FTP | other *** search
- ; Define some global variables
- (set Disk1 "DISK1:") ; Installation referenced by Disk1 and Disk2
- (set Disk2 "DISK2:")
- (set Disk3 "DISK3:")
-
- (set ask-install-nodir "(Select directory.(doesn't create directory)\n" )
-
- (message "\nThis is a installation script for 'Corona' "
- "and it will Install the 'Corona' demo to "
- "wherever you want it to be installed. (HD!) "
- "\n\n'Corona requires a minimum of 2mb CHIP and "
- "fast. "
- )
-
- ; set the path where2install the Demo...
-
- (set DestPath
-
- (askdir
-
- (prompt "\nPlease select where you want the 'Corona'"
- "to be installed "
- ask-install-nodir
- )
- (help "'Corona' consists of several files that are "
- "required to run the demo, these files must always "
- "be in the same drawer as the mainprogram.\n\n "
- )
-
- (default "HD0:")
- )
- )
-
- (copyfiles
-
- (source (tackon Disk1 ""))
- (dest DestPath)
-
- (pattern "#?")
- (files)
- (optional "nofail" "askuser")
- )
-
- (message "\nINSERT DISK 2 (DISK2:) "
- )
-
- (copyfiles
-
- (source (tackon Disk2 ""))
- (dest DestPath)
-
- (pattern "#?")
- (files)
- (optional "nofail" "askuser")
- )
-
- (message "\nINSERT DISK 3 (DISK3:) "
- )
-
- (copyfiles
-
- (source (tackon Disk3 ""))
- (dest DestPath)
-
- (pattern "#?")
- (files)
- (optional "nofail" "askuser")
- )
-
- (message "\n'Corona' should be run from shell/CLI and "
- "from the directory it was installed to..."
- )
-