; $VER: Install_MyFont 37.1 (19.2.1994)
;
; Install script for MyFont
;
; Distributed as a part of the MyFont archive.
; MyFont is Copyright (C) 1994 by Jan Skypala
; All righs reseredved

(set @default-dest "")
(set old_level @user-level)

(set MyFont                      "MyFont")

(set #targetstr                  "In which directory should MyFont be installed?")
(set #targetsel             (cat "\nPlease select the directory or partition in which you would like "
                                 "MyFonts installed\n\nClick PROCEED to start the installation process.\n\n"
                                 @askdir-help))
(set #copying-MyFont             "Copying MyFont...")
(set #fixing-ss                  "Correcting User-Startup file...")
(set #startup-help          (cat "If User-Startup file will be changed MyFonts will be started every "
                                 "time you boot so all programs will use new font instead of topaz.\n\n"
                                 "Two things will happen:\n\n"
                                 "· The Installer will check if your startup-sequence\n"
                                 "  executes the file S:User-Startup, and will modify\n"
                                 "  it to do so, if necessary.\n\n"
                                 "· The Installer will look through the S:User-Startup\n"
                                 "  file and insert the correct MyFont statements\n"
                                 "  where appropriate.\n\n"
                                 @startup-help))

(set @target-dir
      (askdir
             (prompt #targetstr)
             (help #targetsel @askdir-help)
             (default "C:")
      )
)

(copyfiles
      (prompt @copying-MyFont)
      (source MyFont)
      (dest @target-dir)
      (infos)
)

(startup
      ("MyFont"
      (prompt #fixing-ss)
      (help #startup-help)
      (command (cat @target-dir"MyFont"))
      )
)