; BurnGui install-script
;
; $VER: BurnGuiInstall 1.0 (96.12.26)
;

(set #BurnGui-Version "1.0")

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

(complete 0)

(welcome)

(message
  "BurnGui v" #BurnGui-Version "© \n\n"
  "This program is FREE registration Program.\n"
  "This Program requieres MUI 3.x. \n"

)

(set #Prg-Dir "")

(while
  (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  (set #Prg-Dir
    (askdir
      (prompt "Choose a suitable directory for the BurnGui program.")
      (help @askdir-help)
      (default @default-dest)
    )
  )
)

(set @default-dest #Prg-Dir)

(complete 40)

(copyfiles
  (prompt "Copying BurnGUI...\n")
  (help @copyfiles-help)
  (source ("burngui"))
  (dest #Prg-Dir)
  (infos)
  (confirm)
)

(complete 70)

(set #langbit 1)
(if (= @language "français") (set #langbit 2))
(if (= @language "dansk") (set #langbit 4))
(if (= @language "español") (set #langbit 8))
(if (= @language "català") (set #langbit 16))
(if (= @language "greek") (set #langbit 32))
(if (= @language "deutsch") (set #langbit 64))
(if (= @language "português") (set #langbit 128))

(set #catalog 
  (askoptions
    (prompt "Choose language to install")
    (help @askchoices-help)
    (choices "English" "Français" "Dansk" "Español" "Català" "Greek" "Deutsch" "Português" )
    (default #langbit)
  )
)

(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/français")
    (dest (tackon #catalogdest "français"))
    (all)
  )
)

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

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

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

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

(if 
  (in #catalog 6)
  (copyfiles
    (source "catalogs/deutsch")
    (dest (tackon #catalogdest "deutsch"))
    (all)
  )
)
(if 
  (in #catalog 7)
  (copyfiles
    (source "catalogs/português")
    (destç (tackon #catalogdest "português"))
    (all)
  )
)

(complete 100)

(message "BurnGui " #BurnGui-Version " is now installed correctly. \n"
 "This is a FREE registration program!.\n"
 "\n"
 "For register Burngui please send me an email\n"
 "or a Postcard to:\n "
 "\n"
 "Pedro Luis Mieza Suarez \n"
 "Paseo Pedro III 45, 8, 3 \n"
 "08240 MANRESA (Barcelona) \n"
 "SPAIN \n"
 "\n"
 "Email: MULTITASKERS@redestb.es \n"
 "HTTP://www.redestb.es/personal/multitaskers \n")

(exit)