; MetalWEB install-script
;
; $VER: MetalWEBInstall 1.1 (29.09.97)
; by Pedro Luis Mieza
;

(set #MetalWEB-Version "1.1")

(if (< (/ (getversion) 65536) 37)
  (abort "Sorry, MetalWEB needs OS v37 (2.04) or higher.")
)

(complete 0)

;(welcome)

(message
  "\nMetalWEB v" #MetalWEB-Version "© \nGet Framed!\n\n"
  "by MULTITASKERS\n"
  "http://www.redestb.es/personal/multitaskers\n"
  "\n"
  "This program requires MUI 3.x. \n"
)

(set #Prg-Dir "")

(while
  (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  (set #Prg-Dir
    (askdir
      (prompt "Choose destination for MetalWEB\nA directory called MetalWEB will be created.")
      (help @askdir-help)
      (default @default-dest)
    )
  )
)

(set #Prg-Dir (tackon  #Prg-Dir "MetalWEB"))

(makedir #Prg-Dir 
)

(complete 30)

(copyfiles
  (prompt "Copying MetalWEB executable...\n")
  (help @copyfiles-help)
  (source ("MetalWEB 1.1"))
  (dest #Prg-Dir)
  (infos)
  (confirm)
)

(complete 50)

;(set #Dest-Dir (tackon  #Prg-Dir "images"))

;(makedir #Dest-Dir)

(copyfiles
  (prompt "Copying MetalWEB images...\n")
  (help @copyfiles-help)
  (source ("images"))
  (dest (tackon #Prg-Dir "images"))
  (all)
  (confirm)
)

(complete 60)

(set #catalog
  (askoptions
    (prompt "Choose language to install")
    (help @askchoices-help)
    (choices "English (built in)" "Català" "Español" "Français" "Deutsch" "Italiano")
    (default 1)
  )
)

(if (= @user-level 2)
   (set #catalogdest
     (askdir
        (prompt "Choose directory for catalogfiles")
        (help @askdir-help)
        (default "Locale:Catalogs")
     )
   )
   (set #catalogdest "Locale:Catalogs")
)

(if
  (in #catalog 1)
  (copyfiles
    (source "catalogs/català")
    (dest (tackon #catalogdest "català"))
    (all)
  )
)

(if
  (in #catalog 2)
  (copyfiles
    (source "catalogs/español")
    (dest (tackon #catalogdest "español"))
    (all)
  )
)

(if
  (in #catalog 3)
  (copyfiles
    (source "catalogs/français")
    (dest (tackon #catalogdest "français"))
    (all)
  )
)


(if
  (in #catalog 4)
  (copyfiles
    (source "catalogs/deutsch")
    (dest (tackon #catalogdest "deutsch"))
    (all)
  )
)

(if
  (in #catalog 5)
  (copyfiles
    (source "catalogs/italiano")
    (dest (tackon #catalogdest "italiano"))
    (all)
  )
)

(complete 70)

(copyfiles
  (prompt "Copying TextField gadgets...\n")
  (help @copyfiles-help)
  (source ("gadgets"))
  (dest "sys:classes/gadgets")
  (all)
  (confirm)
)

(complete 80)

(set #name
        (askbool
                (prompt "Do you want to install MetalWEB demo Pages")
        (help @copyfiles-help)
                (default 0)
        )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copying MetalWEB Demo Pages...\n")
    (help @copyfiles-help)
    (source ("Demo_pages"))
    (dest (tackon #Prg-Dir "Demo_pages"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 90)

(set #name
        (askbool
                (prompt "Do you want to install MetalWEB HTML Documentation")
        (help @copyfiles-help)
                (default 0)
        )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copying MetalWEB html docs...\n")
    (help @copyfiles-help)
    (source ("docs"))
    (dest (tackon #Prg-Dir "docs"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 100)

(exit  "MetalWEB " #MetalWEB-Version " is now installed correctly. \n"
 "This is a ShareWare!.\n"
 "\n"
 "To have a registered version please send 25$ or 35 DM to:"
 "\n"
 "Pedro Luis Mieza Suarez \n"
 "Paseo Pedro III 45, 8, 3 \n"
 "08240 MANRESA (Barcelona) \n"
 "SPAIN \n"
 "\n"
 "Email: multitask@earthcorp.com \n"
 "HTTP://www.earthcorp.com/multitask \n" (quiet))