home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / util / misc / MultiRen.lha / MultiRen / MultiRen-Install < prev    next >
Encoding:
Text File  |  2000-07-07  |  2.7 KB  |  89 lines
  1. ; $VER: MultiRen-Install v1.4 (07.07.00)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to MultiRen 1.4 installer.\n© 1999-2000 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "MultiRen 1.4 has now been installed on your system.\n\nDon't forget to register your copy at : daniel@onyxsoft.nu\n\nIt's totaly free!!!\n")
  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.\nI'll rename it to MultiRen_old, so you can delete it later.")
  28.     (run (cat "rename \"" destination "\" \"" destination "_old\""))
  29.     (run (cat "delete \"" destination ".info\" >nil:"))
  30.   )
  31. )
  32.  
  33. (makedir destination)
  34. (run (cat "copy " "/MultiRen.info \"" destination ".info\""))
  35.  
  36. (complete 25)
  37.  
  38. ; - copy main files
  39.  
  40. (copyfiles (prompt "Copying ...") (source "MultiRen") (dest destination) (help @copyfiles-help) )
  41. (copyfiles (prompt "Copying ...") (source "MultiRen.info") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "MultiRen.guide") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "MultiRen.guide.info") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "MultiRen.readme") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "MultiRen.readme.info") (dest destination) (help @copyfiles-help) )
  46. (copyfiles (prompt "Copying ...") (source "SubstituteGenerator") (dest destination) (help @copyfiles-help) )
  47. (copyfiles (prompt "Copying ...") (source "SubstituteGenerator.info") (dest destination) (help @copyfiles-help) )
  48.  
  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.  
  61. (complete 75)
  62.  
  63. ; - copy developers stuff..
  64.  
  65. (set choice
  66.   (askchoice
  67.     (prompt "Do you want to install the developer files ?")
  68.     (help @askoptions-help)
  69.     (choices "Yes" "No")
  70.     (default 0)
  71.   )
  72. )
  73.  
  74. (if (= 0 choice)
  75.   (
  76.     (makedir (cat destination "/Developers"))
  77.     (copyfiles
  78.       (prompt "Copying...")
  79.       (source "Developers/")
  80.       (pattern "#?")
  81.       (dest (cat destination "/Developers"))
  82.     )
  83.   )
  84. )
  85.  
  86.  
  87. (complete 100)
  88. (message #endmsgs)
  89. (exit)