home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / screenplay / utilities / hd_installers / zinstall / install_zeewolf < prev    next >
Text File  |  1996-10-16  |  2KB  |  98 lines
  1. (welcome "Welcome to the Zeewolf Hard Drive Installer")
  2. (set @app-name "Zeewolf HD")
  3. (set #rootdir "DH0:")
  4. (set #destdir #destdir)
  5.  
  6. (if
  7.     (<> @user-level 2)
  8.     (abort "You must select 'Expert' user level")
  9. )
  10.  
  11. (message "\n\nWelcome to the Zeewolf Hard Drive Installer\n"
  12.          "(c) 1996 John Girvin\n\n"
  13.          "Please read the documentation thoroughly before"
  14.          " attempting to use this installer!\n\n"
  15.          "Click 'Proceed' to begin."
  16. )
  17.  
  18. (set #rootdir
  19.     (askdir
  20.         (prompt "Where would you like Zeewolf installed?\n"
  21.                 "(a new drawer called 'Zeewolf' will be created here)"
  22.         )
  23.         (help @askdir-help)
  24.         (default "DH0:")
  25.     )
  26. )
  27. (set #destdir (tackon #rootdir "Zeewolf/"))
  28. (set @default-dest #destdir)
  29. (set #datfile (tackon #destdir "Zeewolf.dat"))
  30.  
  31. (set #srcdrive
  32.     (askchoice
  33.         (prompt "Which drive do you wish to install from?")
  34.         (help @askchoice-help)
  35.         (choices "DF0:" "DF1:" "DF2:" "DF3:")
  36.         (default 0)
  37.     )
  38. )
  39.  
  40. (makedir #destdir
  41.     (prompt "I will now create the directory '" #destdir "'")
  42.     (help @makedir-help)
  43.     (infos)
  44.     (confirm)
  45. )
  46.  
  47. (message "\n\n\nPlease insert your Zeewolf game disk in drive DF"
  48.            #srcdrive
  49.          ":\n\n"
  50.          "Click 'Proceed' when disk has been inserted and"
  51.          " disk activity has stopped."
  52. )
  53.  
  54. (working "Creating disk image in '" #datfile "'")
  55. (if (<> (run (cat "ZMakeDat " #srcdrive " " #datfile)) 0)
  56.     (abort "Could not create disk image!")
  57. )
  58.  
  59. (copyfiles
  60.     (prompt "Copying HD drawer icon")
  61.     (help @copyfiles-help)
  62.     (source "Zeewolf_icon")
  63.     (newname "Zeewolf.info")
  64.     (dest #rootdir)
  65.     (nogauge)
  66.     (optional fail force)
  67. )
  68.  
  69. (copyfiles
  70.     (prompt "Copying trainer program")
  71.     (help @copyfiles-help)
  72.     (source "Zeewolf_HD")
  73.     (dest #destdir)
  74.     (nogauge)
  75.     (noposition)
  76.     (optional fail force)
  77. )
  78.  
  79. (copyfiles
  80.     (prompt "Copying trainer program icon")
  81.     (help @copyfiles-help)
  82.     (source "Zeewolf_HD_icon")
  83.     (newname "Zeewolf_HD.info")
  84.     (dest #destdir)
  85.     (nogauge)
  86.     (optional fail force)
  87. )
  88.  
  89. (copyfiles
  90.     (prompt "Copying HD loader")
  91.     (help @copyfiles-help)
  92.     (source "ZBoot")
  93.     (dest #destdir)
  94.     (nogauge)
  95.     (noposition)
  96.     (optional fail force)
  97. )
  98.