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

; Script by Kysy/AM & 2xBla
; Translation by Tomash/Art-B & Bbla

(set #choose_prompt    "Which programs do you want install? ")
(set #choose_help (cat "A boxex by the names of the programs"
                       "are the symbols of your choice. If this box"
                       "has a small sign, it means that you want to"
                       "install this program. If you don't want some"
                       "program to be installed, just click on this box"
                       "Box now will be blank. If you want to continue"
                       "simply click on the Continue button. Then, all"
                       "selected programs will be installed in your"
                       "C: directory." ))

(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 "Installing AddIcon...")
                (source "C/AddIcon")
                (dest   "C:")
        )
)


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

(complete 16)

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

(complete 24)

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

(complete 32)

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

(complete 40)

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

(complete 48)

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

(complete 56)

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

(complete 64)

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

(complete 72)

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

(complete 80)

(set _result 
        (askbool
                (prompt "Do you want to save documentations?")
                (help   "I am almost sure you want - click YES")
                (choices "Yep!" "Neeee")
        )
)

(if _result
        (set doc_dest
                (askdir
                        (prompt  "Where to install the documentations?")
                        (help    "Choose a destination dir")
                        (default "SYS:")
                )
        )
)

(if _result
        (copyfiles
                (prompt "Installing documentations...")
                (source "Docs/")
                (dest   doc_dest)
                (all)
        )
)

(complete 90)

(set _result 
        (askbool
                (prompt "Do you want to install example configuration files?")
                (help   "If you wish to, we can install the extra configurations for you. The old configuration WILL NOT be deleted, but just renamed, so you could return to your old, favourite config.")
                (choices "Yes" "No")
        )
)

(if _result
        (set _yourchoice
                (askchoice
                        (prompt  "Select the configuration to install")
                        (help    "You can choose only one, as you can see...")
                        (choices "Comfort" "Extended" "Normal" "Tomash's")
                )
        )
)

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

(if _result 
        (select _yourchoice
                (copyfiles
                        (prompt "Installing comfort configuration")
                        (source "Configs/comfort-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
        
                (copyfiles
                        (prompt "Installing extended configuration")
                        (source "Configs/extended-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
 
                (copyfiles
                        (prompt "Installing normal configuration")
                        (source "Configs/normal-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
 
                (copyfiles
                        (prompt "Installing private configuration")
                        (source "Configs/tomash-fm.prefs")
                        (dest   "t:")
                        (newname "fm.prefs")
                )
        )

)

(complete 100)

(message "Installation is over. Wish you nice work!")
(exit (quiet))