home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / cdrom / megasearch1.01 / install < prev    next >
Text File  |  1977-12-31  |  4KB  |  131 lines
  1. ;  *** MegaSearch installation scipt ***
  2.  
  3. (set #install-msg (cat "\n\nMegaSearch installation script.\n"
  4.                        "This script installs MegaSearch on your Amiga.\n\n"
  5.                        "Man © 1995/96 Markus Hillenbrand\n"
  6.                        "All rights reserved."
  7.                   )
  8. )
  9.  
  10. (set #bad-kick         "You must be using Kickstart 3.0 to install using this script!")
  11.  
  12. (set #copying-reqtools "Copying textfield.gadget to SYS:Classes/Gadgets ...")
  13.  
  14. ; Hier gehts los
  15.  
  16. (message #install-msg)
  17. (welcome "Welcome to the MegaSearch installation!")
  18.  
  19. (if (< (/ (getversion) 65536) 39)
  20. (
  21.     (abort #bad-kick)
  22. ))    
  23.  
  24. (copylib
  25.         (prompt "\n" #copying-reqtools)
  26.         (help @copylib-help)
  27.         (source "Textfield/Textfield.gadget")
  28.         (dest "SYS:Classes/Gadgets")
  29.         (confirm)
  30. ) 
  31.  
  32. (set mydest
  33.    (askdir  (prompt  "Select the directory where you want to install the program. A drawer will NOT be created.")
  34.             (help    @askdir-help)
  35.             (default "Work:")
  36.             (disk)
  37.    )
  38. )
  39.  
  40. (copyfiles  (prompt "Copying executable")
  41.             (help   @copyfiles-help)
  42.             (source "MegaSearch")
  43.             (dest   mydest)
  44.             (infos)
  45. )
  46.  
  47. (copyfiles  (prompt "Copying documentation")
  48.             (help   @copyfiles-help)
  49.             (source "MegaSearch.guide")
  50.             (dest   mydest)
  51.             (infos)
  52. )
  53.  
  54. (copyfiles  (prompt "Copying About.IFF")
  55.             (help   @copyfiles-help)
  56.             (source "About.IFF")
  57.             (dest   mydest)
  58. )
  59.  
  60. (set filtername (cat mydest "/.filter"))
  61. (if (exists filtername) (copyfiles  (prompt "A filter exists, copy new filter anyway ?")
  62.                                     (help   @copyfiles-help)
  63.                                     (source ".filter")
  64.                                     (dest   mydest)
  65.                                     (confirm)
  66.                         )
  67.                         (copyfiles  (prompt "Copying Filter")
  68.                                     (help   @copyfiles-help)
  69.                                     (source ".filter")
  70.                                     (dest   mydest)
  71.                         )
  72. )
  73.  
  74. (set listdir (cat mydest "/Lists"))
  75.  
  76. (makedir listdir)
  77.  
  78. (set answer (askchoice  (prompt  "Do you want to install index files for 'Aminet-CD 4-9' ?")
  79.                         (help    @askchoice-help)
  80.                         (choices "Yes" "No")
  81.             )
  82. )
  83.  
  84. (if (= answer 0) (copyfiles  (prompt  "Copying Index Files for Aminet CD's")
  85.                              (help    @copyfiles-help)
  86.                              (source  "lists")
  87.                              (dest    listdir)
  88.                              (pattern "Aminet#?")
  89.                              (files)
  90.                  )
  91. )
  92.  
  93. (set answer (askchoice  (prompt  "Do you want to install index files for 'Meeting-Pearls-CD 1-3' ?")
  94.                         (help    @askchoice-help)
  95.                         (choices "Yes" "No")
  96.             )
  97. )
  98.  
  99. (if (= answer 0) (copyfiles  (prompt  "Copying Index Files for Meeting Pearls CD's")
  100.                              (help    @copyfiles-help)
  101.                              (source  "lists")
  102.                              (dest    listdir)
  103.                              (pattern "Meeting#?")
  104.                              (files)
  105.                  )
  106. )
  107.  
  108. (set answer (askchoice  (prompt  "Do you want to install index files for 'FredFish-CDs' ?")
  109.                         (help    @askchoice-help)
  110.                         (choices "Yes" "No")
  111.             )
  112. )
  113.  
  114. (if (= answer 0) (copyfiles  (prompt  "Copying Index Files for FredFish CD's")
  115.                              (help    @copyfiles-help)
  116.                              (source  "lists")
  117.                              (dest    listdir)
  118.                              (pattern "#?Fish#?")
  119.                              (files)
  120.                  )
  121. )
  122.  
  123. (startup "MegaSearch" (prompt  "Adding the assign MegaSearch: to S:User-Startup")
  124.                       (help    @startup-help)
  125.                       (command "Assign MegaSearch: " mydest)
  126. )
  127.  
  128. (makeassign "MegaSearch" mydest (safe))
  129.  
  130.  
  131.