;$VER: FXInstall 1.4 (29.06.96)
(complete 0)

(set #bad-kick
(cat "You need kickstart 3.0 (V39) to install FX."
))

(set #programdir
(cat "\nWhere do you want to install FX?"
))

(set #prefsdir
(cat "\nWhere do you want to install FXprefs?"
))

(set #dokdir
(cat "\nWhere do you want to install the guide?" ))

(set #catalogdir
(cat "\nWhere do you want to install the catalog file?"
))

(if (< (/ (getversion) 65536) 39)
(
    (abort #bad-kick)
))

(set target (askdir (prompt #programdir)
                (help @set)
                (default "SYS:WBStartup")
        )
)


(complete 17)

(copyfiles
        (prompt "Copying FX to " #target )
        (help @copyfiles-help)
        (source "")
        (dest (cat target) )
        (choices "FX")
        (infos)
)

(set @default-dest target)

(complete 34)

(set target (askdir (prompt #prefsdir)
                (help @set)
                (default "SYS:Prefs")
        )
)


(complete 51)

(copyfiles
        (prompt "Copying FXPrefs to " #target )
        (help @copyfiles-help)
        (source "")
        (dest (cat target) )
        (choices "FXPrefs")
        (infos)
)

(set @default-dest target)

(complete 68)

(set target (askdir (prompt #dokdir)
                (help @set)
                (default "Help:english")
        )
)

(complete 85)

(copyfiles
        (prompt "Copying FX.guide to " #target )
        (help @copyfiles-help)
        (source "")
        (dest (cat target) )
        (choices "FX_english.guide")
        (infos)
)

(complete 95)

(set target (askdir (prompt #catalogdir)
                (help @set)
                (default "Locale:catalogs/english")
        )
)

(copyfiles
        (prompt "Copying FX.catalog to " #target )
        (help @copyfiles-help)
        (source "")
        (dest (cat target) )
        (choices "catalogs/english/FX.catalog")
)

(set target @default-dest)

(complete 100)