;;
;;  $File Master Pack Installation Script - Polish Version $
;;  $Date: 01/10/1996 18:55:38 $
;;  $Revision: 1.0 $
;;

; Script by Kysy/AM & 2xBla

(set #choose_prompt    "Które programy chcesz zainstalowaź? ")
(set #choose_help (cat "Zwróź uwagė na kwadratowe pola znajdujāce siė "
                       "obok nazw programów. Standardowo we wszystkich "
                       "polach znajdujā siė znaki graficzne V oznaczajāce "
                       "zaznaczenie tej pozycji. Jeōli nie chcesz, aby "
                       "któryō z programów zostaī zainstalowany wskaū myszā "
                       "kwadrat obok niego i naciōnij lewy przycisk myszy. "
                       "Znaczek w ōrodku powinien zniknāź. Jeōli chcesz "
                       "kontynuowaź wciōnij przycisk Kontynuacja. Wtedy "
                       "wszystkie zaznaczone pozycje zostanā skopiowane "
                       "do katalogu C: "))

(complete 0)

(set _result
        (askoptions
                (prompt  #choose_prompt)
                (help    #choose_help)
                (choices "AddIcon" "CrmCrunch" "CrmDecrunch" "Cut" "DateChanger" "FindFile" "FMCrunch" "FMDecrunch" "Join" "m2m")
                (default %0000000000000000000001111111111)
        )
)

(if (IN _result 0)
        (copyfiles
                (prompt "Kopiujė AddIcon...")
                (source "C/AddIcon")
                (dest   "C:")
        )
)

(complete 8)

(if (IN _result 1)
        (copyfiles
                (prompt "Kopiujė CrmCrunch...")
                (source "C/CrmCrunch")
                (dest   "C:")
        )
)

(complete 16)

(if (IN _result 2)
        (copyfiles
                (prompt "Kopiujė CrmDecrunch...")
                (source "C/CrmDecrunch")
                (dest   "C:")
        )
)

(complete 24)

(if (IN _result 3)
        (copyfiles
                (prompt "Kopiujė Cut...")
                (source "C/Cut")
                (dest   "C:")
        )
)

(complete 32)

(if (IN _result 4)
        (copyfiles
                (prompt "Kopiujė DateChanger...")
                (source "C/DateChanger")
                (dest   "C:")
        )
)

(complete 40)

(if (IN _result 5)
        (copyfiles
                (prompt "Kopiujė FindFile...")
                (source "C/FindFile")
                (dest   "C:")
        )
)

(complete 48)

(if (IN _result 6)
        (copyfiles
                (prompt "Kopiujė FMCrunch...")
                (source "C/FMCrunch")
                (dest   "C:")
        )
)

(complete 56)

(if (IN _result 7)
        (copyfiles
                (prompt "Kopiujė FMDecrunch...")
                (source "C/FMDecrunch")
                (dest   "C:")
        )
)

(complete 64)

(if (IN _result 8)
        (copyfiles
                (prompt "Kopiujė Join...")
                (source "C/Join")
                (dest   "C:")
        )
)

(complete 72)

(if (IN _result 9)
        (copyfiles
                (prompt "Kopiujė m2m...")
                (source "C/m2m")
                (dest   "C:")
        )
)

(complete 80)

(set _result 
        (askbool
                (prompt "Czy chcesz zachowaź instrukcje do programów?")
                (help   "Z pewnoōciā chcesz - wybierz TAK")
                (choices "Tak" "Nie")
        )
)

(if _result
        (set doc_dest
                (askdir
                        (prompt  "Gdzie skopiowaź instrukcje?")
                        (help    "Wybierz katalog docelowy")
                        (default "SYS:")
                )
        )
)

(if _result
        (copyfiles
                (prompt "Kopiujė dokumentacjė...")
                (source "Docs/")
                (dest   doc_dest)
                (all)
        )
)

(complete 90)

(set _result 
        (askbool
                (prompt "Czy chcesz zainstalowaź gotowe pliki konfiguracyjne?")
                (help   "Jeōli chcesz, moūemy Ci teū zainstalowaź gotowe pliki konfiguracyjne. Dziėki nim nie bėdziesz musiaī juū sam niczego wiėcej wpisywaź. Stare konfiguracje nie ulegnā skasowaniu, ale zmienimy tylko ich nazwė. Dziėki temu w kaūdej chwili bėdziesz mógī wróciź do poprzednich ustawieļ")
                (choices "Tak" "Nie")
        )
)

(if _result
        (set _yourchoice
                (askchoice
                        (prompt  "Wskaū konfiguracjė, którā chcesz zainstalowaź")
                        (help    "Moūesz wybraź tylko jednā, jak sam z pewnoōciā juū zauwaūyīeō...")
                        (choices "Komfortowa" "Rozszerzona" "Normalna" "Tomasha")
                )
        )
)

(if _result
        (rename "t:fm.prefs" "t:fm.prefs.bak")
)

(if _result 
        (select _yourchoice
                (copyfiles
                        (prompt "Kopiujė konfiguracjė Komfortowā")
                        (source "Configs/comfort-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
        
                (copyfiles
                        (prompt "Kopiujė konfiguracjė Rozszerzonā")
                        (source "Configs/extended-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
 
                (copyfiles
                        (prompt "Kopiujė konfiguracjė Normalnā")
                        (source "Configs/normal-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
 
                (copyfiles
                        (prompt "Kopiujė konfiguracjė Tomasha")
                        (source "Configs/tomash-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
        )

)

(complete 100)

(message "Instalacja dobiegīa koļca! Ūyczymy miīej pracy")
(exit (quiet))