home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Utilities / SystemReset / InstallPl < prev    next >
Text File  |  1999-11-20  |  2KB  |  126 lines
  1.  
  2. ; Install script
  3.  
  4. ;=============================================================================
  5. (set #bad-kick "Musisz mieê Kickstart 2.05 (37),\naby uûywaê tego programu !")
  6. (set #bad_req "Musisz mieê zainstalowanâ biliotekë reqtools v38,\naby uûywaê tego programu !")
  7. (set #where-prog "Wybierz katalog, w którym mam zainstalowaê aplikacjë")
  8. (set #doc-install "Chcesz instalowaê dokumentacjë?")
  9. (set #where-doc "Wybierz katalog, w którym mam zainstalowaê dokumentacjë")
  10. (set #sources-install "Chcesz instalowaê kod ûródîowy?")
  11. (set #where-sources "Wybierz katalog, w którym mam zainstalowaê kod ûródîowy")
  12. (set #sel-sources "Wybierz pliki do instalacji")
  13.  
  14. (set #install-msg
  15.     (cat "\n\nSkrypt instalacyjny programu SystemReset.\n"
  16.        "Ten skrypt instaluje SystemReset na Twojej Amidze.\n\n"
  17.          "SystemReset\n"
  18.          "Copyright © 1999 Tomasz <Pony> Pëczek\n"
  19.          "FreeWare\n\n"
  20.     )
  21. )
  22.  
  23. ;=============================================================================
  24. ; make sure we are running under a 2.04 ROM
  25.  
  26. (if (< (/ (getversion) 65536) 37)
  27.     (
  28.     (abort #bad-kick)
  29.     )
  30. )
  31.  
  32. ;=============================================================================
  33. (set #old-level @user-level)
  34. (user 2)
  35. (message #install-msg)
  36.  
  37. (if (not(exists "LIBS:reqtools.library"))
  38.   (
  39.     (abort #bad_req)
  40.   )
  41.   (
  42.     (if (< (/ (getversion "LIBS:reqtools.library") 65536) 38)
  43.       (
  44.         (abort #bad_req)
  45.       )
  46.     )
  47.   )
  48. )
  49.  
  50. (user #old-level)
  51.  
  52. (set destdir    (askdir
  53.                                 (prompt #where-prog)
  54.                                 (help @askdir-help)
  55.                                 (default "SYS:Tools")
  56.                             )
  57. )
  58.  
  59. (set @default-dest destdir)
  60.  
  61. (complete 25)
  62.  
  63. (copyfiles
  64.     (source "SystemResetPL")
  65.     (dest destdir)
  66.     (infos)
  67.     (noposition)
  68. )
  69.  
  70.  
  71. (set doc    (askbool
  72.                         (prompt #doc-install)
  73.                         (help @askbool-help)
  74.                     )
  75. )
  76.  
  77. (complete 50)
  78.  
  79. (if (<> doc 0)
  80.     (
  81.         (set docdir    (askdir
  82.                                     (prompt #where-doc)
  83.                                     (help @askdir-help)
  84.                                     (default "HELP:")
  85.                                 )
  86.         )
  87.         (copyfiles
  88.             (source "Docs/SystemResetPL.guide")
  89.             (dest docdir)
  90.             (infos)
  91.             (noposition)
  92.         )
  93.     )
  94. )
  95.  
  96. (set sources    (askbool
  97.                         (prompt #sources-install)
  98.                         (help @askbool-help)
  99.                     )
  100. )
  101.  
  102. (complete 75)
  103.  
  104. (if (<> sources 0)
  105.     (
  106.         (set sourcesdir    (askdir
  107.                                     (prompt #where-sources)
  108.                                     (help @askdir-help)
  109.                                     (default "DH1:Sources")
  110.                                 )
  111.         )
  112.         (copyfiles
  113.             (prompt #sel-sources)
  114.             (help @copyfiles-help)
  115.             (source "Sources")
  116.             (dest sourcesdir)
  117.             (noposition)
  118.             (all)
  119.             (confirm)
  120.         )
  121.     )
  122. )
  123.  
  124. (complete 100)
  125. (exit)
  126.