home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / IntelOutside4 / Demo-compo / VNT-FallenAngels / install < prev   
Encoding:
Text File  |  1997-07-11  |  1.8 KB  |  93 lines
  1.  
  2. (set app-name "Fallen_Angels by Venture")
  3.  
  4. (if(<(/(getversion)65536)39)
  5. (abort "Fallen Angels needs at least OS3.0\n"))
  6. (complete 0)
  7.  
  8. (message
  9.     (cat    "\n\n\n\n\n\nWelcome to The Fallen_Angels Installation Script.\n"
  10.             "(c)1997 Venture. All rights reserved."
  11.     )
  12. )
  13.  
  14.  
  15. (copyfiles
  16.     (prompt    "Copying ros config file into ENV:")
  17.     (help        #copy)
  18.     (source    "env/ros.prefs")
  19.     (dest        "ENV:")
  20.     (nogauge)
  21. )
  22.  
  23. (copyfiles
  24.     (prompt    "Copying keyfile")
  25.     (source    "l/fallen_angels.key")
  26.     (dest        "l:")
  27.     (nogauge)
  28. )
  29.  
  30. (complete 10)
  31.  
  32. (set rosv (/(getversion "libs:ros.library")65536))
  33. (set rosr (-(getversion "libs:ros.library")(* rosv 65536)))
  34. (set rosv2 (/(getversion "libs/ros.library")65536))
  35. (set rosr2 (-(getversion "libs/ros.library")(* rosv 65536)))
  36.  
  37. (set upd
  38.     (askchoice(choices "Update" "Dont")
  39.         (default 0)
  40.         (help "ros.library is required by the demo.")
  41.         (prompt ("\nCurrently installed ros.library: \n\nVersion : %ld.%ld\nVersion to install : %ld.%ld\n" rosv rosr rosv2 rosr2))
  42.     )
  43. )
  44. (copylib
  45.     (prompt    "Copying ros.library.")
  46.     (source    "libs/ros.library")
  47.     (dest        "libs:")
  48. )
  49.  
  50. (complete 20)
  51.  
  52. (set direk
  53.     (askdir
  54.         (prompt "Please select a place where you want to install Fallen Angels.\nDrawer for it will be created there.")
  55.         (help "Just tell me where to put this production.")
  56.         (default "ram:")
  57.     )
  58. )
  59.  
  60. (if
  61.     (not(exists(tackon direk "Fallen_Angels")))
  62.         (makedir(tackon direk "Fallen_Angels")
  63.     )
  64. )
  65.  
  66. (set direk(tackon direk "Fallen_Angels"))
  67.  
  68. (complete 30)
  69.  
  70. (copyfiles
  71.     (prompt    "Copying demo files into " direk)
  72.     (source    "fallen_angels")
  73.     (dest        direk)
  74. )
  75.  
  76. (complete 40)
  77.  
  78. (copyfiles
  79.     (prompt    "Copying demo files into " direk)
  80.     (source    "fallen_angels.dat")
  81.     (dest        direk)
  82. )
  83.  
  84. (complete 90)
  85.  
  86. (copyfiles
  87.     (prompt    "Copying demo files into " direk)
  88.     (source    "fallen_angels.readme")
  89.     (dest        direk)
  90. )
  91.  
  92. (complete 100)
  93.