home *** CD-ROM | disk | FTP | other *** search
- ;
- ; ________________________________________________________________
- ; / \
- ; \ THE ULTIMATE QUIZ Installer V2.0 /
- ; / Written by Andy Gibson of AGAS Inc. \
- ; \ Updated during MARCH 1994 to suit the the NEW Version. /
- ; / Uses the Official Commodore Installer. \
- ; \________________________________________________________________/
- ;
- ;
- ;Display welcome text (doesn't seem to work under Kickstart 1.3 !)
- (message
- ;PROMT
- "\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 Hard Disk.\n"
- "\n\n"
- "A directory named 'THE_QUIZ' will be created.\n\n"
- "Please select HELP (below) for more deatails.\n"
-
- (Help
- "\n THE ULTIMATE QUIZ Volume 1 (NEW VERSION)\n"
- "\n\n"
- "Please refer to the INSTALL.Doc on this disk as it\n"
- "contains all the information that you will need to\n"
- "know about Installing this game onto your H.D.\n"
- "\n"
- "\n"
- "If in doubt ... contact myself.\n"
- "\n"
- "ANDY GIBSON (my address is in the doc files.)"
- )
- )
-
-
- (welcome)
-
- (complete 0)
-
-
- (set TQ_dest
- (askdir
- (prompt "In which partition or drawer do you want\n "
- "the game and its files to be installed into ?")
- (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:Quiz1.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 50)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz2.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 55)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz3.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 60)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz4.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 65)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz5.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 70)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz6.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 75)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz7.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 80)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz8.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 85)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz9.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 90)
-
- ;**********
- (copyfiles
- (source "The_Quiz:Quiz10.Data"
- (Optional "force")
- (Dest TQ_Dest) (Infos)
- )
- )
- (Complete 100)
-
- (exit "Have Fun - Enjoy The Game."
- "\n\n"
- "PLEASE DO NOT SPREAD IT AROUND\n\n"
- "Any comments or suggestions are always\n"
- "welcome. Contact myself at anytime.\n\n"
- "ANDY GIBSON ;-)"
- )
-