; Begin AT Installer Script
; $VER: AT Install Script Version 1.1 23/12/99

(message "\n\nAT 1.1\n"
       "© 1999 by Sylvio Beck\n\n\n"
       "Willkommen zur Installation von AT\n"
       "Dem ultimativen Adress und Terminplaner für den Amiga\n"
       "\n"
       
)
(message "\n\nAT 1.1\n\n"
       "Dieses Install-Programm ist Fehlerhaft!!!\n\n"
       "Wenn ihr AT ohne Unterschublade installiert, (z. B.DH0:AT)\n"
       "wird der Assign-Befehl falsch angelegt.\n\n"
       "Falls sich jemand gut mit Install-Skripten auskennt kann\n"
       "er es gern beheben und mir das neue Skript schicken\n"
       "Black_Amiga@megamail.de\n"
)
(complete 25)

(set #installdir
    (askdir
        (prompt "Wohin willst du AT kopieren\n"
                "(Ein Verzeichnis Namens AT wird angelegt)")
        (help @askdir-help)
        (default "Sys:")
    )
)

(set @dest (expandpath #installdir))

(complete 50)

(copyfiles
    (source "/")
    (dest #installdir)
    (pattern "AT#?")
)

(complete 55)
(set #delfile
   (cat #installdir "/AT/Install_AT")
)

(set #delfile2
   (cat #installdir "/AT/Install_AT.info")
)

(delete #delfile)
(delete #delfile2)

(complete 67)

(copyfiles
   (Prompt "Wohin soll der AT.start kopiert werden (Es wird keine Schublade angelegt)")
   (help @copyfiles-help)
   (source "ENV/AT.start")
   (dest "Sys:Wbstartup/")
   (confirm)
)

(copyfiles
   (Prompt "AT.start braucht jetzt noch seine INFO Datei")
   (help @copyfiles-help)
   (source "ENV/AT.start.info")
   (dest "Sys:Wbstartup/")
   (confirm)
)
(complete 75)

(copyfiles
   (Prompt "Wohin sollen die Demoeinstellungen kopiert werden (Es wird keine Schublade angelegt")
   (help @copyfiles-help)
   (source "Env/AT")
   (dest "ENVARC:")
   (confirm)

)

(complete 80)

(startup "AT"
        (prompt ("\nEs wird nun dieser Assign-Befehl in die User-Startup eingetragen:\n\n%s\n\n" (cat "assign AT: " #installDir) ) )
        (help @startup-help)
        (command (cat "assign AT: " @dest"/AT"))

)


(complete 100)
(message "\n\n\nAT wurde erfolgreich installiert\n"
         "Bitte starten sie ihren Rechner neu\n\n\n"
         "Viel Spaß bei der Arbeit mit AT"
)