home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / CYBQT11.LHA / CyberQT / Install < prev   
Encoding:
Text File  |  1997-02-19  |  4.4 KB  |  189 lines
  1. ;
  2. ; $VER: CyberQT installation 1.1 (9.12.96)
  3. ;
  4. ; Copyright (c) 1996 Thore Böckelmann
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11. (if (not (= @language "deutsch"))
  12.   (
  13.     (set #bad-kick "You must have AmigaOS 3.0 (V39) or newer to be able to use CyberQT.")
  14.     (set #bad-cpu "You must have at least an MC68020 to use CyberQT.")
  15.     (set #selectdir "Please select where to install CyberQT\nA directory 'CyberQT' will be created automatically")
  16.     (set #selectlibsdir "Please select where to install necessary libraries")
  17.     (set #makedircyberqt "Creating directory 'CyberQT'")
  18.     (set #copymainprg "Copying CyberQT...")
  19.     (set #copydocs "Copying documentation...")
  20.     (set #copylibs "Copying asyncio.library...")
  21.     (set #installgui "\n\nDo you want to install the Argue interface for CyberQT?\n(You need to have Argue installed!)")
  22.     (set #installguihelp "You will have to get argue13.lha and argue13a.lha from Aminet to use this graphical user interface.\n\nArgue is ©1996 by Thorsten Stocksmeier")
  23.     (set #copyargue "Copying interface for CyberQT...")
  24.   )
  25. )
  26.  
  27. ;****************************************************************************
  28. ;
  29. ; Deutsche Texte
  30. ;
  31. (if (= @language "deutsch")
  32.   (
  33.     (set #bad-kick "Sie müssen AmigaOS 3.0 (V39) oder höher installieren, um CyberQT zu benutzen.")
  34.     (set #bad-cpu "Sie brauchen mindestens einen MC68020, um CyberQT zu benutzen.")
  35.     (set #selectdir "Wohin soll CyberQT installiert werden?\nEin Verzeichnis 'CyberQT' wird automatisch erstellt")
  36.     (set #selectlibsdir "Wohin sollten die benötigten Bibliotheken installiert werden?")
  37.     (set #makedircyberqt "Erstelle Verzeichnis 'CyberQT'")
  38.     (set #copymainprg "Kopiere CyberQT...")
  39.     (set #copydocs "Kopiere Anleitung...")
  40.     (set #copylibs "Kopiere asyncio.library...")
  41.     (set #installgui "\n\nWollen Sie die Argue-Oberfläche für CyberQT installieren?\n(Sie müssen dafür Argue installiert haben!)")
  42.     (set #installguihelp "Sie müssen sich argue13.lha und argue13a.lha vom Aminet besorgen, um die Oberfläche benutzen zu können.\n\nArgue ist ©1996 by Thorsten Stocksmeier")
  43.     (set #copyargue "Kopiere Oberfläche für CyberQT...")
  44.   )
  45. )
  46.  
  47. ;****************************************************************************
  48. ;
  49. ; Setup
  50. ;
  51.  
  52. (complete 0)
  53.  
  54. (if (< (/ (getversion) 65536) 39)
  55.   (abort #bad-kick)
  56. )
  57.  
  58. (if (patmatch "68000|68010" (database "cpu"))
  59.   (abort #bad-cpu)
  60. )
  61.  
  62. (set @default-dest "SYS:")
  63. (set @libs-dest "LIBS:")
  64.  
  65. ;****************************************************************************
  66. ;
  67. ; Welcome
  68. ;
  69.  
  70. (welcome)
  71.  
  72. (complete 10)
  73.  
  74. ;****************************************************************************
  75. ;
  76. ; Setup directory
  77. ;
  78.  
  79. (set #destdir
  80.   (askdir
  81.     (prompt #selectdir)
  82.     (help @askdir-help)
  83.     (default @default-dest)
  84.     (newpath)
  85.   )
  86. )
  87.  
  88. (set #libsdir
  89.   (askdir
  90.     (prompt #selectlibsdir)
  91.     (help @askdir-help)
  92.     (default @libs-dest)
  93.   )
  94. )
  95.  
  96. (set @default-dest (tackon #destdir "CyberQT"))
  97. (set @libs-dest #libsdir)
  98.  
  99. (complete 20)
  100.  
  101. (makedir @default-dest
  102.   (prompt #makedircyberqt)
  103.   (help @makedir-help)
  104.   (infos)
  105. )
  106.  
  107. (complete 40)
  108.  
  109. ;****************************************************************************
  110. ;
  111. ; Copy main program
  112. ;
  113.  
  114. (copyfiles
  115.   (prompt #copymainprg)
  116.   (help @copyfiles-help)
  117.   (source "CyberQT")
  118.   (dest @default-dest)
  119.   (infos)
  120.   (confirm)
  121. )
  122.  
  123. (complete 60)
  124.  
  125. ;****************************************************************************
  126. ;
  127. ; Copy documentation
  128. ;
  129.  
  130. (copyfiles
  131.   (prompt #copydocs)
  132.   (help @copyfiles-help)
  133.   (source "")
  134.   (pattern "#?.(guide|readme)")
  135.   (dest @default-dest)
  136.   (infos)
  137.   (confirm)
  138. )
  139.  
  140. (complete 80)
  141.  
  142. ;****************************************************************************
  143. ;
  144. ; Install libraries
  145. ;
  146.  
  147. (copylib
  148.   (help @copylib-help)
  149.   (prompt #copylibs)
  150.   (source "asyncio.library")
  151.   (dest @libs-dest)
  152.   (confirm)
  153. )
  154.  
  155. ;****************************************************************************
  156. ;
  157. ; Install GUI
  158. ;
  159.  
  160. (if (askbool
  161.       (prompt #installgui)
  162.       (help #installguihelp)
  163.     )
  164.   (
  165.  
  166.     (copyfiles
  167.       (prompt #copyargue)
  168.       (help @copyfiles-help)
  169.       (source "CyberQT GUI")
  170.       (dest @default-dest)
  171.       (infos)
  172.       (confirm)
  173.     )
  174.  
  175.     (tooltype
  176.       (dest (tackon @default-dest "CyberQT GUI"))
  177.       (settooltype "COMMAND" (tackon @default-dest "CyberQT"))
  178.     )
  179.   )
  180. )
  181. ;****************************************************************************
  182. ;
  183. ; Exit
  184. ;
  185.  
  186. (complete 100)
  187. (exit)
  188.  
  189.