;
;THE ULTIMATE QUIZ Installer V1.2a
;Written by Andy Gibson of AGAS Inc. Nov. 1993
;Uses the Official Commodore Installer.


;Display welcome text (doesn't seem to work under Kickstart 1.3 !)

(message
    ; prompt
"\n\n"
"AGAS Inc. presents THE ULTIMATE QUIZ Vol.1 \n\n"
; #intro-text
"This Installer can be used to copy all the files\n"
"to your HD or to another Disk !\n"
"\n\n"
"Only the needed files will be copied.\n\n"
"Please select HELP (below) for more deatails.\n"

(Help
"\n"
"Instructions ...\n\n"
"If you have Booted your Amiga from the Disk\n"
"or HD that the game is to be installed onto\n"
"then you can continue now.\n"
"\n"
"This Installer will create a Drawer named:\n"
"THE_Quiz for you.\n\n"
"No Libraries will be copied across."
 )
)

(welcome)

(complete 0)


(set TQ_dest
   (askdir
   (prompt "In which disk or drawer do you want the game\n "
           "and its files to be installed in ?")
     (help "This installation will create a drawer named\n"
           "The_Quiz in your choice of directory.\n"
           "All of the files needed to run The Game\n"
           "will be placed inside that directory. \n\n"
)
    (default @default-dest)
)
)


; get the program disk
(askdisk
      (prompt "Please insert the disk labeled \"The_Quiz\"" )
      (help "All files will be copied from that disk "
                  "on to your system." )
      (dest "The_Quiz" )
)

; Make dest directory with icon
(makedir (tackon TQ_dest "The_Quiz") (infos))
(complete 10)

; now, we want everything to be copied into this sub-dir

(set TQ_dest (tackon TQ_dest "The_Quiz"))
(set @default-dest TQ_dest)


;copy the files over now ...
;**********
(copyfiles
     (source "The_Quiz:Quiz"
(Optional "force") 
    (dest TQ_dest) (infos)
)
)
(complete 40)
;**********
(copyfiles
(source "The_Quiz:Quiz.Data"
(Optional "force")
(Dest TQ_Dest) (Infos)
)
)
(Complete 60)
;**********
(copyfiles
     (source "The_Quiz:Quiz_ReadMe"
(Optional "force") 
    (dest TQ_dest) (infos)
)
)
(complete 70)
;**********
(copyfiles
     (source "The_Quiz:Install.doc"
(Optional "force") 
    (dest TQ_dest) (infos)
)
)
(complete 80)
;**********
(copyfiles
     (source "The_Quiz:PPMore"
(Optional "force") 
    (dest TQ_dest) (infos)
)
)
(complete 100)




(exit "Have fun .... See Ya All Soon    ;-)")