home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / ref4-installation < prev    next >
Encoding:
Text File  |  1996-08-21  |  17.3 KB  |  465 lines
  1. ; $VER:Reflections 4.0 Installscript v2.3-CD (17.08.1996)
  2. ; written 1996 by Helmut Eisenkolb for Oberland, Kronberg (Germany)
  3.  
  4.  
  5. (set @minuser "average")
  6. (set @appname "Reflections 4.0")
  7. (set @language "deutsch")
  8.  
  9. (if (=  (exists "T:" (noreq)) 0) ((makedir "RAM:T" (safe))
  10.                                   (makeassign "T" "RAM:T" (safe))
  11.                                  )
  12. )
  13.  
  14. (complete 0)
  15.  
  16. (welcome "Willkommen bei Reflections 4.0 Amiga!\n")
  17.  
  18. (message "\nReflections 4.0 Installation v2.3 (17.08.1996)\n\n"
  19.          "Im Folgenden wird Reflections 4 auf Ihrem Amiga "
  20.          "installiert. Bitte lesen Sie zuvor unbedingt die "
  21.          "entsprechenden Kapitel im Reflections - Benutzerhandbuch!\n\n"
  22.          "©1996 by Oberland - alle Rechte vorbehalten.\n\n\n"
  23.      "Installer and Installer project icon "
  24.      "(c) Copyright 1995-96 Escom AG.  All Rights Reserved. "
  25.           "Reproduced and distributed under license from Escom AG.")
  26.  
  27. (set modus 1)
  28.  
  29. (if (= (exists "envarc:Ref4" (noreq)) 1)
  30.  (  (set refpath (getenv "Ref4"))
  31.     (if (OR (= (exists (tackon refpath "Ref4")) 1) (= (exists (tackon refpath "Ref4_FPU")) 1))
  32.         (set modus (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter "
  33.                           refpath " eine bereits installierte Version"
  34.                           " von Reflections 4 gefunden. Soll diese Version ersetzt werden?")
  35.                        (help (cat "\nWenn Sie \"Version ersetzen\" auswählen, werden nur"
  36.                           " die Programmdateien Ihrer bereits installierten Reflections-Version überschrieben.\n\n"
  37.                           "Ihre Seriennummer benötigen Sie in jedem Fall !!!"))
  38.                        (choices "Version ersetzen" "Neuinstallation"))
  39.     )
  40.     )
  41.  )
  42. )
  43.  
  44. (complete 1) 
  45.  
  46. (set update 2)
  47.  
  48. (if (AND (= (exists "REF3:" (noreq)) 2) (= (exists "REF3:ref3" (noreq)) 1) )
  49.     (set update (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter"
  50.                           " der Zuweisung REF3: eine alte Reflections Version 3 gefunden.\n"
  51.                   "Reflections 4 wird wegen seiner geänderten Struktur und zum Schutz Ihrer "
  52.                   "alten Daten in einem NEUEN Verzeichnis außerhalb von REF3: installiert.\n\n"
  53.                           "Soll die alte Version gelöscht werden?\n\n"
  54.                   "(Ihre Daten bleiben selbstverständlich erhalten!)")
  55.                        (help (cat "\nWenn Sie \"Ref3 Löschen\" auswählen, werden nur"
  56.                           " die Programmdateien und Help-Files Ihrer"
  57.                               " alten Reflections-Version entfernt.\n"
  58.                           "Diese Operation schafft ca. 1,3 MB freien Platz auf Ihrer Festplatte.\n\n"
  59.                           "Falls Sie die komplette Schublade von Reflections 3 mit allen Daten löschen wollen, "
  60.                           " sollten Sie zuvor die alte Zuweisung für REF3: aus Ihrer Datei"
  61.                           " s:user-startup entfernen.\n\n"))
  62.                        (choices "Ref3 löschen" "Ref3 behalten"))
  63.     )
  64. )
  65.  
  66.  
  67. (if (= modus 1) (
  68.  
  69.  
  70.     (until (= status 1) (
  71.         (set ziel (askdir (prompt "Wo soll eine neue Schublade für\n"
  72.                                         "Reflections 4.0 erstellt werden?")
  73.                                 (help (cat "\nHier wählen Sie bitte den Pfad aus, wo"
  74.                                            " eine neue Schublade erstellt wird, in"
  75.                                            " der alle zu Reflections 4.0 gehörigen"
  76.                                            " Programmteile und Daten installiert werden"
  77.                                            " sollen. Dieser Pfad darf keine Leerzeichen enthalten!\n\n"
  78.                                            "Die Schublade wird vom Installationsprogramm"
  79.                                            " automatisch angelegt, Sie brauchen sie nicht"
  80.                                            " in Ihrer Auswahl mit anzugeben.\n\n"
  81.                                            "Der Name der Schublade wird im nächsten"
  82.                                            " Installationsschritt von Ihnen erfragt."))
  83.                                 (default @default-dest)
  84.                   )
  85.         )
  86.         
  87.  
  88.  
  89.         (set schubname (askstring (prompt "\nWie soll die neue Schublade für\n"
  90.                                           "Reflections 4.0 heissen?")
  91.                                   (help (cat "\nHier geben Sie bitte den Namen der Schublade an, "
  92.                                              "die vom Installationsprogramm neu erstellt wird. Auch der Name der Schublade darf keine Leerzeichen enthalten!"))
  93.                                       (default "Reflections")
  94.                        )
  95.         )
  96.         (set pfad (tackon ziel schubname))
  97.         (if (< update 2)
  98.             (if (OR (= (expandpath "REF3:") (expandpath ziel)) (= (expandpath "REF3:") (expandpath pfad)))
  99.                 (message "\nACHTUNG: Sie haben versucht Reflections 4 in das Verzeichnis der alten Reflections "
  100.                      "Version 3 zu installieren. Dies ist jedoch NICHT möglich."
  101.                 )
  102.                 (set status 1)
  103.             )
  104.             (set status 1)
  105.         )
  106.  
  107.     ))
  108.     (set @default-dest pfad)
  109.     (makedir pfad (infos))
  110. ))
  111.  
  112. (if (= modus 0) (
  113.     (set pfad refpath)
  114.     (set @default-dest refpath)
  115. ))
  116.  
  117. (delete "Env:Referror")
  118.  
  119.  
  120. (complete 3)
  121.  
  122. (set art (askchoice (prompt "\nWelche Reflections-Version soll installiert werden?\n")
  123.             (help "\nFalls Ihr Rechner mit einem mathematischen Coprozessor"
  124.               " 68881, 68882 oder einem 68040 bzw. 68060 Prozessor mit"
  125.               " integriertem Coprozessor ausgestattet ist, können Sie"
  126.               " die dafür speziell ausgelegte Coprozessorversion von "
  127.               " Reflections 4.0 installieren.")
  128.             (choices "Standardversion" "Coprozessorversion")
  129.      )
  130. )
  131.  
  132. (if ( OR (= modus 0) (< update 2))
  133.     (message "\nDie Reflections Programmdateien Version 4.0 werden nun installiert.\n")
  134.     (message "\nDie Reflections 4 Programmdateien werden jetzt installiert.\n"
  135.              "\n Sie haben nun Gelegenheit dazu, Ihre Registrierungskarte auszufüllen"
  136.              " und an Oberland Computer zu senden, damit Sie die Reflections-Hotline in"
  137.              " Anspruch nehmen können und stets über neue Progammversionen und"
  138.              " Tools zu Reflections informiert werden.\n"
  139.              "\nBitte übertragen Sie die Seriennummer auf die Registrierungskarte und"
  140.              " bewahren den Abschnitt mit der Seriennummer an einem sicheren Ort auf.")
  141. )
  142.  
  143. (copyfiles (source "Ref4_CD:install/lhex") (dest "T:"))
  144. (working "\nErstellen der Reflections - Unterverzeichnisse...")
  145.  
  146. (run (cat "T:lhex -fw" pfad " x Ref4_CD:install/main.lha"))
  147.  
  148. (makedir (tackon pfad "Material") (infos))
  149. (makedir (tackon pfad "Szenen") (infos))
  150. (makedir (tackon pfad "Textur") (infos))
  151. (makedir (tackon pfad "Fonts3D") (infos))
  152. (makedir (tackon pfad "Hilfe") (infos))
  153. (makedir (tackon pfad "Anim") (infos))
  154. (makedir (tackon pfad "Bild") (infos))
  155. (makedir (tackon pfad "Skripts") (infos))
  156. (makedir (tackon pfad "Xtern") (infos))
  157. (makedir (tackon pfad "Weiteres") (infos))
  158. (makedir (tackon pfad "Arexx") (infos))
  159. (makedir (tackon pfad "Tutorial") (infos))
  160.  
  161. (complete 5)
  162.  
  163. (if (= modus 1) (
  164.     (working "\nEntpacken der Zubehördateien...")
  165.     (run (cat "T:lhex -fw" (tackon pfad "Fonts3d") " x Ref4_CD:install/fonts3d.lha"))
  166.     (complete 9)
  167.     (run (cat "T:lhex -fw" (tackon pfad "Hilfe") " x Ref4_CD:install/hilfe.lha"))
  168.     (complete 14)
  169.     (run (cat "T:lhex -fw" (tackon pfad "Tutorial") " x Ref4_CD:install/tutorial.lha"))
  170.     (complete 20)
  171.     (run (cat "T:lhex -fw" (tackon pfad "Skripts") " x Ref4_CD:install/skripte.lha"))
  172.     (complete 22)
  173.     (run (cat "T:lhex -fw" (tackon pfad "Weiteres") " x Ref4_CD:install/weiteres.lha"))
  174.     (complete 26)
  175.     (run (cat "T:lhex -fw" (tackon pfad "Szenen") " x Ref4_CD:install/szenen.lha"))
  176.     (complete 30)
  177.     (working "\nEntpacken der Materialien und Texturen...")
  178.     (run (cat "T:lhex -fw" (tackon pfad "Material") " x Ref4_CD:install/material.lha"))
  179.     (complete 35)
  180.     (run (cat "T:lhex -fw" (tackon pfad "Textur") " x Ref4_CD:install/textur.lha"))
  181. ))
  182.  
  183. (complete 40)
  184.  
  185. (if (= art 0) (
  186.     (working "\nEntpacken der Beams Standardversion...")
  187.     (run (cat "T:lhex -fw" pfad " x Ref4_CD:install/beams4std.lha"))
  188.     (working "\nEntpacken der Reflections Standardversion...")
  189.     (run (cat "T:lhex -fw" pfad " x Ref4_CD:install/ref4std.lha"))
  190. ))
  191. (if (= art 1) (
  192.     (working "\nEntpacken der Beams Coprozessorversion...")
  193.     (run (cat "T:lhex -fw" pfad " x Ref4_CD:install/beams4fpu.lha"))
  194.     (working "\nEntpacken der Reflections Coprozessorversion...")
  195.     (run (cat "T:lhex -fw" pfad " x Ref4_CD:install/ref4fpu.lha"))
  196. ))
  197.  
  198. (complete 90)
  199.  
  200. (set seriennummer (askstring (prompt "\n\nBitte geben Sie nun die Seriennummer Ihrer Reflections "
  201.                      "Version ein:")
  202.                  (help "\nDie Seriennummer finden Sie auf dem Abschnitt Ihrer "
  203.                    "Registraturkarte. Sie wird benötigt, um die Reflections 4 "
  204.                    "Programmdatei zu entschlüsseln.")
  205.           )
  206. )
  207. (set name (askstring (prompt "\n\nBitte geben Sie Ihren Vor- und Nachnamen ein:")
  208.              (help "\nIhr Name wird fest in dem installierten "
  209.                "Reflections-Hauptprogramm verankert, achten Sie deshalb "
  210.                "besonders auf eine korrekte Schreibweise!")
  211.       )
  212. )
  213. (set wort (askstring (prompt "\n\nBitte geben Sie Ihren Wohnort ein:")
  214.              (help "\nAuch Ihr Wohnort wird fest in dem installierten "
  215.                "Reflections-Hauptprogramm verankert, achten Sie deshalb "
  216.                "besonders auf eine korrekte Schreibweise!")
  217.       )
  218. )
  219.  
  220. (working "\nEntschlüsseln der Reflections - Programmdatei...")
  221.  
  222. (if (< (strlen seriennummer) 3)
  223.     (set seriennummer "0")
  224. )
  225.  
  226. (if (= art 0)
  227.     (run (cat (tackon pfad "fcrypt") " " (tackon pfad "Ref4") " ENV:Referror " seriennummer " " name ", " wort))
  228.     (run (cat (tackon pfad "fcrypt") " " (tackon pfad "Ref4_FPU") " ENV:Referror " seriennummer " " name ", " wort))
  229. )
  230.  
  231. (complete 95)
  232.  
  233. (if (= (exists "ENV:Referror") 1) (
  234.     (set referror (getenv "Referror"))
  235.     (message "\nFolgender Fehler ist bei der Entschlüsslung der Reflections "
  236.          "Programmdatei aufgetreten:\n\n" referror)
  237. ))
  238.  
  239.  
  240.  
  241. (complete 96)
  242.  
  243.  
  244. (set cfg0 (tackon pfad "Ref.CFG"))
  245. (set cfg1 (tackon pfad "cfg1"))
  246.  
  247. (if (= modus 0) (set mode (askchoice (prompt "Wollen Sie Ihre bisherige Config-Datei von Reflections 4 beibehalten"
  248.                        " oder eine neue Config-Datei erstellen lassen?") 
  249.                    (help "\nFalls Sie eine neue Config-Datei erstellen, wird Ihre alte Ref.CFG als Ref.CFG_ALT gesichert.")
  250.                    (choices "alte übernehmen" "neu erstellen")
  251.               )
  252.         )
  253. )
  254.  
  255. (if (OR (= modus 1) (= mode 1))(
  256.  
  257.     (if (exists cfg0)(
  258.         (delete (tackon pfad "Ref.CFG_ALT"))
  259.         (rename cfg0 (tackon pfad "Ref.CFG_ALT"))
  260.     ))
  261.  
  262.     (set display (askchoice (prompt "\nAuf welchem Screen soll Reflections arbeiten:\n")
  263.                 (help (cat "\nDie hier vorgegebenen Auflösungen werden am häufigsten "
  264.                       "verwendet. Wenn Ihre Grafikkarte andere darstellen kann, "
  265.                       "können Sie die gewünschte Auflösung in der Datei "
  266.                       "Ref.CFG selbst eintragen.\n"
  267.                       "Die mit AGA gekennzeichneten Auflösungen stehen nur auf dem A1200 und A4000 "
  268.                       "zur Verfügung, wenn Sie eine Auflösung für eine Grafikkarte einstellen, "
  269.                       "vergewissern Sie sich zuvor, ob diese auch von Ihrer Grafikkarte dargestellt "
  270.                       "werden kann."))
  271.                 (choices "Workbench-Screen" "640 x 256" "640 x 512"
  272.                      "640 x 400 (AGA)" "640 x 480 (AGA)" "1280 x 512 (AGA)"
  273.                      "1024 x 768 (Grafikkarte" "1280 x 1024 (Grafikkarte)")
  274.              )
  275.     )
  276.  
  277.     (if (> display 0)
  278.         (set color (askchoice (prompt "Mit wievielen Farben soll der Reflections-Screen arbeiten:\n")
  279.                       (help (cat "\nBei normalen Amigas können max. 16 Farben verwendet werden, "
  280.                          "Amigas mit AGA-Chipset unterstützen bis zu 256 Farben. "
  281.                          "Bei Verwendung einer Grafikkarte prüfen Sie bitte zuvor, wieviele Farben verwendet werden können.\n"
  282.                          "HINWEIS: Die Solid-Darstellung funktioniert erst ab 16 Farben."))
  283.                       (choices "8" "16" "32" "64" "128" "256" "32768" "65536" "16 Mio. (24bit)")
  284.                       (default 1)
  285.                )
  286.         )
  287.     )
  288.  
  289.     (set tdir (askdir (prompt "Wo soll Reflections seine temporären Dateien ablegen?\n")
  290.               (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.")
  291.               (default "RAM:")
  292.           )
  293.     )
  294.  
  295.     (textfile (dest cfg0) (include cfg1)
  296.          (append (cat "TEMP_DIR " tdir
  297.             "\n\n;---------- Start-Skript ------------------------"
  298.             "\nSTART_SKRIPT " (tackon pfad "Skripts/START.SKR")
  299.             "\n\n;---------- Textur-Pfade ------------------------"
  300.             "\nTEXTUR_PFAD " (tackon pfad "Textur")
  301.             "\nTEXTUR_PFAD " (tackon pfad "Textur2")
  302.             "\n\n;--- Wo sucht der File-Requester zuerst nach Szenen ---"
  303.             "\nSZENEN_PFAD " (tackon pfad "Szenen")
  304.             "\n\n;--- Wo sucht der File-Requester zuerst nach Materialien ---"
  305.             "\nMATERIAL_PFAD " (tackon pfad "Material")
  306.             "\n\n;--- Wo sucht der File-Requester zuerst nach 3D-Fonts ---"
  307.             "\nFONT_PFAD " (tackon pfad "Fonts3d")
  308.             "\n\n;--- Wo sucht der File-Requester zuerst nach Bildern ---"
  309.             "\nBILD_PFAD " (tackon pfad "Bild")
  310.             "\n\n;--- Wo sucht der File-Requester zuerst nach Anims ---"
  311.             "\nANIMATIONS_PFAD " (tackon pfad "Anim")
  312.             "\n\n;--- Filename mit Pfad der Win.CFG-Datei -------------"
  313.             "\nWIN_KONFIG_DATEI " (tackon pfad "Win.CFG")
  314.             "\n\n;  ============================"
  315.             "\n;     Eintraege fuer Beams 4"
  316.             "\n;  ============================"
  317.             "\n\nMAX_ANTIAL 30"
  318.             "\nOBJ_CACHE 2000\n")
  319.          )
  320.     )
  321.  
  322.     (if (= art 0)
  323.         (textfile (dest cfg0) (include cfg0) (append "MAX_LIST 15\n\n\n"))
  324.     )
  325.     (if (= art 1)
  326.         (textfile (dest cfg0) (include cfg0) (append "MAX_LIST 30\n\n\n"))
  327.     )
  328.     (if (> display 0)(
  329.         (if (= display 1) (set screen "640 256"))
  330.         (if (= display 2) (set screen "640 512"))
  331.         (if (= display 3) (set screen "640 400"))
  332.         (if (= display 4) (set screen "640 480"))
  333.         (if (= display 5) (set screen "1280 512"))
  334.         (if (= display 6) (set screen "1024 768"))
  335.         (if (= display 7) (set screen "1280 1024"))
  336.         (if (= color 0) (set bildschirm "3"))
  337.         (if (= color 1) (set bildschirm "4"))
  338.         (if (= color 2) (set bildschirm "5"))
  339.         (if (= color 3) (set bildschirm "6"))
  340.         (if (= color 4) (set bildschirm "7"))
  341.         (if (= color 5) (set bildschirm "8"))
  342.         (if (= color 6) (set bildschirm "15"))
  343.         (if (= color 7) (set bildschirm "16"))
  344.         (if (= color 8) (set bildschirm "24"))
  345.         (textfile (dest cfg0) (include cfg0)
  346.             (append (cat ";   =================\n;    Bildschirmmodus\n;   =================\n\nDISPLAY "
  347.                      screen " " bildschirm "\n\n"))
  348.         )
  349.     ))
  350.  
  351.     (complete 97)
  352.  
  353.     (set rgb (askchoice (prompt "\nWollen Sie einen externen RGB-Viewer einbinden?")
  354.             (help "\nHier können Sie ein externes Programm z.B. von Ihrer "
  355.                   "Grafikkarte auswählen, um Bilder zu betrachten.")
  356.             (choices "kein externer Viewer" "VT installieren" "eigenen Viewer einbinden")
  357.          )
  358.     )
  359.  
  360.     (if (= rgb 1)(
  361.         (working "\nInstallation von VT...")
  362.         (run (cat "T:lhex -fw" (tackon pfad "Weiteres") " x Ref4_CD:install/vt.lha"))
  363.         (set view (tackon pfad "Weiteres/VT"))
  364.     ))
  365.  
  366.     (if (= rgb 2) (set view (askfile (prompt "Bitte Wählen Sie das RGB-Viewer Programm:")
  367.                      (help "\nHier wählen Sie nun die Programm-Datei, die gestartet "
  368.                         "wird, wenn Sie RGB-Bilder betrachten wollen.")
  369.                      (default "SYS:")
  370.                 )
  371.               )
  372.     )
  373.  
  374.     (if (> rgb 0)
  375.         (textfile (dest cfg0) (include cfg0)
  376.             (append (cat ";   =================\n;    Externer Viewer\n;   =================\n\nRGB_VIEWER "
  377.                      view "\n\n")
  378.             )
  379.         )
  380.     )
  381.  
  382.     (if (< update 2)(
  383.         (set cfg2 (expandpath "REF3:Ref3.CFG"))
  384.         (set oldconfig (askoptions (prompt "Welche Teile Ihrer alten Reflections v3 Konfiguration möchten Sie übernehmen?\n")
  385.                        (help "\nHier können Sie auswählen, welche Pfade und Einstellungen von Reflections v3 auch in die Konfig-Datei von Reflections 4 übernommen werden sollen.")
  386.                        (choices "Auflösungen" "Material-Pfad" "Font-Pfad" "Bild-Pfad" "Animations-Pfad" "Textur-Pfade")
  387.                        (default 3)
  388.                    )
  389.         )
  390.         (if (> oldconfig 0)
  391.             (textfile (dest cfg0) (include cfg0)
  392.                 (append ";   ==============================================\n;    Übernommene Einstellungen von Reflections v3\n;   ==============================================\n\n")
  393.             )
  394.         )
  395.         (if (= (BITAND oldconfig 1) 1)
  396.             (textfile (dest cfg0) (include cfg0)
  397.                 (append (cat "ADD AUFLOESUNG " cfg2 "\n\n"))
  398.             )
  399.         )
  400.         (if (= (BITAND oldconfig 2) 2)
  401.             (textfile (dest cfg0) (include cfg0)
  402.                 (append (cat "ADD MATERIAL_PFAD " cfg2 "\n\n"))
  403.             )
  404.         )
  405.         (if (= (BITAND oldconfig 4) 4)
  406.             (textfile (dest cfg0) (include cfg0)
  407.                 (append (cat "ADD FONT_PFAD " cfg2 "\n\n"))
  408.             )
  409.         )
  410.         (if (= (BITAND oldconfig 8) 8)
  411.             (textfile (dest cfg0) (include cfg0)
  412.                 (append (cat "ADD BILD_PFAD " cfg2 "\n\n"))
  413.             )
  414.         )
  415.         (if (= (BITAND oldconfig 16) 16)
  416.             (textfile (dest cfg0) (include cfg0)
  417.                 (append (cat "ADD ANIMATIONS_PFAD " cfg2 "\n\n"))
  418.             )
  419.         )
  420.         (if (= (BITAND oldconfig 32) 32)
  421.             (textfile (dest cfg0) (include cfg0)
  422.                 (append (cat "ADD TEXTUR_PFAD " cfg2 "\n\n"))
  423.             )
  424.         )
  425.     ))
  426. ))
  427.  
  428. (complete 98)
  429.  
  430. (if (= update 0)(
  431.     (delete "REF3:Ref3")
  432.     (delete "REF3:Ref3.info")
  433.     (delete "REF3:Beams3")
  434.     (delete "REF3:Beams3.info")
  435.     (delete "REF3:play")
  436.     (run "delete REF3:Hilfe all")
  437.     (delete "REF3:Hilfe.info")
  438. ))
  439.  
  440. (delete cfg1)
  441. (delete "T:lhex")
  442. (delete (tackon pfad "fcrypt"))
  443.  
  444. (complete 99)
  445.  
  446. (if (= modus 1) (
  447.     (textfile (prompt "\nNun wird die Umgebungs-Variable Ref4 in env: und envarc: gesetzt.")
  448.               (help (cat "\nDas Installationsprogramm erstellt die Datei "
  449.                          "envarc:Ref4 mit dem Installations-Pfad als Inhalt und kopiert sie"
  450.                          " anschliessend nach RAM:Env. Reflections benötigt diese Variable um"
  451.                  " sein Home-Directory zu finden."))
  452.               (dest "envarc:Ref4")
  453.               (append pfad)
  454.               (confirm expert)
  455.     )
  456.     (copyfiles (source "envarc:Ref4") (dest "env:"))
  457.  
  458.     (message "\nFalls Sie für Reflections 4 und Beams andere Icons (z.B. für Magic Menu) als die"
  459.          " automatisch installierten verwenden möchten, finden Sie auf der"
  460.          " mitgelieferten CD eine Auswahl an weiteren Icon-Dateien."
  461.     )
  462. ))
  463.  
  464. (complete 100)
  465.