home *** CD-ROM | disk | FTP | other *** search
/ Dream 48 / Amiga_Dream_48.iso / Amiga / Demos / ecs / GenesisHD.lha / Genesis_Installer < prev    next >
Text File  |  1997-10-15  |  2KB  |  65 lines
  1. (complete 0)
  2.  
  3. (message 
  4.   "\n----------------------------------------"
  5.   "\nā•– Welcome to LLFB's \"Genesis\" HD Installer ā•–"
  6.   "\n----------------------------------------"
  7.   "\n\nAt last!! Genesis is here!"
  8.   "\nReleased at Euskal Party 5"
  9.   "\n(c) 1993 - 1997 !!"
  10.   "\n\n\n\n\n\nInstaller made by 007 & Skid / Ozone"
  11.   "\n\nGreetings to all our cool friends on LLFB"
  12. )
  13.  
  14. (complete 2)
  15.  
  16. (set @default-dest
  17. (askdir
  18.      (prompt ("Where do you want to install Genesis? A drawer will be created there."))
  19.      (help @askdir-help)
  20.      (default "Ram:")
  21. )
  22. )
  23.  
  24. (set #dest (tackon @default-dest "Genesis"))
  25.  
  26. (makedir #dest
  27.     (help @makedir-help)
  28. )
  29.  
  30. (copyfiles (dest #DEST) (source "Loader"))
  31.  
  32. (complete 5)
  33.  
  34. (message ("\n\nInsert Genesis disk 1 into df0:"))
  35.                 (working "\nPlease Wait... Reading disk 1 !")
  36.         (if
  37.                 (= 0 (run ("disk2file 0 %s" (tackon #dest "Genesis.Disk1"))))
  38.         )
  39.  
  40. (complete 25)
  41.  
  42. (message ("\n\nInsert Genesis disk 2 into df0:"))
  43.                 (working "\nPlease Wait... Reading disk 2 !")
  44.         (if
  45.                 (= 0 (run ("disk2file 0 %s" (tackon #dest "Genesis.Disk2"))))
  46.         )
  47.  
  48. (complete 50)
  49.  
  50. (message ("\n\nInsert Genesis disk 3 into df0:"))
  51.                 (working "\nPlease Wait... Reading disk 3 !")
  52.         (if
  53.                 (= 0 (run ("disk2file 0 %s" (tackon #dest "Genesis.Disk3"))))
  54.         )
  55.  
  56. (complete 75)
  57.  
  58. (message ("\n\nInsert Genesis disk 4 into df0:"))
  59.                 (working "\nPlease Wait... Reading disk 4 !")
  60.         (if
  61.                 (= 0 (run ("disk2file 0 %s" (tackon #dest "Genesis.Disk4"))))
  62.         )
  63.  
  64. (complete 100)
  65.