; ; Electronic Teacher © 1997-1999 W.F.M.H. ; ; --------------------------------------------------------- ; ; ### ### ######### ### ### ### ### ; ### ### ### #### #### ### ### ; ### ### ### ### ## ### ### ### ; ### ### ######## ### ## ### ########## ; ### ## ### ######## ### ### ########## ; ### ## ### ### ### ### ### ### ; #### #### ## ### ## ### ### ## ### ### ## ; ### ### ## ### ## ### ### ## ### ### ## ; ; --------------------------------------------------------- ; ; W.F.M.H. ; ul. Radomska 38 ; 71-002 Szczecin ; Poland ; ; tel. ++48 91 4836425 ; ; Internet: info@amiga.com.pl ; WWW : http://amiga.com.pl ; ;-------------------------------------------------------------------- ; ; W.F.M.H. Electronic Teacher 5.2 Grammar DE - Installer script ; Written by Marcin Orlowski ; ;-------------------------------------------------------------------- ; ; $VER: WFMH eTeacher - Installer Grammar DE 5.20 CD (25.10.98) © Marcin Orlowski ; ;-------------------------------------------------------------------- ;/// Presets (set _debug 0) (set __version 5) (set __revision 30) (set __date "16.02.1999") (set __destdir "eTeacherGB/") (set __src "_update") ;//| ;/// German strings ;**************************** GERMAN STRINGS ***************************** (set msg_err_dizzy "Unerwarteter Fehler aufgetreten! Installation abgebrochen.") (set msg_err_cleanup "Installation abgebrochen. Neuaufbau...") (set msg_err_wrongos "\n\nElectronic Teacher 5 CD benötigt zum Starten mindestens OS 2.0 oder besser") (set msg_err_request "\n\nInstallation nach Anwendereingabe abgebrochen") (set msg_copyrights "Dies ist ein kommerzielles Produkt!\n\nCopyright © 1998-1999 W.F.M.H.\n\nAlle Rechte reserviert") (set msg_binaries "Bitte suchen Sie die OS-Version aus, die Sie besitzen\nLesen Sie den Hilfe-Text für Details") (set msg_binaries_help (cat "Electronic Teacher wird in zwei Versionen geliefert. Die Version für \"OS 2.x\" ist etwas eingeschränkt und unterstützt keine Datatypes und andere OS 3.x Features. " "Aber machen Sie sich keine Gedanken. Beide Versionen bieten dieselben Grundfunktionen an und Sie werden KEINE Unterschiede beim Lernen feststellen. " "ALLE Daten auf dieser CD können durch beide Versionen gelesen werden. Der einzige Nachteil kann beim Erstellen eigener Übungen und der Verwendung fremder Dateiformate für Daten auftreten. " "Bitte sehen Sie im Programm-Handbuch nach, um mehr darüber zu lesen, warum Sie solche Datentypen vermeiden sollten und um Vorschläge und Lösungen zum Erstellen von Übungen zubekommen." ) ) (set msg_no_cd "Electronic Teacher CD nicht gefunden!\nInstallation wird abgebrochen.") (set msg_language "Welche Sprache möchten Sie benutzen") (set msg_language_help "Bitte wählen Sie Ihre bevorzugte Sprache aus (ausgenommen natürlich Deutsch), welche Sie zukünftig benutzen möchten. Sie sollten Ihre Heimatsprache hier auswählen, um irgendwelche Probleme zu vermeiden, auf die Sie stoßen könnten, wenn Sie nicht so vertraut mit Deutsch sind") (set msg_installdir "Wo ist der Electronic Teacher installiert?") (set msg_installdir_help "Bitte wählen Sie die Schublade, wo Electronic Teacher installiert werden soll. Zum Beispiel \"Work:Anwendungen/eTeacherGB\".") (set msg_wrong_drawer "Ich konnte Electronic Teacher in der\n\n\"%s\"\n\nSchublade nicht finden. Gehen Sie sicher, daß Sie die richtige ausgewählt haben. Die Installation wird abgebrochen.") (set msg_err_destfile "\nKonnte das Verzeichnis \"%s\" nicht anlegen, weil bereits eine Datei mit diesem Namen hier existiert. Entfernen Sie sie manuell oder wählen Sie ein anderes Zielverzeichnis. Abbruch der Installation...") (set msg_destdir_over "\nIhr Zielverzeichnis \n\n\"%s\"\n\n existiert bereits!\n\nMöchten Sie wirklich fortfahren?\nSehen Sie in den Hilfe-Text für weitere Informationen.") (set msg_destdir_over_help "Das von Ihnen ausgewählte Zielverzeichnis wurde bereits auf der Festplatte angelegt. Entscheiden Sie sich, ob Electronic Teacher wirklich über existierende Dateien installiert werden soll.\n\nDas Drücken von \"%s\" setzt die Installation fort und Electronic Teacher wird in das von Ihnen ausgewählte Verzeichnis installiert. Drücken Sie \"%s\" , um die Installation abzubrechen - nichts wird dann installiert.") (set msg_destdir_button_yes "Fortfahren") (set msg_destdir_button_no "Abbrechen") (set msg_sure "\n\n\nElectronic Teacher 5 CD wird auf Ihrer Festplatte im Verzeichnis:\n\n\"%s\"\n\n installiert. Möchten Sie fortfahren?") (set msg_icon "Wir werden jetzt die Tooltypes des Programms einstellen.") (set msg_icon_help "Wir werden jetzt die Tooltypes des Programms einstellen. Überspringen Sie NICHT diesen Abschnitt, sonst läuft Electronic Teacher nach abgeschlossener Installation nicht!") (set msg_copy_fonts "\n\nKopieren der benötigten Zeichensätze...\n\nKeine Sorge, Ihr Verzeichnis FONTS: wird nicht verändert...") (set msg_copy_libs "\n\nKopieren der benötigten Libraries...\n\nKeine Sorge, Ihr Verzeichnis LIBS: wird nicht berührt...") (set msg_update_libs "\n\nAktualizieren der benötigten Libraries...") (set msg_copy_data "\n\nKopieren der benötigten Daten...\n\nKeine Sorge...") (set msg_copy_binaries "\n\nInstallieren des Hauptprogramms...\n\nKeine Sorge...") (set msg_alt_lang "In welcher Sprache soll die\nProgrammoberfläche erscheinen?") (set msg_alt_lang_help "Bitte wählen Sie die Sprache aus, in der die Programmoberfläche beim ersten Start erscheinen soll. Sie können die Sprache mittels des eingebauten Voreinstellungseditors jederzeit nachträglich verändern.") (set msg_final_note "\nDas aktualisierte Englisch-Grammatik-Handbuch wurde erfolgreich auf Ihrer Festplatte installiert. Wenn Sie dieses Handbuch allein, also ohne die Benutzung der Kontext-Hilfe von Electronic Teacher verwenden möchten, beachten Sie bitte seinen neuen Platz. Das Dokument muß nun folgermaßen aufgerufen werden:\n\n\"%s\"\n\nFalls Sie bereits eine Version von Electronic Teacher im Hintergrund laufen haben, muß diese jetzt neu gestartet werden, damit alle Änderungen wirksam werden.") ;//| ;/// OnError ;########################################################################### ;## OnError ;########################################################################### (onerror (working msg_err_cleanup) (P_CleanUp) ) ;//| ;/// Bug ;########################################################################### ;## Bug ;########################################################################### (procedure bug #tekst (if (> _debug 0) (message #tekst (all)))) ;//| ;/// P_CleanUp ;########################################################################### ;## P_CleanUp ;########################################################################### (procedure P_CleanUp (if (= (exists "T:GrammarGB4DE.guide") 1) (delete "T:GrammarGB4DE.guide") ) ) ;//| ;/// P_Makedir ;########################################################################### ;## P_Makedir ;########################################################################### (procedure P_Makedir #katalog (if (= (exists #katalog) 0) ( (makedir #katalog (infos)) ) ) ) ;//| ;/// Preparing... ;########################################################################### ;## Preparing... ;########################################################################### (bug "\n\nDebug is ON!") (message "\n\n\nW.F.M.H. eTeacher Grammar Handbook DE " __version "." __revision "\n\n" msg_copyrights ) (complete 0) (set OS_Version (/ (getversion "exec.library" (resident)) 65536)) (if (< OS_Version 36) (abort msg_err_wrongos)) (if (<= OS_Version 38) (set _os 0)) (if (>= OS_Version 39) (set _os 1)) (if (= (exists "eTeacherGB:" (noreq)) 0) (abort msg_no_cd) ) ;########################################################################### ;## Ask where the program lives... ;########################################################################### (set @default-dest "Work:") (set @default-dest (askdir (prompt (msg_installdir __destdir)) (help (msg_installdir_help __destdir)) (default @default-dest) ) ) (bug (cat "DestDir: " @default-dest)) ;//| ;/// De szou mast gou on... ;########################################################################### ;## De szou mast gou on... ;########################################################################### (complete 0) (if (<> (exists (tackon @default-dest "eTeacher")) 1) (abort (msg_wrong_drawer @default-dest)) ) ;########################################################################### ;## Let's make some necesary drawers ;########################################################################### (complete 10) (P_Makedir (tackon @default-dest "Help")) ;########################################################################### ;## Let's apply the guide patch... ;########################################################################### (complete 30) (working msg_copy_help) (set err (run (cat "eTeacherGB:c/patcher -oT:GrammarGB4DE.guide -p_update/Help/GrammarGB4DE.guide.pch eTeacherGB:Help/GrammarGB4DE.guide"))) (if (<> err 0) ( (abort msg_err_dizzy) ) ) (copyfiles (source "T:GrammarGB4DE.guide") (dest (tackon @default-dest "Help")) (all) ) (copyfiles (source "eTeacherGB:Help/GrammarGB4DE.guide.info") (dest (tackon @default-dest "Help")) (all) ) (if (= (exists "T:GrammarGB4DE.guide") 1) (delete "T:GrammarGB4DE.guide") ) ;########################################################################### ;## Let's set some tooltypes... ;########################################################################### (complete 60) (tooltype ( (dest (tackon @default-dest "eTeacher")) (help msg_icon_help) (prompt msg_icon) (settooltype "GUIDE1" "Help/GrammarGB4DE.guide") ) ) ;//| ;/// Done ;########################################################################### ;## Seems it's over... ;########################################################################### (complete 99) (message (msg_final_note "Help/GrammarGB4DE.guide")) (complete 100) (P_CleanUp) (exit) ;//|