(message "Key © 1997 Kai Software\n\n\n"
         "This script will install Key "
         "on your hard drive")
(message "\n\n\n\n\nSupport the Amiga - Register Today!")
(message "All files with this program will be copied "
"to the directory YOU choose, however, the main program "
"will be copied to SYS:C as will the Keyfile, if you "
"do not want this, then Abort Install and Install manually!\n\n\n"
"Bye for now!\n\n\n"
"-Gonzo-")
(welcome)

(set default-dest
     (tackon (askdir (prompt "Where would you like to install Key?\n"
                             "A drawer called 'Key' will be created there.")
                     (help @askdir-help)
                     (default @default-dest)
   )
"Key"                    
     )
)

(set @default-dest default-dest)
(set @popo-dest default-dest/Docs)
(copyfiles (source "Key/Key.info") (dest @default-dest))
(complete 30)
(makedir @default-dest
         (infos)
)
(copyfiles (source "Key/Docs.info") (dest @default-dest))
(complete 40)
(copyfiles
    (source "Key/Key")
    (dest "C:")
)
(complete 60)
(copyfiles
    (source "Key/Keyfile.Key")
    (dest "C:")
)
(complete 60)
(copyfiles (source "Key/Key.info") (dest @default-dest))
(complete 80)
(copyfiles (source "Key/Docs")
           (dest (tackon @default-dest "Docs"))           
(all)
)
(complete 90)

;****************************
; Ask which and install icons
;****************************
(set #ICONS
    (askchoice
    (prompt "\nWhich type of icons do want to install?")
    (help "\nHi! Just select one of the icon types.")
    (default 0)
    (choices
        "MagicWB Icons"
        "Standard Workbench Icons"
 
       )
    )

)
(if (= #ICONS 0)
 (copyfiles (source "Key/MWB-Icons/Key.info") (dest @default-dest))
)
(if (= #ICONS 0)
 (copyfiles (source "Key/MWB-Icons/Keyfile.Key.info") (dest @default-dest))
)
(if (= #ICONS 0)
 (copyfiles
 (source "Key/MWB-Icons/Docs/Key.Guide.info")
 (dest (tackon @default-dest "Docs" ) ) )
)
(if (= #ICONS 0)
 (copyfiles
 (source "Key/MWB-Icons/Docs/Key.Doc.info")
 (dest (tackon @default-dest "Docs" ) ) )
)
(if (= #ICONS 0)
 (copyfiles
 (source "Key/MWB-Icons/Docs/CUST.Txt.info")
 (dest (tackon @default-dest "Docs" ) ) )
)
(if (= #ICONS 0)
 (copyfiles
 (source "Key/MWB-Icons/Docs.info")
 (dest  @default-dest  ) )
)
(if (= #ICONS 1)
 (copyfiles (source "Key/Key.info") (dest @default-dest)Docs)
)
(if (= #ICONS 1)
 (copyfiles (source "Key/Keyfile.Key.info") (dest @default-dest))
)

(startup @app-name
    (prompt "Shall I add Key to your "
        "s:user-startup so that it will be run each time"
        " you turn your Amiga on")
    (help @startup-help)
    (command "C:Key")
)
(exit)
(complete 100)