;$VER:Script generated by DRACS for FLIGHT OF THE AMAZON QUEEN ( hd-install ).

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

; Texts

(set #Intro-Txt
(cat "\n\nWelcome to \n"
"FLIGHT OF THE AMAZON QUEEN ( hd-install ).\n"
"Hard Disk Install Script\n\n\n\n"
"This script has been generated by DRACS\n\n"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"FLIGHT OF THE AMAZON QUEEN ( hd-install ). requires 11 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 AMAZON will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install FLIGHT OF THE AMAZON QUEEN ( hd-install ).. \n\n"
"A directory AMAZON 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 "FOTAQ_1:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 9)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_2:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 18)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_3:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 27)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_4:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 36)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_5:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 45)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_6:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 54)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_7:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 63)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_8:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 72)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_9:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 81)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_10:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 90)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "FOTAQ_11:")
(dest (tackon target "AMAZON"))
(pattern "#?")
)
(complete 100)