home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 26 / amigaformatcd26.iso / -screenplay- / hd_installers / cyberforce2hd / hd_install < prev    next >
Text File  |  1998-03-09  |  2KB  |  65 lines
  1. ;$VER:Script generated by DRACS of BAD KARMA for CYBERFORCE ( ecs ) hd-install done by DRACS of    BAD KARMA
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWelcome to \n"
  10. "CYBERFORCE ( ecs ) hd-install done by DRACS of BAD KARMA\n"
  11. "Hard Disk Install Script\n\n\n\n"
  12. "This script has been generated by DRACS of BAD KARMA\n\n"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "CYBERFORCE ( ecs ) hd-install done by DRACS of BAD KARMA requires 3 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 CYBERFORCE will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "target directory to install CYBERFORCE ( ecs ) hd-install done by DRACS of BAD KARMA. \n\n"
  23. "A directory CYBERFORCE 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 "CF:")
  45. (dest (tackon target "CYBERFORCE"))
  46. (pattern "#?")
  47. )
  48. (complete 33)
  49. (copyfiles
  50. (prompt "Copying to " #target)
  51. (help @copy-files-help)
  52. (source "CF2:")
  53. (dest (tackon target "CYBERFORCE"))
  54. (pattern "#?")
  55. )
  56. (complete 66)
  57. (copyfiles
  58. (prompt "Copying to " #target)
  59. (help @copy-files-help)
  60. (source "CF3:")
  61. (dest (tackon target "CYBERFORCE"))
  62. (pattern "#?")
  63. )
  64. (complete 100)
  65.