Network PC/Network PC.iso/amiga utilities/disk utilities/compression/dms/install dms

Text File | 1997-11-21 | 4.8 KB | 275 lines

; $VER: DMS Install 1.00 (1.6.94)
;script to install Device-Masher System v2

(complete 0)

    (set EVALDISK "Device Masher International:")
    (set REGDISK  "Device-Masher System v2:")
    (set keyfile FALSE)
;=============================================================================

(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 THE 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 (cat EVALDISK "Libs/reqtools.library"))
            (dest "LIBS:")
        )
    )
    (
        (copylib
            (source (cat EVALDISK "Libs/reqtools13.library"))
            (dest "LIBS:reqtools.library")
        )
    )
)

(complete 30)

;Copy AmigaGuide files to destination.

(copyfiles
    (source (cat EVALDISK "devs/DMS.DEVICE"))
    (dest "DEVS:")
)

(copyfiles
    (source (cat EVALDISK "devs/DM0"))
    (dest "DEVS:")
)
(copyfiles
    (source (cat EVALDISK "devs/DM0.info"))
    (dest "DEVS:")
)

(copyfiles
    (source (cat EVALDISK "DMS.DOC"))
    (dest destdir)
)
(copyfiles
    (source (cat EVALDISK "DMS.DOC.info"))
    (dest destdir)
)
(copyfiles
    (source (cat EVALDISK "DMS.Guide"))
    (dest destdir)
)
(copyfiles
    (source (cat EVALDISK "DMS.Guide.info"))
    (dest destdir)
)

(copyfiles
    (source (cat EVALDISK "Update.DOC"))
    (dest destdir)
)
(copyfiles
    (source (cat EVALDISK "Update.DOC.info"))
    (dest destdir)
)


(if (exists "s:DMS.KEYFILE")
    (set keyfile TRUE)
)

(complete 40)


;Copy program files to destination.
(if (= keyfile FALSE)
 (
 (copyfiles
     (source (cat EVALDISK "DMS"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "DMS.info"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "DMSWB"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "DMSWB.info"))
     (dest destdir)
 )
 )
)


(if (= keyfile TRUE)
 (
 (copyfiles
     (source (cat EVALDISK "REGISTERED/DMSREGISTER.CFG"))
     (dest destdir)
 )

 (copyfiles
     (source (cat EVALDISK "REGISTERED/DMS"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "DMS.info"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "REGISTERED/DMSWB"))
     (dest destdir)
 )
 (copyfiles
     (source (cat EVALDISK "DMSWB.info"))
     (dest destdir)
 )
 )
)


(copyfiles
    (source (cat EVALDISK "UNDMS"))
    (dest destdir)
)
(copyfiles
    (source (cat EVALDISK "UNDMS.info"))
    (dest destdir)
)

(complete 80)

(if (= keyfile TRUE)
(
    (askdisk (prompt "YOU HAVE A PREVIOUSLY INSTALLED A\n"
                     "REGISTERED DMS\n\n"
                     "\nplease insert\n"
                     "THE REGISTERED DMS DISK YOU HAVE RECEIVED\n"
                     " FOR CORRECT INSTALLATION OF DMS " version "\n"
                     " DISK NEEDS TO BE UPDATED SO DEPROTECT DISK\n")
         (help @askdisk-help)
         (dest "Device-Masher System v2")
    )

(makeassign "tempsource" destdir)

(copyfiles
    (source (cat "tempsource:DMSREGISTER.CFG"))
    (dest "Device-Masher System v2:")
)
(copyfiles
    (source (cat "tempsource:DMS"))
    (dest "Device-Masher System v2:")
)
(copyfiles
    (source (cat "tempsource:DMSWB"))
    (dest "Device-Masher System v2:")
)

;Personalize Device-Masher System v2
(run ('\"%s\"' (cat REGDISK "PatchDMS") )

    ('\"%s\"'
        destdir
    )

    (askstring
        (prompt "What is your serial number?")
        (help "You can find your serial number on the front of you DMS v2 master disk.")
    )
)

    (askdisk (prompt "\nplease reinsert\n"
                     "THE DMS UPDATE DISK\n"
                     EVALDISK)
         (help @askdisk-help)
         (dest "Device Masher International")
    )
)
)

(user 2)
(set km2 0)
(set km2 (askchoice (prompt "select language for DMS")
            (help "DMS text will be shown in language you select")
                    (choices "British"
                 "Dansk"
                 "Norsk (NOT IMPLEMENTED YET!)"
                 "Svenskt"
                 "Deutsch"
                 "Italiana"
                 "nederlands"
                 "español"
                 "Français (NOT IMPLEMENTED YET!)"
            )
            (default 0)
      )
)


(set km 0)
(set km3 "a")
(while (set km1 (select km    "English"
                "Danish"
                "Norvegian"
                "Swedish"
                "German"
                "Italian"
                "Dutch"
                      "Spanish"
                  "French"
                  ""
                )
       )

(
    (if (= km2 km )

        (set km3 km1)
        )
    )
   (set km (+ km 1)
)

)

(run ('\"%s\"' (cat EVALDISK "Dmstranslate") )

    ('\"%s\"'
        km3
    )

    ('\"%s\"'
                 destdir
        )
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(message #General)

(complete 100)

(exit)