home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / abtpch104.lha / abt_install next >
Encoding:
Text File  |  1993-07-02  |  1.7 KB  |  102 lines
  1. ;script to install Ami-Back Tools
  2.  
  3. (complete 0)
  4.  
  5. ;Get directory to install Ami-Back Tools in.
  6. (set destdir 
  7.     (askdir 
  8.         (prompt "In which drawer should Ami-Back Tools be installed?") 
  9.         (help @askdir-help)
  10.         (default (tackon @default-dest "Tools"))
  11.     )
  12. )
  13.  
  14. (set vernum (getversion))
  15. (set ver (/ vernum 65536))
  16. (set rev (- vernum (* ver 65536) ) )
  17.  
  18. (complete 10)
  19.  
  20. ;Determine system version and copy appropriate libraries.
  21. (if (> ver 36)
  22.     (
  23.         (copylib 
  24.             (source "Ami-Back Tools:Libs2.0/amigaguide.library")
  25.             (dest "LIBS:")
  26.         )
  27.     )
  28.     (
  29.         (copylib 
  30.             (source "Ami-Back Tools:Libs1.3/gadtools13.library")
  31.             (dest "LIBS:")
  32.         )
  33.         (copylib 
  34.             (source "Ami-Back Tools:Libs1.3/asl13.library")
  35.             (dest "LIBS:")
  36.         )
  37.     )
  38. )
  39.  
  40. (complete 30)
  41.  
  42. ;Copy AmigaGuide files to destination.
  43.  
  44. (copyfiles
  45.     (source "Ami-Back Tools:S/Ami-BackTools.guide")
  46.     (dest "S:")
  47. )
  48.  
  49. (complete 40)
  50.  
  51. ;Copy program files to destination.
  52. (copyfiles
  53.     (source "Ami-Back Tools:ABTools")
  54.     (dest destdir)
  55. )
  56.  
  57. (copyfiles
  58.     (source "Ami-Back Tools:ABTools.info")
  59.     (dest destdir)
  60. )
  61.  
  62. (copyfiles
  63.     (source "Ami-Back Tools:Ami-SchedII")
  64.     (dest destdir)
  65. )
  66.  
  67. (copyfiles
  68.     (source "Ami-Back Tools:Ami-SchedII.info")
  69.     (dest destdir)
  70. )
  71.  
  72. (complete 90)
  73.  
  74. ;Personalize Ami-Back Tools
  75.  
  76. (run ('\"%s\"' "Ami-Back Tools:C/Person" )
  77.     ('\"%s\"'
  78.         (tackon destdir "ABTools")
  79.     )    
  80.  
  81.     ('\"%s\"'
  82.         (askstring 
  83.             (prompt "What is your name?") 
  84.             (help "You must enter your name or company name so that your copy of Ami-Back Tools can be personalized.")
  85.         )
  86.     )
  87.     
  88.     (askstring
  89.         (prompt "What is your serial number?") 
  90.         (help "You can find your serial number on the front of you Ami-Back Tools master disk.")
  91.     )
  92.     
  93.     238020
  94. )
  95.  
  96. ;Correct @default-dest so that final information is correct.
  97. (set @default-dest destdir)
  98.  
  99. (complete 100)
  100.  
  101. (exit)
  102.