home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Games-AddOns / XTreme-Data / XTR-ADF / Install_Tracks < prev    next >
Text File  |  1977-12-31  |  2KB  |  126 lines
  1. ;;
  2. ;; XTR tracks installer V1.0
  3. ;;
  4.  
  5. (transcript "Install XTR ADF Trackset")
  6.  
  7. (complete 0)
  8.  
  9. (welcome "XTR ADF Trackset Install V1.0")
  10.  
  11. (message "\n\nWelcome to the\n\n* ADF Trackset Installer *\nFor Xtreme Racing\nWritten by David Flaherty\n\nTracks Designed by Nicolas Imbert\n\nE-Mail:-\ndflaherty@nutts.demon.co.uk")
  12.  
  13. (complete 1)
  14.  
  15. ;try to figure out a place where the user usually installs his games
  16. (if (exists "Games:XTR/" (noreq) )
  17.     (set @path "Games:XTR/")
  18.     (if (exists "SYS:Games/XTR/" (noreq) )
  19.         (set @path "SYS:Games/XTR/")
  20.         (if (exists "Work:Games/XTR/" (noreq) )
  21.             (set @path "Work:Games/XTR/")
  22.             (if (exists "gamesstuff:XTR/" (noreq) )
  23.                 (set @path "gamesstuff:XTR/")
  24.                 (set @path "SYS:")
  25.             )
  26.         )
  27.     )
  28. )
  29.  
  30. (set path
  31.          (askdir
  32.                (prompt "Please select your XTR directory")
  33.                (help @askdir-help)
  34.                (default @path)
  35.                (newpath)
  36.          )
  37. )
  38.  
  39.  
  40. (set @path path)
  41.  
  42. (if (not (exists (tackon path "FrontEnd")))
  43. (abort "This is not the XTR directory!")
  44. )
  45.  
  46.  
  47.  
  48. (set #destlay (tackon @path "Layouts"))
  49. (set #destmisc (tackon @path "Misc"))
  50. (set #destmod (tackon @path "Modules"))
  51. (set #desttile (tackon @path "Tiles"))
  52. (set #desttrack (tackon @path "Tracks"))
  53. (set #destworld (tackon @path "Worlds"))
  54.  
  55. (complete 20)
  56.  
  57. (message "\nXTR ADF Tracks will be installed to\n\n '" path "' \n\nPress Abort To Cancel")
  58.  
  59. (copyfiles
  60.           (source "layouts")
  61.           (dest #destlay)
  62.           (all)
  63.           (infos)
  64. )
  65.  
  66. (complete 35)
  67.  
  68.  
  69. (copyfiles
  70.           (source "misc")
  71.           (dest #destmisc)
  72.           (all)
  73.           (infos)
  74. )
  75.  
  76. (complete 45)
  77.  
  78. (copyfiles
  79.           (source "modules")
  80.           (dest #destmod)
  81.           (all)
  82.           (infos)
  83. )
  84.  
  85. (complete 55)
  86.  
  87. (copyfiles
  88.           (source "tiles")
  89.           (dest #desttile)
  90.           (all)
  91.           (infos)
  92. )
  93.  
  94. (complete 70)
  95.  
  96. (copyfiles
  97.           (source "tracks")
  98.           (dest #desttrack)
  99.           (all)
  100.           (infos)
  101. )
  102.  
  103. (complete 80)
  104.  
  105. (copyfiles
  106.           (source "worlds")
  107.           (dest #destworld)
  108.           (all)
  109.           (infos)
  110. )
  111.  
  112. (complete 100)
  113.  
  114. (message "\nThe ADF trackset has been installed ")
  115.  
  116. (run "C:run >NIL: sys:utilities/multiview readme.txt")
  117.  
  118. (exit
  119.      (cat
  120.          "ADF trackset Installed To '" path "'."
  121.      )
  122.      (quiet)
  123. )
  124.  
  125. ; EOF
  126.