home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / wb / lupe / lupe-install < prev    next >
Text File  |  1997-04-05  |  3KB  |  175 lines
  1.  
  2. (set #wrongversion
  3.   (cat "You have an old version of the program 'Installer' "
  4.        "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  5.        "Please check your configuration!"
  6.   )
  7. )
  8.  
  9. (set #welcome
  10.   (cat "Welcome to the Installation of Lupe V1.8!\n\n"
  11.        "Copyright by Frank Toepper of\n"
  12.        "Digital Innovations."
  13.   )
  14. )
  15.  
  16. (set #destdir
  17.   (cat "Select a directory to copy Lupe to.\n"
  18.        "No directory will be created."
  19.   )
  20. )
  21.  
  22. (set #copystr (cat "Copying Lupe..."))
  23.  
  24. (set #askdoc
  25.    (cat "Do you want to install the documentation?")
  26. )
  27.  
  28. (set #docdir
  29.   (cat "Select a directory for documentation.")
  30. )
  31.  
  32. (set #copydoc
  33.   (cat "Copying documentation...")
  34. )
  35.  
  36. (set #cat
  37.    (cat "Which catalog file(s) do you want to install\n(english is build in)?")
  38. )
  39.  
  40. (set #askicon
  41.    (cat "Do you want to install the Appicon?")
  42. )
  43.  
  44. ; We can't handle this script without Installer 42.9 or better!
  45. (if (< @installer-version 2752521)
  46.   (
  47.     ; Big problem!
  48.     (message #wrongversion)
  49.     (exit (quiet))
  50.   )
  51. )
  52.  
  53. (welcome #welcome)
  54.  
  55. (set destdir
  56.  (askdir
  57.   (prompt #destdir)
  58.   (help @askdir-help)
  59.   (default "SYS:")
  60.  )
  61. )
  62.  
  63. (if (patmatch "68000|68010" (database "cpu"))
  64.   ((set #srcname "Lupe"))
  65.   ;else
  66.   ((set #srcname "Lupe.020"))
  67. ) ;if
  68.  
  69. (copyfiles
  70.   (prompt #copystr)
  71.   (help @copyfiles-help)
  72.   (source #srcname)
  73.   (dest destdir)
  74.   (files)
  75.   (newname "Lupe")
  76.   (optional force)
  77. )
  78.  
  79. (copyfiles
  80.   (prompt #copystr)
  81.   (help @copyfiles-help)
  82.   (source "Lupe.info")
  83.   (dest destdir)
  84.   (noposition)
  85.   (optional force)
  86. )
  87.  
  88. (set docbool
  89.   (askbool
  90.     (prompt #askdoc)
  91.     (choices "Yes" "No")
  92.     (help "No Help!")
  93.     (default 0)
  94.   )
  95. )
  96.  
  97. (if (= docbool 1)
  98. (
  99.  (set docdir
  100.   (askdir
  101.   (prompt #docdir)
  102.   (help @askdir-help)
  103.   (default "Help:")
  104.  )
  105. )
  106.  
  107. (set docfiles
  108.  (askoptions
  109.   (prompt "Which documentation do you want to install?")
  110.   (help @askoptions-help)
  111.   (choices "English" "Deutsch")
  112.   (default 1)
  113.  )
  114. )
  115.  
  116. (if (BITAND docfiles 1)
  117.   (copyfiles
  118.   (prompt "Copy documentation...")
  119.   (help @copyfiles-help)
  120.   (dest docdir)
  121.   (source "Lupe.doc")
  122.   (files)
  123.   (infos)
  124.   )
  125. )
  126.  
  127. (if (BITAND docfiles 2)
  128.   (copyfiles
  129.   (prompt "Copy documentation...")
  130.   (help @copyfiles-help)
  131.   (dest docdir)
  132.   (source "Lupe.dok")
  133.   (files)
  134.   (infos)
  135.   )
  136. )
  137. )) ; if
  138.  
  139. (copyfiles
  140.   (prompt #cat)
  141.   (help @copyfiles-help)
  142.   (source "locale/catalogs")
  143.   (dest "Locale:catalogs")
  144.   (pattern "#?")
  145.   (confirm)
  146. )
  147.  
  148. (set iconbool
  149.   (askbool
  150.     (prompt #askicon)
  151.     (choices "Yes" "No")
  152.     (help "No Help!")
  153.     (default 0)
  154.   )
  155. )
  156.  
  157. (if (= iconbool 1)
  158. (
  159.   (copyfiles
  160.   (prompt "Copy Appicon...")
  161.   (help @copyfiles-help)
  162.   (dest "Envarc:sys")
  163.   (source "Prefs/Env-Archive/sys/def_Lupe.info")
  164.   (files)
  165.   )
  166.   (copyfiles
  167.   (prompt "Copy Appicon...")
  168.   (help @copyfiles-help)
  169.   (dest "Env:sys")
  170.   (source "Prefs/Env-Archive/sys/def_Lupe.info")
  171.   (files)
  172.   )
  173. )
  174. )
  175.