home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -readerstuff- / andrew_edmonds / install < prev    next >
Encoding:
Text File  |  1997-07-03  |  1.9 KB  |  89 lines
  1. ; Installer script for UNIT v1
  2. ; By Andrew Edmonds
  3. ; July '97
  4.  
  5. (complete 0)
  6.  
  7. (message 
  8.   "\nUltimate New Internet Tool v1 - This is Freeware!"
  9.   "\n"  
  10.   "\nSee the doc for more info.\n"
  11.   "\nWritten By Andrew Edmonds"
  12.   "\n"  
  13.   "\n"
  14.   "\nVersion For Amiga Format CD"
  15. )
  16.  
  17. (complete 3)
  18.  
  19. (set #DEST0
  20.   (askdir
  21.     (prompt "Where do you want to install UNIT? A drawer will be created there.")
  22.     (help (cat @askdir-help)
  23.     )
  24.     (default "Work:")
  25.   )
  26. )
  27.  
  28. (complete 10)
  29.  
  30. (set #DEST (tackon #DEST0 "UNIT"))
  31. (makedir #DEST (infos))
  32. (makeassign "UNIT" #DEST)
  33. (copyfiles (dest #DEST) (source "Deckrunner"))
  34. (copyfiles (dest #DEST) (source "Install"))
  35. (copyfiles (dest #DEST) (source "Install.info"))
  36. (copyfiles (dest #DEST) (source "UNIT"))
  37. (copyfiles (dest #DEST) (source "UNIT.info"))
  38. (copyfiles (dest #DEST) (source "UNIT.prg"))
  39. (makedir "UNIT:Images")
  40. (copyfiles (dest "UNIT:Images/") (source "Images")
  41. (all))
  42. (makedir "UNIT:Docs")
  43. (copyfiles (dest #DEST) (source "Docs.info"))
  44. (copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Readme"))
  45. (copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Readme.info"))
  46. (copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Guide")) 
  47. (copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Guide.info"))
  48. ; Cando library
  49.  
  50. (complete 60)
  51.  
  52. (if (= (exists "LIBS:cando.library") 0)
  53.   (copylib
  54.     (source "Libs/cando.library")
  55.     (dest "LIBS:")
  56.     (confirm)
  57.     (prompt "\n\nInstall Cando.library?\n")
  58.     (help
  59.      (cat
  60.         "Cando.library is required to run UNIT! "
  61.         @copylib-help
  62.       )
  63.     )
  64.   )
  65. )
  66.  
  67. ; Candogfx.library
  68.  
  69. (complete 80)
  70.  
  71. (if (= (exists "LIBS:Candogfx.library") 0)
  72.   (copylib
  73.     (source "Libs/Candogfx.library")
  74.     (dest "LIBS:")
  75.     (confirm)
  76.     (prompt "\n\nInstall CandoGfx library?\n")
  77.     (help
  78.       (cat
  79.         "CandoGfx.library is required to run UNIT! "
  80.         @copylib-help
  81.       )
  82.     )
  83.   )
  84. )
  85.  
  86. (complete 100)
  87. (run "assign UNIT: Remove")
  88. ; Finished
  89.