;$VER:Script generated by DRACS 95. for TENNIS CHAMPS (hd-install)

(complete 0)
(set @default-dest "Work:")

; Texts

(set #Intro-Txt
(cat "\n\nWelcome to \n"
"TENNIS CHAMPS (hd-install)\n"
"Hard Disk Install Script\n\n\n\n"
"This script has been generated by DRACS 95.\n\n"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"TENNIS CHAMPS (hd-install) requires 2 MB free on your disk \n\n"
"Think of it before destroying your disk...\n\n"
))(set #Path-Txt
(cat "Select the target directory. A directory TENNIS will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install TENNIS CHAMPS (hd-install). \n\n"
"A directory TENNIS will be created there.\n\n"
"Default is Work:\n\n\n"
@askdir-help
))
(set Assign-Help-Txt
(cat "\nA script located in the target directory wil make "
"the Assigns. The User-Startup will be patched in order "
"to call this script.\n\n\n"
@startup-help
))
; Main 

(message #Intro-Txt)
(message #Warning-Txt)
(set target 
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest target)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "TENNIS1:")
(dest (tackon target "TENNIS"))
(pattern "#?")
)
(complete 45)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "TENNIS2:")
(dest (tackon target "TENNIS"))
(pattern "#?")
)
(complete 95)
(copyfiles
(prompt "Copying to " #target)
(source "MakeAssigns")
(dest (tackon target "TENNIS"))
)
(startup "Assigns for TENNIS CHAMPS (hd-install)"
(help "#Assign-Help-Txt")
(prompt "\n\nA script will be launched from your User-Startup\n\n"
"Your User-Startup must be patched to do that.")
(command (tackon target "MakeAssigns"))
)
(complete 100)