home *** CD-ROM | disk | FTP | other *** search
- ; 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)
- )
-
-