home *** CD-ROM | disk | FTP | other *** search
- ; $VER: DMS Install 1.00 (1.4.94)
- ;script to install Device-Masher System v2
-
- (complete 0)
-
- ;=============================================================================
-
- (set #General
- (cat "\n\nYou can find other utilities by ParCon Software "
- "On this distribution disk. Which can increase the performance of "
- "your Amiga."
- "\n\n\nSPREAD THE WORD, AND THIS DISK!"
- ))
-
- ;Get directory to install DMS v2 in.
- (set destdir
- (askdir
- (prompt "In which drawer should DMS v2 be installed?")
- (help @askdir-help)
- (default (tackon @default-dest "DMSv2"))
- )
- )
-
- (set vernum (getversion))
- (set ver (/ vernum 65536))
- (set rev (- vernum (* ver 65536) ) )
-
- (complete 10)
-
- ;Determine system version and copy appropriate libraries.
- (if (> ver 36)
- (
- (copylib
- (source "Device-Masher System v2:Libs/reqtools.library")
- (dest "LIBS:")
- )
- )
- (
- (copylib
- (source "Device-Masher System v2:Libs/reqtools13.library")
- (dest "LIBS:reqtools.library")
- )
- )
- )
-
- (complete 30)
-
- ;Copy AmigaGuide files to destination.
-
- (copyfiles
- (source "Device-Masher System v2:DMS.DOC")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMS.DOC.info")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMS.Guide")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMS.Guide.info")
- (dest destdir)
- )
-
- (copyfiles
- (source "Device-Masher System v2:Update.DOC")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:Update.DOC.info")
- (dest destdir)
- )
-
- (complete 40)
-
- ;Copy program files to destination.
- (copyfiles
- (source "Device-Masher System v2:DMS")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMS.info")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:UNDMS")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:UNDMS.info")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMSWB")
- (dest destdir)
- )
- (copyfiles
- (source "Device-Masher System v2:DMSWB.info")
- (dest destdir)
- )
-
- (complete 90)
-
- (message #General)
-
- (complete 100)
-
- (exit)
-