(SET @default-dest "Sys:")
(SET default_lang 0)

(SET #startMsg ("\nWelcome to 'DiskFull v1.1'\n\nThis script installs 'DiskFull' on your Amiga.\n") )

(SET #destPrompt "Please choose the destination directory for 'DiskFull'.\nA drawer will NOT be created.")

(SET #copyPFiles "Copying program files...")

(SET #exitMsg ("Hope you enjoy using 'DiskFull'!") )


(MESSAGE #startMsg)

(SET @default-dest
    (ASKDIR (PROMPT  #destPrompt)
            (HELP    askdir-help)
            (DEFAULT @default-dest )))

(COPYFILES (SOURCE "DiskFull")
           (HELP copyfiles-help)
           (DEST @default-dest )
           (INFOS)
)

(COPYFILES (SOURCE "DiskFull.guide")
           (HELP copyfiles-help)
           (DEST @default-dest )
           (INFOS)
)

(COPYFILES (SOURCE "KeyMaker")
           (HELP copyfiles-help)
           (DEST @default-dest )
           (INFOS)
)

(IF (NOT (EXISTS "FONTS:thinpaz"))
    (MAKEDIR "FONTS:thinpaz"))

(IF (NOT (EXISTS "FONTS:thinpaz.font"))
    (COPYFILES (SOURCE "thinpaz.font")
               (DEST "FONTS:")
               (INFOS)
    )
)

(IF (NOT (EXISTS "FONTS:thinpaz/8"))
    (COPYFILES (SOURCE "thinpaz/8")
               (DEST "FONTS:thinpaz")
               (INFOS)
    )
)
(IF (NOT (EXISTS "FONTS:Organiser"))
    (MAKEDIR "FONTS:Organizer"))

(IF (NOT (EXISTS "FONTS:Organiser.font"))
    (COPYFILES (SOURCE "Organiser.font")
               (DEST "FONTS:")
               (INFOS)
    )
)

(IF (NOT (EXISTS "FONTS:Organiser/8"))
    (COPYFILES (SOURCE "Organiser/8")
               (DEST "FONTS:Organiser")
               (INFOS)
    )
)

(Exit #exitMsg)