home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / grafik / rainbow_system / installation / install next >
Text File  |  1998-01-23  |  3KB  |  91 lines
  1. ;
  2. ; Script di installazione per RainbowSystem 2.0 (12.1.98)
  3. ;
  4.  
  5. (set lib-dest   "LIBS:")
  6. (set rs-dest    "SYS:Tools")
  7.  
  8. (
  9.         (if (< (/ (getversion) 65536) 39) (abort "RainbowSystem need at least OS 3.0"))
  10.  
  11.         (message
  12.                 (cat      "\n\n\nRainbowSystem, installation script.\n\n"
  13.                           "This script installs RainbowSystem on your Amiga.\n\n"
  14.                           "(C)opyright 1997-1998 by Andrea Latina\nAll rights reserved."
  15.                 )
  16.         )
  17.  
  18.         ;
  19.  
  20.         (set rs-dest
  21.             (askdir
  22.                 (prompt  "Select directory where to install RainbowSystem (a directory called `RainbowSystem` will be created here).")
  23.                 (help    "If you specify a path, a new directory called 'RainbowSystem' will be created in it.\nThe program will be copied in this directory.")
  24.                 (default rs-dest)
  25.             )
  26.         )
  27.  
  28.         (set lib-dest
  29.                 (askdir
  30.                         (prompt  "Select directory where to install the 'rainbow.library'")
  31.                         (help    @copylib-help)
  32.                         (default lib-dest)
  33.                 )
  34.         )
  35.  
  36.         (if (NOT (exists (tackon rs-dest "RainbowSystem")))
  37.             (makedir (tackon rs-dest "RainbowSystem")))
  38.  
  39.         (set @default-dest (tackon rs-dest "RainbowSystem"))
  40.  
  41.         (copyfiles
  42.             (prompt "Copying 'RainbowSystem' to " rs-dest "RainbowSystem/...")
  43.             (pattern "~(rainbow.library)")
  44.             (source "/")
  45.             (dest   (tackon rs-dest "RainbowSystem"))
  46.         )
  47.  
  48.         (copyfiles
  49.             (prompt "Copying 'RainbowSystem.info' to " rs-dest "...")
  50.             (source "//Rainbow_System.info")
  51.             (newname "RainbowSystem.info")
  52.             (dest   rs-dest)
  53.         )
  54.  
  55.         ; Copy the library.
  56.  
  57.         (copyfiles
  58.             (prompt (cat "Copying 'rainbow.library' to " lib-dest))
  59.             (help   @copylib-help)
  60.             (source "Libs/rainbow.library")
  61.             (dest   lib-dest)
  62.         )
  63.  
  64.         (if (askbool
  65.                 (prompt "Do you want to install a prefs icon linked to RanbowSystem?")
  66.                 (help "An icon called 'RainbowSystem' will be copied to the Prefs drawer.")
  67.                 (default 1)
  68.             )
  69.  
  70.             ((copyfiles
  71.                 (prompt "Copying 'RainbowSystem.info' to Prefs...")
  72.                 (source "Prefs_Icon/RainbowSystem.info")
  73.                 (dest   "SYS:Prefs/"))
  74.             (run  ("SetITool SYS:Prefs/RainbowSystem %s" (tackon rs-dest "RainbowSystem/RainbowManager"))))
  75.         )
  76.  
  77.         (if (askbool
  78.                 (prompt  "Should be RainbowManager automatically runned at bootup?")
  79.                 (help "RainbowManager can be loaded automatically on bootup.\n\n"
  80.                       "For this purpose an icon called 'RainbowManger' will be copied to the WBStartup drawer.")
  81.                 (default 1)
  82.             )
  83.  
  84.             ((copyfiles
  85.                 (prompt "Copying 'RainbowManager.info' to WBStartup...")
  86.                 (source "WBStartup_Icon/RainbowManager.info")
  87.                 (dest   "SYS:WBStartup/"))
  88.             (run  ("SetITool SYS:WBStartup/RainbowManager %s" (tackon rs-dest "RainbowSystem/RainbowManager"))))
  89.         )
  90. )
  91.