home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / wb-enhancement / a-start / a-startinstall < prev    next >
Encoding:
Text File  |  1996-02-23  |  2.1 KB  |  80 lines
  1. ;******************** A-Start v0.5B install-script *******************
  2.  (set MSG_SPACE "\n\n\nWelcome A-Start v0.5B (c) Tuomas Artman/vPS.\n\nEnjoy this voidParrot Software product.\nPlease remember that this is only a preview version\nand has therefore only a limited number of functions.\nFull A-Start 1.0 version will be released as soon as possible!\n")
  3.  (set MSG_DESTINATION "Where would you like A-Start to be installed?\nThe installer will create a directory called\nA-Start in the chosen path.")
  4.  (set MSG_COPYING "Copying A-Start-files to %s.")
  5.  (set @abort-button "Abort installation.")
  6.  (set MSG_THANKS "\n\nThank you for using a vPS-product!\nPlease support the author!")
  7.  (set FSource)
  8.  (set Msg_run "\n\n\n\n\nDo you now want to configure A-Start?\nBe adviced that A-StartPrefs needs MUI!\n")
  9. (set osversion  (/ (getversion) 65536))
  10. (if (>= osversion 39)
  11.    (set guide_reader "MultiView")
  12.    (set guide_reader "AmigaGuide")
  13. )
  14.  
  15. (set installed "")
  16.  
  17. (complete 0)
  18. (message (MSG_SPACE ))
  19.  
  20. (set dest_dir
  21.    (askdir (prompt (MSG_DESTINATION))
  22.          (help @askdir-help)
  23.          (default @default-dest)
  24.          (newpath))
  25. )
  26.  
  27. (set dest_dir (tackon dest_dir "A-Start"))
  28. (set @default-dest dest_dir)
  29. (complete 20)
  30.  
  31. (copyfiles  (help @copyfiles-help)
  32.           (source "A-StartPrefs")
  33.           (dest "Sys:Prefs")
  34.           (infos)
  35. )
  36. (complete 40)
  37. (copyfiles  (help @copyfiles-help)
  38.           (source "A-Start")
  39.           (dest @default-dest)
  40.           (infos)
  41. )
  42. (complete 60)
  43. (copyfiles  (help @copyfiles-help)
  44.           (source "Docs")
  45.           (dest (tackon @default-dest "Documentation"))
  46.           (all)
  47.           (infos)
  48. )
  49. (complete 80)
  50. (copyfiles  (help @copyfiles-help)
  51.           (source "Docs.info")
  52.           (newname "Documentation.info")
  53.           (dest @default-dest)
  54. )
  55.  
  56.  
  57. (complete 90)
  58.  
  59. (makedir (tackon @default-dest "Caches"))
  60. (makedir (tackon @default-dest "Utils"))
  61.  
  62.  
  63. (complete 100)
  64.  
  65. (if (exists (tackon @default-dest "A-Start.guide.info") (noreq))
  66.    (
  67.      (tooltype   (dest (tackon @default-dest "Documentation/A-Start.guide"))
  68.                (noposition) (setdefaulttool guide_reader))
  69.    )
  70. )
  71.  
  72. (run "run Sys:Prefs/A-StartPrefs"
  73. (confirm)
  74. (prompt Msg_run)
  75. (help "You may now start A-StartPrefs to configure your version\nof the main programm.")
  76. )
  77.  
  78.    (exit (MSG_THANKS))
  79.  
  80.