home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / comm / net / AmiComSys.lha / AmiComSys / Install-images < prev    next >
Text File  |  2000-07-09  |  2KB  |  52 lines
  1. ; Install script for images for AmiComSys 1.25+
  2. ;
  3. ; $VER: AmiComSys-image-install 1.2 (01.01.2000) Håkan Parting
  4.  
  5. (set #selimages "Do you want to use the NewIcons graphics-buttons\nor the MagicWB-graphics-buttons?")
  6. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.")
  7.  
  8.  
  9. (message
  10.      "Welcome to the AmiComSys image installer!\n\n"
  11.     "This will install one of the graphics sets.\n"
  12.     "NOTE: The installer for AmiComSys does that\n"
  13.     "automatically. But if you want to switch to\n"
  14.     "another use this script.\n"
  15.     "AmiComSys © Håkan Parting 1997-2000\n"
  16.     "Requires:\n"
  17.     "AmiComSys 1.25+ installed\n"
  18. )
  19.  
  20. (message
  21.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  22. )
  23.  
  24. (set DefDir (getassign "AMICOMSYS"))
  25. (if (= DefDir "") (set DefDir (getassign "MIAMI")) )
  26. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  27. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  28.  
  29. (set #target (askdir    (prompt "Please locate your AmiComSys directory.\nThis is the directory with the Images directory.")
  30.     (help "")
  31.     (default DefDir)
  32. ))
  33.  
  34. (set instdir #target)
  35. (set @default-dest instdir)
  36.  
  37. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  38.  
  39. ; copy over files
  40.  
  41. (set imag (askchoice (choices "NewIcons (20 colours)" "MagicWB - Andreas Kuerzinger '00 (8 colours)" "MagicWB - Mads 'Yedo' Jensen '98 (8 colours)" "I've installed a replacement\ngfx-set. If so, make sure it's done for ACS 1.25+!")
  42.                     (prompt #selimages)
  43.                     (help #selimageshelp)
  44.                     (default 1)
  45. ))
  46.  
  47. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  48. (if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  49. (if (= imag 2) (copyfiles (source "MWBImages2") (dest (tackon instdir "Images")) (all)))
  50. (if (= imag 3) (message "Okey why did you run this script anyway :)"))
  51.  
  52.