home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / MetalWEB / MetalWEB_Install < prev   
Encoding:
Text File  |  1998-10-06  |  4.0 KB  |  232 lines
  1. ; MetalWEB install-script
  2. ;
  3. ; $VER: MetalWEB Install 2.0 (07.05.98)
  4. ; by Pedro Luis Mieza
  5. ;
  6.  
  7. (set #MetalWEB-Version "2.0")
  8.  
  9. (if (< (/ (getversion) 65536) 37)
  10.   (abort "Sorry, MetalWEB needs OS v37 (2.04) or higher.")
  11. )
  12.  
  13. (complete 0)
  14.  
  15. (welcome
  16.   "MetalWEB v" #MetalWEB-Version "© by MULTITASKERS\n"
  17.   "WYSIWYG html Editor"
  18. )
  19.  
  20. (set #Prg-Dir "")
  21.  
  22. (while
  23.   (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  24.   (set #Prg-Dir
  25.     (askdir
  26.       (prompt "Choose destination for MetalWEB\nA directory called MetalWEB will be created.")
  27.       (help @askdir-help)
  28.       (default @default-dest)
  29.     )
  30.   )
  31. )
  32.  
  33. (set #Prg-Dir (tackon  #Prg-Dir "MetalWEB"))
  34.  
  35. (makedir #Prg-Dir 
  36. )
  37.  
  38. (complete 30)
  39.  
  40. (copyfiles
  41.   (prompt "Copying MetalWEB executable...\n")
  42.   (help @copyfiles-help)
  43.   (source ("MetalWEB 2.0"))
  44.   (dest #Prg-Dir)
  45.   (infos)
  46.   (confirm)
  47. )
  48.  
  49. (complete 50)
  50.  
  51. (set #images
  52.   (askoptions
  53.     (prompt "What image-buttons do you want to install?\n(You could see it, on \"docs/image_8colorsNew.ilbm\"\nor \"docs/image_8nolorsOld.ilbm\")")
  54.     (help @askchoices-help)
  55.     (choices "New images (NewIcon Style)" "Old images (MagicWb Style)")
  56.     (default 1)
  57.   )
  58. )
  59.  
  60. (if
  61.   (in #images 0)
  62.   (copyfiles
  63.   (prompt "Copying MetalWEB images...\n")
  64.   (help @copyfiles-help)
  65.   (source ("images"))
  66.   (dest (tackon #Prg-Dir "images"))
  67.   (all)
  68.   (confirm)
  69.   )
  70. )
  71.  
  72. (if
  73.   (in #images 1)
  74. (copyfiles
  75.   (prompt "Copying MetalWEB old images...\n")
  76.   (help @copyfiles-help)
  77.   (source ("old_images"))
  78.   (dest (tackon #Prg-Dir "images"))
  79.   (all)
  80.   (confirm)
  81.   )
  82. )
  83.  
  84. ;(copyfiles
  85. ;  (prompt "Copying MetalWEB rexx...\n")
  86. ;  (help @copyfiles-help)
  87. ;  (source ("rexx"))
  88. ;  (dest (tackon #Prg-Dir "rexx"))
  89. ;  (all)
  90. ;  (confirm)
  91. ;)
  92.  
  93. (complete 60)
  94.  
  95. (set #catalog
  96.   (askoptions
  97.     (prompt "Choose language to install")
  98.     (help @askchoices-help)
  99.     (choices "English (built in)" "Català" "Español" "Français" "Deutsch" "Italiano")
  100.     (default 1)
  101.   )
  102. )
  103.  
  104. (if (= @user-level 2)
  105.    (set #catalogdest
  106.      (askdir
  107.         (prompt "Choose directory for catalogfiles")
  108.         (help @askdir-help)
  109.         (default "Locale:Catalogs")
  110.      )
  111.    )
  112.    (set #catalogdest "Locale:Catalogs")
  113. )
  114.  
  115. (if
  116.   (in #catalog 1)
  117.   (copyfiles
  118.     (source "catalogs/català")
  119.     (dest (tackon #catalogdest "català"))
  120.     (all)
  121.   )
  122. )
  123.  
  124. (if
  125.   (in #catalog 2)
  126.   (copyfiles
  127.     (source "catalogs/español")
  128.     (dest (tackon #catalogdest "español"))
  129.     (all)
  130.   )
  131. )
  132.  
  133. (if
  134.   (in #catalog 3)
  135.   (copyfiles
  136.     (source "catalogs/français")
  137.     (dest (tackon #catalogdest "français"))
  138.     (all)
  139.   )
  140. )
  141.  
  142.  
  143. (if
  144.   (in #catalog 4)
  145.   (copyfiles
  146.     (source "catalogs/deutsch")
  147.     (dest (tackon #catalogdest "deutsch"))
  148.     (all)
  149.   )
  150. )
  151.  
  152. (if
  153.   (in #catalog 5)
  154.   (copyfiles
  155.     (source "catalogs/italiano")
  156.     (dest (tackon #catalogdest "italiano"))
  157.     (all)
  158.   )
  159. )
  160.  
  161. (complete 70)
  162.  
  163. (copyfiles
  164.   (prompt "Copying TextField gadgets...\n")
  165.   (help @copyfiles-help)
  166.   (source ("gadgets"))
  167.   (dest "sys:classes/gadgets")
  168.   (all)
  169.   (confirm)
  170. )
  171.  
  172. (complete 80)
  173.  
  174. (set #name
  175.         (askbool
  176.         (prompt "Do you want to install MetalWEB demo Pages")
  177.         (help @copyfiles-help)
  178.         (default 0)
  179.         )
  180. )
  181.  
  182. (if
  183.   (in #name 0)
  184.     (copyfiles
  185.     (prompt "Copying MetalWEB Demo Pages...\n")
  186.     (help @copyfiles-help)
  187.     (source ("Demo_pages"))
  188.     (dest (tackon #Prg-Dir "Demo_pages"))
  189.     (infos)
  190.     (all)
  191.     (confirm)
  192.   )
  193. )
  194.  
  195. (complete 90)
  196.  
  197. (set #name
  198.     (askbool
  199.         (prompt "Do you want to install MetalWEB HTML Documentation")
  200.         (help @copyfiles-help)
  201.         (default 0)
  202.     )
  203. )
  204.  
  205. (if
  206.   (in #name 0)
  207.     (copyfiles
  208.     (prompt "Copying MetalWEB html docs...\n")
  209.     (help @copyfiles-help)
  210.     (source ("docs"))
  211.     (dest (tackon #Prg-Dir "docs"))
  212.     (infos)
  213.     (all)
  214.     (confirm)
  215.   )
  216. )
  217.  
  218. (complete 100)
  219.  
  220. (exit  "MetalWEB " #MetalWEB-Version " is now installed correctly. \n"
  221.  "This is a ShareWare!.\n"
  222.  "\n"
  223.  "To have a registered version please send 25$ or 35 DM to:"
  224.  "\n"
  225.  "Pedro Luis Mieza Suarez \n"
  226.  "Paseo Pedro III 45, 8, 3 \n"
  227.  "08240 MANRESA (Barcelona) \n"
  228.  "SPAIN \n"
  229.  "\n"
  230.  "Email: multitask@earthcorp.com \n"
  231.  "HTTP://www.earthcorp.com/multitask \n" (quiet))
  232.