home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #2 / amigaacscoverdisc1998-021998.iso / utilities / commercialdemos / cp / install_cp < prev    next >
Encoding:
Text File  |  1980-01-04  |  2.9 KB  |  96 lines
  1. (set    askprompt1    "Please select the directory to install the program in.\n")
  2. (set    askprompt2    "A new drawer called \"CP\" will be created there")
  3. (set    error1        "There was an error while installing.\n")
  4. (set    error2        "All files installed will be deleted.")
  5.  
  6. (set message0 "Welcome to the CP installation utility!!\n\n")
  7. (set message1 "Please Note: If an error occurs during installation, all installed")
  8. (set message2 " files will be deleted and you should then try to install the files ")
  9. (set message3 "again.\n\nI hope that you will enjoy this preview version!!\n")
  10.  
  11. (set direxists "Sorry, Directory exists already!!")
  12. (set direxistprompt1 "DIRECTORY ALREADY EXISTS!!!\n\n\n")
  13. (set direxistprompt2 "Do you want to copy over the existing directory 'CP'?\n(All files")
  14. (set direxistprompt3 " in existing directory will be deleted) ")
  15. (set direxisthelp1 "Clicking \"Yes\" will cause the installer to delete the existing")
  16. (set direxisthelp2 " directory entitled \"CP\". It will then create a new directory")
  17. (set direxisthelp3 " \"CP\" and install all the necessary files into it.")
  18. (set direxisthelp4 "\n\nIf you are installing a new version of CP (v0.15+) click \"Yes\"")
  19. (set direxisthelp5 "\n\n\nIf you are unsure what to do, select \"No\"!!")
  20.  
  21. (set dirstartup1 "\nCP needs an assign to be placed in your S:User-startup.")
  22.  
  23. (set #exit-message
  24.    (cat "\nWelcome To CP!!\n\n"
  25.         "The installation was 100% successful!!\n\n\n"
  26.         "Please reboot to use CP!!"))
  27.  
  28. (welcome (cat message0 message1 message2 message3))
  29.  
  30. (set dir (cat @default-dest "CP"))
  31.  
  32. (onerror (if (exists dir (noreq))
  33.              (delete dir
  34.                      (prompt "ERROR!! Deleting all installed files!!")
  35.                      (help (cat error1 error2 error3))
  36.                      (optional force)
  37.                      (all)                      
  38.               )
  39.          ((message "I'm afraid that an error occured. Please Try Again!" (all)))
  40.          )
  41. )
  42.  
  43. (set dir (askdir 
  44.     (prompt (cat askprompt1 askprompt2))
  45.     (help @askdir-help)
  46.     (default @default-dest))
  47. )
  48.  
  49. (complete 25)
  50. (set dir (tackon dir "CP"))
  51. (set @default-dest dir)
  52.  
  53. (if (exists dir)
  54.     (
  55.     (set wipe (askbool
  56.               (prompt (cat direxistprompt1 direxistprompt2 direxistprompt3))
  57.               (help (cat direxisthelp1 direxisthelp2 direxisthelp3 direxisthelp4 direxisthelp5))
  58.               )
  59.     )
  60.     )
  61.     (
  62.     (set wipe 1)
  63.     )
  64. )
  65.  
  66. (if (= wipe 0)
  67.     (
  68.     (abort "Existing folder \"CP\" has been left intact.\n\nExiting Installation.")
  69.     )
  70.     (
  71.     (makedir dir (prompt "Just creating the directory...")(help @makedir-help)(infos))
  72.     )
  73. )
  74.  
  75. (copyfiles
  76.     (prompt "Copying files to selected directory...")
  77.     (source "")
  78.     (dest dir)
  79.     (all)
  80.     (fonts)
  81. )
  82. (complete 75)
  83.  
  84. (set dir (tackon dir "CP"))
  85.  
  86. (complete 85)
  87.  
  88. (startup "CP"
  89.     (prompt dirstartup1)
  90.     (command (cat "Assign CP: " dir))
  91.     (help @startup-help)
  92. )
  93.  
  94. (complete 100)
  95. (message #exit-message)
  96.