;
;-----------------------------------------------------------------------------
;           ******************************************************
;           *                                                    *
;           *                   WARHAMMER v1.1                   *
;           *                                                    *
;           ******************************************************
;
;                           ©1994 By Witold Miotk
;-----------------------------------------------------------------------------
;
;                                Witold Miotk
;                              Nowe Osiedle 5/3
;                               83-300 Kartuzy
;                                   POLAND
;
;-----------------------------------------------------------------------------
;
;                Warhammer v1.0 (27.12.1994) - Skrypt Instalacyjny
;
;


(set @abort-button "Przerwij Instalacjė")
(set @special-msg "Wystāpiī jakiō bīād. Spróbuj jeszcze raz!")
(set @language "polski")
(complete 0)
(user 2)

; Procedura wyjōcia z instalacji
(procedure WYJSCIE
   (complete 100)
   (exit "\n\nPrzyjemnej pracy z programem WARHAMMER")
)

; Czy na pewno instalowaź?
(set NAPEWNO
  (askbool
   (prompt "*****************************\n"
           "*      WARHAMMER v1.1       *\n"
           "*****************************\n\n"
           "Oto staīeō siė szczėōliwym posiadaczem wspaniaīego programu WARHAMMER. "
           "W zwiāzku z tym pojawiīy siė dodatkowe pytania:\n\n"
           "Czy masz twardy dysk?\n"
           "Czy chcesz zainstalowaź na nim program?\n"
)
   (help  "Nie musisz odpowiadaź. Jeōli siė wstydzisz, lub nie "
          "masz ochoty na instalacjė programu na swoim \"twardzielu\", "
          "to po prostu kliknij na opcjė PRZERWIJ INSTALACJĖ - i po kīopocie.\n"
          "\nJeōli jednak masz twardy dysk i trochė wolnego miejsca, "
          "jeōli dodatkowo jesteō naīogowym graczem w gry systemu WARHAMMER, "
          "to koniecznie zainstaluj ten niezmiernie przydatny program.\n"
          "\n\nMówiė Ci to ja - jego autor. Zrób to, a nie poūaīujesz!!!!"
          "\nPo wykonaniu kompletnej instalacji, caīy program zajmie okoīo"
          " 370KB miejsca na dysku.\n\n"
          "UWAGA ! Aby instalacja przebiegīa bezbīėdnie naleūy wystartowaź"
          " system z twardego dysku, a nie z dyskietki WARHAMMER'a !!!"
)
    (choices
     "Tak"
     "Nie !!!"
    )
  )
)

(if (= NAPEWNO 0)
    (exit (QUIET))
)

; Wybór plików do instalacji
(set WYBOR1
   (askoptions
       (prompt "Wybierz pliki do instalacji:")
       (help "WARHAMMER - Plik gīówny programu. Bez niego praca bėdzie oczywiōcie niemoūliwa. "
             "(327Kb).\n"
             "\nWARHAMMER.DOC - Dokumentacja programu. Wīaōciwie nie wpīywa "
             "bezpoōrednio na jego pracė, jednak sugerujė zaznaczyź ten plik."
             " W razie jakichkolwiek problemów z programem bėdziesz mógī wīaōnie "
             "w nim znaleśź potrzebnā pomoc. (41KB)."
             ""
       )
       (choices
         "Warhammer"
         "Dokumentacja"
       )
   )
)

; Wybór dodatkowych plików do instalacji
(set WYBOR2
   (askoptions
       (prompt "Pliki dodatkowe:")
       (help "W_GRACZE - Przykīadowy plik, zawierajācy utworzonā wczeōniej listė graczy. \n"
             "\nW_PRZECIWNICY - Jak wyūej, tyle tylko, ūe plik zawiera dane przeciwników."
             "\n\nObydwa pliki zawierajā oryginalne zapisy graczy i przeciwników,"
             " pochodzāce z jednej z naszych sesji gry w WARHAMMER'a. Oczywiōcie pliki te nie sā"
             " niezbėdne do prawidīowej pracy programu. Jeūeli wiėc nie bėdziesz"
             " ich potrzebowaź, po prostu pozostaw je niezaznaczone."
       )
       (choices
         "W_gracze"
         "W_przeciwnicy"
       )
   )
)

; Wybór docelowej ōcieūki programu
(set SCIEZKA
   (askdir
   (prompt "Wskaū katalog, gdzie mam zainstalowaź program. Zostanie w nim zaīoūony katalog WARHAMMER")
   (help "Katalog ten oczywiōcie okreōla miejsce instalacji programu"
         " WARHAMMER."
   )
   (default "Work:")
   )
)

; Przygotowania...
(set SCIEZKA (tackon SCIEZKA "Warhammer"))
(makedir SCIEZKA
         (infos)
)

; Instalacja pliku gīównego
(if (= (in WYBOR1 0) 1)
    (copyfiles
       (source "Warhammer:Warhammer")
       (dest SCIEZKA)
       (infos)
    )
)
(complete 40)

; Instalacja dokumentacji programu
(if (= (in WYBOR1 1) 2)
    (copyfiles
       (source "Warhammer:Dokumentacja")
       (dest SCIEZKA)
       (infos)
    )
)
(complete 60)

; Instalacja przykīadowej listy graczy
(if (= (in WYBOR2 0) 1)
    (copyfiles
       (source "Warhammer:W_Gracze")
       (dest SCIEZKA)
    )
)
(complete 65)

; Instalacja przykīadowej listy przeciwników
(if (= (in WYBOR2 1) 2)
    (copyfiles
       (source "Warhammer:W_Przeciwnicy")
       (dest SCIEZKA)
     )
)
(complete 70)

;Instalacja potrzebnego fontu
(Working "\n\n\n\nTrwa instalacja fontu TopazPL.font\nCzekaj cierpliwie...")
(if (= (and (exists "Fonts:topazpl.font") (exists "Fonts:topazpl/8")) 0)
    (copyfiles
       (source "Warhammer:Fonts/")
       (dest "Fonts:")
       (pattern "topazpl*")
    )
)
(complete 75)

;Instalacja potrzebnej mapy klawiatury
(Working "\n\n\nTrwa instalacja mapy klawiatury angielskiej"
         " z polskimi znakami w standardzie AMIGA PL.\n"
         "Czekaj cierpliwie..."
)
(if (= (and (exists "Devs:keymaps") (exists "Devs:keymaps/usa-pl")) 0)
    (copyfiles
       (source "Warhammer:Devs/keymaps/usa-pl")
       (dest "Devs:keymaps/")
    )
)
(complete 80)

;Instalacja biblioteki diskfont.library
(Working "\n\n\nInstalacja biblioteki Diskfont.library")
(copylib
    (source "Warhammer:libs/diskfont.library")
    (dest "Libs:")
)
(complete 90)

;Instalacja biblioteki AMOS.library
(if (= (exists "Libs:AMOS.library") 0)
   (copyfiles
      (source "Warhammer:libs/AMOS.library")
      (dest "Libs:")
   )
)

(WYJSCIE)