; DefaultTool-Changer (V1.0) Installerscript (c) by PackMAN 25.05.97


;=============================================================================
; OS2 ?

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

;=============================================================================

(set #notV37
(cat "DefaultTool-Changer needs OS2.x (V37.175) or higher..."))

(set #msg
(cat "\n\n"
 "This script installs > DefaultTool-Changer V1.0 <  to your Amiga.\n\n\n"
 "DefaultTool-Changer © 1997 by Falk Zühlsdorff\n\n"
 "All rights reserved."))

(set #0
(cat "Select Drawer,please.\n(The drawer DeaultTool-Changer will automatically generated)\n"))

(set #1
(cat "Install Reqtools.library ?"))

(if (exists "ENV:Language")
   (if (patmatch (getenv "language") "Deutsch")
      ( ;THEN
       (set #notV37
       (cat "DefaultTool-Changer benötigt OS2.x (V37.175) oder höher..."))

       (set #msg
       (cat "\n\n"
        "Dieses Script installiert > DefaultTool-Changer V1.0 < auf Ihrem Amiga.\n\n\n"
        "DefaultTool-Changer © 1997 by Falk Zühlsdorff\n\n"
        "All rights reserved."))

       (set #0
       (cat "Bitte Ziellaufwerk oder Zielverzeichnis auswählen \n(Verzeichnis: DefaultTool-Changer wird automatisch erstellt)\n"))

       (set #1
       (cat "Reqtools.library installieren ?"))
      )
   )
)

(message #msg)
(welcome)

(set name
    (askdir
        (prompt "\n" #0)
        (help @askdir-help)
        (default "SYS:")
    )
)
(copyfiles
    (prompt "DefaultTool-Changer V1.0")
    (source "")
    (help "...")
    (dest (tackon name "DefaultTool-Changer"))
    (pattern "#?")
    (infos)
    (confirm)
)

(copylib
    (prompt "\n" #1)
    (help @copyfiles-help)
    (source "Libs/reqtools.library")
    (dest "Libs:")
    (safe)
    (confirm)
)