home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / C / SongPlayer / SongPlayer-Install < prev    next >
Text File  |  1999-10-06  |  5KB  |  202 lines
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ;   File    :   SongPlayer-Install
  4. ;
  5. ;   Author  :   Stéphane TAVENARD
  6. ;
  7. ;   (C) Copyright 1996-1998 Stéphane TAVENARD
  8. ;       All Rights Reserved
  9. ;
  10. ;   #Rev|   Date   |                      Comment
  11. ;   ----|----------|--------------------------------------------------------
  12. ;   0   |05/01/1997| Initial revision                                     ST
  13. ;   1   |24/08/1997| Generic CPU version / no more SONGPLAYER: assign     ST
  14. ;   2   |23/03/1998| Locale support / Arexx samples  / mpega.library      ST
  15. ;
  16. ;   ------------------------------------------------------------------------
  17. ;
  18. ;   SongPlayer Intall script
  19. ;
  20. ;------------------------------------------------------------------------------
  21.  
  22. (complete 0)
  23.  
  24. ; Français
  25. ;------------------------------------------------------------------------------
  26. (if (= @language "français")
  27. (
  28.  
  29. (set #guide "SongPlayer.fr.Guide" )
  30.  
  31. (set #destdir
  32.    (cat "Choisisez un repertoire de destination pour SongPlayer.\n"
  33.         "Un Tiroir nommé 'SongPlayer' y sera créé."
  34.    )
  35. )
  36.  
  37. (set #copying "Copie des fichiers en cours.")
  38.  
  39. (set #mpegalib
  40.    (cat "Vous devez installer la librarie 'MPEGA.library'\n"
  41.         "correspondant à votre processeur pour pouvoir\n"
  42.         "utiliser des fichiers MPEG Audio.\n"
  43.         "\n"
  44.         "Cette librarie se trouve sur Aminet:\n"
  45.         "utils/libs/mpega_library.lha"
  46.    )
  47. )
  48.  
  49. )
  50.  
  51. ; Language is english by default
  52. ;------------------------------------------------------------------------------
  53. (
  54.  
  55. (set #guide "SongPlayer.en.Guide" )
  56.  
  57. (set #destdir
  58.    (cat "Please select a place for SongPlayer.\n"
  59.         "A drawer called 'SongPlayer' will be created."
  60.    )
  61. )
  62.  
  63. (set #copying "Files copy in progress.")
  64.  
  65. (set #mpegalib
  66.    (cat "You have to install the library 'MPEGA.library'\n"
  67.         "that correspond to your CPU in order to\n"
  68.         "use MPEG Audio files.\n"
  69.         "\n"
  70.         "This library can be found on Aminet:\n"
  71.         "utils/libs/mpega_library.lha"
  72.    )
  73. )
  74.  
  75. )
  76.  
  77. )
  78.  
  79. ; Search for old SONGPLAYER directory
  80. ;------------------------------------------------------------------------------
  81. (complete 10)
  82.  
  83. (if (<> (exists "SONGPLAYER:" (noreq)) 0)
  84. (
  85.    (set @default-dest (expandpath "SONGPLAYER:/"))
  86.    (set songplayerdir (tackon @default-dest "SongPlayer"))
  87. ))
  88.  
  89. ; Ask for destination directory
  90. ;------------------------------------------------------------------------------
  91. (complete 20)
  92.  
  93. (set @default-dest
  94.    (askdir
  95.       (prompt #destdir)
  96.       (help @askdir-help)
  97.       (default @default-dest)
  98.    )
  99. )
  100.  
  101. (set @default-dest (expandpath @default-dest))
  102. (set destination (tackon @default-dest "SongPlayer"))
  103.  
  104. ; Create dir if doesn't exist
  105. ;------------------------------------------------------------------------------
  106. (complete 30)
  107.  
  108. (if (= (exists destination) 0 )
  109. (
  110.    (makedir destination (help @makedir-help))
  111. ))
  112.  
  113.  
  114. ; Copy Main files now
  115. ;------------------------------------------------------------------------------
  116. (complete 40)
  117.  
  118. (copyfiles
  119.    (prompt #copying)
  120.    (source "")
  121.    (files)
  122.    (choices "SongPlayer")
  123.    (dest destination)
  124.    (infos)
  125.    (noposition)
  126.    (help @copyfiles-help)
  127. )
  128.  
  129. ; Copy Help file now
  130. ;------------------------------------------------------------------------------
  131. (complete 50)
  132. (copyfiles
  133.    (prompt #copying)
  134.    (source #guide)
  135.    (dest destination)
  136.    (newname "SongPlayer.Guide")
  137.    (infos)
  138. )
  139.  
  140. ; Copy Images files now
  141. ;------------------------------------------------------------------------------
  142. (complete 60)
  143.  
  144. (copyfiles
  145.    (prompt #copying)
  146.    (source "")
  147.    (pattern "Images")
  148.    (dest destination)
  149.    (infos)
  150.    (help @copyfiles-help)
  151. )
  152.  
  153. ; Copy Catalog files now
  154. ;------------------------------------------------------------------------------
  155. (complete 70)
  156.  
  157. (copyfiles
  158.    (prompt #copying)
  159.    (source "")
  160.    (pattern "Catalogs")
  161.    (dest destination)
  162.    (infos)
  163.    (help @copyfiles-help)
  164. )
  165.  
  166. ; Copy Arexx samples files now
  167. ;------------------------------------------------------------------------------
  168. (complete 80)
  169.  
  170. (copyfiles
  171.    (prompt #copying)
  172.    (source "")
  173.    (pattern "Arexx")
  174.    (dest destination)
  175.    (infos)
  176.    (help @copyfiles-help)
  177. )
  178.  
  179. ; Copy Utilities files now
  180. ;------------------------------------------------------------------------------
  181. (complete 90)
  182.  
  183. (copyfiles
  184.    (prompt #copying)
  185.    (source "")
  186.    (pattern "Utils")
  187.    (dest destination)
  188.    (infos)
  189.    (help @copyfiles-help)
  190. )
  191.  
  192. ; End
  193. ;------------------------------------------------------------------------------
  194. (complete 95)
  195.  
  196. (message
  197.    (cat "\n" #mpegalib)
  198. )
  199.  
  200. (complete 100)
  201.  
  202.