home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / kevin_mckenna / key / key-install next >
Text File  |  1998-04-29  |  3KB  |  109 lines
  1. (message "Key © 1998 Kai Software\n\n\n"
  2.          "This script will install Key "
  3.          "on your hard drive")
  4. (message "\n\n\n\n\nSupport the Amiga - Register Today!")
  5. (message "All files with this program will be copied "
  6. "to the directory YOU choose, however, the main program "
  7. "will be copied to SYS:C the Keyfile will be copied to S: if you "
  8. "do not want this, then Abort Install and Install manually!\n\n\n"
  9. "Bye for now!\n\n\n"
  10. "-Gonzo-")
  11. (welcome)
  12.  
  13. (set default-dest
  14.      (tackon (askdir (prompt "Where would you like to install Key?\n"
  15.                              "A drawer called 'KeyV2.1' will be created there.")
  16.                      (help @askdir-help)
  17.                      (default @default-dest)
  18.    )
  19. "KeyV2.1"                    
  20.      )
  21. )
  22.  
  23. (set @default-dest default-dest)
  24. (set @popo-dest default-dest/Docs)
  25. (copyfiles (source "KeyV2.1/Key.info") (dest @default-dest))
  26. (complete 30)
  27. (makedir @default-dest
  28.          (infos)
  29. )
  30. (copyfiles (source "KeyV2.1/Docs.info") (dest @default-dest))
  31. (complete 40)
  32. (copyfiles
  33.     (source "KeyV2.1/Key")
  34.     (dest "C:")
  35. )
  36. (complete 60)
  37. (copyfiles
  38.     (source "KeyV2.1/Keyfile.Key")
  39.     (dest "S:")
  40. )
  41. (complete 60)
  42. (copyfiles (source "KeyV2.1/Key.info") (dest @default-dest))
  43. (complete 80)
  44. (copyfiles (source "KeyV2.1/Docs")
  45.            (dest (tackon @default-dest "Docs"))           
  46. (all)
  47. )
  48. (complete 90)
  49.  
  50. ;****************************
  51. ; Ask which and install icons
  52. ;****************************
  53. (set #ICONS
  54.     (askchoice
  55.     (prompt "\nWhich type of icons do want to install?")
  56.     (help "\nHi! Just select one of the icon types.")
  57.     (default 0)
  58.     (choices
  59.         "MagicWB Icons"
  60.         "Standard Workbench Icons"
  61.  
  62.        )
  63.     )
  64.  
  65. )
  66. (if (= #ICONS 0)
  67.  (copyfiles (source "KeyV2.1/MWB-Icons/Key.info") (dest @default-dest))
  68. )
  69. (if (= #ICONS 0)
  70.  (copyfiles (source "KeyV2.1/MWB-Icons/Keyfile.Key.info") (dest @default-dest))
  71. )
  72. (if (= #ICONS 0)
  73.  (copyfiles
  74.  (source "KeyV2.1/MWB-Icons/Docs/Key.Guide.info")
  75.  (dest (tackon @default-dest "Docs" ) ) )
  76. )
  77. (if (= #ICONS 0)
  78.  (copyfiles
  79.  (source "KeyV2.1/MWB-Icons/Docs/Key.Doc.info")
  80.  (dest (tackon @default-dest "Docs" ) ) )
  81. )
  82. (if (= #ICONS 0)
  83.  (copyfiles
  84.  (source "KeyV2.1/MWB-Icons/Docs/CUST.Txt.info")
  85.  (dest (tackon @default-dest "Docs" ) ) )
  86. )
  87. (if (= #ICONS 0)
  88.  (copyfiles
  89.  (source "KeyV2.1/MWB-Icons/Docs.info")
  90.  (dest  @default-dest  ) )
  91. )
  92.  
  93. (if (= #ICONS 1)
  94.  (copyfiles (source "KeyV2.1/Key.info") (dest @default-dest)Docs)
  95. )
  96. (if (= #ICONS 1)
  97.  (copyfiles (source "KeyV2.1/Keyfile.Key.info") (dest @default-dest))
  98. )
  99.  
  100. (startup @app-name
  101.     (prompt "Shall I add Key to your "
  102.         "s:user-startup so that it will be run each time"
  103.         " you turn your Amiga on")
  104.     (help @startup-help)
  105.     (command "C:Key")
  106. )
  107. (exit)
  108. (complete 100)
  109.