home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Tracker / strak125.lha / Install-StoneTracker < prev    next >
Encoding:
Text File  |  1995-10-05  |  4.1 KB  |  169 lines
  1. ; $VER: StoneTracker Install 1.25 (01.10.1995) by Lavaire Michael
  2. ;
  3. ; Installation script for StoneTracker demonstration version (net version)
  4. ; (c) Copyright 1995 Emmanuel Marty & Michael Lavaire
  5. ;
  6.  
  7. (if (= @language "français") (
  8. (set #BadKick
  9.     "Système V2.xx minimum."
  10. )
  11. (set #StoneDir-Msg (cat
  12.     "Sélectionnez le répertoire de destination de StoneTracker. "
  13.     "Aucun autre répertoire ne sera ajouté."
  14. ))
  15. (set #StoneLocale-Msg (cat
  16.     "Sélectionnez le répertoire de destination de la localisation "
  17.     "en français de StoneTracker"
  18. ))
  19. (set #StonePref-Msg (cat
  20.     "Sélectionnez le répertoire de destination du fichier de "
  21.     "configuration de StoneTracker."
  22. ))
  23. (set #StoneLib-Msg (cat
  24.     "Sélectionnez le répertoire de destination de la library "
  25.     "StonePlayer."
  26. ))
  27. (set #StoneDocs-Msg (cat
  28.     "Sélectionnez le répertoire de destination de la documentation "
  29.     "de StoneTracker."
  30. ))
  31. (set #StoneExam-Msg (cat
  32.     "Sélectionnez le répertoire de destination des modules d'exemple "
  33.     "de StoneTracker. Aucun autre répertoire ne sera ajouté."
  34. ))
  35. (set #CopyingStone
  36.     "Copie de StoneTracker en cours ..."
  37. )
  38. (set #CopyingLocale
  39.     "Copie de la localisation en cours ..."
  40. )
  41. (set #CopyingLib
  42.     "Copie de la library StonePlayer en cours ..."
  43. )
  44. (set #CopyingDoc
  45.     "Copie de la documentation de StoneTracker en cours ..."
  46. )
  47. (set #CopyingPref
  48.     "Copie de la configuration de StoneTracker en cours ..."
  49. ))
  50.  
  51. (
  52. (set #BadKick
  53.     "Kickstart 2.04 required."
  54. )
  55. (set #StoneDir-Msg (cat
  56.     "Select StoneTracker destination directory. "
  57.     "No directory will be created."
  58. ))
  59. (set #StonePref-Msg (cat
  60.     "Select StoneTracker configuration file "
  61.     "destination directory."
  62. ))
  63. (set #StoneLocale-Msg (cat
  64.     "Select StoneTracker french locale file "
  65.     "destination directory."
  66. ))
  67. (set #StoneLib-Msg
  68.     "Select StonePlayer library destination directory."
  69. )
  70. (set #StoneDocs-Msg
  71.     "Select StoneTracker documentation destination directory."
  72. )
  73. (set #StoneExam-Msg (cat
  74.     "Select StoneTracker example modules destination directory. "
  75.     "No directory will be created."
  76. ))
  77.  
  78. (set #CopyingStone
  79.     "Copying StoneTracker ..."
  80. )
  81. (set #CopyingLocale
  82.     "Copying locale files ..."
  83. )
  84. (set #CopyingLib
  85.     "Copying StonePlayer library ..."
  86. )
  87. (set #CopyingDoc
  88.     "Copying StoneTracker documentation ..."
  89. )
  90. (set #CopyingPref
  91.     "Copying StoneTracker configuration ..."
  92. )
  93.  
  94. (set #WorkingInstall
  95.     "Installation in progress ..."
  96. )
  97.  
  98. ))
  99.  
  100. (if (< (/ (getversion) 65536) 37) (abort #BadKick))
  101.  
  102. (set DestStone (askdir
  103.     (prompt #StoneDir-Msg)
  104.     (help @askdir-help)
  105.     (default "WORK:")
  106. ))
  107. (set @default-dest DestStone)
  108.  
  109. (set DestPref (askdir
  110.     (prompt #StonePref-Msg)
  111.     (help @askdir-help)
  112.     (default "ENVARC:")
  113. ))
  114. (set DestLocale (askdir
  115.     (prompt #StoneLocale-Msg)
  116.     (help @askdir-help)
  117.     (default "LOCALE:Catalogs/français")
  118. ))
  119. (set DestLib (askdir
  120.     (prompt #StoneLib-Msg)
  121.     (help @askdir-help)
  122.     (default "LIBS:")
  123. ))
  124. (set DestDocs (askdir
  125.     (prompt #StoneDocs-Msg)
  126.     (help @askdir-help)
  127.     (default DestStone)
  128. ))
  129. (set DestExam (askdir
  130.     (prompt #StoneExam-Msg)
  131.     (help @askdir-help)
  132.     (default DestStone)
  133. ))
  134.  
  135. (working #CopyingStone)
  136. (copyfiles (source "StoneTracker") (dest DestStone) (infos))
  137.  
  138. (working #CopyingPref)
  139. (copyfiles (source "Prefs/Env-Archive/StoneTracker.Prefs") (dest "T:"))
  140. (textfile    (dest "ENV:StoneTracker.Prefs")
  141.         (include "T:StoneTracker.Prefs")
  142.         (append "AppIcon        \"")
  143.         (append (tackon DestStone "StoneTracker.Info"))
  144.         (append "\"\nModulePath    \"")
  145.         (append DestExam)
  146.         (append "\"\n")
  147.         (append "Multiview    \"RUN <>NIL: SYS:Utilities/MultiView <>CON:////MultiView/AUTO/WAIT/CLOSE ")
  148.         (append (tackon DestDocs "%s"))
  149.         (append "\"\n")
  150.         )
  151. (copyfiles (source "ENV:StoneTracker.Prefs") (dest DestPref))
  152. (delete ("T:StoneTracker.Prefs"))
  153.  
  154. (working #CopyingLocale)
  155. (copyfiles (source "Locale/catalogs/Français/StoneTrackerDemo.Catalog") (dest DestLocale))
  156.  
  157. (working #CopyingLib)
  158. (copyfiles (source "Libs/StonePlayer.Library") (dest DestLib))
  159. (copyfiles (source "Libs/StonePacker.Library") (dest DestLib))
  160. (copylib (source "Libs/ReqTools.Library") (dest DestLib))
  161.  
  162. (copyfiles (source "Docs/StoneTrackerDemo.Guide") (dest DestDocs))
  163. (copyfiles (source "Docs/StoneTrackerDemo_E.Guide") (dest DestDocs))
  164.  
  165. (working #CopyingExam)
  166. (copyfiles (source "Modules") (dest DestExam) (files) (all))
  167.  
  168. (complete 100)
  169.