; $VER: 4

(delopts "oknodelete" "force" "askuser")
(complete 0)

(if (exists "GOLDED:" (NOREQ))

    (
	(set vernum (getversion "golded:golded"))

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

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

	(if (< version 40)

	    (
		(message "\nSorry, GoldED Release 4.0.0 or better required")
		(exit (quiet))
	    )
	)

	(message (cat "\n"

	    "GoldED 4 · Programmer's Editor                    \n"
	    "All Rights Reserved.                              \n"
	    "                                                  \n"
	    "Upgrades GoldED 4.0.x to GoldED 4.0.6             \n"
	    "Additionally gives you a keyfilemaker             \n"
	    "                                                  \n"
	    "GoldED ©1995, 1996 Dietmar Eilert                 \n"
	    "Reqtools ©1991-1995 Nico François                 \n"
	    "                                                  \n"
	    "GoldED is not freely distributable. Please read   \n"
	    "the licence file before you install GoldED;       \n"
	    "installing this software means accepting the      \n"
	    "licence. Thank you.                               \n"
	))

	(copyfiles

	    (source  "golded" )
	    (dest    "golded:")
	    (infos)
	    (all)
	)

	(makedir "golded:keyfile")
	(if (exists "hispeed:" (noreq)) (makedir "hispeed:keyfile"))

	(complete 100)

	(message (cat "\n"
		 "Installation complete.\n\n"
		 "Now use the keyfilemaker to enable all options!\n\n"
		 "To see your registername you have to use the command\n"
		 "\"INFO USER\" eg. in a menu!"
		 ))

	(run "golded:MakeGedKeyV1.4")
    )

    (message (cat "\n"

	"Please install GoldED before attempting to\n"
	"install this client.                      \n"
    ))
)

(exit (quiet))

(welcome)