home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 96 / af096sub.adf / reset.LZX / mereset / Install < prev    next >
Text File  |  2002-05-07  |  3KB  |  169 lines
  1. ;
  2. ; Installer-Script for MEReset 2.0
  3. ; 
  4. ;    Autor    : Malte Eller
  5. ;    Version    : 1.0
  6. ;    Datum    : 11.01.1997
  7. ;
  8. ;    $VER: Install 1.0 (11.01.1997)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #bad-kick (cat "Leider wird OS2.0 oder höher benötigt"))
  17. (set #askdir1 (cat "Wohin wollen Sie MEReset installieren?\n"
  18. "Dort wird dann eine neue Schubalde angelegt"))
  19. (set #fragetext (cat "Soll ich das Programm auch in die\n"
  20. " WBStartup kopieren?"))
  21. (set #ja (cat "Ja"))
  22. (set #nein (cat "Nein"))
  23. (set #confirmt (cat "Was soll ich instalieren?"))
  24. (set #fragetextL (cat "Welche Sprachen sollen installiert werden?"))
  25. (set #CLI_Ver (cat "Soll ich die CLI/Shell-Version installieren?"))
  26. )
  27.  
  28. (
  29. (set #bad-kick (cat "I need OS2.0 or higher"))
  30. (set #askdir1 (cat "In which Drawe will you install MEReset?\n"
  31. "A new Drawer will be create"))
  32. (set #fragetext (cat "Shall I copy the Progrmm to WBStartup"))
  33. (set #ja (cat "Yes"))
  34. (set #nein (cat "No"))
  35. (set #confirmt (cat "What should I install?"))
  36. (set #fragetextL (cat "Which languages should I install?"))
  37. (set #CLI_Ver (cat "Should I install the CLI/Shell-Version?"))
  38. ))
  39.  
  40. ;**************************************************
  41.  
  42. (if (< (/ (getversion) 65536) 37)
  43. (
  44.     (abort #bad-kick)
  45. ))
  46.  
  47. ;**************************************************
  48.  
  49. (complete 0)
  50.  
  51. (set #name
  52.     (askdir
  53.         (prompt #askdir1)
  54.         (help @askdir-help)
  55.         (default "SYS:Tools")
  56.     )
  57. )
  58.  
  59. (set #Dname (tackon #name "MEReset"))
  60.  
  61. (makedir #Dname
  62.  (infos)
  63. )
  64.  
  65. (copyfiles
  66.     (source "")
  67.     (dest #Dname)
  68.     (pattern "#?")
  69.     (prompt #confirmt)
  70.     (help @confirm-help)
  71.     (confirm)
  72. )
  73.  
  74. (complete 50)
  75.  
  76. ;**************************************************
  77.  
  78. (set name
  79.     (askoptions
  80.         (prompt #fragetext)
  81.         (help @askoptions-help)
  82.         (choices #Ja)
  83.         (default 1)
  84.     )
  85. )
  86.  
  87. (if (= 1 name)
  88. (
  89.  (copyfiles
  90.     (source "MEReset")
  91.     (dest "sys:WBStartup")
  92.     (prompt #fragetext)
  93.     (help @confirm-help)
  94.     (confirm)
  95.  )
  96.  (copyfiles
  97.     (source "MEReset.info")
  98.     (dest "sys:WBStartup")
  99.     (prompt #fragetext)
  100.     (help @confirm-help)
  101.     (confirm)
  102.  )
  103. )
  104. )
  105.  
  106. (set name
  107.     (askoptions
  108.         (prompt #CLI_Ver)
  109.         (help @askoptions-help)
  110.         (choices #Ja)
  111.         (default 1)
  112.     )
  113. )
  114.  
  115. (if (= 1 name)
  116. (
  117.  (copyfiles
  118.     (source "MEReset.CLI")
  119.     (dest "s:")
  120.     (prompt #fragetext)
  121.     (help @confirm-help)
  122.     (confirm)
  123.  )
  124. ))
  125.  
  126. (complete 80)
  127.  
  128. ;**************************************************
  129.  
  130. (if (exists "sys:locale/catalogs")
  131.  
  132.  (set #lang (askoptions
  133.         (prompt #fragetextL)
  134.         (help @askoptions-help)
  135.         (choices "Deutsch" "English")
  136.         (default 1))
  137.  )
  138. )
  139.  
  140. (set #n 0)
  141.  
  142. (while
  143.     (set #sprache
  144.          (select #n
  145.              "Deutsch"
  146.              "English"
  147.              ""
  148.          )
  149.      )
  150.     (
  151.      (if (IN #lang #n)
  152.         (
  153.          (set #catalog (tackon "Catalogs" (tackon #sprache "mereset.catalog")))
  154.          (set #destination (tackon "Locale:Catalogs/" #sprache))
  155.          (copyfiles
  156.             (source #catalog)
  157.             (dest #destination)
  158.             (prompt #confirmt)
  159.             (help @confirm-help)
  160.             (confirm))
  161.         )
  162.      )
  163.      (set #n (+ #n 1))
  164.     )
  165. )
  166.  
  167.  
  168. (complete 100)
  169.