home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / RTR-EGS1.DMS / in.adf / install_Piccolo-SD64.de < prev    next >
Encoding:
Text File  |  2005-03-26  |  39.1 KB  |  1,328 lines
  1. ;************************************************************
  2. ;*                                                          *
  3. ;*                 EGS Installation-Script                  *
  4. ;*                                                          *
  5. ;*                                                          *
  6. ;*                     Script written                       *
  7. ;*        A. Pratsch, J. Ringelberg  and F. Neumann         *
  8. ;*                       01.11.1994                         *
  9. ;*                                                          *
  10. ;*           $VER: Install-Script 1.0  (01.11.94)           *
  11. ;*                ©1994 by Ing.Büro Helfrich                *
  12. ;*                                                          *
  13. ;************************************************************
  14.  
  15. ;**** To see the indenting correctly, use a Tabsize of 4.
  16.  
  17. ;**** Global variables and definitons ****
  18.  
  19. (set Disk1 "Piccolo-SD64_Disk1")        ;Diskname 1
  20. (set Disk2 "Piccolo-SD64_Disk2")        ;Diskname 2
  21. (set Disk3 "Piccolo-SD64_Disk3")        ;Diskname 3
  22. (set Disk4 "TVPaintJr." )        ;Diskname 4
  23.  
  24. ;CPUVer     "68000" "68010" "68020" "68030" "68040"
  25. ;VideoM     "50" "60"
  26. ;InstSystem 0= Dont' Install EGS-System  1=Install EGS-System
  27. ;EGSSysDir  Path for Installation EGS-System
  28. ;Monitor    0=One Monitor 1=Two Monitors
  29. ;Direction  0=Top 1=Left 2=Right 3=Bottom
  30. ;EGSSoftDir Path for PicoPainter, Dia and TVPaintJr.
  31. ;EGSApp     Bit 0=Prefs Bit 1=Tools Bit 2=Demos Bit 3=Patterns Bit 4=AGETools Bit 5=Goodies
  32. ;EGSApp2    Bit 0=Painter Bit 1=Dia Bit 2=TVPaintJr.
  33. ;Drivers    Bit 0=Real3D Bit 1=ADPro Bit 2=Imagemaster
  34.  
  35. ;**** Check Amiga for processor and videomode ****
  36.  
  37. (set CpuVer (database "cpu"))
  38. (set VideoM (database "vblank"))
  39.  
  40. ;*** First thing to do anyway - is this system at least running 2.0 ?
  41. (if
  42.     (< (/ (getversion) 65536) 37)
  43.     (
  44.         (abort "Sie benötigen mindestens AmigaOS 2.0, um die EGS-Software installieren zu können.")
  45.     )
  46. )
  47.  
  48.  
  49. ;*** Now, let's check for the very old EGS system that resided in libs:
  50. ; If it exists, it should really be removed - otherwise it might cause lots
  51. ; of trouble for the user.
  52. (if (= 0 (exists "EGS:" (noreq)))
  53.     (if (exists "libs:egs.library")
  54.     (
  55.         (set InstSystem
  56.             (askbool
  57.             (prompt "Es wurde die 'egs.library' im 'LIBS:'-Verzeichnis gefunden!\n"
  58.                 "Es scheint, als wäre bereits ein altes EGS-System "
  59.                 "auf Ihrem Rechner installiert.\n\nWARNUNG: Dieses alte EGS-System wird "
  60.                 "jetzt gelöscht, um Versionskonflikten vorzubeugen.")
  61.             (help   "In Ihrem System wurde eine (alte) 'egs.library' in 'LIBS:' gefunden. "
  62.                           "Dies kann zu Kollisionen der verschiedenen Versionen der Bibliotheken "
  63.                           "führen; es ist darum dringend anzuraten, die alten Bibliotheken zu löschen.")
  64.             (default 1)
  65.                       )
  66.         )
  67.         (if (= 0 InstSystem)
  68.         (
  69.             (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  70.                 "Sie können den Installer neustarten, nachdem Sie "
  71.                 "von Ihrer EGS-Software ein Backup gemacht haben.")
  72.             (exit (quiet))
  73.         )
  74.         )
  75.         (if (= 1 InstSystem)
  76.            (
  77.             (delete "libs:egs.library")
  78.             (delete "libs:egsblit.library")
  79.             (delete "libs:egsintui.library")
  80.             (delete "libs:egsgfx.library")
  81.             (delete "libs:egsrequest.library")
  82.             (delete "libs:gbrequest.library")            ;*** old name for egsrequest
  83.             (delete "libs:egslayers.library")
  84.             (delete "libs:egs_r3d2.library")
  85.             (delete "libs:egsgadbox.library")
  86.             (run "delete libs:egb all")
  87.             (delete "libs:pic.library")
  88.             (run "delete libs:Picformats all")
  89.         )
  90.         )
  91.     )
  92.     )
  93. )
  94.  
  95.  
  96. ;*** now, check for the newer version of EGS with an EGS: assignment
  97. (if (exists "EGS:" (noreq))
  98. (
  99.     (set oldfound 1)
  100.     (set InstSystem
  101.         (askbool
  102.         (prompt "Es wurde das logische Gerät 'EGS:' in Ihrem System gefunden.\n"
  103.                 "Es scheint, als wäre bereits eine (ältere ?) EGS-Version in Ihrem System vorhanden.\n\n"
  104.                 "Wollen Sie das neue EGS-System trotzdem installieren?\n\n"
  105.                 "WARNUNG: Das bereits existierende EGS-System "
  106.                 "(einschließlich Libraries und Voreinstellungen "
  107.                 "in Ihrem ENVARC:-Verzeichnis) wird dabei überschrieben!")
  108.         (help "In Ihrem System wurde ein logisches Gerät mit dem Namen 'EGS' entdeckt.\n"
  109.                       "Das EGS-System nutzt dasselbe Gerät, so daß anzunehmen ist, "
  110.                       "daß Sie das EGS-System eventuell bereits installiert hatten.")
  111.         (default 1)
  112.             )
  113.     )
  114.     (if (= 0 InstSystem)
  115.     (
  116.         (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  117.             "Sie können den Installer neustarten, nachdem Sie "
  118.             "von Ihrer EGS-Software ein Backup gemacht haben.")
  119.         (exit (quiet))
  120.     )
  121.     )
  122. )
  123. ; else...install for sure
  124.     (
  125.         (set InstSystem 1)
  126.         (set oldfound 0)
  127.     )
  128. )
  129.  
  130.  
  131. ;*** if an EGS: assignment did exist, the user might want to backup his
  132. ;*** self-created monitor definitions and prefs first...
  133. (if (= oldfound 1)
  134.     (
  135.         (set backupold
  136.             (askbool
  137.                 (prompt "Wollen Sie, daß von den Monitor-Definitionen und "
  138.                         "Voreinstellungen Ihrer alten EGS-Installation eine "
  139.                         "Sicherheitskopie gemacht wird, bevor das neue System "
  140.                         "installiert wird ?")
  141.                 (help "Sie haben möglicherweise bei Ihrer alten EGS-Installation "
  142.                       "selber Monitor-Definitionen erzeugt oder die Voreinstellungen "
  143.                       "(Farben, Bildschirmmodus) verändert - da durch die neue "
  144.                       "Installation diese alten Dateien überschrieben werden, können "
  145.                       "Sie sich vor der Neuinstallation eine Sicherheitskopie der "
  146.                       "alten Dateien anlegen lassen.")
  147.                 (default 1)
  148.             )
  149.         )
  150.     )
  151.     ; else...
  152.     (set backupold 0)
  153. )
  154.  
  155. ;*** if the user is a novice, we will always make a backup of his prefs..
  156. (if (= oldfound 1)
  157.     (if (= @user-level 0)
  158.         (set backupold 1)
  159.     )
  160. )
  161.  
  162. ;*** Selection of EGS-System-drawer ***
  163.  
  164. (if (= 1 InstSystem)
  165. (
  166.     (set EGSSysDir
  167.         (askdir
  168.         (prompt "Bitte wählen Sie ein Verzeichnis, in das der "
  169.             "EGS-System-Ordner installiert werden kann. "
  170.             "Bedenken Sie: der Installer erzeugt darin den EGS-Ordner!")
  171.         (help   "Hier wählen Sie das Verzeichnis, in das der EGS-System-"
  172.             "Ordner kopiert wird. "
  173.             "Sie müssen KEINEN neuen Ordner anlegen! Dieser wird "
  174.             "automatisch in dem gewählten Verzeichnis unter dem Namen\n"
  175.             "'EGS' erzeugt.\n\n"
  176.             HELPTEXT "\n\n" @askdir-help)
  177.         (default "WORK:")
  178.         )
  179.     )
  180. )
  181. )
  182.  
  183. (set @default-dest EGSSysDir)
  184.  
  185. ;*** Ask for One or Two monitor solution ***
  186.  
  187. (set Monitor
  188.       (askchoice
  189.         (prompt "Wollen Sie Ihr System auf ein oder zwei Monitore "
  190.                         "konfigurieren?")
  191.         (help   "EIN Monitor:\nDer Piccolo-SD64 Monitor-Umschalter wird benutzt, um automatisch "
  192.                         "zwischen Amiga- und Piccolo-SD64-Grafikausgabe umzuschalten.\n\n"
  193.                         "ZWEI Monitore:\nZwei Monitore werden benutzt, einer "
  194.                         "wird mit dem Amiga-Ausgang verbunden und einer mit dem Piccolo-SD64-Ausgang. "
  195.                         "In diesem Fall können Sie mit der Maus zwischen Amiga- und "
  196.                         "Piccolo-SD64-Monitor hin- und her fahren.")
  197.         (choices "EIN Monitor"
  198.              "ZWEI Monitore")
  199.         (default 0)
  200.           )
  201. )
  202.  
  203. (if (= 1 MONITOR)
  204.     (set DIRECTION
  205.         (askchoice
  206.         (prompt "Sie haben 'Zwei Monitore' ausgewählt. \n"
  207.                         "Auf welcher Seite vom Amiga-Monitor aus gesehen\n"
  208.                         "soll der Piccolo-SD64-Monitor stehen ?")
  209.         (help   @askchoice-help)
  210.         (choices "Oben"
  211.              "Links"
  212.              "Rechts"
  213.              "Unten")
  214.         (default 1)
  215.         )
  216.     )
  217. )
  218.  
  219. (set MONITORCLASS
  220.     (askchoice
  221.     (prompt "Bitte geben Sie den Typ des Monitors an,"
  222.         "den Sie an die Piccolo-SD64 angeschlossen haben.")
  223.     (help   "Weiteres hierzu finden Sie im Handbuch  "
  224.         "unter Software-Installation: Monitor-Typen.\n\n"
  225.         HELPTEXT "\n\n" @askchoice-help)
  226.     (choices "PAL/NTSC-Monitor (15kHz, 50/60Hz)"
  227.          "VGA-Monitor (31kHz, 60Hz)"
  228.          "MultiScan (30-38kHz)"
  229.          "MultiScan (30-48kHz)"
  230.          "MultiScan (30-57kHz)"
  231.          "MultiScan (30-64kHz)"
  232.          "MultiScan (30-76kHz)")
  233.     (default 2)
  234.         )
  235. )
  236.  
  237. ;*** Ask choices for application stuff ***
  238. (set EGSApp
  239.     (askoptions
  240.         (prompt "Welche Programme sollen installiert werden?")
  241.         (help   "EGS-Prefs (Voreinsteller):\n"
  242.                 "Diese Voreinsteller werden benötigt, um das EGS-"
  243.                 "System nach Ihren Wünschen zu konfigurieren.\n\n"
  244.                 "EGS-Tools (Hilfsprogramme):\n"
  245.                 "Hier finden Sie nützliche kleine Hilfsprogramme.\n\n"
  246.                 "EGS-Demos:\n"
  247.                 "Ein paar kleine Programme, die die Geschwindigkeit und "
  248.                 "die Fähigkeiten von EGS demonstrieren.\n\n"
  249.                 "EGS-Patterns: (Hintergrundgrafiken)\n"
  250.                 "Hier finden Sie Hintergrundgrafiken für Ihren "
  251.                 "EGS-Default-Screen.\n\n"
  252.                 "EGS-Age_Tools:\n"
  253.                 "Programme, die das Arbeiten mit der 'Amiga Graphics "
  254.                 "Emulation' (AGE) verbessern (PicoRetarget)\n\n"
  255.                 "EGS-Goodies:\n"
  256.                 "Diverse Programme, für die keine Dokumentation existiert "
  257.                 "oder die nicht vom Ingenieurbüro Helfrich unterstützt "
  258.                 "werden."
  259.                 "\n\n" @askoptions-help)
  260.         (choices    "EGS-Prefs (Voreinsteller)"
  261.                  "EGS-Tools (Hilfsprogramme)"
  262.                 "EGS-Demos"
  263.                 "EGS-Patterns (Hintergrundgrafiken)"
  264.                 "EGS-AGE_Tools (PicoRetarget)"
  265.                 "EGS-Goodies")
  266.         (default 63)
  267.     )
  268. )
  269.  
  270. ;*** Ask choices for Dia, Painter and TV-Paint jr. ***
  271. (set EGSApp2
  272.     (askoptions
  273.         (prompt "Welche Anwenderprogramme sollen installiert werden? ")
  274.         (help   "PicoPainter:\n"
  275.                 "PicoPainter ist ein umfangreiches Multi-Window-Malprogramm "
  276.                 "für das EGS-Window-System.\n\n"
  277.                 "Dia:\n"
  278.                 "Dia ist ein Programm zur Bildanzeige, mit dem "
  279.                 "Sie auch Präsentationen und Diashows erstellen "
  280.                 "können (ARexx erforderlich).\n\n"
  281.                 "TV-Paint Jr.:\n"
  282.                 "TV-Paint Jr. ist die kleine Version des bekannten "
  283.                 "Malprogramms TV-Paint. Zu diesem Programm "
  284.                 "braucht man eigentlich keine Worte mehr zu verlieren.\n\n")
  285.  
  286.         (choices "PicoPainter"
  287.              "Dia"
  288.              "TV-Paint Jr.")
  289.         (default 7)
  290.  
  291.     )
  292. )
  293.  
  294. ;*** Ask which drivers should be installed ***
  295.  
  296. (set Drivers
  297.     (askoptions
  298.         (prompt "Welche Anzeige-Treiber wollen Sie installieren?")
  299.         (help   "Real3D:\n"
  300.             "Dies ist eine Funktionsbibliothek für externe Bildschirme "
  301.             "für Real3D V2 von Realsoft.\n\n"
  302.             "ADPro:\n"
  303.             "Dies sind einige 'Savers' (Speichermodule) für Art Department Professional von ASDG.\n\n"
  304.             "ImageMaster:\n"
  305.             "Dies ist der Treiber für ImageMaster von BlackBelt-Systems (Renderland).\n\n"
  306.             @askoptions-help)
  307.         (choices "Real3D"
  308.              "ADPro"
  309.              "ImageMaster")
  310.         (default 15)
  311.     )
  312. )
  313.  
  314. ;**************** Now the installation itself begins ******************
  315.  
  316. (complete 0)
  317.  
  318. ;*** Create directory for NOVICE user ***
  319.  
  320. (if (= 0 @user-level)
  321.     (
  322.         (set Monitor 0)
  323.         (set EGSApp 63)
  324.         (set EGSApp2 7)
  325.         (set EGSSysDir "WORK:")
  326.     )
  327. )
  328.  
  329. ; *** Enough harddisk space left ??
  330. (message "\n\nSoll jetzt mit der eigentlichen Installation begonnen werden ?\n\n"
  331.          "Es sind dafür mindestens etwa 2 MByte für die EGS-Systemsoftware "
  332.          "erforderlich; für eine komplette Installation der gesamten Software "
  333.          "werden aber bis zu 6 MByte auf dem angegebenen Datenträger benötigt.")
  334.  
  335. (set diskfree (getdiskspace EGSSysDir))
  336. (if (< diskfree 6000000)
  337.     (abort "Fehler: Sie benötigen für eine minimale Installation der "
  338.          "EGS-Software mindestens 6 MByte freien Plattenplatz. Soviel Platz "
  339.          "ist auf der angegebenen Festplatte/Partition aber anscheinend nicht mehr "
  340.          "frei.")
  341. )
  342.  
  343.  
  344. ;*** create EGS top level directory
  345. (makedir (tackon EGSSysDir "EGS")
  346.     (confirm "expert")
  347.     (prompt "Erzeuge EGS-Systemsoftware-Verzeichnis")
  348.     (help "Jetzt wird das Hauptverzeichnis für die EGS-Systemsoftware angelegt. ")
  349. )
  350.  
  351. ;*** now we can make a backup copy of the old settings, if the user wishes so
  352. ;*** (the novice user always wishes it - although he doesn't know :^)
  353.  
  354. (if (= backupold 1)
  355.     (
  356.         ;*** first, create subdirectories for the old stuff..
  357.         (makedir (tackon EGSSysDir "EGS/bak")
  358.             (confirm "expert")
  359.             (prompt "Erzeuge Verzeichnisse für Backup alter Einstellungen")
  360.             (help "Es werden jetzt unter dem EGS-Hauptverzeichnis die Verzeichnisse "
  361.                   "'bak/envarc' und 'bak/monitors' angelegt, in denen Sicherheitskopien "
  362.                   "Ihrer alten Monitordefinitionen und Voreinstellungen abgespeichert "
  363.                   "werden.")
  364.         )
  365.         (makedir (tackon EGSSysDir "EGS/bak/envarc")
  366.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/bak/envarc") "'")
  367.         )
  368.         (makedir (tackon EGSSysDir "EGS/bak/monitors")
  369.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/bak/monitors") "'")
  370.         )
  371.  
  372.         (copyfiles
  373.             (prompt "Kopiere alte ENVARC:-Einstellungen")
  374.             (confirm "expert")
  375.             (source "envarc:egs")
  376.             (dest (tackon EGSSysDir "EGS/bak/envarc"))
  377.             (all)
  378.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  379.                   "ENVARC:-Einstellungen gemacht.")
  380.         )
  381.  
  382.         (copyfiles
  383.             (prompt "Kopiere alte Monitor-Definitionen")
  384.             (confirm "expert")
  385.             (source "EGS:monitors")
  386.             (dest (tackon EGSSysDir "EGS/bak/monitors"))
  387.             (all)
  388.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  389.                   "Monitor-Definitionen gemacht.")
  390.         )
  391.     )
  392. )
  393.  
  394. ;*** the following operation should be confirmed by ANY type of user, so we set
  395. ;*** him to expert user for a short moment...
  396. ;*** This step deinstalls the old EGS system software package
  397.  
  398. (set olduserlevel @user-level)
  399. (set @user-level 2)
  400.  
  401. (if (= oldfound 1)
  402.     (
  403.         (set DeleteOldEGS
  404.             (askbool
  405.                 (prompt "ACHTUNG: Im nächsten Schritt wird Ihre gesamte alte EGS-Installation "
  406.                         "gelöscht. Dies ist notwendig, da sich der Aufbau von EGS geändert hat. "
  407.                         "\nFalls Sie im Verzeichnis EGS: selber weitere Software installiert "
  408.                         "haben sollten (außer der, die bei Ihrer Piccolo-SD64 beilag), so sollten "
  409.                         "Sie die Installation jetzt abbrechen und diese Software sichern.\n"
  410.                         "Information: Das neue EGS-System ersetzt das alte vollständig.\n"
  411.                         "\nWollen Sie, daß jetzt die GESAMTE alte EGS-Installation gelöscht "
  412.                         "wird ?")
  413.                 (help "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  414.                         "abbrechen, um möglicherweise selbst in EGS: installierte Software "
  415.                         "zu sichern.")
  416.                 (choices "Ja" "Nein")
  417.                 (default 1)
  418.             )
  419.         )
  420.  
  421.  
  422.         (if (= DeleteOldEGS 0)
  423.             (abort ("Die Installation wurde abgebrochen."))
  424.  
  425.             ; else...
  426.             (
  427.                 ; first, remove the EGS:libs assignment
  428.                 (run ("c:assign libs: EGS:libs remove"))
  429.                 ; next, remove the main EGS: assignment (but copy it first for the delete command)
  430.                 (set oldegspath (expandpath "EGS:"))
  431.                 (makeassign("EGS"))
  432.  
  433.                 ; and now, the really dangerous thing..
  434.                 (set retcode (run "c:delete %s all force" oldegspath))
  435.                 (if (<> retcode 0)
  436.                     (message "Achtung !\nEs konnte nicht das gesamte alte EGS-System "
  437.                              "de-installiert werden. Der Grund dafür können von Ihnen "
  438.                              "selbst erzeugte Suchpfade sein. Bitte entfernen Sie die "
  439.                              "restlichen Dateien (unter '" oldegspath "') von Hand.")
  440.                 )
  441.             )
  442.         )
  443.     )
  444. )
  445.  
  446. ;restore old user level
  447. (set @user-level olduserlevel)
  448.  
  449.  
  450.  
  451. ;*** remove old EGS: assignment commands from S:user-startup
  452. (startup "EGS-System"
  453.     (prompt "Alte EGS-spezifische Befehle aus \"S:user-startup\" wieder austragen.")
  454.     (help "Eventuelle alte Angaben bezüglich EGS in Ihrer Datei \"S:user-startup\" müssen "
  455.           "wieder entfernt werden, da sie jetzt an anderer Stelle ausgeführt werden.\n"
  456.           "Durch diese Operation werden andere Befehle in Ihrer \"S:user-startup\"-Datei "
  457.           "nicht verändert.")
  458.     (command (""))
  459. )
  460.  
  461.  
  462. ;*** for reasons of completeness, (try to) remove the user-startup entries for Painter
  463. (startup "Painter/PicoPainter"
  464.     (prompt "Alte PicoPainter-spezifische Befehle aus \"S:user-startup\" wieder austragen.")
  465.     (help "Eventuelle alte Angaben bezüglich PicoPainter in Ihrer Datei \"S:user-startup\" "
  466.           " müssen entfernt werden. Sie werden später (falls Sie das neue PicoPainter "
  467.           "installieren wollen) wieder mit richtigem Pfad eingefügt.\n"
  468.           "Durch diese Operation werden andere Befehle in Ihrer \"S:user-startup\"-Datei "
  469.           "nicht verändert.")
  470.     (command (""))
  471. )
  472.  
  473. ;*** Finally, remove the old and now obsolete s:EGS-Startup
  474. (delete "s:EGS-Startup"
  475.     (prompt "Alte Datei 's:EGS-Startup' löschen")
  476.     (confirm "expert")
  477.     (help "Die Datei 'S:EGS-Startup wird jetzt nicht mehr gebraucht, da in der neuen "
  478.           "EGS-Version das Hochfahren der EGS-Software auf andere Weise erfolgt.")
  479. )
  480.  
  481. ;*** That's it ! We have (more or less sucessfully) de-installed the old system,
  482. ;*** now let the new one go in...
  483.  
  484. ;*** Ask user to insert disk 1 ***
  485. (askdisk
  486.     (prompt "Bitte legen Sie " Disk1 " in ein beliebiges Laufwerk...")
  487.     (help @askdisk-help)
  488.     (dest Disk1)
  489. )
  490.  
  491. ;*** Copy LHARC to RAM ***
  492. (copyfiles
  493.     (prompt "Kopiere Datei lharc nach RAM.")
  494.     (source "Piccolo-SD64_Disk1:c/LHARC")
  495.     (dest   "ram:")
  496. )
  497.  
  498.  
  499. ;*** check version (where is "monitors" ? SYS: (2.0) or DEVS: (2.1 && >) ?)
  500. (set ver (getversion "libs:version.library") )
  501. (set osver (/ Ver 65536))
  502. ; on 2.1 and above systems there is always a DEVS:Monitors directory
  503. (if (> osver 37)
  504.     (set MonitorDest "DEVS:Monitors" )
  505. ; else, on 2.0, there should be a SYS:Monitors; if there isn't, create one
  506.     (
  507.         (set MonitorDest "SYS:Monitors")
  508.         (makedir MonitorDest)
  509.     )
  510. )
  511.  
  512. ;*** put together the 'Piccolo-SD64' file that goes into the monitor directory
  513. (textfile
  514.     (dest "T:Piccolo-SD64")
  515. ;    (append "assign EGS: ")
  516. ;    (append (tackon EGSSysDir "EGS"))
  517. ;    (append "\n")
  518.     (include "Piccolo-SD64_Disk1:monitors/Piccolo-SD64")
  519. )
  520.  
  521. (set myassign ("\"assign EGS: %s \"" (tackon EGSSysDir "EGS") ) )
  522. (set insertrc (run ("Piccolo-SD64_Disk1:c/insertline %s %s %s" "T:Piccolo-SD64" "EGSAssign" myassign) ) )
  523.  
  524. (if (<> insertrc 0)
  525.     (message "Es trat ein Fehler beim Erzeugen der Monitors/Piccolo-SD64-Datei auf.")
  526. )
  527.  
  528.  
  529. ;*** copy the Piccolo-SD64 file to SYS:/DEVS:Monitors
  530. (copyfiles
  531.     (prompt "Kopiere Monitordatei T:Piccolo-SD64 nach " MonitorDest)
  532.     (confirm "expert")
  533.     (source "T:Piccolo-SD64")
  534.     (dest   MonitorDest)
  535.     (help "Es wird jetzt eine Monitordatei in SYS:monitors (oder DEVS:monitors) "
  536.         "kopiert.")
  537. )
  538.  
  539. ;*** protect +s the Piccolo-SD64 file
  540. (protect (tackon MonitorDest "Piccolo-SD64") "+s")
  541.  
  542. ;*** copy the accompanying icon to SYS:/DEVS:Monitors
  543. (copyfiles
  544.     (prompt "Kopiere Piktogramm Piccolo-SD64.info nach " MonitorDest)
  545.     (confirm "expert")
  546.     (source "Piccolo-SD64_Disk1:monitors/Piccolo-SD64.info")
  547.     (dest   MonitorDest)
  548.     (help "Zu der gerade kopierten Monitordatei wird ein Icon kopiert.")
  549. )
  550.  
  551. ;*** install WBStartup icon
  552. ;*** Install One-Monitor-System ***
  553. (if (= 0 Monitor)
  554.     ((copyfiles
  555.     (confirm "expert")
  556.     (prompt "Kopiere Datei EGS-Startup.info nach SYS:WBStartup")
  557.     (source "Piccolo-SD64_Disk1:WBStartup/1/EGS-Startup.info")
  558.     (dest   "SYS:WBStartup")
  559.     (help "Jetzt wird die EGS-Startup-Datei nach SYS:WBStartup kopiert. Damit "
  560.         "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  561.         "des Rechners überhaupt erst ermöglicht.")
  562. )))
  563.  
  564. ;*** Install Two-Monitor-System ***
  565. (if (AND (= 1 Monitor) (= 0 Direction))
  566.     ((copyfiles
  567.     (confirm "expert")
  568.     (prompt "Kopiere Datei EGS-Startup.info nach SYS:WBStartup")
  569.     (source "Piccolo-SD64_Disk1:WBStartup/2/t/EGS-Startup.info")
  570.     (dest   "SYS:WBStartup")
  571.     (help "Jetzt wird die EGS-Startup-Datei nach SYS:WBStartup kopiert. Damit "
  572.         "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  573.         "des Rechners überhaupt erst ermöglicht.")
  574. )))
  575.  
  576. (if (AND (= 1 Monitor) (= 1 Direction))
  577.     ((copyfiles
  578.     (confirm "expert")
  579.     (prompt "Kopiere Datei EGS-Startup.info nach SYS:WBStartup")
  580.     (source "Piccolo-SD64_Disk1:WBStartup/2/l/EGS-Startup.info")
  581.     (dest   "SYS:WBStartup")
  582.     (help "Jetzt wird die EGS-Startup-Datei nach SYS:WBStartup kopiert. Damit "
  583.         "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  584.         "des Rechners überhaupt erst ermöglicht.")
  585. )))
  586.  
  587. (if (AND (= 1 Monitor) (= 2 Direction))
  588.     ((copyfiles
  589.     (confirm "expert")
  590.     (prompt "Kopiere Datei EGS-Startup.info nach SYS:WBStartup")
  591.     (source "Piccolo-SD64_Disk1:WBStartup/2/r/EGS-Startup.info")
  592.     (dest   "SYS:WBStartup")
  593.     (help "Jetzt wird die EGS-Startup-Datei nach SYS:WBStartup kopiert. Damit "
  594.         "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  595.         "des Rechners überhaupt erst ermöglicht.")
  596. )))
  597.  
  598. (if (AND (= 1 Monitor) (= 3 Direction))
  599.     ((copyfiles
  600.     (confirm "expert")
  601.     (prompt "Kopiere Datei EGS-Startup.info nach SYS:WBStartup")
  602.     (source "Piccolo-SD64_Disk1:WBStartup/2/b/EGS-Startup.info")
  603.     (dest   "SYS:WBStartup")
  604.     (help "Jetzt wird die EGS-Startup-Datei nach SYS:WBStartup kopiert. Damit "
  605.         "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  606.         "des Rechners überhaupt erst ermöglicht.")
  607. )))
  608.  
  609.  
  610. ;*** create the EGS:s directory
  611. (makedir (tackon EGSSysDir "EGS/s")
  612.     (confirm "expert")
  613.     (prompt "Erzeuge EGS-s-Verzeichnis")
  614.     (help "Jetzt wird das Verzeichnis 's' für die EGS-Startdateien angelegt.")
  615. )
  616.  
  617. ;*** install EGS.Config file in EGS:s/
  618. ;*** one monitor solution
  619. (if (= 0 Monitor)
  620.     ((copyfiles
  621.     (confirm "expert")
  622.     (prompt "Kopiere Datei EGS.config nach EGS:s")
  623.     (source "Piccolo-SD64_Disk1:egs/s/1/EGS.config")
  624.     (dest   (tackon EGSSysDir "EGS/s"))
  625.     (help "Die Startdatei 'EGS.Config' wird nach " (tackon EGSSysDir "EGS/s/") " kopiert.")
  626. )))
  627.  
  628. ;*** two monitor solution
  629. (if (= 1 Monitor)
  630.     ((copyfiles
  631.     (confirm "expert")
  632.     (prompt "Kopiere Datei EGS.config nach EGS:s")
  633.     (source "Piccolo-SD64_Disk1:egs/s/2/EGS.config")
  634.     (dest   (tackon EGSSysDir "EGS/s"))
  635.     (help "Die Startdatei 'EGS.Config' wird nach " (tackon EGSSysDir "EGS/s/") " kopiert.")
  636. )))
  637.  
  638. (complete 10)
  639.  
  640. ;*** create the EGS:monitors and ../prefs directories
  641. (makedir (tackon EGSSysDir "EGS/Monitors")
  642.     (confirm "expert")
  643.     (prompt "Erzeuge EGS:Monitors-Verzeichnis")
  644.     (help "Jetzt wird das Verzeichnis 'EGS:Monitors' und darin 'prefs' für die "
  645.           "Monitor-Definitions-Dateien angelegt.\n")
  646. )
  647. ;I won't let the expert confirm this, I just told him what would happen...
  648. (makedir (tackon EGSSysDir "EGS/Monitors/prefs")
  649.     (prompt "Erzeuge EGS:Monitors/prefs-Verzeichnis")
  650.     (help "Keine Hilfe verfügbar.")
  651. )
  652.  
  653. ;*** install the correct monitor prefs file for the selected monitor
  654. (if (= 0 MONITORCLASS)
  655.     (
  656.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  657.         (copyfiles
  658.             (prompt "Kopiere Monitor-File")
  659.             (source "Piccolo-SD64_Disk1:monitor/PALNTSC/PICOa.mux.map2video")
  660.             (dest MoniDir)
  661.             (confirm "expert")
  662.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  663.                   "wird nach " MoniDir " kopiert.")
  664.         )
  665.     )
  666. )
  667.  
  668. (if (= 1 MONITORCLASS)
  669.     (
  670.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  671.         (copyfiles
  672.             (prompt "Kopiere Monitor-File")
  673.             (source "Piccolo-SD64_Disk1:monitor/VGA/PICOa.mux.map2video")
  674.             (dest MoniDir)
  675.             (confirm "expert")
  676.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  677.                   "wird nach " MoniDir " kopiert.")
  678.         )
  679.     )
  680. )
  681.  
  682. (if (= 2 MONITORCLASS)
  683.     (
  684.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  685.         (copyfiles
  686.             (prompt "Kopiere Monitor-File")
  687.             (source "Piccolo-SD64_Disk1:monitor/MS38/PICOa.mux.map2video")
  688.             (dest MoniDir)
  689.             (confirm "expert")
  690.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  691.                   "wird nach " MoniDir " kopiert.")
  692.         )
  693.     )
  694. )
  695.  
  696. (if (= 3 MONITORCLASS)
  697.     (
  698.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  699.         (copyfiles
  700.             (prompt "Kopiere Monitor-File")
  701.             (source "Piccolo-SD64_Disk1:monitor/MS48/PICOa.mux.map2video")
  702.             (dest MoniDir)
  703.             (confirm "expert")
  704.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  705.                   "wird nach " MoniDir " kopiert.")
  706.         )
  707.     )
  708. )
  709.  
  710. (if (= 4 MONITORCLASS)
  711.     (
  712.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  713.         (copyfiles
  714.             (prompt "Kopiere Monitor-File")
  715.             (source "Piccolo-SD64_Disk1:monitor/MS56/PICOa.mux.map2video")
  716.             (dest MoniDir)
  717.             (confirm "expert")
  718.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  719.                   "wird nach " MoniDir " kopiert.")
  720.         )
  721.     )
  722. )
  723.  
  724. (if (= 5 MONITORCLASS)
  725.     (
  726.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  727.         (copyfiles
  728.             (prompt "Kopiere Monitor-File")
  729.             (source "Piccolo-SD64_Disk1:monitor/MS64/PICOa.mux.map2video")
  730.             (dest MoniDir)
  731.             (confirm "expert")
  732.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  733.                   "wird nach " MoniDir " kopiert.")
  734.         )
  735.     )
  736. )
  737.  
  738. (if (= 6 MONITORCLASS)
  739.     (
  740.         (set MoniDir (tackon EGSSysDir "EGS/Monitors/Prefs/"))
  741.         (copyfiles
  742.             (prompt "Kopiere Monitor-File")
  743.             (source "Piccolo-SD64_Disk1:monitor/MS76/PICOa.mux.map2video")
  744.             (dest MoniDir)
  745.             (confirm "expert")
  746.             (help "Die Datei, die Einstellungen über die Monitorklasse enthält, "
  747.                   "wird nach " MoniDir " kopiert.")
  748.         )
  749.     )
  750. )
  751.  
  752.  
  753. (complete 15)
  754.  
  755.  
  756. ;*** Create directory for Piccolo-SD64 software under EGS: ***
  757. (set EGSSoftDir (tackon EGSSysDir "EGS/Piccolo-SD64"))
  758. (makedir (EGSSoftDir (infos))
  759.     (confirm "expert")
  760.     (prompt "Erzeuge Piccolo-SD64-Software-Verzeichnis")
  761.     (help "Jetzt wird das Verzeichnis 'Piccolo-SD64' für die Piccolo-SD64-Software unter "
  762.           "dem Hauptverzeichnis für EGS-Software angelegt.")
  763. )
  764.  
  765. ;*** Install PicoPainter ***
  766. (If (IN EGSApp2 0)
  767.     (
  768.         (
  769.             (working "Installiere Painter...")
  770.             (if (= @user-level 2)
  771.                 (
  772.                     (set ReallyInst
  773.                         (askbool
  774.                             (prompt "Archiv 'PicoPainter.lzh' nach " EGSSoftDir " auspacken ?")
  775.                             (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  776.                                 "Installation von PicoPainter überspringen.")
  777.                             (choices "Ja" "Nein")
  778.                         )
  779.                     )
  780.                 )
  781.  
  782.                 (set ReallyInst 1)
  783.             )
  784.  
  785.             (if (= ReallyInst 1)
  786.                 (
  787.                     (set @execute-dir EGSSoftDir)
  788.                     (set lzrc
  789.                         (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk1:PicoPainter.lzh")
  790.                             (prompt "Entpacke Archiv 'PicoPainter.lzh' nach " EGSSoftDir ".")
  791.                             (help "Keine Hilfe verfügbar.")
  792.                         )
  793.                     )
  794.                     (if (<> lzrc 0)
  795.                         (message "Fehler beim Dekomprimieren des PicoPainter-Programms." )
  796.                      )
  797.                 )
  798.             )
  799.         )
  800.         (startup "Painter/PicoPainter"
  801.             (prompt    "Es müssen einige Anweisungen in die \"S:user-startup\" eingefügt werden, damit das Programm PicoPainter konfiguriert werden kann.")
  802.             (help "PicoPainter benötigt ein Assignment 'Painter:', unter dem "
  803.               "es nach einigen Hilfsdateien (wie Convolve-Matrizen) sucht.\n"
  804.               "Dazu werden einige Zeilen in die Datei S:user-startup eingetragen.")
  805.             (set PaintAssign (tackon EGSSoftDir "PicoPainter"))
  806.             (command ("assign Painter: %s\n" PaintAssign))
  807.         )
  808.     )
  809. )
  810.  
  811. (complete 30)
  812.  
  813. (If (IN EGSApp2 1)
  814.     (
  815.         (working "Installiere Dia...")
  816.         (if (= @user-level 2)
  817.             (
  818.                 (set ReallyInst
  819.                     (askbool
  820.                         (prompt "Archiv 'Dia.lzh' nach " EGSSoftDir " auspacken ?")
  821.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  822.                             "Installation von 'Dia' überspringen.")
  823.                         (choices "Ja" "Nein")
  824.                     )
  825.                 )
  826.             )
  827.             (set ReallyInst 1)
  828.            )
  829.  
  830.         (if (= ReallyInst 1)
  831.             (
  832.                 (set @execute-dir EGSSoftDir)
  833.                 (set lzrc
  834.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk1:Dia.lzh")
  835.                         (prompt "Entpacke Archiv 'Dia.lzh' nach " EGSSoftDir ".")
  836.                     )
  837.                 )
  838.  
  839.                 (if (<> lzrc 0)
  840.                     (message "Fehler beim Dekomprimieren des Programms Dia.")
  841.                 )
  842.             )
  843.         )
  844.     )
  845. )
  846.  
  847.  
  848. (complete 40)
  849.  
  850.  
  851. ;*** EGS-ENV.lzh-Archiv auspacken
  852. (if (= 1 InstSystem)
  853.     (
  854.         (working "Installiere EGS-ENVARC:-Systemdateien...")
  855.         (if (= @user-level 2)
  856.             (
  857.                 (set ReallyInst
  858.                     (askbool
  859.                         (prompt "Archiv 'EGS-ENV.lzh' nach ENVARC: auspacken ?")
  860.                         (help "Hiermit wird das Archiv entpackt, das die mitgelieferten "
  861.                               "Voreinstellungen für das EGS-System (Bildschirmmodus, "
  862.                               "Farben, Blanker etc.) enthält.\n"
  863.                               "Wenn Sie wollen, können Sie an dieser Stelle die "
  864.                               "Installation des EGS-ENV-Archivs überspringen.")
  865.                         (choices "Ja" "Nein")
  866.                     )
  867.                 )
  868.             )
  869.             (set ReallyInst 1)
  870.            )
  871.  
  872.         (if (= ReallyInst 1)
  873.             (
  874.                 (set @execute-dir "ENVARC:")
  875.                 (set lzrc
  876.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk1:EGS-ENV.lzh")
  877.                         (prompt "Entpacke Archiv 'EGS-ENV.lzh' nach " @execute-dir ".")
  878.                     )
  879.                 )
  880.                 (if (<> lzrc 0)
  881.                     (message "Es trat ein Fehler beim Dekomprimieren von 'EGS-ENV.lzh' auf.")
  882.                 )
  883.             )
  884.         )
  885.     )
  886. )
  887.  
  888. (complete 45)
  889.  
  890. ;*** EGS-System7.lzh-Archiv auspacken
  891. (if (= 1 InstSystem)
  892.     (
  893.         (working "Installiere EGS Systemdateien für Version 7...")
  894.         (if (= @user-level 2)
  895.             (
  896.                 (set ReallyInst
  897.                     (askbool
  898.                         (prompt "Archiv 'EGS-System7.lzh' nach EGS: auspacken ?")
  899.                         (help "Hiermit wird das Archiv entpackt, das die mitgelieferten "
  900.                               "Systemtools für das EGS-System 7 (EGS-Finder und "
  901.                               "EGS-ShadowHook etc.) enthält.\n"
  902.                               "Wenn Sie wollen, können Sie an dieser Stelle die "
  903.                               "Installation des EGS-System7-Archivs überspringen.")
  904.                         (choices "Ja" "Nein")
  905.                     )
  906.                 )
  907.             )
  908.             (set ReallyInst 1)
  909.            )
  910.  
  911.         (if (= ReallyInst 1)
  912.             (
  913.                 (set @execute-dir EGSSysDir)
  914.                 (set lzrc
  915.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk1:EGS-System7.lzh")
  916.                         (prompt "Entpacke Archiv EGS-System7.lzh nach " EGSSysDir)
  917.                     )
  918.                 )
  919.                 (if (<> lzrc 0)
  920.                     (message "Es trat ein Fehler beim Dekomprimieren von 'EGS-System7.lzh' auf.")
  921.                 )
  922.             )
  923.         )
  924.     )
  925. )
  926.  
  927. (complete 50)
  928.  
  929. ;*** 'install' Real3D support (egs_r3d.library - part of the EGS:libs package)
  930. (if (IN Drivers 0)
  931.     (message "Der Treiber für Real3D V2 wird gleich bei der Installation der "
  932.              "EGS-Systemsoftware automatisch mit durchgeführt.")
  933. )
  934.  
  935.  
  936. ;*** install the ADPro savers directly to ADPro:savers2
  937. (If (IN Drivers 1)
  938.     (If (exists "ADPro:" (noreq))
  939.     (
  940.         ((working "Installiere Treiber für ADPro...")
  941.             (copyfiles
  942.                 (prompt "Installiere ADPro-Treiber...")
  943.                 (source "Piccolo-SD64_Disk1:drivers/ADPro")
  944.                 (dest "ADPro:")
  945.                 (all)
  946.                 (confirm "expert")
  947.                 (help "In diesem Schritt werden die ADPro-Saver in Ihre "
  948.                       "ADPro-Installation (nach savers2) kopiert (sofern "
  949.                       "vorhanden).")
  950.             )
  951.         )
  952.     )
  953.     (message "Damit die ADPro-Saver installiert werden können, muß ADPro auf "
  954.              "Ihrem System installiert sein. Das ist anscheinend nicht der Fall "
  955.              "(das ADPro:-Assignment wurde nicht gefunden, und darum kann die "
  956.              "Position der ADPro-Software auf Ihrer Festplatte nicht festgestellt "
  957.              "werden). Bitte installieren Sie ADPro erst (oder setzen Sie das "
  958.              "logische Gerät ADPro: auf das ADPro-Software-Verzeichnis),  und "
  959.              "rufen Sie dann diese Installation noch einmal auf.")
  960.     )
  961. )
  962.  
  963. (complete 60)
  964.  
  965. (if (IN Drivers 2)
  966.     (message "Die Installation des ImageMaster-Treibers kann nicht vom Installer "
  967.              "vorgenommen werden; bitte lesen Sie in Ihrer Dokumentation zu Imagemaster "
  968.              "nach, was dazu für Veränderungen an seinen Konfigurationsdateien "
  969.              "vorgenommen werden müssen. Die benötigten Dateien finden Sie auf der "
  970.              "ersten Piccolo-SD64-Software-Disk im Verzeichnis 'ImageMaster'.")
  971. )
  972.  
  973. ;*** Ask user to insert disk 2 ***
  974. (askdisk
  975.     (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  976.     (help @askdisk-help)
  977.     (dest Disk2)
  978. )
  979.  
  980. ;*** Install the main part of EGS - drivers, libraries, classes...
  981. (if (= 1 InstSystem)
  982.     (
  983.         (working "Installiere EGS-Systemdateien...")
  984.         (if (= @user-level 2)
  985.             (
  986.                 (set ReallyInst
  987.                     (askbool
  988.                         (prompt "Archiv 'EGS-System.lzh' nach '" EGSSysDir "' auspacken ?")
  989.                         (help "Dieser Schritt installiert die wichtigsten Dateien des "
  990.                           "EGS-Systems auf Ihrer Festplatte - Bibliotheken, Treiber "
  991.                           "und Klassen. Ohne diese Dateien kann EGS nicht laufen.\n"
  992.                           "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  993.                           "der EGS-Systemdateien überspringen. Das ist aber ganz und gar "
  994.                           "nicht zu empfehlen.")
  995.                         (choices "Ja" "Nein")
  996.                     )
  997.                 )
  998.             )
  999.             (set ReallyInst 1)
  1000.            )
  1001.  
  1002.         (if (= ReallyInst 1)
  1003.             (
  1004.                 (set @execute-dir EGSSysDir)
  1005.                 (set lzrc
  1006.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk2:EGS-System.lzh")
  1007.                         (prompt "Entpacke Archiv EGS-System.lzh nach " EGSSysDir)
  1008.                     )
  1009.                 )
  1010.                 (if (<> lzrc 0)
  1011.                     (message "Es trat ein Fehler beim Dekomprimieren von 'EGS-System' auf." )
  1012.                 )
  1013.             )
  1014.         )
  1015.     )
  1016. )
  1017.  
  1018. (complete 70)
  1019.  
  1020. ;*** remove old commands from user-startup
  1021. ; (jetzt weiter oben)
  1022. ;(startup "EGS-System"
  1023. ;    (prompt "Alte EGS-spezifische Befehle aus \"S:user-startup\" wieder austragen.")
  1024. ;    (help "Eventuelle alte Angaben in Ihrer Datei \"S:user-startup\" müssen wieder "
  1025. ;          "entfernt werden, da sie jetzt an anderer Stelle ausgeführt werden. "
  1026. ;          "Durch diese Operation werden andere Befehle in Ihrer \"S:user-startup\"-Datei "
  1027. ;          "nicht verändert.")
  1028. ;    (command (""))
  1029. ;)
  1030.  
  1031. (complete 75)
  1032.  
  1033.  
  1034. ;*** Ask user to insert disk 3 ***
  1035.  
  1036. (if (OR (IN EGSApp 0 1 2 3))
  1037.     (askdisk
  1038.         (prompt "Bitte legen Sie " Disk3 " in ein beliebiges Laufwerk...")
  1039.         (help @askdisk-help)
  1040.         (dest Disk3)
  1041.         (assigns)
  1042.     )
  1043. )
  1044.  
  1045. ;*** Install selected EGS-Applications ***
  1046.  
  1047. ;*** Install EGS-Prefs
  1048. (If (IN EGSApp 0)
  1049.     (
  1050.         (working "Installiere EGS-Preferences...")
  1051.         (if (= @user-level 2)
  1052.             (
  1053.                 (set ReallyInst
  1054.                     (askbool
  1055.                         (prompt "Archiv 'EGS-Prefs.lzh' nach '" EGSSysDir "' auspacken ?")
  1056.                         (help "Dieser Schritt installiert die EGS-Voreinstellungs-Programme "
  1057.                               "(Preferences) auf Ihrer Festplatte. Diese Programme dienen zum "
  1058.                               "Konfigurieren sehr vieler Eigenschaften von EGS.\n"
  1059.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1060.                               "der EGS-Preferences überspringen.")
  1061.                         (choices "Ja" "Nein")
  1062.                     )
  1063.                 )
  1064.             )
  1065.             (set ReallyInst 1)
  1066.            )
  1067.  
  1068.         (if (= ReallyInst 1)
  1069.             (
  1070.                 (set @execute-dir EGSSysDir)
  1071.                 (set lzrc
  1072.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-Prefs.lzh")
  1073.                         (prompt "Entpacke Archiv 'EGS-Prefs.lzh' nach " EGSSysDir ".")
  1074.  
  1075.                     )
  1076.                 )
  1077.                 (if (<> lzrc 0)
  1078.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-Prefs auf.")
  1079.                 )
  1080.             )
  1081.         )
  1082.     )
  1083. )
  1084.  
  1085. (complete 80)
  1086.  
  1087. ;*** Install EGS-Tools
  1088. (If (IN EGSApp 1)
  1089.     (
  1090.         (working "Installiere EGS-Tools...")
  1091.         (if (= @user-level 2)
  1092.             (
  1093.                 (set ReallyInst
  1094.                     (askbool
  1095.                         (prompt "Archiv 'EGS-Tools.lzh' nach '" EGSSysDir "' auspacken ?")
  1096.                         (help "Dieser Schritt installiert die EGS-Hilfs-Programme "
  1097.                               "(Tools) auf Ihrer Festplatte.\n"
  1098.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1099.                               "der EGS-Tools überspringen.")
  1100.                         (choices "Ja" "Nein")
  1101.                     )
  1102.                 )
  1103.             )
  1104.             (set ReallyInst 1)
  1105.            )
  1106.  
  1107.         (if (= ReallyInst 1)
  1108.             (
  1109.                 (set @execute-dir EGSSysDir)
  1110.                 (set lzrc
  1111.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-Tools.lzh")
  1112.                         (prompt "Entpacke Archiv 'EGS-Tools.lzh' nach " EGSSysDir ".")
  1113.                     )
  1114.                 )
  1115.  
  1116.                 (if (<> lzrc 0)
  1117.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-Tools auf.")
  1118.                     )
  1119.             )
  1120.         )
  1121.     )
  1122. )
  1123.  
  1124. (complete 85)
  1125.  
  1126. ;*** Install EGS-Demos
  1127. (If (IN EGSApp 2)
  1128.     (
  1129.         (working "Installing EGS-Demos...")
  1130.         (if (= @user-level 2)
  1131.             (
  1132.                 (set ReallyInst
  1133.                     (askbool
  1134.                         (prompt "Archiv 'EGS-Demos.lzh' nach '" EGSSysDir "' auspacken ?")
  1135.                         (help "Dieser Schritt installiert die EGS-Demoprogramme "
  1136.                               "auf Ihrer Festplatte. Diese Programme zeigen einen Ausschnitt "
  1137.                               "aus den Fähigkeiten von EGS.\n"
  1138.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1139.                               "der EGS-Demos überspringen.")
  1140.                         (choices "Ja" "Nein")
  1141.                     )
  1142.                 )
  1143.             )
  1144.             (set ReallyInst 1)
  1145.            )
  1146.  
  1147.         (if (= ReallyInst 1)
  1148.             (
  1149.                 (set @execute-dir EGSSysDir)
  1150.                 (set lzrc
  1151.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-Demos.lzh")
  1152.                         (prompt "Entpacke Archiv 'EGS-Demos.lzh' nach " EGSSysDir ".")
  1153.                     )
  1154.                 )
  1155.                 (if (<> lzrc 0)
  1156.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-Demos auf.")
  1157.                 )
  1158.             )
  1159.         )
  1160.     )
  1161. )
  1162.  
  1163. (complete 90)
  1164.  
  1165. ;*** Install EGS-Patterns
  1166. (If (IN EGSApp 3)
  1167.     (
  1168.         (working "Installing EGS-Patterns")
  1169.         (if (= @user-level 2)
  1170.             (
  1171.                 (set ReallyInst
  1172.                     (askbool
  1173.                         (prompt "Archiv 'EGS-Patterns.lzh' nach '" EGSSysDir "' auspacken ?")
  1174.                         (help "Dieser Schritt installiert einige Hintergrundmuster "
  1175.                               "(Patterns) auf Ihrer Festplatte.\n"
  1176.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1177.                               "der EGS-Patterns überspringen.")
  1178.                         (choices "Ja" "Nein")
  1179.                     )
  1180.                 )
  1181.             )
  1182.             (set ReallyInst 1)
  1183.            )
  1184.  
  1185.         (if (= ReallyInst 1)
  1186.             (
  1187.                 (set @execute-dir EGSSysDir)
  1188.                 (set lzrc
  1189.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-Pattern.lzh")
  1190.                         (prompt "Entpacke Archiv 'EGS-Pattern.lzh' nach " EGSSysDir ".")
  1191.                     )
  1192.                 )
  1193.                    (if (<> lzrc 0)
  1194.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-Patterns auf.")
  1195.                  )
  1196.             )
  1197.         )
  1198.     )
  1199. )
  1200.  
  1201. (complete 92)
  1202.  
  1203. ;*** Installiere EGS-AGE_Tools
  1204. (If (IN EGSApp 4)
  1205.     (
  1206.         (working "Installing EGS-AGE_Tools")
  1207.         (if (= @user-level 2)
  1208.             (
  1209.                 (set ReallyInst
  1210.                     (askbool
  1211.                         (prompt "Archiv 'EGS-AGE_Tools.lzh' nach '" EGSSysDir "' auspacken ?")
  1212.                         (help "Dieser Schritt installiert Hilfsprogramme für die "
  1213.                               "Amiga Graphics Emulation (AGE) auf Ihrer Festplatte.\n"
  1214.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1215.                               "der EGS-AGE_Tools überspringen.")
  1216.                         (choices "Ja" "Nein")
  1217.                     )
  1218.                 )
  1219.             )
  1220.             (set ReallyInst 1)
  1221.            )
  1222.  
  1223.         (if (= ReallyInst 1)
  1224.             (
  1225.                 (set @execute-dir EGSSysDir)
  1226.                 (set lzrc
  1227.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-AGE_Tools.lzh")
  1228.                         (prompt "Entpacke Archiv 'EGS-AGE_Tools.lzh' nach " EGSSysDir ".")
  1229.                     )
  1230.                 )
  1231.                    (if (<> lzrc 0)
  1232.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-AGE_Tools auf.")
  1233.                  )
  1234.             )
  1235.         )
  1236.     )
  1237. )
  1238.  
  1239. (complete 94)
  1240.  
  1241. ;*** Installiere EGS-Goodies
  1242. (If (IN EGSApp 5)
  1243.     (
  1244.         (working "Installing EGS-Goodies")
  1245.         (if (= @user-level 2)
  1246.             (
  1247.                 (set ReallyInst
  1248.                     (askbool
  1249.                         (prompt "Archiv 'EGS-Goodies.lzh' nach '" EGSSysDir "' auspacken ?")
  1250.                         (help "Dieser Schritt installiert diverse kleine Programme, "
  1251.                               "für die keine Dokumentation existiert oder die nicht vom"
  1252.                               "Ingenieurbüro Helfrich unterstützt werden.\n"
  1253.                               "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  1254.                               "der EGS-Goodies überspringen.")
  1255.                         (choices "Ja" "Nein")
  1256.                     )
  1257.                 )
  1258.             )
  1259.             (set ReallyInst 1)
  1260.            )
  1261.  
  1262.         (if (= ReallyInst 1)
  1263.             (
  1264.                 (set @execute-dir EGSSysDir)
  1265.                 (set lzrc
  1266.                     (run ("RAM:LHARC -mqx x %s" "Piccolo-SD64_Disk3:EGS-Goodies.lzh")
  1267.                         (prompt "Entpacke Archiv 'EGS-Goodies.lzh' nach " EGSSysDir ".")
  1268.                     )
  1269.                 )
  1270.                    (if (<> lzrc 0)
  1271.                     (message "Es trat ein Fehler beim Dekomprimieren der EGS-Goodies auf.")
  1272.                  )
  1273.             )
  1274.         )
  1275.     )
  1276. )
  1277.  
  1278. (complete 95)
  1279.  
  1280.  
  1281. ;*** Ask user to insert disk 4 ***
  1282. (if (IN EGSApp2 2)
  1283.     (askdisk
  1284.         (prompt "Bitte legen Sie " Disk4 " in ein beliebiges Laufwerk...")
  1285.         (help @askdisk-help)
  1286.         (dest Disk4)
  1287.         (assigns)
  1288.     )
  1289. )
  1290.  
  1291.  
  1292. ;*** Install TV-Paint Jr. ***
  1293. (If (IN EGSApp2 2)
  1294.     ((working "Installiere TV-Paint Jr...")
  1295.         (set @execute-dir EGSSoftDir)
  1296.         (set TVPaintDir (tackon EGSSoftDir "TVPaint"))
  1297.         (makedir TVPaintDir (infos))
  1298.         (copyfiles
  1299.             (prompt "Kopiere TVPaint nach " EGSSoftDir ".")
  1300.             (source "TVPaintJr.:")
  1301.             (dest TVPaintDir)
  1302.             (pattern "~disk.info")
  1303.             (confirm "expert")
  1304.             (help "Dieser letzte Schritt installiert das Mal/Zeichenprogramm "
  1305.                   "\"TV-Paint Junior\" auf Ihrer Festplatte.")
  1306.         )
  1307.     )
  1308. )
  1309.  
  1310. (complete 99)
  1311.  
  1312. ;*** Delete file LHARC from RAM ***
  1313. (delete "Ram:LHARC"
  1314.     (prompt "Entferne RAM:LHARC")
  1315. )
  1316.  
  1317. ;*** delete Piccolo-SD64 'monitor' fake file
  1318. (delete "T:Piccolo-SD64"
  1319.     (prompt "Entferne temporäre Datei T:Piccolo-SD64")
  1320. )
  1321.  
  1322. ;*** Ask user to reboot ***
  1323. (exit    "Die System-Software für die Piccolo-SD64-Grafikkarte ist nun installiert. \n"
  1324.          "Bitte führen Sie nun einen Reset durch, damit die gemachten Einstellungen "
  1325.          "wirksam werden !!!\n\n Viel Spaß mit Ihrer Piccolo-SD64-Grafikkarte !!!")
  1326.  
  1327. (complete 100)
  1328.