; Install F1db version 0.1
;
; $VER: InstallF1db 0.1 (22.06.00)
; Copyright © 2000 Kamil Nieôcioruk
;
;
; authors of translations and proofreads:
; Polish and English strings by Kamil Nieôcioruk
; French strings by Olivier Leroy and Philippe Ferrucci
; German strings by Dirk Neubauer and Soenke Tesch
; Slovenian strings by Sebastjan Zupan and Damir Arh

;
; default English strings

(set #witam "\nWelcome to the installation of F1db 0.1\n\nF1db is ©2000 by Kamil Nieôcioruk")
(set #gdzie "Please select a drawer for F1db\n(a new drawer will be created there")
(set #przyklad "Do you want to install the example database?")
(set #koniec "\nInstallation completed!\n\nHave fun using F1db!")
(set guidename "F1db.guide_ENG")
(set catalogname "F1db.catalog_ENG")
(set guide2ren "F1db/F1db.guide_ENG")
(set catalog2ren "F1db/catalog/F1db.catalog_ENG")

;
; Polish strings

(if (= @language "polski")
 (
  (set #witam "\nWitam w instalacji programu F1db 0.1\n\nF1db ©2000 by Kamil Nieôcioruk")
  (set #gdzie "Wybierz katalog, w którym chcesz zainstalowaê F1db\n(zostanie tam utworzony nowy katalog)")
  (set #przyklad "Czy chcesz zainstalowaê przykîadowâ bazë danych?")
  (set #koniec "Instalacja zakoïczona!\n\nÛyczë miîej pracy z F1db!")
  (set guidename "F1db.guide_POL")
  (set catalogname "F1db.catalog_POL")
  (set guide2ren "F1db/F1db.guide_POL")
  (set catalog2ren "F1db/catalog/F1db.catalog_POL")
 )
)

;
; German strings

(if (= @language "deutsch")
 (
  (set #witam "\nWillkommen zur Installation von F1db 0.1!\n\nF1db ist ©2000 von Kamil Nieôcioruk")
  (set #gdzie "Bitte wähle ein Verzeichnis für F1db\n(ein neues Verzeichnis wird dort erzeugt)")
  (set #przyklad "Möchtest du eine Beispieldatenbank installieren?")
  (set #koniec "Installation fertig!\n\nViel Spaß mit F1db!")
  (set guidename "F1db.guide_DEU")
  (set catalogname "F1db.catalog_DEU")
  (set guide2ren "F1db/F1db.guide_DEU")
  (set catalog2ren "F1db/catalog/F1db.catalog_DEU")
 )
)

;
; French strings

(if (= @language "français")
 (
  (set #witam "\nBienvenue à l'installation de F1db 0.1 !\n\nF1db est ©2000 de Kamil Nieôcioruk")
  (set #gdzie "Veuillez sélectionner un tiroir pour F1db\n(un nouveau tiroir y sera créé)")
  (set #przyklad "Voulez-vous installer les exemples de bases de données ?")
  (set #koniec "\nInstallation terminée !\n\nAmusez-vous bien avec F1db !")
  (set guidename "F1db.guide_FRA")
  (set catalogname "F1db.catalog_FRA")
  (set guide2ren "F1db/F1db.guide_FRA")
  (set catalog2ren "F1db/catalog/F1db.catalog_FRA")
 )
)

;
; start of the installation

(message #witam)

(complete 0)

(set DOCELOWY
 (askdir
  (prompt #gdzie)
  (help @askdir-help)
  (default "Ram:")
 )
)

(makedir (tackon DOCELOWY "F1db") (infos))
(makedir (tackon DOCELOWY "F1db/catalog"))
(complete 20)

(copyfiles
 (source "")
 (dest (tackon DOCELOWY "F1db"))
 (choices
  "ATO.readme"
  "autor.jpg"
  "F1db"
  "F1db.info"
  guidename
  "F1db.guide.info"
  "History"
  "RegForm"
 )
)

(complete 60)

(rename (tackon DOCELOWY guide2ren) (tackon DOCELOWY "F1db/F1db.guide"))

(complete 70)

(copyfiles
 (source "catalog/")
 (dest (tackon DOCELOWY "F1db/catalog"))
 (choices
  "F1db.ct"
  catalogname
 )
)

(complete 80)

(rename
 (tackon DOCELOWY catalog2ren)
 (tackon DOCELOWY "F1db/catalog/F1db.catalog")
)

(complete 90)

(if
 (= (askbool (prompt #przyklad) (help @askbool-help)) 1)
 (copyfiles
  (source "2000.f1db")
  (dest (tackon DOCELOWY "F1db"))
 )
)

(complete 100)

(exit #koniec
 (quiet)
)