home *** CD-ROM | disk | FTP | other *** search
/ Mikrobitti Virtuaalilehti 1997 / mbvirt1997d.iso / ohjelmat / metweb11.lha / MetalWEB / MetalWEB_Install < prev   
Encoding:
Text File  |  1997-09-29  |  3.6 KB  |  208 lines
  1. ; MetalWEB install-script
  2. ;
  3. ; $VER: MetalWEBInstall 1.1 (29.09.97)
  4. ; by Pedro Luis Mieza
  5. ;
  6.  
  7. (set #MetalWEB-Version "1.1")
  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.  
  17. (message
  18.   "\nMetalWEB v" #MetalWEB-Version "⌐ \nGet Framed!\n\n"
  19.   "by MULTITASKERS\n"
  20.   "http://www.redestb.es/personal/multitaskers\n"
  21.   "\n"
  22.   "This program requires MUI 3.x. \n"
  23. )
  24.  
  25. (set #Prg-Dir "")
  26.  
  27. (while
  28.   (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  29.   (set #Prg-Dir
  30.     (askdir
  31.       (prompt "Choose destination for MetalWEB\nA directory called MetalWEB will be created.")
  32.       (help @askdir-help)
  33.       (default @default-dest)
  34.     )
  35.   )
  36. )
  37.  
  38. (set #Prg-Dir (tackon  #Prg-Dir "MetalWEB"))
  39.  
  40. (makedir #Prg-Dir 
  41. )
  42.  
  43. (complete 30)
  44.  
  45. (copyfiles
  46.   (prompt "Copying MetalWEB executable...\n")
  47.   (help @copyfiles-help)
  48.   (source ("MetalWEB 1.1"))
  49.   (dest #Prg-Dir)
  50.   (infos)
  51.   (confirm)
  52. )
  53.  
  54. (complete 50)
  55.  
  56. ;(set #Dest-Dir (tackon  #Prg-Dir "images"))
  57.  
  58. ;(makedir #Dest-Dir)
  59.  
  60. (copyfiles
  61.   (prompt "Copying MetalWEB images...\n")
  62.   (help @copyfiles-help)
  63.   (source ("images"))
  64.   (dest (tackon #Prg-Dir "images"))
  65.   (all)
  66.   (confirm)
  67. )
  68.  
  69. (complete 60)
  70.  
  71. (set #catalog
  72.   (askoptions
  73.     (prompt "Choose language to install")
  74.     (help @askchoices-help)
  75.     (choices "English (built in)" "Catalα" "Espa±ol" "Franτais" "Deutsch" "Italiano")
  76.     (default 1)
  77.   )
  78. )
  79.  
  80. (if (= @user-level 2)
  81.    (set #catalogdest
  82.      (askdir
  83.         (prompt "Choose directory for catalogfiles")
  84.         (help @askdir-help)
  85.         (default "Locale:Catalogs")
  86.      )
  87.    )
  88.    (set #catalogdest "Locale:Catalogs")
  89. )
  90.  
  91. (if
  92.   (in #catalog 1)
  93.   (copyfiles
  94.     (source "catalogs/catalα")
  95.     (dest (tackon #catalogdest "catalα"))
  96.     (all)
  97.   )
  98. )
  99.  
  100. (if
  101.   (in #catalog 2)
  102.   (copyfiles
  103.     (source "catalogs/espa±ol")
  104.     (dest (tackon #catalogdest "espa±ol"))
  105.     (all)
  106.   )
  107. )
  108.  
  109. (if
  110.   (in #catalog 3)
  111.   (copyfiles
  112.     (source "catalogs/franτais")
  113.     (dest (tackon #catalogdest "franτais"))
  114.     (all)
  115.   )
  116. )
  117.  
  118.  
  119. (if
  120.   (in #catalog 4)
  121.   (copyfiles
  122.     (source "catalogs/deutsch")
  123.     (dest (tackon #catalogdest "deutsch"))
  124.     (all)
  125.   )
  126. )
  127.  
  128. (if
  129.   (in #catalog 5)
  130.   (copyfiles
  131.     (source "catalogs/italiano")
  132.     (dest (tackon #catalogdest "italiano"))
  133.     (all)
  134.   )
  135. )
  136.  
  137. (complete 70)
  138.  
  139. (copyfiles
  140.   (prompt "Copying TextField gadgets...\n")
  141.   (help @copyfiles-help)
  142.   (source ("gadgets"))
  143.   (dest "sys:classes/gadgets")
  144.   (all)
  145.   (confirm)
  146. )
  147.  
  148. (complete 80)
  149.  
  150. (set #name
  151.         (askbool
  152.                 (prompt "Do you want to install MetalWEB demo Pages")
  153.         (help @copyfiles-help)
  154.                 (default 0)
  155.         )
  156. )
  157.  
  158. (if
  159.   (in #name 0)
  160.     (copyfiles
  161.     (prompt "Copying MetalWEB Demo Pages...\n")
  162.     (help @copyfiles-help)
  163.     (source ("Demo_pages"))
  164.     (dest (tackon #Prg-Dir "Demo_pages"))
  165.     (infos)
  166.     (all)
  167.     (confirm)
  168.   )
  169. )
  170.  
  171. (complete 90)
  172.  
  173. (set #name
  174.         (askbool
  175.                 (prompt "Do you want to install MetalWEB HTML Documentation")
  176.         (help @copyfiles-help)
  177.                 (default 0)
  178.         )
  179. )
  180.  
  181. (if
  182.   (in #name 0)
  183.     (copyfiles
  184.     (prompt "Copying MetalWEB html docs...\n")
  185.     (help @copyfiles-help)
  186.     (source ("docs"))
  187.     (dest (tackon #Prg-Dir "docs"))
  188.     (infos)
  189.     (all)
  190.     (confirm)
  191.   )
  192. )
  193.  
  194. (complete 100)
  195.  
  196. (exit  "MetalWEB " #MetalWEB-Version " is now installed correctly. \n"
  197.  "This is a ShareWare!.\n"
  198.  "\n"
  199.  "To have a registered version please send 25$ or 35 DM to:"
  200.  "\n"
  201.  "Pedro Luis Mieza Suarez \n"
  202.  "Paseo Pedro III 45, 8, 3 \n"
  203.  "08240 MANRESA (Barcelona) \n"
  204.  "SPAIN \n"
  205.  "\n"
  206.  "Email: multitask@earthcorp.com \n"
  207.  "HTTP://www.earthcorp.com/multitask \n" (quiet))
  208.