home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Utilities / MultiRen / MultiRen-Install < prev    next >
Text File  |  2000-08-23  |  3KB  |  90 lines
  1. ; $VER: MultiRen-Install v1.41 (23.08.00)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to MultiRen 1.41 installer.\n© 1999-2000 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "MultiRen 1.41 has now been installed on your system.\n\nDon't forget to register the program.\nIt's totaly free!!!\n\nPlease use the Easy Register option which pops up when you start an unregistered copy of MultiRen!")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.   (askdir (prompt "Please select the destination directory for MultiRen.\nA sub-directory \"MultiRen\" will be created.")
  15.     (default @default-dest)
  16.     (help @askdir-help)
  17.   )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "MultiRen"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.   (message "There is an older installation of MultiRen in the same directory.\n\nIt will be overwritten! (not backed up as before)\n\nAny plugin-settings except the substitute list will also be overwritten!")
  28.     (run (cat "copy \"" destination "/Plugins/Substitute.list\" T:"))
  29.     (run (cat "delete \"" destination "\" >nil:"))
  30.     (run (cat "delete \"" destination ".info\" >nil:"))
  31.   )
  32. )
  33.  
  34. (makedir destination)
  35. (run (cat "copy /MultiRen.info \"" destination ".info\""))
  36.  
  37. (complete 25)
  38.  
  39. ; - copy main files
  40.  
  41. (copyfiles (prompt "Copying ...") (source "MultiRen") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "MultiRen.info") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "MultiRen.guide") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "MultiRen.guide.info") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "MultiRen.readme") (dest destination) (help @copyfiles-help) )
  46. (copyfiles (prompt "Copying ...") (source "MultiRen.readme.info") (dest destination) (help @copyfiles-help) )
  47. (copyfiles (prompt "Copying ...") (source "SubstituteGenerator") (dest destination) (help @copyfiles-help) )
  48. (copyfiles (prompt "Copying ...") (source "SubstituteGenerator.info") (dest destination) (help @copyfiles-help) )
  49. (complete 50)
  50.  
  51. ; - copy plugins
  52.  
  53. (makedir (cat destination "/Plugins"))
  54. (copyfiles
  55.   (prompt "Copying...")
  56.   (source "Plugins/")
  57.   (pattern "#?")
  58.   (dest (cat destination "/Plugins"))
  59. )
  60. (run (cat "copy T:Substitute.list \"" destination "/Plugins/\""))
  61. (run (cat "delete T:Substitute.list"))
  62.  
  63. (complete 75)
  64.  
  65. ; - copy developers stuff..
  66.  
  67. (set choice
  68.   (askchoice
  69.     (prompt "Do you want to install the developer files ?")
  70.     (help @askoptions-help)
  71.     (choices "Yes" "No")
  72.     (default 0)
  73.   )
  74. )
  75.  
  76. (if (= 0 choice)
  77.   (
  78.     (makedir (cat destination "/Developers"))
  79.     (copyfiles
  80.       (prompt "Copying...")
  81.       (source "Developers/")
  82.       (pattern "#?")
  83.       (dest (cat destination "/Developers"))
  84.     )
  85.   )
  86. )
  87.  
  88. (complete 100)
  89. (message #endmsgs)
  90. (exit)