home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 80 / af080sub.adf / INSTALLERS / HDI.lzx / HDINSTALLERS / HDInstall / Cruise / Install-English < prev    next >
Encoding:
Text File  |  1995-07-21  |  1.8 KB  |  81 lines
  1. ;$VER:Script generated by ScriptMaker 2.0 for Cruise for a corpse
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWelcome to \n"
  10. "Cruise for a corpse\n"
  11. "Hard Disk Install Script\n\n\n\n"
  12. "This script has been generated by Script Maker 2.0\n\n"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "Croisière pour un cadavre requires 4.2 MB free on your disk \n\n"
  16. "Think of it before destroying your disk...\n\n"
  17. ))(set #Path-Txt
  18. (cat "Select the target directory. A directory Cruise will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "target directory to install Cruise for a corpse. \n\n"
  23. "A directory Cruise will be created there.\n\n"
  24. "Default is Work:\n\n\n"
  25. @askdir-help
  26. ))
  27. (set Assign-Help-Txt
  28. (cat "\nA script located in the target directory wil make "
  29. "the Assigns. The User-Startup will be patched in order "
  30. "to call this script.\n\n\n"
  31. @startup-help
  32. ))
  33. ; Main 
  34.  
  35. (message #Intro-Txt)
  36. (message #Warning-Txt)
  37. (set target 
  38. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  39. ))
  40. (set @default-dest target)
  41. (copyfiles
  42. (prompt "Copying to " #target)
  43. (help @copy-files-help)
  44. (source "Cruise1:")
  45. (dest (tackon target "Cruise"))
  46. (pattern "#?")
  47. )
  48. (complete 20)
  49. (copyfiles
  50. (prompt "Copying to " #target)
  51. (help @copy-files-help)
  52. (source "Cruise2:")
  53. (dest (tackon target "Cruise"))
  54. (pattern "#?")
  55. )
  56. (complete 40)
  57. (copyfiles
  58. (prompt "Copying to " #target)
  59. (help @copy-files-help)
  60. (source "Cruise3:")
  61. (dest (tackon target "Cruise"))
  62. (pattern "#?")
  63. )
  64. (complete 60)
  65. (copyfiles
  66. (prompt "Copying to " #target)
  67. (help @copy-files-help)
  68. (source "Cruise4:")
  69. (dest (tackon target "Cruise"))
  70. (pattern "#?")
  71. )
  72. (complete 80)
  73. (copyfiles
  74. (prompt "Copying to " #target)
  75. (help @copy-files-help)
  76. (source "Cruise5:")
  77. (dest (tackon target "Cruise"))
  78. (pattern "#?")
  79. )
  80. (complete 100)
  81.