
;
;                      Golem  1997-1999 Marcin Orlowski
;
;           ---------------------------------------------------------
;
;              ###    ###    #########  ###    ###    ###    ###
;              ###    ###    ###        ####  ####    ###    ###
;              ###    ###    ###        ### ## ###    ###    ###
;              ###    ###    ########   ### ## ###    ##########
;              ### ## ###    ########   ###    ###    ##########
;              ### ## ###    ###        ###    ###    ###    ###
;              ####  #### ## ###     ## ###    ### ## ###    ### ##
;              ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                       Mental Pictures Developed Here
;
;                              Marcin Orlowski
;
;                              W.F.M.H.
;                              P.O, Box 91
;                              70-506 Szczecin 5
;
;                              tel. 091 4880841 w.287
;
;                      Internet:   info@amiga.com.pl
;                      WWW     :   http://amiga.com.pl
;                                  http://wfmh.org.pl
;
;--------------------------------------------------------------------
;
;               Golem - Skrypt instalacyjny
;
;--------------------------------------------------------------------
;
; $VER: Golem (19.05.99) 1997-1999 Marcin Orlowski
;
;--------------------------------------------------------------------

(set _debug 1)

;/// OnError

;###########################################################################
;## OnError
;###########################################################################

(onerror
    (working "Przerywam instalacje...")
    (P_CleanUp)
)
;//|

;/// Bug
;###########################################################################
;## Bug
;###########################################################################

(procedure bug #tekst  (if (> _debug 0) (message #tekst)))

;//|
;/// P_CleanUp

;###########################################################################
;## P_CleanUp
;###########################################################################

(procedure P_CleanUp

)
;//|

;/// Przygotowanie
;###########################################################################
;## Przygotowanie...
;###########################################################################

(set @abort-button "Przerwij instalacje")

(set OS_Version (/ (getversion "LIBS:locale.library") 65536))
(if (< OS_Version 37)
    (abort "\n\n\nAby wykorzystac pakiet Golem\n"
           "niezbedny jest co najmniej Kickstart 2.05\n"
           "oraz Workbench w wersji 2.1 lub nowszej!"
    )
)

(if (<> (exists "LOCALE:" (noreq)) 2)
    (abort "System w Twoim komputerze nie jest zainstalowany poprawnie! "
           "Nie znalazlem przypisania LOCALE: ktore jest elementem "
           "niezbednym do poprawnego zainstalowania pakietu WFMH Golem\n\n"
           "Zainstaluj poprawnie z dyskietek systemowych system Amigi "
           "i sprobuj ponownie zainstalowac pakiet WFMH Golem"
    )
)

;//|

;/// De szou mast gou on...

;###########################################################################
;## De szou mast gou on...
;###########################################################################

(complete 0)

(welcome
                         "\n"
                         " W.F.M.H. Golem Beta-Demo\n"
                         "------------------------------------------\n"
                         "System wspomagania dziaalnoci gospodarczej\n\n"
)

;//|
;/// Dest dir?
;###########################################################################
;## Instalacja - dest dir
;###########################################################################


    (set @default-dest
         (askdir
           (default @default-dest)
           (prompt "Gdzie zyczysz sobie zainstalowac wersj\n"
                   "demonstracyjn pakietu W.F.M.H. Golem?"
           )
           (help   "Z wyswietlonej listy wybierz urzadzenie lub katalog "
                   "w ktorym chcialbys zainstalowac pakiet W.F.M.H. Golem.\n"
                   "Program instalacyjny zalozy katalog \"GolemBetaDemo\" "
                   "i tam nim umiesci wszystkie niezbdne pliki.\n\n"
                   @askdir-help
           )
         )
    )


;//|

;/// Skladniki
;###########################################################################
;## Skladniki
;###########################################################################

(set #skl_golem  1)
(set #skl_banki  2)

(set Skladniki
    (askoptions
       (prompt  "Czy chcesz zainstalowac:\n(szczegy w tekcie pomocy)")
       (help    "Wybierz elementy pakietu Golem, ktre chcesz zainstalowac.\n\n"
                "\"GolemBetaDemo\" - to pakiet podstawowy, zawierajacy wszystkie niezbedne elementy ktore sa niezbedne aby system W.F.M.H. Golem mozna bylo uruchomic\n\n"
                "\"Golem-Banki\" - rozszerzajaca pakiet podstawowy, baza danych zawierajaca spis polskich bankow oraz ich oddzialow (zawiera ponad 4100 oddzialow!). Golem pozwoli sie uruchomic bez tej bazy, jednakze przy pierwszej instalacji pakietu zalecamy instalacje rowniez tej bazy (instalacja bazy moze potrwac nawet 2-3 minuty)\n\n"
                @askoptions-help
       )
       (choices " GolemBetaDemo"
                " Golem-Banki"
       )
    )
)
;//|

;/// Potwierdz
;###########################################################################
;## Potwierdz
;###########################################################################

(if  ( = 1 
     (askbool
       (prompt "\n\n\nNa pewno chcesz rozpakowac wybrane archiwa\n"
               "pakietu \"GolemBetaDemo\" do katalogu:\n\n\""
               (tackon @default-dest "GolemBetaDemo")
               "\"\n\n"
               "(aden plik nie zostanie umieszczony w innym\nmiejscu, niz wyzej wymieniony katalog)"
           (choices "Tak, rozpakuj" "Nie")
           (help    "Bez obaw! Przeciez po to ten skrypt uruchomiles. Poza tym, "
                    "wszystkie pliki zostana umieszczone w wybranym przez Ciebie "
                    "katalogu, wiec ewentualnie skasowac potem wszystko bedzie raczej prosto."
           )
       )
     ))
     (
      ; rozpakowujemy
      (bug "Rozpakowujemy...")

      ; najpierw program
      (if (bitand Skladniki #skl_golem)
        (
         (set CMD (cat (cat (cat "Data/UnTGZ Data/GolemBetaDemo.tgz \"") @default-dest) "\""))
         (bug CMD)
         (working "\nRozpakowuje archiwum podstawowe...\n\nProsze poczekac...")
	     (run CMD)
        )
      )
      (complete 40)

      ; potem ew. baza bankw
      (if (bitand Skladniki #skl_banki)
        (
         (set CMD (cat (cat (cat "Data/UnTGZ Data/GolemBetaBanki.tgz \"") @default-dest) "\""))
         (bug CMD)
         (working "\nRozpakowuje baze bankow...\n\nProsze cierpliwie poczekac...\n(to moe potrwa nawet par minut - archiwum zawiera ponad 4100 plikw!)")
	     (run CMD)
        )
      )
      (complete 80)

     )
)
;//|

;/// Kredyty ;-)
;###########################################################################
;## Kredyty ;-)
;###########################################################################

(complete 90)

(message     "\nWszelkie uwagi i sugestie na temat niniejszego\n"
             "pakietu oraz ewentualne, zauwazone bledy\n"
             "prosze przesylac na ponizszy adres:\n\n"
             "W.F.M.H.\n"
             "ul. Radomska 38\n"
             "71-002  Szczecin\n\n"
             "tel. (091) 4836425\n"
			 "tel. (091) 48800841 w.287\n\n"
             "Internet: info@amiga.com.pl\n"
             "http://amiga.com.pl"
)

;//|


(complete 100)
