home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / POWERGUIDE_UPD.LHA / PowerGuide / Install < prev    next >
Encoding:
Text File  |  1996-10-30  |  1.1 KB  |  58 lines
  1. ;
  2. ; PowerGuide 1.21 - Install Script
  3. ;
  4. ; (c) 1996 by Matthias Scheler
  5. ;
  6.  
  7. (set ProductName "PowerGuide")
  8. (set ProductVers "1.21")
  9.  
  10. (set @default-dest "SYS:Tools")
  11.  
  12. (transcript #install ProductName " " ProductVers " ...")
  13.  
  14. (complete 0)
  15.  
  16. ; Extract "spatch"
  17.  
  18. (working "Extracting spatch...")
  19. (run ("C:MakeDir T:PowerGuide"))
  20. (run ("AMINET14:Tools/LhA -a -m -x x AMINET14:Aminet/comm/term/term_46a_pch.lha T:PowerGuide/"))
  21. (complete 25)
  22.  
  23. ; Use "spatch"
  24.  
  25. (working "Applying patch...")
  26. (run ("T:PowerGuide/spatch -oT:PowerGuide/PowerGuide -pPowerGuide.pch AMINET14:Tools/PowerGuide"))
  27. (run ("C:Copy PowerGuide.noinfo T:PowerGuide/PowerGuide.info CLONE QUIET"))
  28. (complete 50)
  29.  
  30. ; Copy files
  31.  
  32. (copyfiles
  33.  (prompt "Installing " ProductName "...")
  34.  (source "T:PowerGuide")
  35.  (pattern "PowerGuide#?")
  36.  (help @copyfiles-help)
  37.  (confirm)
  38.  (set @default-dest
  39.   (askdir 
  40.    (prompt ("Please select a directory for \"%s\"." ProductName))
  41.    (help @askdir-help)
  42.    (default @default-dest)
  43.   )
  44.  )
  45.  (dest @default-dest)
  46. )
  47. (complete 75)
  48.  
  49. ; Clean up
  50.  
  51. (working "Cleaning up...")
  52. (run ("C:Delete T:PowerGuide ALL QUIET"))
  53. (complete 100)
  54.  
  55. ; All Done
  56.  
  57. (exit)
  58.