; $VER: ProRen V2.0 Installer
; Script to install Release 2.0 of ProRen

; If you translate this script, replace all ### with the language, well I'll test
; this anyway and correct it, so the most important is that you translate the strings

(complete 0)

;*** set strings ***
(set #askdir-main-text
(cat "Kam si pÒejete ProRen 2.0 nainstalovat?\n"
     "(Bude vytvoÒen adresÁÒ s nÁzvem ProRen.)"
))

(set #askbool-docs-text
(cat "PÒejete si nainstalovat dokumentaci (HTML) "
     "do adresÁÒe ProRen/docs?"
))

(set #askdir-docs-text
(cat "Kam si pÒejete dokumentaci nainstalovat?"
))

(set #askbool-rexx-text
(cat "PÒejete si nainstalovat skripty arexxu "
     "do ProRen/rexx?"
))

(set #askdir-rexx-text
(cat "Kam si pÒejete skripty arexxu nainstalovat?"
))

(set #askbool-ctlg-text
(cat "PÒejete si nainstalovat ÃeskÙ katalog "
     "do LOCALE:catalogs/ÃeÓtina?"
))

(set #askdir-ctlg-text
(cat "Kam si pÒejete ÃeskÙ katalog nainstalovat?"
))

(set #Registration
(cat "ProRen je shareware!\nDokud se nezaregistrujete, "
     "nebudou nÅkter× funkce dostupn×. V dokumentaci "
     "naleznete informace o registraci!"
))

(welcome "\nVÉtejte pÒi instalaci programu "@app-name"")

;*** ask destination for mainfiles ***
(set #maindir
  (askdir
    (prompt #main-query-text)
    (default @default-dest)
    (help @askdir-help)
  )
)
(complete 5)

; *** if #prdir exists it's an update
(set #prdir (tackon #maindir "ProRen"))
(if
  (= 0
    (exists #prdir (noreq))
  )( ;then install
    (copyfiles (source "/ProRen.info") (dest #maindir))
    (set #icon (tackon #maindir "ProRen"))
    (makedir #prdir)
    (set #update 0)
  )( ;else update
    (set #update 1)
    ; nothing to do yet
  )
)
(complete 10)

(set #gfxdir (tackon #prdir "gfx"))
(makedir #gfxdir)

; *** ask for docs
(if
  (= 1
    (askbool (prompt #askbool-docs-text) (help @askbool-help))
  )(  ; then
    (set #docsdir (tackon #prdir "docs"))
    (makedir #docsdir)
    (copyfiles (source "docs.info") (dest #prdir))
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #docsdir (tackon #prdir "docs"))
        (makedir #docsdir)
        (copyfiles (source "docs.info") (dest #prdir))
      )( else
        (set #docsdir
          (askdir
            (prompt #docs-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 15)

; *** ask for rexx
(if
  (= 1
    (askbool (prompt #askbool-rexx-text) (help @askbool-help))
  )(  ; then
    (set #rexxdir (tackon #prdir "rexx"))
    (makedir #rexxdir)
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #rexxdir (tackon #prdir "rexx"))
        (makedir #rexxdir)
      )( else
        (set #rexxdir
          (askdir
            (prompt #rexx-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 20)

; *** ask for catalogs
(if
  (= 1
    (askbool (prompt #askbool-ctlg-text) (help @askbool-help))
  )(  ; then
    (set #ctlgdir "LOCALE:catalogs/ÃeÓtina")
    (makedir #ctlgdir)
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #ctlgdir "LOCALE:catalogs/ÃeÓtina")
        (makedir #ctlgdir)
      )( else
        (set #ctlgdir
          (askdir
            (prompt #ctlg-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 25)

;*** copy the files ***
(copyfiles (source "ProRen") (dest #prdir) (infos) (noposition))
(complete 30)
(copyfiles (source "Register") (dest #prdir) (infos) (noposition))
(complete 35)
(copyfiles (source "gfx") (dest #gfxdir) (all))
(complete 40)
(if (= #update 0)
  (
    (copyfiles (source ".arexx") (dest #prdir))
    (complete 45)
  )
)
(copyfiles (source "docs/english") (dest #docsdir) (all) (infos) (noposition))
(complete 85)
(copyfiles (source "rexx") (dest #rexxdir) (all))
(complete 95)
(copyfiles (source "catalogs/ÃeÓtina/proren.catalog") (dest #ctlgdir))

;*** Done ***
(complete 100)
(message #Registration (all))

(set @default-dest #prdir)