home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / diskmags / mw-ple2f.lha / PlanetE_2 / install-planete next >
Encoding:
Text File  |  1992-09-02  |  1.6 KB  |  74 lines
  1.  
  2. ; Planet E Installer - Issue 2+
  3.  
  4. (user 0)
  5. (set old_level @user-level)
  6.  
  7. (complete 0)
  8.  
  9. (user 2)
  10.  
  11. (set dest2 (askdir (prompt "Select Directory you wish Planet-E Issue 2 to be installed")
  12.           (default "sys:")
  13.                   (help "A directory 'PlanetE' will be created"
  14.                         "in the partition or directory chosen."
  15.             "The PlanetE files will be placed here."
  16.           )
  17.           )
  18. )
  19.  
  20. (set destfonts "FONTS:")
  21. (set destlibs "LIBS:")
  22.  
  23.  
  24. (user old_level)
  25.  
  26. (set dest1 (tackon dest2 "PlanetE"))
  27.  
  28. (set destdata (tackon dest1 "data"))
  29. (set destart (tackon dest1 "art"))
  30. (set destbin (tackon dest1 "bin"))
  31.  
  32. (makedir dest1 (infos))
  33.  
  34. (message "Installing Font to FONTS:" )
  35. (copyfiles (source "fonts") (dest destfonts) (all))
  36.  
  37. (if (exists "LIBS:powerpacker.library")
  38.     (   (set noppinstall "Not Installing")
  39.     )
  40.  
  41.     (
  42.         (message "Installing powerpacker.library to LIBS:" )
  43.         (copyfiles (source "libs/powerpacker.library") (dest destlibs) )
  44.     )
  45. )
  46.  
  47. (complete 1)
  48.  
  49. (set @default-dest destdata)
  50. (message "Installing Internal Data files to " destdata)
  51. (copyfiles (source "data") (dest destdata) (all))
  52. (copyfiles (source "PlanetE_Issue_2") (dest dest1) (infos))
  53. (copyfiles (source "Xicon") (dest dest1))
  54.  
  55. (complete 10)
  56.  
  57. (set @default-dest destart)
  58. (message "Installing Articles to " destart)
  59. (copyfiles (source "art") (dest destart) (all))
  60.  
  61. (complete 30)
  62.  
  63. (set @default-dest destbin)
  64. (message "Installing Music to " destbin)
  65. (copyfiles (source "bin") (dest destbin) (all))
  66.  
  67. (complete 90)
  68.  
  69. (set @default-dest dest1)
  70. (message "Installing Main Executable PlanetE to " dest1)
  71. (copyfiles (source "planete") (dest dest1) (infos))
  72.  
  73. (complete 100)
  74.