home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / amiga / chipgame / magicnumbers.lha / MagicNumbers / Install / InstallScript < prev    next >
Encoding:
Text File  |  2001-05-12  |  2.5 KB  |  136 lines
  1. ;
  2. ;  Magic Numbers 1.1 installer
  3. ;  *************************
  4. ;
  5. ;  (c) 2001 Magic Software
  6. ;  ***********************
  7. ;
  8. ;
  9. ; -------------------------------------------------------------------------
  10. ;
  11. ;
  12. (if (= @language "english")
  13.   (
  14.     (set #select-destination
  15.       (cat "Where do you want to install the program? A directory "
  16.            "called \"MagicNumbers\" will be automatically created."
  17.       )
  18.     )
  19.     (set #select-catalogs "Which translations do you want to install?")
  20.     (set #copying-files "Copying files...")
  21.     (set #copying-library "Copying utilities.library...")
  22.   )
  23. )
  24. (if (= @language "polski")
  25.   (
  26.     (set #select-destination
  27.       (cat "Gdzie chcesz zainstalowaΩ program? Katalog o nazwie "
  28.            "\"MagicNumbers\" zostanie automatycznie utworzony."
  29.       )
  30.     )
  31.     (set #select-catalogs "Kt≤re tεumaczenia chcesz zainstalowaΩ?")
  32.     (set #copying-files "Kopiujδ pliki...")
  33.     (set #copying-library "Kopiujδ utilities.library...")
  34.  
  35.   )
  36. )
  37. ;
  38. ;
  39. ;--------------------------------------------------------------------------
  40. ;
  41. ; Ask about destination
  42. ;
  43. (set #destinationParent
  44.   (askdir
  45.     (prompt  #select-destination)
  46.     (help    @askdir-help)
  47.     (default "SYS:")
  48.   )
  49. )
  50.  
  51. ;
  52. ; Ask about catalogs
  53. ;
  54. (set #catalogs
  55.   (askoptions 
  56.     (prompt  #select-catalogs)
  57.     (help    @askoptions-help)
  58.     (choices "Polski" "Deutsch")
  59.     (default 0)
  60.   )
  61. )
  62. ;
  63. ;
  64. ; -------------------------------------------------------------------------
  65. ;
  66. ; Create destination directory
  67. ;
  68. (set #destination
  69.   (tackon #destinationParent "MagicNumbers"
  70.   )
  71. )
  72.  
  73. (makedir #destination
  74.   (infos)
  75. )
  76.  
  77. ;
  78. ;  Copy files
  79. ;
  80. (copyfiles
  81.   (source  "/")
  82.   (dest    #destination)
  83.   (choices "MagicNumbers" "Docs" "Images")
  84.   (prompt  #copying-files)
  85.   (help    @copyfiles-help)
  86.   (infos)
  87. )
  88.  
  89. ;
  90. ; Copy catalogs and catalog description
  91. ;
  92. (makedir (cat #destination "/Catalogs") )
  93.  
  94. (copyfiles
  95.   (source "/Catalogs.info")
  96.   (dest   #destination)
  97.   (prompt #copying-files)
  98.   (help   @copyfiles-help)
  99. )
  100.  
  101. (copyfiles
  102.   (source  "/Catalogs/MagicNumbers.cd")
  103.   (dest    (cat #destination "/Catalogs") )
  104.   (prompt  #copying-files)
  105.   (help    @copyfiles-help)
  106. )
  107.  
  108. (set n 0)
  109. (while (set #catalog (select n "polski" "deutsch" "") )
  110.  (
  111.   (if (IN #catalogs n)
  112.    (
  113.     (copyfiles
  114.      (source (cat "/Catalogs/" #catalog) )
  115.      (dest   (cat #destination "/Catalogs/" #catalog) )
  116.      (all)
  117.     )
  118.    )
  119.   )
  120.   (set n (+ n 1) )
  121.  )
  122. )
  123.  
  124. ;
  125. ;  Copy utilities.library
  126. ;
  127. (copylib
  128.   (source "/Libs/utilities.library")
  129.   (dest   "Libs:")
  130.   (prompt #copying-library)
  131.   (help   @copylib-help)
  132.   (confirm)
  133. )
  134.  
  135. (exit)
  136.