; $VER DC-Update 2.3 (14.12.95)

(set DrawerNameParent @default-dest)
(set version 0)

(complete 0)
(if (exists "DC:" (NOREQ))
    (

        (set vernum (getversion "DC:DiamondCaves"))

        (set ver (/ vernum 65536))
        (set rev (- vernum (* ver 65536)))

        (set version (+ (* 100 ver) rev))

        (if (> version 202)
            (
                (message "You have already installed a version greater or equal 2.3!\n")
                (exit (quiet))
            )
            (
                (set DrawerNameParent "DC:")
                (set DrawerName "DC:")
            )
        )
    )
)

(if (= version 202)
    (
        (complete 50)
        (copyfiles
            (prompt "Updating necessary files in \"" DrawerName "\".")
            (help @copyfiles-help)
            (source "UpdateFromV2.2")
            (dest DrawerName)
            (all)
        )
    )
    (message "You need an installed version 2.2 of Diamond Caves to use this update.\nGet the full archive called DiamondCaves2_3.lha from AmiNet/game/misc instead.")
)

(complete 100)
(message "\nDiamond Caves update complete.\n\nIf you want to reconfigure Diamond Caves, please use the program DiamondPrefs V1.3.\n\nAnd now enjoy Diamond Caves V2.3!")

(exit (quiet))
