home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / td_prefs2 / install_td_prefs2 < prev    next >
Encoding:
Text File  |  1997-09-04  |  1.9 KB  |  77 lines
  1. ; $VER: TD Prefs 2 Install 1.0 (3.9.97)
  2. ; Installs TD Prefs 2
  3.  
  4. ;text
  5.  
  6. (set #t_hello "\nWelcome to the TD Prefs 2 Installation\nVersion 1.0\n©1997 Steven Pearson\n")
  7. (set #t_notrit "Installation Failed\n\nPlease Install The Version of Triton Included, Reset and Try Again")
  8. (set #t_tdwhereprompt "Where Should the Executable TD_Prefs2 be copied to.\nA directory will NOT be created\n")
  9. (set #t_tdwherehelp "TD Prefs is a Prefs Editor and should be kept with your other Prefs Editors.\nThis is usually in SYS:Prefs")
  10. (set #t_docwhereprompt "Where Should the Documentation be copied.\nA Directory called TDPrefs2 Will be created\n")
  11. (set #t_docwherehelp "The Documentation is in HTML format.\n It will be installed into it's own directory to enable Un-Installation easily\nTo read the documentation use a HTML Reader or Web Browser such as\n\nMoreHTML - A Minimal NON Internet HTML reader, Needs MUI\nVoyager - A Fully Functioning ShareWare Web Browser, Needs MUI\nAweb - Another Shareware?Browser, Does NOT need MUI\nIBrowse - Commercial Web Browser From HiSoft")
  12.  
  13. ;variables
  14.  
  15. (set #v_tdsource (pathonly @icon))
  16. (set #v_tddest "Sys:Prefs")
  17. (set #v_docdrawer "TdPrefs2")
  18. (set #v_docdest "Help:")
  19.  
  20. (complete 0)
  21.  
  22. (welcome #t_hello)
  23. (if ( < (/ (getversion "libs:triton.library") 65536) 6 )
  24.     (exit #t_notrit (quiet))
  25. )
  26.  
  27. (complete 17)
  28.  
  29. (set #v_tddest (askdir
  30.     (prompt #t_tdwhereprompt)
  31.     (help #t_tdwherehelp)
  32.     (default #v_tddest)
  33. ))
  34. (set @default-dest #v_tddest)
  35.  
  36. (complete 33)
  37.  
  38.  
  39. (set #v_docdest (askdir
  40.     (prompt #t_docwhereprompt)
  41.     (help #t_docwherehelp)
  42.     (default #v_docdest)
  43. ))
  44.  
  45. (set #v_docdest (tackon #v_docdest #v_docdrawer) )
  46.  
  47. (complete 50)
  48.  
  49.  
  50. (if (not (exists #v_docdest))
  51.     (
  52.         (makedir #v_docdest )
  53.     )
  54. )
  55.  
  56. (complete 67)
  57.  
  58.  
  59. ;copy files
  60.  
  61. (copyfiles
  62.     (infos)
  63.     (source (tackon #v_tdsource "TD_Prefs2") )
  64.     (dest #v_tddest)
  65. )
  66.  
  67. (complete 83)
  68.  
  69. (copyfiles
  70.     (source (tackon #v_tdsource "Docs") )
  71.     (dest #v_docdest)
  72.     (all)
  73. )
  74.  
  75. (complete 100)
  76. (exit)
  77.