; Install script for EasyFR (Workbench 2.0)

(set efrdir "/")

;=============================================================================
; English strings

(set default_lang 1)

(set #bad-kick
(cat "You must be using Kickstart 2.04 to install using this script!"
))

(set #where-mail "Where should MAIL: be assigned ?")
(set #where-efr
(cat "Where would you like to install EasyFR?\n"
     "(A drawer will be created)"
))

(set #add-mail-startup
(cat "\nAdd EasyFR: assignment to the \"S:user-startup\" "
     "so that your system will be properly configured to use EasyFR?"
))

(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different"
          " languages. If you want EasyFR to use the same"
     " language as the Amiga Workbench"
          " then a catalog file must be copied to your"
          " harddisk for each language supported.\n\n"
          "To reduce the amount of space consumed by the"
          " language files, you can select to have only the"
          " files of specific languages copied.\n\n"
          "Simply check the boxes of the languages you wish"
          " to have available on your system.\n\n"
          @askoptions-help
))

(set #witch-processor
(cat "\nPlease, select witch binary version of EasyFR 2.0"
        " you would like to install.\n\n"
))
(set #witch-processor-help
(cat "\nEasyFR 2.0 is distributed in two version: one"
        " compiled for 68000 (and 68010) processors,"
        " the other compiled for 68020, 68030, 68040"
        " and 68060 processors. If you a 32 bit processors"
        " you will have better performance."
        @askoptions-help
))

(set #witch-help
(cat "\nPlease, choose the language of the on-line"
        " amigaguide help you wish to install.\n\n"
))
(set #witch-help-help
(cat "\nEasyFR has on-line help. This mean that every"
        " time you press the help key, the guide will"
        " popup displaying the section you are currently"
        " using.\n"
        @askoptions-help
))

(set #install-msg
(cat "\n\nEasyFR installation script.\n"
     "This script installs EasyFR on your Amiga.\n\n"
     "Read the README file for more information\n"
     "on the distribution of EasyFR.\n\n"
     "EasyFR © 1994 Angelo Vizzarro\n"
     "EasyFR 2.2 © 1995-1996 Francesco Dipietromaria\n"
     "All rights reserved."
))

;=============================================================================

(message #install-msg)

(welcome)

(set EasyFRdestdir (getassign "EasyFR"))

(if EasyFRdestdir
(set dummy 1)
(
        (set EasyFRdestdir
                (tackon
                        (askdir
                                (prompt #where-efr)
                                (help @askdir-help)
                                (default @default-dest)
                        )
                        "EasyFR"
                )
        )
        (makedir EasyFRdestdir (infos))
        (makeassign "EasyFR" EasyFRdestdir (safe))
        (startup "EasyFR"
                (prompt #add-mail-startup)
                (help @startup-help)
                (command
                        "Assign EasyFR: \"" EasyFRdestdir "\"\n"
                        "path EasyFR:C add\n"
                )
        )
))

(set @default-dest EasyFRdestdir)

(makedir (tackon EasyFRdestdir "C"))
(makedir (tackon EasyFRdestdir "Extras") (infos))

(set processor  (askchoice  (prompt #witch-processor)
                            (help #witch-processor-help)
                            (choices "68000" "68020+")
                            (default 0)
                )
)

(set help_path
        (tackon efrdir
                (select  (askchoice (prompt #witch-help)
                                (help #witch-help-help)
                                (choices "English" "Italiano")
                                (default (- default_lang 1))
                        )
                        "Docs/English"
                        "Docs/Italiano"
                        ""
                )
        )
)

(if processor
((copyfiles
        (source (tackon efrdir "EasyFR.020"))
        (dest EasyFRdestdir)
        (infos)
)
(rename (tackon EasyFRdestdir "EasyFR.020")
        (tackon EasyFRdestdir "EasyFR")
)
(rename (tackon EasyFRdestdir "EasyFR.020.info")
        (tackon EasyFRdestdir "EasyFR.info")
))
(copyfiles
        (source (tackon efrdir "EasyFR"))
        (dest EasyFRdestdir)
        (infos)
))

(copyfiles
        (source (tackon efrdir "EasyFR.sleep.info"))
        (dest EasyFRdestdir)
) 

(copyfiles
        (source (tackon efrdir "C/mouse2"))
        (dest (tackon EasyFRdestdir "C"))
)

(copyfiles
        (source (tackon efrdir "Extras/setfilelist"))
        (dest (tackon EasyFRdestdir "Extras"))
        (infos)
)

(copyfiles
        (source (tackon efrdir "Extras/xInfo"))
        (dest (tackon EasyFRdestdir "Extras"))
        (infos)
)


(copyfiles
        (source (tackon help_path "EasyFR.guide"))
        (dest EasyFRdestdir)
        (infos)
)
(if (< (/ (getversion) 65536) 39)
(
        (tooltype
                (dest (tackon EasyFRdestdir "EasyFR.guide"))
                (setdefaulttool "SYS:Utilities/AmigaGuide")
        )
))

(copyfiles
        (source (tackon efrdir "ReadMe.mui"))
        (dest EasyFRdestdir)
        (infos)
)
(if (> (/ (getversion) 65536) 38)
(
        (tooltype
                (dest (tackon EasyFRdestdir "ReadMe.mui"))
                (setdefaulttool "SYS:Utilities/MultiView")
        )
))