; Installationsskript für ONline_Check 2.7
; $VER: ONline_Check Install 2.7 (26.03.1997)
; (c) 1997 A.Teichmann

(set version 2)
(set revision 7)
(set @app-name ("ONline_Check %ld.%ld" version revision))

(if (= @language "deutsch")
    (
        (set @abort-button "Installation abrrechen!")
        (set @error-msg    "Fataler Fehler!")
        (set #welcome (cat
             @app-name
             "-Installation\n\n"
             "Damit wird der ONline_Check automatisch auf\n"
             "Ihrer Festplatte installiert\n\n"
             "ONline_Check © 1997 A.Teichmann@t-online.de\n"))
        (set #version_error
            "\nTut mit leid !\n\nONline_Check benötigt mindestens\nOS 2.04")
        (set #libs
            "libs:")
        (set #Scatalogs
            "locale/deutsch/ONline_Check.catalog")
        (set #Dcatalogs
            "sys:locale/catalogs/deutsch/")
        (set #Sprefs
            "prefs/deutsch/ONline_Check.prefs")
        (set #Sprefsicon
            "prefs/deutsch/ONline_Check.prefs.info")
        (set #Scheck
            "bin/ONline_Check")
        (set #Scheckicon
            "bin/ONline_Check.info")
        (set #Sguide
            "docs/deutsch/ONline_Check.guide")
        (set #Sguideicon
            "docs/deutsch/ONline_Check.guide.info")
        (set #Sreg
            "docs/deutsch/ONline_Check.register")
        (set #install
            "Installiere ")
        (set #whichdrawer
            "Wo soll für ONline_Check ein Verzeichnis angelegt werden?")
        (set #whichdrawer_help (cat
            "Ein Verzeichnis namens 'ONline_Check' wird dort "
            "erzeugt. Dort wird ONline_Check nach der "
            "Installation zu finden sein."))
        (set #bye (cat
             "\n\n\nViel Spaß und niedrige Telefonkosten mit\n\n"
             "ONline_Check "version"."revision"\n\n"
             "wünscht Ihnen\n\n"
             "A.Teichmann@t-online.de\n"))
)


(       
        (set #welcome (cat
             @app-name
             "-Installation\n\n"
             "The Programm ONline_Check will be copied \n"
             "automatically on your Harddisk\n\n"
             "ONline_Check © 1997 A.Teichmann@t-online.de\n"))
        (set #version_error
            "\nSorry !\n\nONline_Check needs \nOS 2.04+")
        (set #libs
            "libs:")
        (set #Scatalogs
            "locale/english/ONline_Check.catalog")
        (set #Dcatalogs
            "sys:locale/catalogs/english/")
        (set #Sprefs
            "prefs/english/ONline_Check.prefs")
        (set #Sprefsicon
            "prefs/english/ONline_Check.prefs.info")
        (set #Scheck
            "bin/ONline_Check")
        (set #Scheckicon
            "bin/ONline_Check.info")
        (set #Sguide
            "docs/english/ONline_Check.guide")
        (set #Sguideicon
            "docs/english/ONline_Check.guide.info")
        (set #Sreg
            "docs/english/ONline_Check.register")
        (set #install
            "Installing ")
        (set #whichdrawer
            "Where should i be create a Drawer for ONline_Check ?")
        (set #whichdrawer_help (cat
            "A Drawer with the name 'ONline_Check' will be createt."
            "ONline_Check could be found there after installation."))
        (set #bye (cat
             "\n\n\nHave a nice time ,and many litte Telefoncosts with\n\n"
             "ONline_Check "version"."revision"\n\n"
             "Greets from\n\n"
             "A.Teichmann@t-online.de\n"))
))

(message #welcome)
(complete 0)

(if (< (/ (getversion) 65536) 37)
    (abort #version_error))

(set ziel
    (askdir
        (prompt #whichdrawer )
        (default "sys:")
        (help   #whichdrawer_help )
    )
)
(set @default-dest ziel )
(set ziel (tackon ziel "ONline_Check"))
(makedir ziel (infos))

    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scatalogs)
        (dest #Dcatalogs)(confirm "expert"))
(complete 15 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sprefs)
        (dest ziel)(confirm "expert"))
(complete 30 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sprefsicon)
        (dest ziel)(confirm "expert"))
(complete 45 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scheck)
        (dest ziel)(confirm "expert"))
(complete 60 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scheckicon)
        (dest ziel)(confirm "expert"))
(complete 68 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "docs/OC_pic1")
        (dest ziel))
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "docs/OC_pic2")
        (dest ziel))
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "docs/OC_pic3")
        (dest ziel))
(complete 75 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sguide)
        (dest ziel)(confirm "expert"))
(complete 85 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
         (help   #ONline_Check_help)
        (source #Sguideicon)
        (dest ziel)(confirm "expert"))
(complete 95 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "libs")
        (all)
        (dest #libs)(confirm "expert"))
(complete 98 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sreg)
        (dest ziel)(confirm "expert"))
(complete 100)
(message #bye )
(exit)