; $VER: Install-Lotto v2.0 (27.05.00)
; Geschrieben von Mario Qualmann

(set #welcome "\nHerzlich willkommen bei Lotto!\n© 1999-2000 by MAQ (Mario Qualmann)\n\nDie aktuellste Version finden Sie immer im Aminet oder auf meiner Homepage:\n\http://home.t-online.de/home/MQualmann/\n")
(set #endmsgs "Lotto wurde erfolgreich auf Ihrem System installiert.\n\nViel Spaß beim Benutzen und viel Glück beim Tippen! ;-)\n")

(message #welcome)
(welcome)
(complete 0)

; Zielverzeichnis erstellen

(set destination
    (askdir (prompt "Bitte wählen Sie ein Ziellaufwerk/-schublade für Lotto aus.\nEin Verzeichnis \"Lotto\" wird automatisch erstellt.")
            (default @default-dest)
            (help @askdir-help)
    )
)

(set @default-dest destination)

(set destination (expandpath destination))
(set destination (tackon destination "Lotto"))

(if (<> 0 (exists destination))
(
    (message "Es befindet sich bereits ein Lotto-Verzeichnis im angegebenen Pfad.\nEs wird umbenannt in Lotto.bak, Sie können es später löschen.")
    (run (cat "rename \"" destination "\" \"" destination ".bak\""))
    (run (cat "delete \"" destination ".info\" >nil:"))
))

(makedir destination)
(run (cat "copy " "/Lotto.info \"" destination ".info\""))

(complete 50)

; Hauptprogramm kopieren

(copyfiles
        (prompt "Kopiere ...")
        (source "")
        (pattern "#?")
        (dest destination)
        (help @copyfiles-help)
)

(complete 100)
(message #endmsgs)
(exit)