; OLDTIMER Harddisk-Installation

(set name
	(askdir
		(prompt "Bitte wählen Sie das Verzeichnis, in dem das OLDTIMER-Verzeichnis angelegt werden soll.")
		(help "Nix.")
                (default "SYS:")
	)
)

(if (< (getdiskspace name) 7000000) 
        (abort  "Auf diesem Laufwerk ist nicht genug Platz!! "
                "Es werden mindestens 7MB freier Festplattenspeicher "
                "benötigt, um die Installation durchführen zu können!")
)

(set sstr (substr name (- (strlen name) 1) 1))

(if (or (= sstr "/") (= sstr ":")) (set dname (cat name "Oldtimer")) (set dname (cat name "/Oldtimer")))

(makedir dname
        (prompt "Verzeichnis \""dname"\" wird angelegt.")
	(help "Nix.")
        (confirm)
)

(copyfiles (source "AUTO1:s/Oldtimer.info") (dest name))

(copyfiles
	(prompt "Installiere Diskette 1 von OLDTIMER.")
	(help @copyfiles-help)
	(source "AUTO1:")
	(dest dname)
        (pattern "#?.s??")
)

(copyfiles (source "AUTO1:Oldtimer") (dest dname))
(copyfiles (source "AUTO1:S/StartOldtimer") (dest dname))
(copyfiles (source "AUTO1:S/StartOldtimer.info") (dest dname))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "Spiele.Dat"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME1.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME2.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME3.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME4.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME5.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME6.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME7.GAM"))


(copyfiles
	(source "AUTO2:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO3:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO4:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO5:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO6:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO7:")
	(dest dname)
        (all)
)

(copyfiles
	(source "AUTO8:")
	(dest dname)
        (all)
)