home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / BRDRLNE1.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1995-12-23  |  3.2 KB  |  134 lines
  1. ; $VER: dA JoRMaS & Suburban Base: Borrrderline (23.12.95)
  2. ; Installer Revision 3 (23.12.95)
  3.  
  4. (complete 0)
  5. ;=============================================================================
  6. ; English strings
  7.  
  8. (set #intro
  9. (cat "\n\n\n\n\nWelcome to the Borrrderline installer.\n\n"
  10.      "This program lets you install the Borrrderline music disk "
  11.      "on your system."
  12. ))
  13.  
  14. (set #destdir
  15. (cat "Please select a place for Borrrderline. "
  16.      "A drawer called 'Borrrderline' will be created here. "
  17.      "The minimum space required is about 2.2Mb."
  18. ))
  19.  
  20. (set #destexists
  21. (cat "\n\n\n\n\nA Borrrderline drawer does already exists in your selected destination directory. "
  22.      "By proceeding, you indicate that you wish to delete the "
  23.      "contents of this drawer and replace them with the new "
  24.      "installation."
  25. ))
  26.  
  27. (set #insertdiskmsg
  28. (cat "\n\n\n\n\nPlease insert the disk labelled\n\n"
  29. ))
  30.  
  31. ;=============================================================================
  32. ; Procedure Definitions
  33.  
  34. (procedure @GetDisk
  35.     (
  36.         (askdisk
  37.             (prompt #insertdiskmsg #filesourcedisk)
  38.             (help #diskhelp)
  39.             (dest #filesourcedisk)
  40.         )
  41.     )
  42. )
  43.  
  44. ;=============================================================================
  45. ; Say hello
  46.  
  47. (set @default-dest "SYS:")
  48. (message #intro)
  49.  
  50. ;=============================================================================
  51. ; Ask for destination directory
  52.  
  53. (set @default-dest
  54.     (askdir
  55.         (prompt #destdir)
  56.         (help @askdir-help)
  57.         (default @default-dest)
  58.     )
  59. )
  60.  
  61. (set @default-dest (expandpath @default-dest))
  62. (set destination (tackon @default-dest "Borrrderline"))
  63.  
  64. (if (<> (exists destination) 0)
  65. (
  66.     (message #destexists)
  67.     (run (cat "delete " destination " all >nil:"))
  68.     (run (cat "delete " destination ".info >nil:"))
  69. ))
  70.  
  71. ;=============================================================================
  72. ; Lets go, create destination directory, copy main files and libs
  73.  
  74. (complete 5)
  75.  
  76. (makedir destination (help @makedir-help))
  77. ;(run (cat "copy ENV:Sys/Def_Drawer.info \"" destination ".info\""))
  78.  
  79. (complete 10)
  80.  
  81. (copyfiles
  82.     (prompt "Copying disk 1 files...")
  83.     (source "Borrrderline1:")
  84.     (pattern "~(install#?|Disk.info|c|devs|s)")
  85.     (dest destination)
  86.     (infos)
  87.     (help @copyfiles-help)
  88. )
  89.  
  90. (complete 40)
  91. (set #filesourcedisk "Borrrderline2")
  92. (@GetDisk)
  93. (copyfiles
  94.     (prompt "Copying disk 2 files...")
  95.     (source "Borrrderline2:")
  96.     (pattern "~(#?.info)")
  97.     (dest destination)
  98.     (infos)
  99.     (help @copyfiles-help)
  100. )
  101.  
  102. (complete 70)
  103. (set #filesourcedisk "Borrrderline3")
  104. (@GetDisk)
  105. (copyfiles
  106.     (prompt "Copying disk 3 files...")
  107.     (source "Borrrderline3:")
  108.     (pattern "~(#?.info)")
  109.     (dest destination)
  110.     (infos)
  111.     (help @copyfiles-help)
  112. )
  113.  
  114. (complete 99)
  115.  
  116. ;=============================================================================
  117. ; Startup Sequence
  118.  
  119. (startup "Borrrderline"
  120.     (prompt "Some commands will be added to your \"s:user-startup\" file.")
  121.     (help @startup-help)
  122.     (command "if exists \"" destination "\"\n")
  123.     (command "   assign Borrrderline1: \"" destination "\"\n")
  124.     (command "   assign Borrrderline2: \"" destination "\"\n")
  125.     (command "   assign Borrrderline3: \"" destination "\"\n")
  126.     (command "endif")
  127. )
  128.  
  129. ;=============================================================================
  130. ; Finish
  131.  
  132. (complete 100)
  133. (exit "Please reboot your computer before running Borrrderline.")
  134.