home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / videoarchiv_v2.0 / hd-install < prev    next >
Text File  |  1980-01-24  |  4KB  |  152 lines
  1.  
  2. (set progname    "VideoArchiv")
  3. (set progversion "2.0")
  4. (set progdir     "VideoArchiv_v2.0")
  5. (set diskname    "")
  6. (set user-level @user-level)
  7. (user 2)
  8.  
  9. (message (cat "\nWelcome to the installation utility of\n" progname
  10.               " " progversion " !\n\n"
  11.               "This utility installs the program " progname
  12.               "\ncompletely on your harddisk.\n")
  13. )
  14.  
  15. (user user-level)
  16. (welcome)
  17.  
  18. (set progpath "WORK:")
  19. (set ok 0)
  20.  
  21.  
  22. (set user-level @user-level)
  23. (user 2)
  24.  
  25. (while (not ok)
  26.   (set progpath (askdir
  27.                 (prompt (cat "Where shall " progname " be installed?\n"
  28.                              "(New Directory will be created.)"))
  29.                 (help @askdir-help)
  30.                 (default progpath)
  31.                 (disk)
  32.                 )
  33.   )
  34.   (If (= (Exists progpath (noreq)) 0)
  35.     (
  36.     (message (cat "\nPath does not exist!\n\n"
  37.                   "Please select a valid Path."))
  38.     )
  39.     (
  40.     (If (= (Exists (tackon progpath progdir)) 0)
  41.       (
  42.       (set ok 1)
  43.       )
  44.       (
  45.       (message (cat "\nA Directory called " progdir " does already \n"
  46.                     "exist in your Path!\n\n"
  47.                     "Please select another Directory or delete\n"
  48.                     "the " progdir "-Directory from your\n"
  49.                     "selected Path."))
  50.       )
  51.     )
  52.     )
  53.   )
  54. )
  55.  
  56. (set device (getdevice progpath))
  57. (set progpath (tackon progpath progdir))
  58.  
  59. (if (= (exists "Locale:" (noreq)) 2)
  60.   (
  61.     (set va "VideoArchiv_v2.0")
  62.   )
  63.   (
  64.     (set va "VideoArchiv_v2.0_Kick13")
  65.   )
  66. )
  67.  
  68. (copyfiles (prompt "\nCopy Files... please wait.")
  69.            (help @copyfiles-help)
  70.            (source "")
  71.            (dest progpath)
  72.            (choices
  73.              "VA_Data"
  74.              "Formular.txt"
  75.              "VA.config"
  76.              "VA.dat"
  77.              "VA.guide"
  78.              va
  79.            )
  80.            (infos)
  81. )
  82. (if (= (exists "VideoArchiv.key") 1)
  83.   (copyfiles (prompt "\nCopy Files... please wait.")
  84.              (help @copyfiles-help)
  85.              (source "")
  86.              (dest progpath)
  87.              (choices
  88.                "VideoArchiv.key"
  89.              )
  90.   )
  91. )
  92. (rename (tackon progpath "VideoArchiv_v2.0_Kick13") (tackon progpath "VideoArchiv_v2.0")
  93.   (prompt "")
  94. )
  95. (rename (tackon progpath "VideoArchiv_v2.0_Kick13.info") (tackon progpath "VideoArchiv_v2.0.info")
  96.   (prompt "")
  97. ) 
  98.  
  99.  
  100. (if (= (exists "Locale:" (noreq)) 2)
  101.   (
  102.     (set languages
  103.       (askoptions
  104.         (prompt "\nWhich languages should be installed?")
  105.         (help   @askoptions-help)
  106.         (choices
  107.           "English"
  108.           "Deutsch"
  109.           "Français"
  110.         )
  111.         (default 1)
  112.       )
  113.     )
  114.     (copylib
  115.       (prompt "Copy Library...")
  116.       (source (cat diskname ":Libs/Locale.library"))
  117.       (dest "LIBS:")
  118.     ) 
  119.     (set n 0)
  120.     (while
  121.       (set language
  122.         (select n
  123.           "English"
  124.           "Deutsch"
  125.           "Français"
  126.           ""
  127.         )
  128.       )
  129.       (
  130.         (if (IN languages n)
  131.           (if (<> 0 n)   ; No catalog for english strings...
  132.             (
  133.               (set catalogs (tackon "Locale/Catalogs" language))
  134.               (set destination (tackon "Locale:Catalogs" language))
  135.               (makedir destination)
  136.               (if (exists (tackon catalogs "VideoArchiv.catalog"))
  137.                 (copylib
  138.                   (prompt "Copy Translations...")
  139.                   (source (tackon catalogs "VideoArchiv.catalog"))
  140.                   (dest destination)
  141.                 )
  142.               )
  143.             )
  144.           )
  145.         )
  146.         (set n (+ n 1))
  147.       )
  148.     )
  149.   )
  150. ) 
  151.  
  152.