; $VER:Reflections 4.2 Installscript v4 (03.04.1998) ; written 1998 by Helmut Eisenkolb for Oberland, Kronberg (Germany) (set @minuser "average") (set @appname "Reflections 4.2") (set @language "deutsch") (if (= (exists "T:" (noreq)) 0) ((makedir "RAM:T" (safe)) (makeassign "T" "RAM:T" (safe)) ) ) (complete 0) (run "run >nil: avail flush") (welcome "Willkommen bei Reflections 4.2 Amiga!\n") (message "\nReflections 4.2 Installation v4 (03.04.1998) by Helmut Eisenkolb\n\n" "Im Folgenden wird Reflections 4.2 auf Ihrem Amiga " "installiert. Bitte lesen Sie zuvor unbedingt die " "entsprechenden Kapitel im Reflections - Benutzerhandbuch!\n\n" "©1998 by Oberland - alle Rechte vorbehalten.\n\n" "Installer and Installer project icon " "(c) Copyright 1995-98 Amiga Int. All Rights Reserved. " "Reproduced and distributed under license from Escom AG.") (set modus 1) (set aktuell 0) (if (AND (= (exists "envarc:Ref4" (noreq)) 1) (= (exists (tackon (getenv "Ref4") "hilfe/plughelp.txt" ) (noreq)) 1)) ( (set refpath (getenv "Ref4")) (set aktuell 1) (set modus (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter " refpath " eine bereits installierte Version" " von Reflections 4.2 gefunden. Soll diese Version ersetzt werden?") (help (cat "\nWenn Sie \"Version ersetzen\" auswählen, werden nur" " die Programmdateien Ihrer bereits installierten Reflections-Version überschrieben.\n\n" "Ihre Seriennummer benötigen Sie in jedem Fall !!!")) (choices "Version ersetzen" "Neuinstallation")) ) ) ) (if (AND (= (exists "envarc:Ref4" (noreq)) 1) (= aktuell 0)) ( (set refpath (getenv "Ref4")) (if (= (exists (tackon refpath "icon1.iff")) 1) (set modus (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter " refpath " eine bereits installierte Version" " von Reflections 4.x gefunden. Soll diese Version aktualisiert werden?") (help (cat "\nWenn Sie \"Aktualisieren\" auswählen, werden" " die Programmdateien Ihrer bereits installierten Reflections-Version überschrieben und einige Dateien geändert bzw. hinzugefügt.\n\n" "Ihre Seriennummer benötigen Sie in jedem Fall !!!")) (choices "Aktualisieren" "Neuinstallation")) ) ) ) ) (complete 1) (set update 2) (if (AND (= (exists "REF3:" (noreq)) 2) (= (exists "REF3:ref3" (noreq)) 1) ) (set update (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter" " der Zuweisung REF3: eine alte Reflections Version 3 gefunden.\n" "Reflections 4.2 wird wegen seiner geänderten Struktur und zum Schutz Ihrer " "alten Daten in einem NEUEN Verzeichnis außerhalb von REF3: installiert.\n\n" "Soll die alte Version gelöscht werden?\n\n" "(Ihre Daten bleiben selbstverständlich erhalten!)") (help (cat "\nWenn Sie \"Ref3 Löschen\" auswählen, werden nur" " die Programmdateien und Help-Files Ihrer" " alten Reflections-Version entfernt.\n" "Diese Operation schafft ca. 1,3 MB freien Platz auf Ihrer Festplatte.\n\n" "Falls Sie das komplette Verzeichnis von Reflections 3 mit allen Daten löschen wollen, " " sollten Sie zuvor die alte Zuweisung für REF3: aus Ihrer Datei" " s:user-startup entfernen.\n\n")) (choices "Ref3 löschen" "Ref3 behalten")) ) ) (if (= modus 1) ( (until (= status 1) ( (set ziel (askdir (prompt "Wo soll ein neues Verzeichnis für\n" "Reflections 4.2 erstellt werden?") (help (cat "\nHier wählen Sie bitte den Pfad aus, wo" " ein neues Verzeichnis erstellt wird, in" " dem alle zu Reflections 4.2 gehörigen" " Programmteile und Daten installiert werden" " sollen. Dieser Pfad darf keine Leerzeichen enthalten!\n\n" "Das Verzeichnis wird vom Installationsprogramm" " automatisch angelegt, Sie brauchen es nicht" " in Ihrer Auswahl mit anzugeben.\n\n" "Der Name des Verzeichnisses wird im nächsten" " Installationsschritt von Ihnen erfragt.")) (default @default-dest) ) ) (set schubname (askstring (prompt "\nWie soll das neue Verzeichnis für\n" "Reflections 4.2 heissen?") (help (cat "\nHier geben Sie bitte den Namen des Verzeichnisses an, " "das vom Installationsprogramm neu erstellt wird. Auch der Name des Verzeichnisses darf keine Leerzeichen enthalten!")) (default "Reflections") ) ) (set pfad (tackon ziel schubname)) (if (< update 2) (if (OR (= (expandpath "REF3:") (expandpath ziel)) (= (expandpath "REF3:") (expandpath pfad))) (message "\nACHTUNG: Sie haben versucht Reflections 4.2 in das Verzeichnis der alten Reflections " "Version 3 zu installieren. Dies ist jedoch NICHT möglich." ) (set status 1) ) (set status 1) ) )) (set @default-dest pfad) (makedir pfad (infos)) )) (if (= modus 0) ( (set pfad refpath) (set @default-dest refpath) )) (delete "Env:Referror") (complete 3) (set art (askchoice (prompt "\nFür welchen Prozessor soll Reflections installiert werden?\n") (help "\nFalls Ihr Rechner keinen mathematischen Coprozessor 68882 hat, wählen Sie bitte \"Ohne Coprozessor\"," " ansonsten wählen Sie bitte die entsprechende Kombination, die auf Ihren Amiga zutrifft.\n" "Beim 68040 und 68060 ist ein Coprozessor integriert.\n" "Alte Versionen 4.x und Versionen für andere Prozessoren von Reflections werden automatisch gelöscht.\n") (choices "Ohne Coprozessor" "68030 + 68882" "68040" "68060" "PPC + 68040" "PPC + 68060") (default 1) ) ) (set tuto (askoptions (prompt "\nSollen die Tutorial-Daten mit installiert werden?\n") (help "\nHier können Sie die Beispieldateien installieren, die im Tutorial Ihrer Reflections-Anleitung besprochen werden.\nFalls bereits Tutorial-Daten installiert wurden, werden diese aktualisiert.\n") (choices "Tutorial installieren") (default 1) ) ) (set html (askoptions (prompt "\nWelche HTML-Dokumente sollen installiert werden?\n") (help "\nBitte wählen Sie, welche HTML-Dokumente mit installiert werden sollen.\n" "Falls bereits HTML-Dokumente installiert wurden, werden diese aktualisiert.\nBitte beachten Sie, daß zum Betrachten ein HTML-Browser mit Frame-Technik, wie z.B. I Browse benötigt wird!\n") (choices "Online-Hilfe" "Skript-Dokumentation") (default 3) ) ) (if ( OR (= modus 0) (< update 2)) (message "\nDie Reflections Programmdateien Version 4.2 werden nun installiert.\n") (message "\nDie Reflections 4.2 Programmdateien werden jetzt installiert.\n" "\n Sie haben nun Gelegenheit dazu, Ihre Registrierungskarte auszufüllen" " und an Oberland Computer zu senden, damit Sie die Reflections-Hotline in" " Anspruch nehmen können und stets über neue Progammversionen und" " Tools zu Reflections informiert werden.\n" "\nBitte übertragen Sie die Seriennummer auf die Registrierungskarte und" " bewahren den Abschnitt mit der Seriennummer an einem sicheren Ort auf.") ) (copyfiles (source "install/lhex") (dest "T:")) (working "\nErstellen der Reflections - Unterverzeichnisse...") (makedir (tackon pfad "Material") (infos)) (makedir (tackon pfad "Szenen") (infos)) (makedir (tackon pfad "Textur") (infos)) (makedir (tackon pfad "Fonts3D") (infos)) (makedir (tackon pfad "Hilfe") (infos)) (makedir (tackon pfad "Anim") (infos)) (makedir (tackon pfad "Bild") (infos)) (makedir (tackon pfad "Skripts") (infos)) (makedir (tackon pfad "Xtern") (infos)) (makedir (tackon pfad "Weiteres") (infos)) (makedir (tackon pfad "Arexx") (infos)) (if (= tuto 1) (makedir (tackon pfad "Tutorial") (infos)) ) (makedir (tackon pfad "Plugin") (infos)) (if (> html 0) (makedir (tackon pfad "HTML") (infos)) ) (complete 5) (if (OR (= modus 1) (= aktuell 0))( (working "\nEntpacken der Zubehördateien...\n") (run (cat "T:lhex -fw" (tackon pfad "Fonts3d") " x install/fonts3d.lha")) (complete 9) (if (= tuto 1) (run (cat "T:lhex -fw" pfad " x install/tutorial.lha")) ) (complete 10) (run (cat "T:lhex -fw" (tackon pfad "Weiteres") " x install/weiteres.lha")) (complete 20) (run (cat "T:lhex -fw" (tackon pfad "Szenen") " x install/szenen.lha")) (complete 30) (working "\nEntpacken der Materialien und Texturen...") (run (cat "T:lhex -fw" (tackon pfad "Material") " x install/material.lha")) (run (cat "T:lhex -fw" (tackon pfad "Bild") " x install/bild.lha")) (complete 33) (run (cat "T:lhex -fw" (tackon pfad "Textur") " x install/textur.lha")) (run (cat "T:lhex -fw" pfad " x install/components.lha")) )) (complete 37) (if (OR (= html 1) (= html 3)) (run (cat "T:lhex -fw" (tackon pfad "HTML") " x install/online.lha")) ) (if (> html 1) (run (cat "T:lhex -fw" (tackon pfad "HTML") " x install/skriptdoku.lha")) ) (if (= modus 1) (run (cat "T:lhex -fw" pfad " x install/main.lha")) ) (delete (tackon pfad "Ref4#?")) (delete (tackon pfad "Beams4#?")) (if (OR (= aktuell 0) (= modus 1) ) ( (run (cat "T:lhex -fw" (tackon pfad "Hilfe") " x install/hilfe.lha")) (if (= art 0) (run (cat "T:lhex -fw" (tackon pfad "Plugin") " x install/plugin1.lha")) (run (cat "T:lhex -fw" (tackon pfad "Plugin") " x install/plugin2.lha")) ) (run (cat "T:lhex -fw" (tackon pfad "Skripts") " x install/skripte.lha")) (textfile (dest (tackon pfad "Skripts/Start.skr")) (include (tackon pfad "Skripts/Start.skr")) (append (cat "Lade_szene " (tackon pfad "Material/startmat.r4") "\n\nreturn 1\n\n")) ) (delete (tackon pfad "Skripts/kpdrco.#?")) (delete (tackon pfad "Skripts/kpmvco.#?")) )) (if (> art 3) ( (working "\nEntpacken der Beams PPC-Version...") (run (cat "T:lhex -fw" pfad " x install/beams42_ppc.lha")) )) (if (= art 0) ( (working "\nEntpacken der Beams Standardversion...") (run (cat "T:lhex -fw" pfad " x install/beams42_std.lha")) (working "\nEntpacken der Reflections Standardversion...") (run (cat "T:lhex -fw" pfad " x install/ref42_std.lha")) )) (if (= art 1) ( (working "\nEntpacken der Beams 68030-Version...") (run (cat "T:lhex -fw" pfad " x install/beams42_030.lha")) (working "\nEntpacken der Reflections 68030-Version...") (run (cat "T:lhex -fw" pfad " x install/ref42_030.lha")) )) (if (OR (= art 2) (= art 4)) ( (working "\nEntpacken der Beams 68040-Version...") (run (cat "T:lhex -fw" pfad " x install/beams42_040.lha")) (working "\nEntpacken der Reflections 68040-Version...") (run (cat "T:lhex -fw" pfad " x install/ref42_040.lha")) )) (if (OR (= art 3) (= art 5)) ( (working "\nEntpacken der Beams 68060-Version...") (run (cat "T:lhex -fw" pfad " x install/beams42_060.lha")) (working "\nEntpacken der Reflections 68060-Version...") (run (cat "T:lhex -fw" pfad " x install/ref42_060.lha")) )) (complete 90) (set seriennummer "8210623022") (set name "LIGHTFORCE") (set wort "FASTER THAN LIGHT!") (working "\nEntschlüsseln der Reflections - Programmdatei...") (if (< (strlen seriennummer) 3) (set seriennummer "0") ) (if (= art 0) (run (cat "install/fcrypt " (tackon pfad "Ref42") " ENV:Referror " seriennummer " " name ", " wort)) ) (if (= art 1) (run (cat "install/fcrypt " (tackon pfad "Ref42_030") " ENV:Referror " seriennummer " " name ", " wort)) ) (if (OR (= art 2) (= art 4)) (run (cat "install/fcrypt " (tackon pfad "Ref42_040") " ENV:Referror " seriennummer " " name ", " wort)) ) (if (OR (= art 3) (= art 5)) (run (cat "install/fcrypt " (tackon pfad "Ref42_060") " ENV:Referror " seriennummer " " name ", " wort)) ) (if (OR (= modus 1) (= aktuell 0))( (complete 92) (run (cat "install/fcrypt " (tackon pfad "Plugin/Anim_FX/Morph.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Anim_FX/PartFall.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Anim_FX/Schweif.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Anim_FX/SnowFall.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/AuswahlD.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/AuswahlP.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/DXFOut.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/HausMstr.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Haut.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Import.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Kantig.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Knautsch.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/MachPoly.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Massband.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/MatPaint.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/ObjGen.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/PartFill.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/PartGen.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/PartHaut.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/PartSet.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/PartSnow.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Position.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Resample.library") " ENV:Referror " seriennummer " " name ", " wort)) (run (cat "install/fcrypt " (tackon pfad "Plugin/Startup/Skaliere.library") " ENV:Referror " seriennummer " " name ", " wort)) )) (complete 95) (if (= (exists "ENV:Referror") 1) ( (set referror (getenv "Referror")) (message "\nFolgender Fehler ist bei der Entschlüsslung der Reflections " "Programmdateien aufgetreten:\n\n" referror) )) (complete 96) (set cfg0 (tackon pfad "Ref.CFG")) (set cfg1 (tackon pfad "cfg1")) (if (= modus 0) (set mode (askchoice (prompt "Wollen Sie Ihre bisherige Config-Datei von Reflections 4 beibehalten" " oder eine neue Config-Datei erstellen lassen?") (help "\nFalls Sie eine neue Config-Datei erstellen, wird Ihre alte Ref.CFG als Ref.CFG_ALT gesichert.") (choices "alte übernehmen" "neu erstellen") ) ) ) (if (OR (= modus 1) (= mode 1))( (if (exists cfg0)( (delete (tackon pfad "Ref.CFG_ALT")) (rename cfg0 (tackon pfad "Ref.CFG_ALT")) )) (set display (askchoice (prompt "\nAuf welchem Screen soll Reflections arbeiten:\n") (help (cat "\nDie hier vorgegebenen Auflösungen werden am häufigsten " "verwendet. Wenn Ihre Grafikkarte andere darstellen kann, " "können Sie die gewünschte Auflösung in der Datei " "Ref.CFG selbst eintragen.\n" "Die mit AGA gekennzeichneten Auflösungen stehen nur auf dem A1200 und A4000 " "zur Verfügung, wenn Sie eine Auflösung für eine Grafikkarte einstellen, " "vergewissern Sie sich zuvor, ob diese auch von Ihrer Grafikkarte dargestellt " "werden kann.")) (choices "Workbench-Screen" "640 x 256" "640 x 512" "640 x 400 (AGA)" "640 x 480 (AGA)" "1280 x 512 (AGA)" "1024 x 768 (Grafikkarte" "1280 x 1024 (Grafikkarte)") ) ) (if (> display 0) (set color (askchoice (prompt "Mit wievielen Farben soll der Reflections-Screen arbeiten:\n") (help (cat "\nBei normalen Amigas können max. 16 Farben verwendet werden, " "Amigas mit AGA-Chipset unterstützen bis zu 256 Farben. " "Bei Verwendung einer Grafikkarte prüfen Sie bitte zuvor, wieviele Farben verwendet werden können.\n" "HINWEIS: Die Solid-Darstellung funktioniert erst ab 16 Farben.")) (choices "8" "16" "32" "64" "128" "256" "32768" "65536" "16 Mio. (24bit)") (default 1) ) ) ) (set tdir (askdir (prompt "Wo soll Reflections seine temporären Dateien ablegen?\n") (help "\nHier wählen Sie ein Verzeichnis für temporäre Files von Reflections.\nUnter 8 MB Ram sollten Sie die Ram-Disk dafür NICHT verwenden.") (default "RAM:") ) ) (textfile (dest cfg0) (include cfg1) (append (cat "TEMP_DIR " tdir "\n\n;---------- Start-Skript ------------------------" "\nSTART_SKRIPT " (tackon pfad "Skripts/START.SKR") "\n\n;---------- Textur-Pfade ------------------------" "\nTEXTUR_PFAD " (tackon pfad "Textur") "\nTEXTUR_PFAD " (tackon pfad "Textur2") "\n\n;--- Wo sucht der File-Requester zuerst nach Szenen ---" "\nSZENEN_PFAD " (tackon pfad "Szenen") "\n\n;--- Wo sucht der File-Requester zuerst nach Materialien ---" "\nMATERIAL_PFAD " (tackon pfad "Material") "\n\n;--- Wo sucht der File-Requester zuerst nach 3D-Fonts ---" "\nFONT_PFAD " (tackon pfad "Fonts3d") "\n\n;--- Wo sucht der File-Requester zuerst nach Bildern ---" "\nBILD_PFAD " (tackon pfad "Bild") "\n\n;--- Wo sucht der File-Requester zuerst nach Anims ---" "\nANIMATIONS_PFAD " (tackon pfad "Anim") "\n\n;--- Filename mit Pfad der Win.CFG-Datei -------------" "\nWIN_KONFIG_DATEI " (tackon pfad "Win.CFG") "\n\n; ============================" "\n; Eintraege fuer Beams 4" "\n; ============================" "\n\nMAX_ANTIAL 30" "\nOBJ_CACHE 2000\n") ) ) (if (= art 0) (textfile (dest cfg0) (include cfg0) (append "MAX_LIST 15\n\n\n")) ) (if (= art 1) (textfile (dest cfg0) (include cfg0) (append "MAX_LIST 30\n\n\n")) ) (if (> display 0)( (if (= display 1) (set screen "640 256")) (if (= display 2) (set screen "640 512")) (if (= display 3) (set screen "640 400")) (if (= display 4) (set screen "640 480")) (if (= display 5) (set screen "1280 512")) (if (= display 6) (set screen "1024 768")) (if (= display 7) (set screen "1280 1024")) (if (= color 0) (set bildschirm "3")) (if (= color 1) (set bildschirm "4")) (if (= color 2) (set bildschirm "5")) (if (= color 3) (set bildschirm "6")) (if (= color 4) (set bildschirm "7")) (if (= color 5) (set bildschirm "8")) (if (= color 6) (set bildschirm "15")) (if (= color 7) (set bildschirm "16")) (if (= color 8) (set bildschirm "24")) (textfile (dest cfg0) (include cfg0) (append (cat "; =================\n; Bildschirmmodus\n; =================\n\nDISPLAY " screen " " bildschirm "\n\n")) ) )) (complete 97) (set rgb (askchoice (prompt "\nWollen Sie einen externen RGB-Viewer einbinden?") (help "\nHier können Sie ein externes Programm z.B. von Ihrer " "Grafikkarte auswählen, um Bilder zu betrachten.") (choices "kein externer Viewer" "VT installieren" "eigenen Viewer einbinden") ) ) (if (= rgb 1)( (working "\nInstallation von VT...") (run (cat "T:lhex -fw" (tackon pfad "Weiteres") " x install/vt.lha")) (set view (tackon pfad "Weiteres/VT")) )) (if (= rgb 2) (set view (askfile (prompt "Bitte Wählen Sie das RGB-Viewer Programm:") (help "\nHier wählen Sie nun die Programm-Datei, die gestartet " "wird, wenn Sie RGB-Bilder betrachten wollen.") (default "SYS:") ) ) ) (if (> rgb 0) (textfile (dest cfg0) (include cfg0) (append (cat "; =================\n; Externer Viewer\n; =================\n\nRGB_VIEWER " view "\n\n") ) ) ) (if (< update 2)( (set cfg2 (expandpath "REF3:Ref3.CFG")) (set oldconfig (askoptions (prompt "Welche Teile Ihrer alten Reflections v3 Konfiguration möchten Sie übernehmen?\n") (help "\nHier können Sie auswählen, welche Pfade und Einstellungen von Reflections v3 auch in die Konfig-Datei von Reflections 4.2 übernommen werden sollen.") (choices "Auflösungen" "Material-Pfad" "Font-Pfad" "Bild-Pfad" "Animations-Pfad" "Textur-Pfade") (default 3) ) ) (if (> oldconfig 0) (textfile (dest cfg0) (include cfg0) (append "; ==============================================\n; Übernommene Einstellungen von Reflections v3\n; ==============================================\n\n") ) ) (if (= (BITAND oldconfig 1) 1) (textfile (dest cfg0) (include cfg0) (append (cat "ADD AUFLOESUNG " cfg2 "\n\n")) ) ) (if (= (BITAND oldconfig 2) 2) (textfile (dest cfg0) (include cfg0) (append (cat "ADD MATERIAL_PFAD " cfg2 "\n\n")) ) ) (if (= (BITAND oldconfig 4) 4) (textfile (dest cfg0) (include cfg0) (append (cat "ADD FONT_PFAD " cfg2 "\n\n")) ) ) (if (= (BITAND oldconfig 8) 8) (textfile (dest cfg0) (include cfg0) (append (cat "ADD BILD_PFAD " cfg2 "\n\n")) ) ) (if (= (BITAND oldconfig 16) 16) (textfile (dest cfg0) (include cfg0) (append (cat "ADD ANIMATIONS_PFAD " cfg2 "\n\n")) ) ) (if (= (BITAND oldconfig 32) 32) (textfile (dest cfg0) (include cfg0) (append (cat "ADD TEXTUR_PFAD " cfg2 "\n\n")) ) ) )) )) (if (OR (= aktuell 0) (= modus 1)) (textfile (dest cfg0) (include cfg0) (append (cat "; ========================================\n; Bei Projekt_neu start_skript ausführen\n; ========================================\n\n" "PROJEKT_NEU_SKRIPT\n\n")) ) ) (complete 98) (if (= update 0)( (delete "REF3:Ref3") (delete "REF3:Ref3.info") (delete "REF3:Beams3") (delete "REF3:Beams3.info") (delete "REF3:play") (run "delete REF3:Hilfe all") (delete "REF3:Hilfe.info") )) (delete cfg1) (delete "T:lhex") (complete 99) (if (= modus 1) ( (textfile (prompt "\nNun wird die Umgebungs-Variable Ref4 in env: und envarc: gesetzt.") (help (cat "\nDas Installationsprogramm erstellt die Datei " "envarc:Ref4 mit dem Installations-Pfad als Inhalt und kopiert sie" " anschliessend nach RAM:Env. Reflections benötigt diese Variable um" " sein Home-Directory zu finden.")) (dest "envarc:Ref4") (append pfad) (confirm expert) ) (copyfiles (source "envarc:Ref4") (dest "env:")) (message "\nFalls Sie für Reflections 4.2 und Beams andere Icons (z.B. für Magic Menu) als die" " automatisch installierten verwenden möchten, finden Sie auf der" " mitgelieferten CD eine Auswahl an weiteren Icon-Dateien." ) )) (complete 100)