; Install-Script for STCCG.guide
;
; © 1996 Ralf Schwate
;
; $VER:STCCG-install 1.0 (01-Aug-96)
;
; Version 1.0
;
;   Initial Release

(if (= @language "english")
    (
        (set @abort-button "Cancel installation")
        (set @app-name "STCCGguide")
        (set #stccg_introduction (cat "\n"

            "STCCG.guide 1.0                                    \n"
            "All Rights Reserved.                               \n"
            "                                                   \n"
            "©1996 Ralf Schwate                                 \n"
            "                                                   \n"
            "An AmigaGuide-Database for the Card Game           \n"
            "Star Trek: The Next Generation                     \n"
        ))
        (set #stccg_error (cat

            " Some error has occured. Please inform the author  \n"
            " (e.g. Ralf.Schwate@mch.sni.de) after having tried \n"
            " a different Installer release.                    \n"
        ))
        (set #stccg_where "Please select a destination for the STCCG.guide drawer")
        (set #stccg_where_help
            (cat "Use this dialogue to select the partition or the directory where you "
                 "want the STCCG.guide drawer to be created.\n\n"
                 @askdir-help
            )
        )
        (set #stccg_add_assign "Add STCCG assign to user-startup?\n")
        (set #stccg_add_assign_help (cat "\n"

            " STCCG.guide needs this assign to find crosslinked \n"
            " files in it's database!                           \n"
        ))
        (set #stccg_viewer "Please select a viewer for pictures in the database")
        (set #stccg_viewer_help (cat "\n"

            " STCCG.guide needs this file to show the pictures  \n"
            " included in the database. Should support iff- and \n"
            " gif-formats!                                      \n"
        ))
        (set #stccg_complete "\nInstallation complete.")
    )
)

; ** Setting of Variables
;

(set install_mode 0)
(set install_mode_new 0)
(set install_mode_update 1)

(onerror (

    (if (> @ioerr 0)

        (message (cat "\n ERROR CODE: " @ioerr "\n\n" #stccg_error))
    )
))


; ** Start of Installation
;


(message #stccg_introduction)

(welcome)

(transcript "On installing STCCG.guide ...")

(complete 0)

(if (exists "USER:" (noreq))
    (set #stccg_default "USER:")
    (set #stccg_default "SYS:TOOLS")
)

(if (= install_mode install_mode_new)
    (
        (set install_path
            (askdir
                (prompt #stccg_where)
                (help   #stccg_where_help)
                (default #stccg_default)
            )
        )
    )
)

(if (= install_mode install_mode_update)
    (
        (exit "not supported yet!\n")
    )

    (
        (set install_dir (tackon install_path "STCCGguide"))

        (if (exists install_dir)
            (exit "should not happen yet!\n")

            (
                (makedir install_dir (infos))
            )
        )

        (makeassign "STCCG" install_dir)
    )
)

(set @default-dest (install_dir))

(complete 10)

(copyfiles (source "/STCCGguide") (dest "STCCG:") (all))

(complete 80)

(startup "STCCGguide"
    (prompt #stccg_add_assign)
    (help   #stccg_add_assign_help)

    (command ("assign >nil: STCCG: %s" install_dir))
)

(complete 90)

(if (exists "c:vt")
    (set viewer_default "c:vt")
    (set viewer_default "")
)

(set #show_file
    (askfile
        (prompt #stccg_viewer)
        (help   #stccg_viewer_help)
        (default viewer_default)
    )
)
(set stccg_show (".key pic\n%s <pic> &\n" #show_file))
(textfile (dest "STCCG:show") (append stccg_show))

(complete 100)

(exit #stccg_complete)