; Innovative GVP IV24 VHI Driver Installation utility
; (C) 2000 by Felix Schwarz/Innovative
; $VER: 1.0

(if (= @language "deutsch")
        (
                ; ----------------------------
                ; Let`s use German as language
                ; ----------------------------
                (set #welcome "\n\n\n\nGVP IV 24 VHI-Treiber\n©2000 by Felix Schwarz\n\n\nWillkommen zur Treiber-Installation\nDieses Script wird den VHI-Treiber auf Ihre HD installieren\n")
                (set #askinstall "Wo befindet sich Ihr VHI-Treiber-Verzeichnis (normalerweise ist das Libs:VHI/) ?")
                (set #byebye "\n\n\n\n\n\n\nDer VHI-Treiber ist nun auf Ihrer Festplatte installiert.\nWählen Sie gvp_iv24.vhi als Treiber in Ihrem VHI-kompatiblen Programmen aus.")
        )
        (
                ; -----------------------------
                ; Let`s use English as language
                ; -----------------------------
                (set #welcome "\n\n\n\nGVP IV 24 VHI-driver\n©2000 by Felix Schwarz\n\n\nWelcome to the driver-installation\nThis script will install the VHI-driver on your HD\n")
                (set #askinstall "Where is your VHI-directory located (normally Libs:VHI/) ?")
                (set #byebye "\n\n\n\n\n\n\nThe driver is now installed on your HD.\nPlease select gvp_iv24.vhi as a driver in your VHI-compatible applications.");
        )
)

; --------------------------------------
; Ok, let`s begin with a small greeting!
; --------------------------------------

(message #welcome)

(welcome)

; ------------------------------------
; Set destination-directory for driver
; ------------------------------------
(set #installdir
        (askdir
                (prompt #askinstall)
                (help @askdir-help)
                (default "LIBS:VHI")
        )
)

(copyfiles
    (source "VHI/")
    (dest #installdir)
    (pattern "#?")
)

; -----------
; Say Bye-Bye
; -----------

(message #byebye)