home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / EGSFüRALLE4CRM-INST.DMS / in.adf / EGS-Install < prev    next >
Encoding:
Text File  |  1994-05-19  |  67.8 KB  |  2,039 lines
  1. ;
  2. ;EGS Standard Installation-Script
  3. ;
  4. ;$VER: Install-Script 6.5  (19.05.1994) by MvK
  5. ;
  6. ; © 1994 by VIONA-Development all rights revserved.
  7. ;
  8. ; Script for single driver Update or EGS-Installtion for a
  9. ; special driver !
  10. ;
  11. ; change: 06 May 1994 mvk
  12. ;         13 May 1994 mvk
  13. ;
  14. ;
  15. ;**** Global variables and definitons ****
  16.  
  17. (set Disk1   "EGS-Install")
  18. (set Disk2   "EGS-Disk1")
  19. (set Disk3   "EGS-Disk2")
  20. (set Disk4   "EGS-Disk3")
  21. (set Disk5   "EGS-RecoverDisk")
  22. (set RECDisk "EGS-RecoverDisk")
  23.  
  24. (set Disk1:  (cat Disk1 ":"))
  25. (set Disk2:  (cat Disk2 ":"))
  26. (set Disk3:  (cat Disk3 ":"))
  27. (set Disk4:  (cat Disk4 ":"))
  28. (set Disk5:  (cat Disk5 ":"))
  29. (set RECDisk: (cat RECDisk ":"))
  30.  
  31. ;CPUVer     "68000" "68010" "68020" "68030" "68040"
  32. ;InstSystem 0= Dont' Install EGS-System  1=Install EGS-System
  33. ;EGSSysDir  Path for Installation EGS-System
  34. ;Monitor    0=One Monitor 1=Two Monitors
  35. ;Direction  TOP LEFT Right Bottom(=3)
  36. ;EGSPARTS   EGS-System, EGS-Prefs, EGS-Tools, a.s.o. ....
  37.  
  38. (@language german)
  39.  
  40. ;*************************
  41.  
  42.  ;**** Check Amiga for processor
  43. (set CpuVer (database "cpu"))
  44.  
  45. ;*** First thing to do anyway - is this system at least running 2.04 ?
  46. (if
  47.     (< (/ (getversion) 65536) 37)
  48.     (
  49.         (abort "Sie benötigen mindestens AmigaOS 2.04, um die EGS-Software installieren zu können.")
  50.     )
  51. )
  52.  
  53. (if (exists "EGS:" (noreq))
  54.     (if (exists "EGS:Config" (noreq))
  55.         (set InstallEGS
  56.                 (askbool
  57.                   (prompt "\n\n\n"
  58.                           "In auf Ihrer Festplatte ist das EGS-System 6.2 von GVP schon installiert !"
  59.                           "Möchten Sie trotzdem das EGS-System installieren ?")
  60.                     (help "Falls Sie ein EGS-System installiert haben, welches nicht älter als "
  61.                           "April 1994 ist, brauchen Sie das EGS-System nicht mehr installieren !")
  62.                     (default 1)
  63.                 )
  64.         )
  65.     )
  66. )
  67.  
  68. (if (OR (= 0 (exists "EGS:Config" (noreq))) InstallEGS) (
  69.     (message  "\n\n\n"
  70.               "Leider ist noch keine EGS-System 6.2x in Ihrem System vorhanden ! \n"
  71.               "Es wird jetzt mit der Installation des EGS-System 6.2x begonnen !")
  72.  
  73.  
  74. ;*** Now, let's check for the very old EGS system that resided in libs:
  75. ;*** If it exists, it should really be removed - otherwise it might cause lots
  76. ;*** of trouble for the user.
  77.  
  78. (if (= 0 (exists "EGS:" (noreq)))
  79.     (if (exists "libs:egs.library")
  80.     (
  81.         (set InstSystem
  82.             (askbool
  83.                    (prompt "Es wurde die 'egs.library' im 'LIBS:'-Verzeichnis gefunden!\n"
  84.                            "Es scheint, als wäre bereits ein altes EGS-System "
  85.                            "auf Ihrem Rechner installiert.\n\nWARNUNG: Dieses alte EGS-System wird "
  86.                            "jetzt gelöscht, um Versionskonflikten vorzubeugen.")
  87.                     (help  "In Ihrem System wurde eine (alte) 'egs.library' in 'LIBS:' gefunden. "
  88.                            "Dies kann zu Kollisionen der verschiedenen Versionen der Bibliotheken "
  89.                            "führen; es ist darum dringend anzuraten, die alten Bibliotheken zu löschen.")
  90.                        (default 1)
  91.              )
  92.         )
  93.         (if (= 0 InstSystem)
  94.         (
  95.             (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  96.                       "Sie können den Installer neu starten, nachdem Sie "
  97.                       "von Ihrer EGS-Software ein Backup gemacht haben.")
  98.             (exit (quiet))
  99.         )
  100.         )
  101.         (if (= 1 InstSystem)
  102.         (
  103.             (delete "libs:egs.library")
  104.             (delete "libs:egsblit.library")
  105.             (delete "libs:egsintui.library")
  106.             (delete "libs:egsgfx.library")
  107.             (delete "libs:egsrequest.library")
  108.             (delete "libs:gbrequest.library")           ;*** old name for egsrequest
  109.             (delete "libs:egslayers.library")
  110.             (delete "libs:egs_r3d2.library")
  111.             (delete "libs:egsgadbox.library")
  112.             (run "delete libs:egb all")
  113.         )
  114.         )
  115.     )
  116.     )
  117. )
  118.  
  119. ;*** now, check for the newer version of EGS with an EGS: assignment
  120.  
  121. (if (exists "EGS:" (noreq))
  122. (
  123.     (set oldfound 1)
  124.     (set InstSystem
  125.         (askbool
  126.         (prompt "Es wurde das logische Gerät 'EGS:' in Ihrem System gefunden.\n"
  127.                 "Es scheint, als wäre bereits eine (ältere ?) EGS-Version in Ihrem System vorhanden.\n\n"
  128.                 "Wollen Sie das neue EGS-System trotzdem installieren?\n\n"
  129.                 "WARNUNG: Das bereits existierende EGS-System "
  130.                 "(einschließlich Libraries und Voreinstellungen "
  131.                 "in Ihrem ENVARC:-Verzeichnis) wird dabei überschrieben!")
  132.  
  133.         (help "In Ihrem System wurde ein logisches Gerät mit dem Namen 'EGS' entdeckt.\n"
  134.               "Das EGS-System nutzt das selbe Gerät, so daß anzunehmen ist, "
  135.               "daß Sie das EGS-System eventuell bereits installiert hatten.")
  136.         (default 1)
  137.             )
  138.     )
  139.     (if (= 0 InstSystem)
  140.     (
  141.         (message  "Die alte existierende EGS-Software wurde nicht verändert! "
  142.                   "Sie können den Installer neustarten, nachdem Sie "
  143.                   "von Ihrer EGS-Software ein Backup gemacht haben.")
  144.         (exit (quiet))
  145.     )
  146.     )
  147. )
  148. ; else...install for sure
  149.     (
  150.         (set InstSystem 1)
  151.         (set oldfound 0)
  152.     )
  153. )
  154.  
  155.  
  156. ;*** if an EGS: assignment did exist, the user might want to backup his
  157. ;*** self-created monitor definitions and prefs first...
  158.  
  159. (if (= oldfound 1)
  160.     (
  161.         (set backupold
  162.             (askbool
  163.                 (prompt "Wollen Sie, daß von den Monitor-Definitionen und "
  164.                         "Voreinstellungen Ihrer alten EGS-Installation eine "
  165.                         "Sicherheitskopie gemacht wird, bevor das neue System "
  166.                         "installiert wird ?")
  167.  
  168.                 (help "Sie haben möglicherweise bei Ihrer alten EGS-Installation "
  169.                       "selber Monitor-Definitionen erzeugt oder die Voreinstellungen "
  170.                       "(Farben, Bildschirmmodus) verändert - da durch die neue "
  171.                       "Installation diese alten Dateien überschrieben werden, können "
  172.                       "Sie sich vor der Neuinstallation eine Sicherheitskopie der "
  173.                       "alten Dateien anlegen lassen.")
  174.                 (default 1)
  175.              )
  176.         )
  177.     )
  178.     ; else...
  179.     (set backupold 0)
  180. )
  181.  
  182. ;*** if the user is a novice, we will always make a backup of his prefs..
  183. (if (= oldfound 1)
  184.     (if (= @user-level 0)
  185.         (set backupold 1)
  186.     )
  187. )
  188.  
  189. ;*** Selection of EGS-System-drawer ***
  190.  
  191. (if (= 1 InstSystem)
  192. (
  193.     (set EGSSysDir
  194.         (askdir
  195.         (prompt "Bitte wählen Sie ein Verzeichnis, in das der "
  196.             "EGS-System-Ordner installiert werden kann. "
  197.             "Bedenken Sie: der Installer erzeugt darin den EGS-Ordner!")
  198.  
  199.     (help   "Hier wählen Sie das Verzeichnis, in das der EGS-System-"
  200.             "Ordner kopiert wird. "
  201.             "Sie müssen KEINEN neuen Ordner anlegen! Dieser wird "
  202.             "automatisch in dem gewählten Verzeichnis unter dem Namen\n"
  203.             "'EGS' erzeugt.\n\n"
  204.             @askdir-help)
  205.  
  206.         (default "SYS:")
  207.         )
  208.     )
  209. )
  210. )
  211.  
  212. (set @default-dest EGSSysDir)
  213.  
  214. ;*** create EGS top level directory
  215. (makedir (tackon EGSSysDir "EGS")
  216.     (prompt  "Erzeuge EGS-System Software-Verzeichnis.")
  217.     (help    "Jetzt wird das Hauptverzeichnis für die EGS-Systemsoftware angelegt. ")
  218.     (infos)
  219.     (confirm "expert")
  220. )
  221.  
  222. ;*** now we can make a backup copy of the old settings, if the user wishes so
  223. ;*** (the novice user always wishes it - although he doesn't know :^)
  224.  
  225. (if (= backupold 1)
  226.     (
  227.         ;*** first, create subdirectories for the old stuff..
  228.         (makedir (tackon EGSSysDir "EGS/Backup")
  229.             (infos)
  230.             (prompt "Erzeuge Verzeichnisse für Backup alter Einstellungen")
  231.             (help "Es werden jetzt unter dem EGS-Hauptverzeichnis die Verzeichnisse "
  232.                   "'Backup/envarc' und 'Backup/monitors' angelegt, in denen Sicherheitskopien "
  233.                   "Ihrer alten Monitordefinitionen und Voreinstellungen abgespeichert "
  234.                   "werden.")
  235.         )
  236.         (makedir (tackon EGSSysDir "EGS/Backup/envarc")
  237.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/envarc") "'")
  238.         )
  239.         (makedir (tackon EGSSysDir "EGS/Backup/envarc/egs")
  240.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/envarc/egs") "'")
  241.         )
  242.         (makedir (tackon EGSSysDir "EGS/Backup/monitors")
  243.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/monitors") "'")
  244.         )
  245.         (makedir (tackon EGSSysDir "EGS/Backup/config")
  246.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/config") "'")
  247.         )
  248.         (makedir (tackon EGSSysDir "EGS/Backup/Startup")
  249.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/Startup") "'")
  250.         )
  251.         (makedir (tackon EGSSysDir "EGS/Backup/s")
  252.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/s") "'")
  253.         )
  254.         (makedir (tackon EGSSysDir "EGS/Backup/Presets")
  255.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/Presets") "'")
  256.         )
  257.         (makedir (tackon EGSSysDir "EGS/Backup/Presets/egs")
  258.             (prompt "Erzeuge '" (tackon EGSSysDir "EGS/Backup/Presets/egs") "'")
  259.         )
  260.  
  261. (if (= 2 (exists "EnvArc:EGS" (noreq)))
  262.         (copyfiles
  263.             (prompt "Kopiere alte ENVARC:-Einstellungen")
  264.             (confirm "expert")
  265.             (source "envarc:egs")
  266.             (dest (tackon EGSSysDir "EGS/Backup/envarc/egs"))
  267.             (all)
  268.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  269.                   "ENVARC:-Einstellungen gemacht.")
  270.         )
  271. )
  272. (if (= 2 (exists "SYS:Presets/EGS" (noreq)))
  273.        (copyfiles
  274.             (prompt "Kopiere alte Presets-Einstellungen")
  275.             (confirm "expert")
  276.             (source "Sys:Presets/egs")
  277.             (dest (tackon EGSSysDir "EGS/Backup/Presets/egs"))
  278.             (all)
  279.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  280.                   "Presets-Einstellungen gemacht.")
  281.         )
  282. )
  283. (if (= 2 (exists "EGS:monitors" (noreq)))
  284.         (copyfiles
  285.             (prompt "Kopiere alte Monitor-Definitionen")
  286.             (confirm "expert")
  287.             (source "EGS:monitors")
  288.             (dest (tackon EGSSysDir "EGS/Backup/monitors"))
  289.             (all)
  290.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  291.                   "Monitor-Definitionen gemacht.")
  292.         )
  293. )
  294. (if (= 2 (exists "EGS:config" (noreq)))
  295.         (copyfiles
  296.             (prompt "Kopiere alte EGS-Config Dateien")
  297.             (confirm "expert")
  298.             (source "EGS:Config")
  299.             (dest (tackon EGSSysDir "EGS/Backup/Config"))
  300.             (all)
  301.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  302.                   "EGS-Config Dateien gemacht.")
  303.         )
  304. )
  305.  
  306. (if (= 2 (exists "EGS:Startup" (noreq)))
  307.         (copyfiles
  308.             (prompt "Kopiere alte EGS-Startup Dateien")
  309.             (confirm "expert")
  310.             (source "EGS:Startup")
  311.             (dest (tackon EGSSysDir "EGS/Backup/Startup"))
  312.             (all)
  313.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  314.                   "EGS-Startup Dateien gemacht.")
  315.         )
  316. )
  317.  
  318. (if (= 2 (exists "EGS:S" (noreq)))
  319.         (copyfiles
  320.             (prompt "Kopiere alte EGS-S Dateien")
  321.             (confirm "expert")
  322.             (source "EGS:s")
  323.             (dest (tackon EGSSysDir "EGS/Backup/s"))
  324.             (all)
  325.             (help "In diesem Schritt wird eine Sicherheitskopie der alten "
  326.                   "EGS-S Dateien gemacht.")
  327.         )
  328. )
  329.  
  330.     )
  331. )
  332.  
  333. ;*** the following operation should be confirmed by ANY type of user, so we set
  334. ;*** him to expert user for a short moment...
  335. ;*** This step deinstalls the old EGS system software package
  336.  
  337. (set olduserlevel @user-level)
  338. (set @user-level 2)
  339.  
  340. (if (= oldfound 1)
  341.     (
  342.         (set DeleteOldEGS
  343.             (askbool
  344.                 (prompt "ACHTUNG: Im nächsten Schritt wird Ihre gesamte alte EGS-Installation "
  345.                         "gelöscht. Dies ist notwendig, da sich der Aufbau von EGS geändert hat."
  346.                         "\nFalls Sie im Verzeichnis EGS: selber weitere Software installiert "
  347.                         "haben (außer der, die bei Ihrem EGS-Grafikkarte beilag), so sollten "
  348.                         "Sie die Installation jetzt abbrechen und diese Software sichern.\n"
  349.                         "Information: Das neue EGS-System ersetzt das alte vollständig.\n"
  350.                         "\nWollen Sie, daß jetzt die GESAMTE alte EGS-Installation gelöscht "
  351.                         "wird ?")
  352.                 (help "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
  353.                         "abbrechen, um möglicherweise selbst in EGS: installierte Software "
  354.                         "zu sichern.")
  355.                 (choices "Ja" "Nein")
  356.                 (default 1)
  357.             )
  358.         )
  359.  
  360.  
  361.         (if (= DeleteOldEGS 0)
  362.             (abort ("Die Installation wurde abgebrochen."))
  363.  
  364.             ; else...
  365.             (
  366.                 ; first, remove the EGS:libs assignment
  367.                 (run ("c:assign libs: EGS:libs remove"))
  368.                 ; next, remove the main EGS: assignment (but copy it first for the delete command)
  369.                 (set oldegspath (expandpath "EGS:"))
  370.                 ; and now, the really dangerous thing..
  371.                 (set retcode (+ retcode (run "c:delete EGS:blanker all force")))
  372.                 (set retcode (+ retcode (run "c:delete EGS:defaults all ")))
  373.                 (set retcode (+ retcode (run "c:delete EGS:c all force")))
  374.                 (set retcode (+ retcode (run "c:delete EGS:Config#? all ")))
  375.                 (set retcode (+ retcode (run "c:delete EGS:Startup#? all ")))
  376.                 (set retcode (+ retcode (run "c:delete EGS:Storage#? all ")))
  377.                 (set retcode (+ retcode (run "c:delete EGS:driver all force")))
  378.                 (set retcode (+ retcode (run "c:delete EGS:egsclasses all force")))
  379.                 (set retcode (+ retcode (run "c:delete EGS:games all force")))
  380.                 (set retcode (+ retcode (run "c:delete EGS:l all force")))
  381. ;                (set retcode (+ retcode (run "c:delete EGS:libs all force")))
  382.                 (delete "EGS:libs/egs.library")
  383.                 (delete "EGS:libs/egsblit.library")
  384.                 (delete "EGS:libs/egsintui.library")
  385.                 (delete "EGS:libs/egsgfx.library")
  386.                 (delete "EGS:libs/egsrequest.library")
  387.                 (delete "EGS:libs/gbrequest.library")           ;*** old name for egsrequest
  388.                 (delete "EGS:libs/egslayers.library")
  389.                 (delete "EGS:libs/egs_r3d2.library")
  390.                 (delete "EGS:libs/egsgadbox.library")
  391.                 (set retcode (+ retcode (run "c:delete EGS:libs/egb all force")))
  392.  
  393.                 (set retcode (+ retcode (run "c:delete EGS:monitors all force")))
  394.                 (set retcode (+ retcode (run "c:delete EGS:s all force")))
  395.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Paint#? all ")))
  396.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Hooks#? all ")))
  397.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Prefs#? all ")))
  398.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Extras#? all ")))
  399.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Pictures#? all ")))
  400.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Tools#? all ")))
  401.                 (set retcode (+ retcode (run "c:delete EGS:EGS-Utilities#? all ")))
  402.  
  403.                 ;Delete EGS-WB-Startup-Stuff
  404.                 (set retcode (+ retcode (run "c:delete SYS:WBStartup/EGS#?")))
  405.                 (set retcode (+ retcode (run "c:delete SYS:WBStartup/#?EGS#?")))
  406.                 (makeassign ("EGS") )
  407.                 (if (<> retcode 0)
  408.                     (message "Achtung !\nEs konnte nicht das gesamte alte EGS-System "
  409.                              "de-installiert werden. Der Grund dafür können von Ihnen "
  410.                              "selbst erzeugte Suchpfade sein. Bitte entfernen Sie die "
  411.                              "restlichen Dateien (unter '" oldegspath "') von Hand.")
  412.                 )
  413.             )
  414.         )
  415.     )
  416. )
  417.  
  418. ;*** Ask choices for application stuff ***
  419. ;***
  420.  
  421. (set BASIC 0)
  422. (set PREFS 1)
  423. (set UTILS 2)
  424. (set EXTRA 3)
  425. (set PICS  4)
  426. (set HOOKS 5)
  427. (set PAINT 6)
  428. (set RDISK 7)
  429.  
  430. (set EGSPARTS
  431.     (askoptions
  432.         (prompt "Welche Programme sollen installiert werden?")
  433.         (help
  434.         "EGS-Basics      - EGS Treiber für Amiga, EGS, Bitmaps\n"
  435.         "                  interne Tools und Programme \n"
  436.         "                  EGS-Basics > muß< installiert werden !\n"
  437.         "EGS-Prefs       - Preferences nötig für das EGS-System.\n"
  438.         "EGS-Utilities   - Utilities und Tools für EGS.\n"
  439.         "EGS-Pictures    - Zwei 24-Bit Bilder.\n"
  440.         "EGS-Hooks       - Bildschirm -Hintergründe.\n"
  441.         "\n"
  442.         "\n"
  443.         "\n"
  444.         "\n\n\n\n"
  445.         "EGS-Paint       - 24-Bit Paint Programm.\n"
  446.         "                  Das Program is speziell für \n"
  447.         "                  die Spectrum erstellt worden.\n"
  448.         "EGS-RecoverDisk - Erstellt eine EGS Recovery disk.\n"
  449.         "                  Falls ein unbrauchbare Bldschirm\n"
  450.         "                  abgespeichert wurde, kann die Diskette \n"
  451.         "                  für das Wiederherstellen des \n"
  452.         "                  Bildschrimmodi benutzt werden\n"
  453.         "                  Bitte schlagen Sie im Handbuch\n"
  454.         "                  für mehr information nach."
  455.         "\n\n" @askoptions-help)
  456.       (choices
  457.                "EGS-Basics           1200K"
  458.                "EGS-Prefs             532K"
  459.                "EGS-Utilities/Tools   300K"
  460.                "EGS-Extras           1100K"
  461.                "EGS-Pictures          930K"
  462.                "EGS-Hooks             160K"
  463.                "EGS-Paint             250K"
  464.                "EGS-RecoverDisk       1 Disk")
  465.       (default 255)
  466. ))
  467.  
  468.  
  469. (if (= EGSPARTS 0)
  470.     (
  471.        (abort "Sie haben keine Option zum Installieren der "
  472.               "EGS-Software ausgewählt ! Bei einem Versehen "
  473.               "kann die Installation wiederholen, indem Sie das "
  474.               "Installationsskript nochmals aufrufen !")
  475.     )
  476. )
  477. ;**************** Now the installation itself begins ******************
  478.  
  479.  
  480. ;*** Create directory for NOVICE user ***
  481.  
  482. (if (= 0 @user-level)
  483.     (
  484.         (set Monitor 0)
  485.         (set EGSPARTS 255)
  486.         (set neededspace 6000000)
  487.         (set EGSSysDir "SYS:")
  488.     )
  489. )
  490.  
  491. ; *** Enough harddisk space left ??
  492.  
  493. (message "\n\nSoll jetzt mit der eigentlichen Installation begonnen werden ?\n\n"
  494.          "Es sind dafür mindestens 2 MByte für die EGS-Systemsoftware "
  495.          "erforderlich. Für eine komplette Installation der gesamten Software "
  496.          "werden aber bis zu 6 MByte auf dem angegebenen Datenträger benötigt.")
  497.  
  498. (if (AND (<> target "RAM:") (<> target "Ram:") (<> target "ram:"))(
  499.     (set diskfree (getdiskspace EGSSysDir))
  500.     (set neededspace 0)
  501.     (if (in EGSPARTS BASIC)  (set neededspace (+ neededspace 1200000)))
  502.     (if (in EGSPARTS PREFS)  (set neededspace (+ neededspace 532000)))
  503.     (if (in EGSPARTS UTILS)  (set neededspace (+ neededspace 300000)))
  504.     (if (in EGSPARTS EXTRA)  (set neededspace (+ neededspace 1100000)))
  505.     (if (in EGSPARTS PICS)   (set neededspace (+ neededspace 930000)))
  506.     (if (in EGSPARTS HOOKS)  (set neededspace (+ neededspace 160000)))
  507.     (if (in EGSPARTS PAINT)  (set neededspace (+ neededspace 250000)))
  508.  
  509.     (if (< diskfree neededspace)(
  510.       (set MSG  (cat "Fehler: Sie benötigen für eine minimale Installation der "
  511.                      "EGS-Software mindestens %ld Bytes freien Plattenplatz. Soviel Platz "
  512.                      "ist auf der angegebenen Festplatte/Partition %s aber anscheinend nicht mehr "
  513.                      "frei. \n" ))
  514.       (abort (MSG neededspace EGSSysDir) )
  515.     ))
  516. ))
  517.                                            ;*** Test sys: Space
  518.  
  519. (if (in EGSPARTS BASIC)(
  520.     (set diskfree (getdiskspace "SYS:"))
  521.     (if (<= diskfree 300000)(
  522.          (set MSG
  523.               (cat "Nicht genug Festplattenspeicher frei !\n"
  524.                    "Es ist ein  Minimum von %d KBytes auf der\n"
  525.                    "Festplatte %s nötig, um alle ausgewählten \n"
  526.                    "Programme zu installieren ! \n" ))
  527.       (abort (MSG diskfree "SYS:") )
  528.     ))
  529. ))
  530.  
  531. ;restore old user level
  532. (set @user-level olduserlevel)
  533.  
  534. ;*** That's it ! We have (more or less sucessfully) de-installed the old system,
  535. ;*** now let the new one go in...
  536.  
  537. ;*** Ask user to insert disk 1 ***
  538. (askdisk
  539.     (prompt "Bitte legen Sie " Disk1 " in ein beliebiges Laufwerk...")
  540.     (help @askdisk-help)
  541.     (dest Disk1)
  542. )
  543.  
  544. ;*** Copy LHARC to RAM ***
  545. (copyfiles
  546.     (confirm "expert")
  547.     (prompt  "Kopiere Dateien nach T:.")
  548.     (source  Disk1:)
  549.     (choices "bin" "Storage" "Monitors" "driver")
  550.     (dest    "t:")
  551.     (help    "Es werden für die Installation von EGS Programme"
  552.              "für das Entpacken der LHA-Files ins Verzeichnis"
  553.              "T: kopiert !")
  554. )
  555.  
  556. ;*** Finally, remove the old and now obsolete s:startup-Startup
  557.  
  558. (if (= oldfound 1)(
  559.     (startup "EGS-System"
  560.         (prompt "Alte EGS-spezifische Befehle aus \"S:startup-startup\" wieder austragen. "
  561.                 "Achtung: falls Sie die alten EGS-Spezifischen EGS-Befehle NICHT in Ihrer "
  562.                 " \"startup-sequence\" haben müssen Sie diese von Hand entfernen !")
  563.         (help "Eventuelle alte Angaben bezüglich EGS in Ihrer Datei \"S:user-startup\" müssen "
  564.               "wieder entfernt werden, da sie jetzt an anderer Stelle ausgeführt werden.\n"
  565.               "Durch diese Operation werden andere Befehle in Ihrer \"S:startup-startup\"-Datei "
  566.               "nicht verändert.")
  567.         (command (""))
  568.     )
  569.  
  570.     (set hjob "t:bin/DeInstSS")  ;remove EGS-Commands
  571.     (run hjob)
  572. ))
  573.  
  574. ;*** check version (where is "monitors" ? SYS: (2.0) or DEVS: (2.1 && >) ?)
  575.  
  576. (set ver (getversion "libs:version.library") )
  577. (set osver (/ Ver 65536))
  578. ; on 2.1 and above systems there is always a DEVS:Monitors directory
  579.  
  580. (if (exists "DEVS:Monitors" (noreq))(
  581.     (set MonitorDest "DEVS:Monitors" )
  582.     (copyfiles
  583.         (prompt  "Kopiere PAL-Monitor files nach Devs:Monitors! ")
  584.         (source  "T:bin/PAL")
  585.         (dest    "DEVS:Monitors")
  586.         (infos)
  587.         (help    "Es wird jetzt eine Monitordatei nach DEVS:Monitors kopiert.")
  588.     )
  589.     (copyfiles
  590.         (prompt  "Kopiere NTSC-Monitor files nach Devs:Monitors! ")
  591.         (source  "T:bin/NTSC")
  592.         (dest    "DEVS:Monitors")
  593.         (infos)
  594.         (help    "Es wird jetzt eine Monitordatei nach DEVS:Monitors kopiert.")
  595.     )
  596. ))
  597.  
  598. ; else, on 2.0, there should be a SYS:Monitors; if there isn't, create one
  599. (if (AND (exists "SYS:Monitors" (noreq)) (NOT (exists "DEVS:Monitors" (noreq))))(
  600.         (set MonitorDest "SYS:Monitors")
  601.         (copyfiles
  602.             (prompt  "Kopiere Mode_Names nach SYS:WBSTartup! ")
  603.             (source  "T:bin/Mode_names.info")
  604.             (dest    "SYS:WBSTartup")
  605.             (help    "Es wird jetzt eine Monitordatei nachSYS:WBSTartup kopiert.")
  606.         )
  607.  
  608.     )
  609. )
  610.  
  611. ;*** put together the EGS-Monitor file that goes into the monitor directory
  612. (If (in EGSPARTS BASIC)
  613.     (
  614.         (textfile
  615.             (prompt "Es wird das EGS-Skript zum Starten des EGS-System "
  616.                     "aus dem devs:monitors Verzeichnis erstellt.")
  617.             (dest "t:EGS")
  618.             (confirm "expert")
  619.             (append "; \n")
  620.             (append "; $VER: EGS-MonitorScript 2.0 (28.04.1994) by MvK\n")
  621.             (append "; \n")
  622.             (append "IF NOT $EGSEXISTS EQ TRUE \n")
  623.             (append "                  Assign EGS: ")
  624.             (append (tackon EGSSysDir "EGS"))
  625.             (append "\n")
  626.             (append "                  Assign Libs: EGS:Libs ADD")
  627.             (append "\n")
  628.             (append "                  Stack 20000")
  629.         ;    (append (tackon EGSSysDir "EGS"))
  630.         ;    (append "libs add")
  631.             (append "\n")
  632.             (include "t:bin/EGS")
  633.             (help   "Es wird das EGS-Skript zum Starten des EGS-System "
  634.                     "aus dem devs:monitors Verzeichnis erstellt.")
  635.         )
  636.  
  637.         ;*** copy the EGS-Monitor file to SYS:\DEVS:Monitors
  638.         (copyfiles
  639.             (prompt  "Kopiere Monitordatei T:EGS nach " MonitorDest)
  640.             (source  "T:EGS")
  641.             (dest     MonitorDest)
  642.             (help    "Es wird jetzt eine Monitordatei in SYS:monitors (oder DEVS:monitors) "
  643.                      "kopiert.")
  644.         )
  645.  
  646.         ;*** protect +s the EGS-Monitor file
  647. ;        (message  MonitorDest "EGS")
  648.         (protect (tackon MonitorDest "EGS") "+s")
  649.  
  650.         ;*** copy the accompanying icon to SYS:/DEVS:Monitors
  651.         (copyfiles
  652.             (prompt   "Kopiere Piktogramm EGS.info nach " MonitorDest)
  653. ;            (confirm  "expert")
  654.             (source   "t:bin/EGS.info")
  655.             (dest     MonitorDest)
  656.             (help     "Zu der gerade kopierten Monitordatei wird ein Piktogramm kopiert.")
  657.         )
  658.  
  659.         ;*** copy 040.library
  660.        (If (= CpuVer "68040")
  661.            (copylib
  662.                 (prompt   "Kopiere 68040.library nach 'libs:'. ")
  663.                 (confirm  "expert")
  664.                 (source   "t:bin/68040.library")
  665.                 (dest     "libs:")
  666.                 (help     "Es wird die 68040.library mit der Version "
  667.                           "37.30 in das Verzeichnis 'libs:' kopiert !")
  668.            )
  669.        )
  670.  
  671.  
  672.        (copylib
  673.             (prompt   "Kopiere Setpatch nach 'c:'. ")
  674.             (confirm  "expert")
  675.             (source   "t:bin/SetPatch")
  676.             (dest     "c:")
  677.             (help     "Es wird das Programm Setpatch mit der Version "
  678.                       "40.15 in das Verzeichnis 'c:' kopiert !")
  679.        )
  680. ))
  681.  
  682. ;***
  683. ;***  FPU
  684. ;***
  685.  
  686. (If (in EGSPARTS BASIC)
  687.     (set FPU
  688.           (askchoice
  689.             (prompt "Besitzt Ihr Rechner eine FPU (Floating Point Unit)?")
  690.             (help   "Es gibt verschiedene Turbo-Karten sowie AMIGA-Rechner "
  691.                     "mit einer 68000 CPU ohne FPU. Zum Beispiel besitzt "
  692.                     "der AMIGA 4000/030 im Grundausbau keine FPU ! "
  693.                     "In solch einem Fall wählen Sie bitte 'Amiga "
  694.                     "ohne FPU' aus !")
  695.  
  696.             (choices "Amiga ohne FPU"
  697.                      "Amiga mit FPU")
  698.             (default 0)
  699.               )
  700.     )
  701. )
  702.  
  703. ;***
  704. ;***  Unarchive Disk-Files EGSDrLibs
  705. ;***
  706.  
  707. (If (AND (in EGSPARTS BASIC) (<> CpuVer "68000"))
  708.     (
  709.      ;*** Ask user to insert disk 2 ***
  710.      (askdisk
  711.          (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  712.          (help @askdisk-help)
  713.          (dest Disk2)
  714.      )
  715.  
  716.         (if (= @user-level 2)
  717.             (
  718.                 (set ReallyInst
  719.                     (askbool
  720.                         (prompt "Archiv 'EGSDrLibs.lha' nach " EGSSysDir " entpacken ?")
  721.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  722.                             "Installation von 'EGS' überspringen.")
  723.                         (choices "Ja" "Nein")
  724.                     )
  725.                 )
  726.             )
  727.             (set ReallyInst 1)
  728.         )
  729.  
  730.         (if (= ReallyInst 1)
  731.             (
  732. ;**** EGSDrLibs
  733.                 (set @execute-dir EGSSysDir)
  734.                 (working "Installiere EGS-Drivers & EGS-Libs ...")
  735.                 (if (= @user-level 2)
  736.                     (set hjob (cat "t:bin/lz >CON:0/0/640/100/CLOSE/EGS_Unarchive -2 -m e " Disk2: "EGSDrLibs"))
  737.                     (set hjob (cat "t:bin/lz -2 -m e " Disk2: "EGSDrLibs"))
  738.                 )
  739.  
  740.                 (set lzrc (run hjob
  741.                           (prompt "Entpacke Archiv 'EGSDrLibs.lha' nach" EGSSysDir ".")
  742.                           )
  743.                 )
  744.  
  745.                 (if (<> lzrc 0)
  746.                     (message "Fehler beim Dekomprimieren von EGSDrLibs!")
  747.                 )
  748.             )
  749.          )
  750.     )
  751. )
  752.  
  753. ;*** Make EGS: Assign
  754.  
  755. (set DIR (tackon EGSSysDir "EGS"))
  756. (makeassign "EGS" DIR)
  757.  
  758. ;***
  759. ;***  Unarchive Blanker for FPU
  760. ;***
  761.  
  762. (If (AND (in EGSPARTS BASIC) (= FPU 1))
  763.     (
  764.      ;*** Ask user to insert disk 2 ***
  765.      (askdisk
  766.          (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  767.          (help @askdisk-help)
  768.          (dest Disk2)
  769.      )
  770.         (if (= @user-level 2)
  771.             (
  772.                 (set ReallyInst
  773.                     (askbool
  774.                         (prompt "Archiv 'EGSBlanker.lha' nach " EGSSysDir " entpacken ?")
  775.                         (help   "Wenn Sie wollen, können Sie an dieser Stelle die "
  776.                                 "Installation von 'EGS' überspringen.")
  777.                         (choices "Ja" "Nein")
  778.                     )
  779.                 )
  780.             )
  781.             (set ReallyInst 1)
  782.         )
  783.  
  784.         (if (= ReallyInst 1)
  785.             (
  786. ;**** EGSBlanker
  787.                 (set @execute-dir EGSSysDir)
  788.                 (working "Installiere EGS-Blanker (FPU) ...")
  789.                 (if (= @user-level 2)
  790.                     (set hjob (cat "t:bin/lz >CON:0/0/640/100/CLOSE/EGS_Unarchive -2 -m e " Disk2: "EGSBlanker"))
  791.                     (set hjob (cat "t:bin/lz -2 -m e " Disk2: "EGSBlanker"))
  792.                 )
  793.  
  794.                 (set lzrc (run hjob
  795.                           (prompt "Entpacke Archiv 'EGSBlanker.lha' nach" EGSSysDir ".")
  796.                           )
  797.                 )
  798.  
  799.                 (if (<> lzrc 0)
  800.                     (message "Fehler beim Dekomprimieren von EGSBlanker!")
  801.                 )
  802.             )
  803.          )
  804.     )
  805. )
  806.  
  807. ;***
  808. ;***  Unarchive EGS-Sys
  809. ;***
  810.  
  811. (If (in EGSPARTS BASIC)
  812.     (
  813.  
  814.      ;*** Ask user to insert disk 2 ***
  815.      (askdisk
  816.          (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  817.          (help @askdisk-help)
  818.          (dest Disk2)
  819.      )
  820.  
  821.      (makedir (tackon EGSSysDir "EGS/Config")
  822.          (prompt  "Erzeuge EGS-Config Verzeichnis.")
  823.          (help    "Jetzt wird das Konfiguarationsverzeichnis für die EGS-Systemsoftware angelegt. ")
  824.          (infos)
  825.          (confirm "expert")
  826.      )
  827.  
  828.      (makedir (tackon EGSSysDir "EGS/Storage")
  829.          (prompt  "Erzeuge EGS-Storage Verzeichnis.")
  830.          (help    "Jetzt wird das Storageverzeichnis für die EGS-Systemsoftware angelegt. ")
  831.          (infos)
  832.          (confirm "expert")
  833.      )
  834.  
  835.      (makedir (tackon EGSSysDir "EGS/Startup")
  836.          (prompt  "Erzeuge EGS-Startup Verzeichnis.")
  837.          (help    "Jetzt wird das Startuperzeichnis für die EGS-Systemsoftware angelegt. "
  838.                   "In diesem Verzeichnis könne Sie Programme legen die vor dem Einbinden "
  839.                   "des EGS-Systems gestartet werden sollen !")
  840.          (infos)
  841.          (confirm "expert")
  842.      )
  843.  
  844.         (working "Installiere EGS-System (c, monitors, config usw ...)")
  845.  
  846.         (if (= @user-level 2)
  847.             (
  848.                 (set ReallyInst
  849.                     (askbool
  850.                         (prompt "Archiv 'EGSSys.lha' nach " EGSSysDir " entpacken ?")
  851.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  852.                             "Installation von 'EGS' überspringen.")
  853.                         (choices "Ja" "Nein")
  854.                     )
  855.                 )
  856.             )
  857.             (set ReallyInst 1)
  858.         )
  859.  
  860.         (if (= ReallyInst 1)
  861.             (
  862.                 (set @execute-dir EGSSysDir)
  863.                     (if (= @user-level 2)
  864.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk2: "EGSSys"))
  865.                         (set hjob (cat "t:bin/lz -2 -m e " Disk2: "EGSSys"))
  866.                     )
  867.  
  868.                 (set lzrc (run hjob
  869.                                (prompt "Entpacke Archiv 'EGSSys.lha' nach" EGSSysDir ".")
  870.                           )
  871.                 )
  872.                 (if (<> lzrc 0)
  873.                     (message "Fehler beim Dekomprimieren von EGSSys!")
  874.                 )
  875.             )
  876.         )
  877.    )
  878. )
  879.  
  880. ;****
  881. ;**** Unarchive EGSEnv-Archive
  882. ;****
  883. (If (in EGSPARTS BASIC)
  884.     (
  885.  
  886.      ;*** Ask user to insert disk 2 ***
  887.      (askdisk
  888.          (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  889.          (help @askdisk-help)
  890.          (dest Disk2)
  891.      )
  892.  
  893.         (working "Installiere EGS-ENV-Archive ...")
  894.         (if (= @user-level 2)
  895.             (
  896.                 (set ReallyInst
  897.                     (askbool
  898.                         (prompt "Archiv 'EGSENV-Archive.lha' nach Sys:Prefs entpacken ?")
  899.                         (help   "Wenn Sie wollen, können Sie an dieser Stelle die "
  900.                                 "Installation von 'EGS' überspringen.")
  901.                         (choices "Ja" "Nein")
  902.                     )
  903.                 )
  904.             )
  905.             (set ReallyInst 1)
  906.         )
  907.  
  908.         (if (= ReallyInst 1)
  909.             (
  910.                 (set @execute-dir "Sys:Prefs")
  911.                     (if (= @user-level 2)
  912.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk2: "EGSEnv-Archive"))
  913.                         (set hjob (cat "t:bin/lz -2 -m e " Disk2: "EGSEnv-Archive"))
  914.                     )
  915.  
  916.                 (set lzrc (run hjob
  917.                                (prompt "Entpacke Archiv 'EGSENV-Archive.lha' nach" EGSSysDir ".")
  918.                           )
  919.                 )
  920.                 (if (<> lzrc 0)
  921.                     (message "Fehler beim Dekomprimieren von EGSENV-Archive!")
  922.                 )
  923.             )
  924.         )
  925.    )
  926. )
  927. ;****
  928. ;**** Unarchive EGS-Presets
  929. ;****
  930.  
  931. (If (in EGSPARTS BASIC)
  932.     (
  933.  
  934.      ;*** Ask user to insert disk 2 ***
  935.      (askdisk
  936.          (prompt "Bitte legen Sie " Disk2 " in ein beliebiges Laufwerk...")
  937.          (help @askdisk-help)
  938.          (dest Disk2)
  939.      )
  940.  
  941.         (working "Installiere EGS-Presets ...")
  942.         (if (= @user-level 2)
  943.             (
  944.                 (set ReallyInst
  945.                     (askbool
  946.                         (prompt "Archiv 'EGSPresets.lha' nach SYS:Prefs entpacken ?")
  947.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  948.                             "Installation von 'EGS' überspringen.")
  949.                         (choices "Ja" "Nein")
  950.                     )
  951.                 )
  952.             )
  953.             (set ReallyInst 1)
  954.         )
  955.  
  956.         (if (= ReallyInst 1)
  957.             (
  958.                 (set @execute-dir "Sys:Prefs")
  959.                     (if (= @user-level 2)
  960.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk2: "EGSPresets"))
  961.                         (set hjob (cat "t:bin/lz -2 -m e " Disk2: "EGSPresets"))
  962.                     )
  963.  
  964.                 (set lzrc (run hjob
  965.                                (prompt "Entpacke Archiv 'EGSPresets.lha' nach" EGSSysDir ".")
  966.                           )
  967.                 )
  968.                 (if (<> lzrc 0)
  969.                     (message "Fehler beim Dekomprimieren von EGSPresets!")
  970.                 )
  971.             )
  972.         )
  973.    )
  974.  
  975. )
  976.  
  977. ;***
  978. ;***  Unarchive Disk-Files EGSDrLibs
  979. ;***
  980.  
  981. (If (AND (in EGSPARTS BASIC) (= CpuVer "68000"))
  982.     (
  983.      ;*** Ask user to insert disk 3 ***
  984.      (askdisk
  985.          (prompt "Bitte legen Sie " Disk3 " in ein beliebiges Laufwerk...")
  986.          (help @askdisk-help)
  987.          (dest Disk3)
  988.      )
  989.  
  990.         (if (= @user-level 2)
  991.             (
  992.                 (set ReallyInst
  993.                     (askbool
  994.                         (prompt "Archiv 'EGSDrLibs.lha' nach " EGSSysDir " entpacken ?")
  995.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  996.                             "Installation von 'EGS' überspringen.")
  997.                         (choices "Ja" "Nein")
  998.                     )
  999.                 )
  1000.             )
  1001.             (set ReallyInst 1)
  1002.         )
  1003.  
  1004.         (if (= ReallyInst 1)
  1005.             (
  1006. ;**** EGSDrLibs00
  1007.                 (set @execute-dir EGSSysDir)
  1008.                 (working "Installiere EGS-Drivers & EGS-Libs ...")
  1009.                 (if (= @user-level 2)
  1010.                     (set hjob (cat "t:bin/lz >CON:0/0/640/100/CLOSE/EGS_Unarchive -2 -m e " Disk3: "EGSDrLibs00"))
  1011.                     (set hjob (cat "t:bin/lz -2 -m e " Disk3: "EGSDrLibs00"))
  1012.                 )
  1013.  
  1014.                 (set lzrc (run hjob
  1015.                           (prompt "Entpacke Archiv 'EGSDrLibs00.lha' nach" EGSSysDir ".")
  1016.                           )
  1017.                 )
  1018.  
  1019.                 (if (<> lzrc 0)
  1020.                     (message "Fehler beim Dekomprimieren von EGSDrLibs00!")
  1021.                 )
  1022.             )
  1023.          )
  1024.     )
  1025. )
  1026.  
  1027. ;***
  1028. ;***  Unarchive Blanker for no FPU
  1029. ;***
  1030.  
  1031. (If (AND (in EGSPARTS BASIC) (= FPU 0))
  1032.     (
  1033.      ;*** Ask user to insert disk 3 ***
  1034.      (askdisk
  1035.          (prompt "Bitte legen Sie " Disk3 " in ein beliebiges Laufwerk...")
  1036.          (help @askdisk-help)
  1037.          (dest Disk3)
  1038.      )
  1039.         (if (= @user-level 2)
  1040.             (
  1041.                 (set ReallyInst
  1042.                     (askbool
  1043.                         (prompt "Archiv 'EGSBlanker.lha' nach " EGSSysDir " entpacken ?")
  1044.                         (help   "Wenn Sie wollen, können Sie an dieser Stelle die "
  1045.                                 "Installation von 'EGS' überspringen.")
  1046.                         (choices "Ja" "Nein")
  1047.                     )
  1048.                 )
  1049.             )
  1050.             (set ReallyInst 1)
  1051.         )
  1052.  
  1053.         (if (= ReallyInst 1)
  1054.             (
  1055. ;**** EGSBlanker
  1056.                 (set @execute-dir EGSSysDir)
  1057.                 (working "Installiere EGS-Blanker (ohne FPU) ...")
  1058.                 (if (= @user-level 2)
  1059.                     (set hjob (cat "t:bin/lz >CON:0/0/640/100/CLOSE/EGS_Unarchive -2 -m e " Disk3: "EGSBlanker00"))
  1060.                     (set hjob (cat "t:bin/lz -2 -m e " Disk3: "EGSBlanker00"))
  1061.                 )
  1062.  
  1063.                 (set lzrc (run hjob
  1064.                           (prompt "Entpacke Archiv 'EGSBlanker00.lha' nach" EGSSysDir ".")
  1065.                           )
  1066.                 )
  1067.  
  1068.                 (if (<> lzrc 0)
  1069.                     (message "Fehler beim Dekomprimieren von EGSBlanker00!")
  1070.                 )
  1071.             )
  1072.          )
  1073.     )
  1074. )
  1075.  
  1076. ;****
  1077. ;**** Unarchive EGS-Prefs
  1078. ;****
  1079.  
  1080. (If (in EGSPARTS PREFS)
  1081.     (
  1082.  
  1083.      ;*** Ask user to insert disk 3 ***
  1084.      (askdisk
  1085.          (prompt "Bitte legen Sie " Disk3 " in ein beliebiges Laufwerk...")
  1086.          (help @askdisk-help)
  1087.          (dest Disk3)
  1088.      )
  1089.  
  1090.      (makedir (tackon EGSSysDir "EGS/EGS-Prefs")
  1091.          (prompt  "Erzeuge EGS-Prefs Verzeichnis.")
  1092.          (help    "Jetzt wird das Preferences-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1093.          (infos)
  1094.          (confirm "expert")
  1095.      )
  1096.  
  1097.         (working "Installiere EGS-Preferences ...")
  1098.  
  1099.         (if (= @user-level 2)
  1100.             (
  1101.                 (set ReallyInst
  1102.                     (askbool
  1103.                         (prompt "Archiv 'EGSPrefs.lha' nach " EGSSysDir " entpacken ?")
  1104.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1105.                             "Installation von 'EGS' überspringen.")
  1106.                         (choices "Ja" "Nein")
  1107.                     )
  1108.                 )
  1109.             )
  1110.             (set ReallyInst 1)
  1111.         )
  1112.  
  1113.         (if (= ReallyInst 1)
  1114.             (
  1115.                 (set @execute-dir EGSSysDir)
  1116.                     (if (= @user-level 2)
  1117.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk3: "EGSPrefs"))
  1118.                         (set hjob (cat "t:bin/lz -2 -m e " Disk3: "EGSPrefs"))
  1119.                     )
  1120.  
  1121.                 (set lzrc (run hjob
  1122.                                (prompt "Entpacke Archiv 'EGSPrefs.lha' nach" EGSSysDir ".")
  1123.                           )
  1124.                 )
  1125.                 (if (<> lzrc 0)
  1126.                     (message "Fehler beim Dekomprimieren von EGSPrefs!")
  1127.                 )
  1128.             )
  1129.         )
  1130.    )
  1131. )
  1132.  
  1133.  
  1134. ;****
  1135. ;**** Unarchive EGS-Tools
  1136. ;****
  1137.  
  1138. (If (in EGSPARTS UTILS)
  1139.     (
  1140.  
  1141.      ;*** Ask user to insert disk 3 ***
  1142.      (askdisk
  1143.          (prompt "Bitte legen Sie " Disk3 " in ein beliebiges Laufwerk...")
  1144.          (help @askdisk-help)
  1145.          (dest Disk3)
  1146.      )
  1147.  
  1148.      (makedir (tackon EGSSysDir "EGS/EGS-Tools")
  1149.          (prompt  "Erzeuge EGS-Tools Verzeichnis.")
  1150.          (help    "Jetzt wird das Tools-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1151.          (infos)
  1152.          (confirm "expert")
  1153.      )
  1154.  
  1155.         (working "Installiere EGS-Tools ...")
  1156.         (if (= @user-level 2)
  1157.             (
  1158.                 (set ReallyInst
  1159.                     (askbool
  1160.                         (prompt "Archiv 'EGSTools.lha' nach " EGSSysDir " entpacken ?")
  1161.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1162.                             "Installation von 'EGS' überspringen.")
  1163.                         (choices "Ja" "Nein")
  1164.                     )
  1165.                 )
  1166.             )
  1167.             (set ReallyInst 1)
  1168.         )
  1169.  
  1170.         (if (= ReallyInst 1)
  1171.             (
  1172.                 (set @execute-dir EGSSysDir)
  1173.                     (if (= @user-level 2)
  1174.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk3: "EGSTools"))
  1175.                         (set hjob (cat "t:bin/lz -2 -m e " Disk3: "EGSTools"))
  1176.                     )
  1177.  
  1178.                 (set lzrc (run hjob
  1179.                                (prompt "Entpacke Archiv 'EGSTools.lha' nach" EGSSysDir ".")
  1180.                           )
  1181.                 )
  1182.                 (if (<> lzrc 0)
  1183.                     (message "Fehler beim Dekomprimieren von EGSTools!")
  1184.                 )
  1185.             )
  1186.         )
  1187.    )
  1188. )
  1189.  
  1190. ;****
  1191. ;**** Unarchive EGS-Utilities
  1192. ;****
  1193.  
  1194. (If (in EGSPARTS UTILS)
  1195.     (
  1196.  
  1197.      ;*** Ask user to insert disk 4 ***
  1198.      (askdisk
  1199.          (prompt "Bitte legen Sie " Disk4 " in ein beliebiges Laufwerk...")
  1200.          (help @askdisk-help)
  1201.          (dest Disk4)
  1202.      )
  1203.  
  1204.      (makedir (tackon EGSSysDir "EGS/EGS-Utilities")
  1205.          (prompt  "Erzeuge EGS-Utilities Verzeichnis.")
  1206.          (help    "Jetzt wird das Utilities-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1207.          (infos)
  1208.          (confirm "expert")
  1209.      )
  1210.  
  1211.         (working "Installiere EGS-Utilities ...")
  1212.         (if (= @user-level 2)
  1213.             (
  1214.                 (set ReallyInst
  1215.                     (askbool
  1216.                         (prompt "Archiv 'EGSUtilities.lha' nach " EGSSysDir " entpacken ?")
  1217.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1218.                             "Installation von 'EGS' überspringen.")
  1219.                         (choices "Ja" "Nein")
  1220.                     )
  1221.                 )
  1222.             )
  1223.             (set ReallyInst 1)
  1224.         )
  1225.  
  1226.         (if (= ReallyInst 1)
  1227.             (
  1228.                 (set @execute-dir EGSSysDir)
  1229.                     (if (= @user-level 2)
  1230.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk4: "EGSUtilities"))
  1231.                         (set hjob (cat "t:bin/lz -2 -m e " Disk4: "EGSUtilities"))
  1232.                     )
  1233.  
  1234.                 (set lzrc (run hjob
  1235.                                (prompt "Entpacke Archiv 'EGSUtilities.lha' nach" EGSSysDir ".")
  1236.                           )
  1237.                 )
  1238.                 (if (<> lzrc 0)
  1239.                     (message "Fehler beim Dekomprimieren von EGSUtilities!")
  1240.                 )
  1241.             )
  1242.         )
  1243.    )
  1244. )
  1245.  
  1246. ;****
  1247. ;**** Unarchive EGS-Extras
  1248. ;****
  1249.  
  1250. (If (in EGSPARTS EXTRA)
  1251.     (
  1252.  
  1253.      ;*** Ask user to insert disk 4 ***
  1254.      (askdisk
  1255.          (prompt "Bitte legen Sie " Disk4 " in ein beliebiges Laufwerk...")
  1256.          (help @askdisk-help)
  1257.          (dest Disk4)
  1258.      )
  1259.  
  1260.      (makedir (tackon EGSSysDir "EGS/EGS-Extras")
  1261.          (prompt  "Erzeuge EGS-Extras Verzeichnis.")
  1262.          (help    "Jetzt wird das Extras-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1263.          (infos)
  1264.          (confirm "expert")
  1265.      )
  1266.  
  1267.         (working "Installiere EGS-Extras ...")
  1268.         (if (= @user-level 2)
  1269.             (
  1270.                 (set ReallyInst
  1271.                     (askbool
  1272.                         (prompt "Archiv 'EGSExtras.lha' nach " EGSSysDir " entpacken ?")
  1273.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1274.                             "Installation von 'EGS' überspringen.")
  1275.                         (choices "Ja" "Nein")
  1276.                     )
  1277.                 )
  1278.             )
  1279.             (set ReallyInst 1)
  1280.         )
  1281.  
  1282.         (if (= ReallyInst 1)
  1283.             (
  1284.                 (set @execute-dir EGSSysDir)
  1285.                     (if (= @user-level 2)
  1286.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk4: " EGSExtras"))
  1287.                         (set hjob (cat "t:bin/lz -2 -m e " Disk4: "EGSExtras"))
  1288.                     )
  1289.  
  1290.                 (set lzrc (run hjob
  1291.                                (prompt "Entpacke Archiv 'EGSExtras.lha' nach" EGSSysDir ".")
  1292.                           )
  1293.                 )
  1294.                 (if (<> lzrc 0)
  1295.                     (message "Fehler beim Dekomprimieren von EGSExtras!")
  1296.                 )
  1297.             )
  1298.         )
  1299.    )
  1300. )
  1301.  
  1302. ;****
  1303. ;**** Unarchive EGS-Games
  1304. ;****
  1305.  
  1306. (If (in EGSPARTS EXTRA)
  1307.     (
  1308.  
  1309.      ;*** Ask user to insert disk 4 ***
  1310.      (askdisk
  1311.          (prompt "Bitte legen Sie " Disk4 " in ein beliebiges Laufwerk...")
  1312.          (help @askdisk-help)
  1313.          (dest Disk4)
  1314.      )
  1315.  
  1316.         (working "Installiere EGS-Extra (EGS-Game) ...")
  1317.         (if (= @user-level 2)
  1318.             (
  1319.                 (set ReallyInst
  1320.                     (askbool
  1321.                         (prompt "Archiv 'EGSGames.lha' nach " EGSSysDir " entpacken ?")
  1322.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1323.                             "Installation von 'EGS' überspringen.")
  1324.                         (choices "Ja" "Nein")
  1325.                     )
  1326.                 )
  1327.             )
  1328.             (set ReallyInst 1)
  1329.         )
  1330.  
  1331.         (if (= ReallyInst 1)
  1332.             (
  1333.                 (set @execute-dir EGSSysDir)
  1334.                     (if (= @user-level 2)
  1335.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk4: "EGSGames"))
  1336.                         (set hjob (cat "t:bin/lz -2 -m e " Disk4: "EGSGames"))
  1337.                     )
  1338.  
  1339.                 (set lzrc (run hjob
  1340.                                (prompt "Entpacke Archiv 'EGSGames.lha' nach" EGSSysDir ".")
  1341.                           )
  1342.                 )
  1343.                 (if (<> lzrc 0)
  1344.                     (message "Fehler beim Dekomprimieren von EGSGames!")
  1345.                 )
  1346.             )
  1347.         )
  1348.    )
  1349. )
  1350.  
  1351. ;****
  1352. ;**** Unarchive EGS-Paint
  1353. ;****
  1354.  
  1355. (If (in EGSPARTS PAINT)
  1356.     (
  1357.  
  1358.      ;*** Ask user to insert disk 4 ***
  1359.      (askdisk
  1360.          (prompt "Bitte legen Sie " Disk4 " in ein beliebiges Laufwerk...")
  1361.          (help @askdisk-help)
  1362.          (dest Disk4)
  1363.      )
  1364.  
  1365.      (makedir (tackon EGSSysDir "EGS/EGS-Paint")
  1366.          (prompt  "Erzeuge EGS-Paint Verzeichnis.")
  1367.          (help    "Jetzt wird das Paint-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1368.          (infos)
  1369.          (confirm "expert")
  1370.      )
  1371.  
  1372.         (working "Installiere EGS-Paint ...")
  1373.         (if (= @user-level 2)
  1374.             (
  1375.                 (set ReallyInst
  1376.                     (askbool
  1377.                         (prompt "Archiv 'EGSPaint.lha' nach " EGSSysDir " entpacken ?")
  1378.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1379.                             "Installation von 'EGS' überspringen.")
  1380.                         (choices "Ja" "Nein")
  1381.                     )
  1382.                 )
  1383.             )
  1384.             (set ReallyInst 1)
  1385.         )
  1386.  
  1387.         (if (= ReallyInst 1)
  1388.             (
  1389.                 (set @execute-dir EGSSysDir)
  1390.                     (if (= @user-level 2)
  1391.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk4: "EGSPaint"))
  1392.                         (set hjob (cat "t:bin/lz -2 -m e " Disk4: "EGSPaint"))
  1393.                     )
  1394.  
  1395.                 (set lzrc (run hjob
  1396.                                (prompt "Entpacke Archiv 'EGSPaint.lha' nach" EGSSysDir ".")
  1397.                           )
  1398.                 )
  1399.                 (if (<> lzrc 0)
  1400.                     (message "Fehler beim Dekomprimieren von EGSPaint!")
  1401.                 )
  1402.             )
  1403.         )
  1404.    )
  1405. )
  1406.  
  1407. ;****
  1408. ;**** Unarchive EGS-PICS
  1409. ;****
  1410.  
  1411. (If (in EGSPARTS PICS)
  1412.     (
  1413.  
  1414.      ;*** Ask user to insert disk 5 ***
  1415.      (askdisk
  1416.          (prompt "Bitte legen Sie " Disk5 " in ein beliebiges Laufwerk...")
  1417.          (help @askdisk-help)
  1418.          (dest Disk5)
  1419.      )
  1420.  
  1421.      (makedir (tackon EGSSysDir "EGS/EGS-Pictures")
  1422.          (prompt  "Erzeuge EGS-Pictures Verzeichnis.")
  1423.          (help    "Jetzt wird das Pictures-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1424.          (infos)
  1425.          (confirm "expert")
  1426.      )
  1427.  
  1428.         (working "Installiere EGS-Pictures ...")
  1429.         (if (= @user-level 2)
  1430.             (
  1431.                 (set ReallyInst
  1432.                     (askbool
  1433.                         (prompt "Archiv 'EGSPictures.lha' nach " EGSSysDir " entpacken ?")
  1434.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1435.                             "Installation von 'EGS' überspringen.")
  1436.                         (choices "Ja" "Nein")
  1437.                     )
  1438.                 )
  1439.             )
  1440.             (set ReallyInst 1)
  1441.         )
  1442.  
  1443.         (if (= ReallyInst 1)
  1444.             (
  1445.                 (set @execute-dir EGSSysDir)
  1446.                     (if (= @user-level 2)
  1447.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " DISK5: "EGSPictures"))
  1448.                         (set hjob (cat "t:bin/lz -2 -m e " Disk5: "EGSPictures"))
  1449.                     )
  1450.  
  1451.                 (set lzrc (run hjob
  1452.                                (prompt "Entpacke Archiv 'EGSPictures.lha' nach" EGSSysDir ".")
  1453.                           )
  1454.                 )
  1455.                 (if (<> lzrc 0)
  1456.                     (message "Fehler beim Dekomprimieren von EGSPictures!")
  1457.                 )
  1458.             )
  1459.         )
  1460.    )
  1461. )
  1462. ;****
  1463. ;**** Unarchive EGS-Hooks
  1464. ;****
  1465.  
  1466. (If (in EGSPARTS HOOKS)
  1467.     (
  1468.  
  1469.      ;*** Ask user to insert disk 5 ***
  1470.      (askdisk
  1471.          (prompt "Bitte legen Sie " Disk5 " in ein beliebiges Laufwerk...")
  1472.          (help @askdisk-help)
  1473.          (dest Disk5)
  1474.      )
  1475.      (makedir (tackon EGSSysDir "EGS/EGS-Hooks")
  1476.          (prompt  "Erzeuge EGS-Hooks Verzeichnis.")
  1477.          (help    "Jetzt wird das Hooks-Verzeichnis für die EGS-Systemsoftware angelegt. ")
  1478.          (infos)
  1479.          (confirm "expert")
  1480.      )
  1481.  
  1482.  
  1483.         (working "Installiere EGS-Hooks ...")
  1484.         (if (= @user-level 2)
  1485.             (
  1486.                 (set ReallyInst
  1487.                     (askbool
  1488.                         (prompt "Archiv 'EGSHooks.lha' nach " EGSSysDir " entpacken ?")
  1489.                         (help "Wenn Sie wollen, können Sie an dieser Stelle die "
  1490.                             "Installation von 'EGS' überspringen.")
  1491.                         (choices "Ja" "Nein")
  1492.                     )
  1493.                 )
  1494.             )
  1495.             (set ReallyInst 1)
  1496.         )
  1497.  
  1498.         (if (= ReallyInst 1)
  1499.             (
  1500.                 (set @execute-dir EGSSysDir)
  1501.                     (if (= @user-level 2)
  1502.                         (set hjob (cat "t:bin/lz >CON:0/0/640/100/EGS_Unarchive -2 -m e " Disk5: "EGSHooks"))
  1503.                         (set hjob (cat "t:bin/lz -2 -m e " Disk5: "EGSHooks"))
  1504.                     )
  1505.  
  1506.                 (set lzrc (run hjob
  1507.                                (prompt "Entpacke Archiv 'EGSHooks.lha' nach" EGSSysDir ".")
  1508.                           )
  1509.                 )
  1510.                 (if (<> lzrc 0)
  1511.                     (message "Fehler beim Dekomprimieren von EGSHooks!")
  1512.                 )
  1513.             )
  1514.         )
  1515.    )
  1516. )
  1517.  
  1518. (if (in EGSPARTS RDISK)(
  1519.  
  1520. (working "Installiere EGS-RecoverDisks ...")
  1521.  
  1522. (set rd_data   (cat "T:bin/startup-sequence"))
  1523. (set sys_disk  (getassign "sys" 'a'))
  1524. (set sys_env   (cat sys_disk "prefs/env-archive"))
  1525. (set sys_local (cat sys_disk "locale"))
  1526. (set sys_fonts (cat sys_disk "fonts"))
  1527.  
  1528. (run "c:echo  >"rd_data" stack  20000 ")
  1529. (run "c:echo >>"rd_data" ECHO  EGS-Recover Disk   ")
  1530. (run "c:echo >>"rd_data" assign t:  ram: ")
  1531. (run "c:echo >>"rd_data" assign envarc: "sys_env" ")
  1532. (run "c:echo >>"rd_data" assign LOCALE: "sys_local" ")
  1533. (run "c:echo >>"rd_data" assign FONTS:  "sys_fonts" ")
  1534. (run "c:echo >>"rd_data" ")
  1535. (run "c:echo >>"rd_data" ECHO  Reset the WB-Screenmode ? (Y/N)")
  1536. (run "c:echo >>"rd_data" ASK -------------------------------:  ")
  1537. (run "c:echo >>"rd_data" IF WARN ")
  1538. (run "c:echo >>"rd_data" delete  >nil: envarc:sys/Screenmode.prefs")
  1539. (run "c:echo >>"rd_data" ENDIF ")
  1540. (run "c:echo >>"rd_data" ECHO  Reset the EGS-Screenmode ? (Y/N)  ")
  1541. (run "c:echo >>"rd_data" ASK --------------------------------:  ")
  1542. (run "c:echo >>"rd_data" IF WARN ")
  1543. (run "c:echo >>"rd_data" delete >nil: envarc:egs/Screenmode.Prefs")
  1544. (run "c:echo >>"rd_data" ENDIF")
  1545. (run "c:echo >>"rd_data" ECHO  Please REMOVE the floppy disk ")
  1546. (run "c:echo >>"rd_data" ECHO  and REBOOT your machine !")
  1547. (run "c:echo >>"rd_data" ASK --------------------------------:  ")
  1548. (run "c:echo >>"rd_data" ECHO  ")
  1549.  
  1550.     (askdisk
  1551.              (prompt "Bitte legen Sie " RECDisk " in ein beliebiges Laufwerk...")
  1552.              (help
  1553.              "Die EGS-Recover-Disk wird benutzt, um die ScreenModes \n"
  1554.              "wieder in den Normalzustand zusetzen, falls falsche  \n"
  1555.              "Screenmodes für die EGS-Workbench oder EGS abgespeichert\n"
  1556.              "wurden. Das kann passieren, wenn zum Beispiel ein hoch-\n"
  1557.              "auflösender Screen für die Workbench abgespeichert \n"
  1558.              "wurde, der Monitor aber nur in der Lage ist Screens \n"
  1559.              "mit geringerer Frequenz darzustellen. In so einem Fall\n"
  1560.              "kann man auf der Workbench nichts mehr erkennen und muß  \n"
  1561.              "von der Recover Disk booten. Diese stellt die AMIGA     \n"
  1562.              "ScreenModes dann wieder her.                          \n")
  1563.              (dest    RECDisk)
  1564.     )
  1565.     (copyfiles
  1566.         (prompt    "Kopiere T:startup-sequence nach RecoverDisk:s.")
  1567.         (source    "T:bin/startup-sequence")
  1568.         (dest      "df0:s")
  1569.         (help      "Es wird die 'startup-sequence' für die RecoverDisk auf"
  1570.                    "die Diskette geschrieben (kopiert)!")
  1571.         (delopts   "remove")
  1572.     )
  1573.  
  1574. (run "c:Install df0: ")
  1575.  
  1576. ))
  1577.  
  1578. ;*** Copy WBStartup and E.S.P
  1579.  
  1580. (If (in EGSPARTS BASIC)(
  1581.     ;*** copy amigadriver to wbstartup
  1582.     (copyfiles
  1583.         (prompt    "Kopiere EGSAmigaDriver-Script nach WBStartup.")
  1584.         (source    "T:bin/EGSAmigaDriver")
  1585.         (dest      "SYS:WBStartup")
  1586.         (delopts   "remove")
  1587.         (infos)
  1588.         (help      "Die Datei bindet den Amiga-Treiber in das System ein. "
  1589.                    "Sie wird nach SYS:WBStartup kopiert.")
  1590.     )
  1591.  
  1592.     ;*** copy E.S.P to SYS:WBStartup
  1593.     (copyfiles
  1594.         (prompt    "Kopiere EGS Screen Promoter nach SYS:WBStartup."
  1595.                    "Diese Programm ist der offizielle ScreenPromoter für das "
  1596.                    "EGS-System. Das Programm ist ein Commodity-Tool !")
  1597.         (source    "T:bin/E.S.P.")
  1598.         (dest      "SYS:WBStartup")
  1599.         (delopts   "remove")
  1600.         (infos)
  1601.         (confirm   "expert")
  1602.         (help      "E.S.P. ist der offizielle EGS Screen Promoter mit dem man Programm"
  1603.                    "ausgaben auf die EGS-Karte unleiten kann.")
  1604.     )
  1605.  
  1606.     ;*** copy E.S.P to SYS:Tools/Commodities
  1607.     (copyfiles
  1608.         (prompt    "Kopiere EGS Screen Promoter nach SYS:Tools/Commodities."
  1609.                    "Diese Programm ist der offizielle ScreenPromoter für das "
  1610.                    "EGS-System. Das Programm ist ein Commodity-Tool !")
  1611.         (source    "T:bin/E.S.P.")
  1612.         (dest      "SYS:Tools/Commodities")
  1613.         (delopts   "remove")
  1614.         (infos)
  1615.         (help      "E.S.P. ist der offizielle EGS Screen Promoter mit dem man Programm"
  1616.                    "ausgaben auf die EGS-Karte unleiten kann.")
  1617.     )
  1618.  
  1619.    ;*** Delete screenmode preset ***
  1620.    (run "c:delete envarc:sys/Screenmode.prefs")
  1621.  
  1622.    ;*** copy ECON to DEVS:DOSDrivers
  1623.  
  1624.    (if (> osver 37)
  1625.        (copyfiles
  1626.            (prompt    "Kopiere ECON-File nach DEVS:DosDrivers.")
  1627.            (source    "T:bin/ECON")
  1628.            (dest      "devs:DosDrivers")
  1629.            (help      "Die Datei enthält die Einstellungen über die EGS-Shell "
  1630.                       "(Mountlist). Sie wird nach DEVS:DosDrivers kopiert.")
  1631.            (infos)
  1632.            (delopts   "remove")
  1633.        )
  1634.           ;else
  1635.        (
  1636.            (set hjob (cat "c:type >>devs:mountlist T:bin/mountlist.econ"))
  1637.            (run hjob)
  1638.            (startup "EGS-Spectrum"
  1639.            (prompt  "Füge in der s:user-Startup 'mount ECON:' ein.")
  1640.            (command  "mount econ:")
  1641.            (help     @startup-help))
  1642.            (copyfiles
  1643.                (prompt    "Kopiere Mode_Names.inf nach SYS:WBStartup.")
  1644.                (source    "T:bin/Mode_Names.info")
  1645.                (dest      "SYS:WBstartup")
  1646.                (help      "Die Datei nethält die Einstellungen über die Monitornamen "
  1647.                           "(Mode-Names). Sie wird nach SYS:WBStartup kopiert.")
  1648.                (delopts   "remove")
  1649.            )
  1650.        )
  1651.    )
  1652.  
  1653. ))
  1654.  
  1655.  
  1656. )) ; (if (= 0 (exists "EGS:Config" (noreq)))(
  1657.  
  1658. ;***
  1659. ;*** Copy Disk1 in to RAM
  1660. ;***
  1661. ;*** Ask user to insert disk 1 ***
  1662.  
  1663. (if (= 0 (exists "t:driver" (noreq)))(
  1664.     (Askdisk
  1665.         (prompt "Bitte legen Sie " Disk1 " in ein beliebiges Laufwerk...")
  1666.         (help @askdisk-help)
  1667.         (dest Disk1)
  1668.     )
  1669.  
  1670.     ;*** Copy LHARC to RAM ***
  1671.     (copyfiles
  1672.         (confirm "expert")
  1673.         (prompt  "Kopiere Dateien nach T:.")
  1674.         (source  Disk1:)
  1675.         (choices "bin" "Storage" "Monitors" "driver")
  1676.         (dest    "t:")
  1677.         (help    "Es werden für die Installation von EGS Programme"
  1678.                  "für das Entpacken der LHA-Files ins Verzeichnis"
  1679.                  "T: kopiert !")
  1680.     )
  1681. ))
  1682.  
  1683. ;***
  1684. ;*** Driver STUFF
  1685. ;***
  1686.  
  1687. (if (exists "t:driver/EGSIV24Driver" (noreq))(
  1688.         ; *** IV24 componet files and setup
  1689.  
  1690.        (set DRIVER     "EGSIV24Driver")
  1691.        (set MOUNT      "MountIV24Driver")
  1692.        (set MUX        "IV24a.mux.map2video")
  1693.        (set WBSTARTUP  "EGSIV24Driver")
  1694.        (set ASKMONITOR 0)
  1695.        (set PASSTHRU   0)
  1696.        (set WBDRIVER   0)
  1697.        (set DRVNAME    "IV24")
  1698. ))
  1699.  
  1700. (if (exists "t:driver/EGSAMIGADriver" (noreq))(
  1701.         ; *** AMIGA componet files and setup
  1702.  
  1703.        (set DRIVER     "EGSAMIGADriver")
  1704.        (set MOUNT      "MountAMIGADriver")
  1705.        (set MUX        0)
  1706.        (set WBSTARTUP  "EGSAmigaDriver")
  1707.        (set ASKMONITOR 0)
  1708.        (set PASSTHRU   0)
  1709.        (set WBDRIVER   0)
  1710.        (set DRVNAME    "AMIGA")
  1711. ))
  1712.  
  1713. (if (exists "t:driver/EGSLegsDriver" (noreq))(
  1714.         ; *** AMIGA componet files and setup
  1715.  
  1716.        (set DRIVER  "EGSLegsDriver")
  1717.        (set MOUNT   "MountLegsaDriver")
  1718.        (set MUX     "LEGSa.mux.map2video")
  1719.        (set ASKMONITOR 1)
  1720.        (set PASSTHRU   1)
  1721.        (set WBDRIVER   1)
  1722.        (set DRVNAME    "Spectrum")
  1723. ))
  1724.  
  1725. ;(message "Es wird der EGS-Treiber für die " DRVNAME " Grafikkarte installiert !")
  1726.  
  1727. (if (exists "EGS:Config" (noreq))(
  1728.     (message  "\n\n\n"
  1729.               "Da das EGS-System 6.2x installiert ist wird jetzt nur "
  1730.               "noch die Änderung der EGS-Konfiguartion für den EGS-Treiber "
  1731.                "der " DRVNAME " Grafikkarte vorgenommen !" )
  1732.  
  1733.     ;*** Copy Driver
  1734.  
  1735.     (copyfiles
  1736.         (prompt    "Kopiere " DRIVER " nach EGS:Driver.")
  1737.         (source    (cat "T:driver/" DRIVER))
  1738.         (dest      "EGS:driver")
  1739.         (help      "Es wird der EGS-Treiber in das Verzeichnis "
  1740.                    "EGS:Drivers kopiert.")
  1741.         (infos)
  1742.         (delopts   "remove")
  1743.     )
  1744.  
  1745.     ;*** Copy MUX
  1746.     (if (NOT (= 0 MUX))(
  1747.     (copyfiles
  1748.         (prompt    "Kopiere "MUX" nach EGS:Monitors/Prefs.")
  1749.         (source    (cat "T:Monitors/Prefs/" MUX))
  1750.         (dest      "EGS:Monitors/Prefs")
  1751.         (help      "Die Datei enthält die Einstellungen über die Grafikkarte !"
  1752.                    "Sie wird nach EGS:Monitors/prefs kopiert.")
  1753.         (infos)
  1754.         (delopts   "remove")
  1755.     )
  1756.     ))
  1757.     ;*** Copy MOUNT egs:Config/Driver
  1758.  
  1759.     (copyfiles
  1760.         (prompt    "Kopiere "MOUNT" nach EGS:Config/Driver.")
  1761.         (source    (cat "T:Storage/Driver/" MOUNT))
  1762.         (dest      "EGS:Config/Driver")
  1763.         (help      "Die Datei enthält die Einstellungen für das Einbinden des "
  1764.                    "EGS-Treibers, Sie wird nach EGS:Config/Driver kopiert.")
  1765.         (infos)
  1766.         (delopts   "remove")
  1767.     )
  1768.  
  1769.     ;*** Copy Mount egs:Storage/Driver
  1770.  
  1771.     (copyfiles
  1772.         (prompt    "Kopiere "MOUNT" nach EGS:Storage/Driver.")
  1773.         (source    (cat "T:Storage/Driver/" MOUNT))
  1774.         (dest      "EGS:Storage/Driver")
  1775.         (help      "Die Datei enthält die Einstellungen für das Einbinden des "
  1776.                    "EGS-Treibers, Sie wird nach EGS:Config/Driver kopiert.")
  1777.         (infos)
  1778.         (delopts   "remove")
  1779.     )
  1780.  
  1781.     ;*** Copy Mount egs:Storage/WBStartup
  1782.  
  1783.     (if (NOT (= 0 WBSTARTUP))(
  1784.     (copyfiles
  1785.         (prompt    "Kopiere "WBSTARTUP" nach SYS:WBstartup.")
  1786.         (source    (cat "T:Storage/WBStartup/" WBSTARTUP))
  1787.         (dest      "Sys:WBstartup")
  1788.         (help      "Die Datei enthält die Einstellungen für das Einbinden des "
  1789.                    "EGS-Treibers, Sie wird nach SYS:WBstartup kopiert.")
  1790.         (infos)
  1791.         (delopts   "remove")
  1792.     )
  1793.     ))
  1794.  
  1795.     (if (= 1 WBDRIVER)(
  1796.         (copyfiles
  1797.             (prompt    "Kopiere WorkbenchTreiber nach EGS:Config/Special.")
  1798.             (source    "T:Storage/Special/EGSWB")
  1799.             (dest      "EGS:Storage/Special")
  1800.             (help      "Die Datei enthält die Einstellungen für das Einbinden des "
  1801.                        "EGS-Treibers für die Workbench, Sie wird nach EGS:Config/Special kopiert.")
  1802.             (infos)
  1803.             (delopts   "remove")
  1804.         )
  1805.     ))
  1806.  
  1807. ))
  1808.  
  1809. ;*** Ask for One or Two monitor solution ***
  1810. (set TOP 0)
  1811. (set LEFT 1)
  1812. (set RIGHT 2)
  1813. (set BOTTOM 3)
  1814.  
  1815. (if (= 1 ASKMONITOR)(
  1816. (set Monitor
  1817.       (askchoice
  1818.         (prompt "Wollen Sie Ihr System auf ein oder zwei Monitore "
  1819.                 "konfigurieren?")
  1820.  
  1821.         (help   "EIN Monitor:\nDer Spectrum Monitor-Umschalter wird benutzt, um automatisch "
  1822.                         "zwischen Amiga- und Spectrum-Grafikausgabe umzuschalten.\n\n"
  1823.                         "ZWEI Monitore:\nEs werden zwei Monitore benutzt, einer "
  1824.                         "wird mit dem Amiga-Ausgang verbunden und einer mit dem Spectrum-Ausgang. "
  1825.                         "In diesem Fall können Sie mit der Maus zwischen Amiga- und "
  1826.                         "Spectrum-Monitor hin- und herfahren.")
  1827.         (choices "EIN Monitor"
  1828.              "ZWEI Monitore")
  1829.         (default 0)
  1830.           )
  1831. )
  1832.  
  1833. (if (= 1 MONITOR)
  1834.     (set DIRECTION
  1835.         (askchoice
  1836.         (prompt "Sie haben 'Zwei Monitore' ausgewählt. \n"
  1837.                 "Auf welcher Seite, vom Amiga-Monitor aus gesehen,\n"
  1838.                 "soll der Spectrum-Monitor stehen ?")
  1839.         (help   @askchoice-help)
  1840.         (choices "Oben"
  1841.              "Links"
  1842.              "Rechts"
  1843.              "Unten")
  1844.         (default 1)
  1845.         )
  1846.     )
  1847. )
  1848.  
  1849. (set MONITORNUMBER
  1850.     (askchoice
  1851.     (prompt "Bitte geben Sie den Typ des Monitors an, "
  1852.             "den Sie an die Spectrum angeschlossen haben.")
  1853.  
  1854.     (help   "Weiteres hierzu finden Sie im Handbuch unter "
  1855.             "Anhang A Monitore (Monitor-Äquivalente).\n\n"
  1856.             @askchoice-help)
  1857.  
  1858.      (choices
  1859.                "Commodore 1942"
  1860.                "Commodore 1950"
  1861.                "Commodore 1960"
  1862.                "MultiScan30-38kHz"
  1863.                "MultiScan30-48kHz"
  1864.                "MultiScan30-57kHz"
  1865.                "MultiScan30-64kHz"
  1866.                "VGA-Monitor"
  1867.                "S-VGA-Monitor"
  1868.                "VESA 60Hz Monitor"
  1869.                "VESA 72Hz Monitor"
  1870.                )
  1871.      (default 1)
  1872.         )
  1873. )
  1874.  
  1875. ));If AskMonitor
  1876.  
  1877. ;***
  1878. ;*** Copy SoftBorder, Special coniguration
  1879. ;***
  1880.  
  1881. ;*** Install One-Monitor-System with PassThru***
  1882.  
  1883. (if (AND (= 0 Monitor) (= 1 PASSTHRU))(
  1884.     (copyfiles
  1885.         (prompt   "Kopiere Datei T:Storage/Special/LEGSaPassThruAmiga nach"
  1886.                   "EGS:Config/Special. ")
  1887.         (source   "T:Storage/Special")
  1888.         (choices  "LEGSaPassThruAmiga")
  1889.         (dest     "EGS:Config/Special")
  1890.         (delopts  "remove" "force")
  1891.         (infos)
  1892.         (help     "Jetzt wird die Konfig-Datei LEGSaPassThruAmiga nach EGS:Config kopiert. Damit "
  1893.                   "wird ein automatisches Starten der EGS-Software bei jedem Neustart "
  1894.                   "des Rechners überhaupt erst ermöglicht.")
  1895.     )
  1896. ))
  1897.  
  1898. ;*** create EGS/Config/Border top level directory
  1899.  
  1900. (if (= 0 (exists "EGS:Config/Border" (noreq)))(
  1901.     (makedir "EGS:Config/Border"
  1902.         (prompt "Erzeuge EGS/Config/BorderSystem Software-Verzeichnis")
  1903.         (help "Jetzt wird das Unterverzeichnis für die EGS-Softborder angelegt. ")
  1904.     )
  1905. ))
  1906.  
  1907. ;*** create EGS/Config/Border top level directory
  1908.  
  1909. (if (= 0 (exists "EGS:Startup" (noreq)))(
  1910.     (makedir "EGS:Startup"
  1911.         (prompt "Erzeuge EGS/Startup Software-Verzeichnis")
  1912.         (help "Jetzt wird das Unterverzeichnis für Programme die vor dem "
  1913.               "Intialisieren des EGS-Systems gestartet werden sollen angelegt. ")
  1914.     )
  1915. ))
  1916. ;*** Install Two-Monitor-System ***
  1917.  
  1918. (if (AND (= 1 Monitor) (= TOP Direction))
  1919.    ((copyfiles
  1920.     (prompt   "Kopiere Datei AmigaTopToLEGSa nach EGS:Storage/Border !")
  1921.     (choices  "AmigaTopToLEGSa")
  1922.     (source   "T:Storage/Border")
  1923.     (dest     "EGS:Config/Border")
  1924.     (infos)
  1925.     (help     "Jetzt wird die AmigaTopToLEGSa nach EGS:Storage/Border kopiert. Damit "
  1926.               "wird automatisch beim Starten der EGS-Software ein Softwareborder "
  1927.               "für das Bewegen der Maus vom EGS-Bildschirm zum Workbench-Bildschirm "
  1928.               "installiert.")
  1929. )))
  1930.  
  1931. (if (AND (= 1 Monitor) (= LEFT Direction))
  1932.    ((copyfiles
  1933.     (prompt   "Kopiere Datei AmigaLeftToLEGSa nach EGS:Storage/Border !")
  1934.     (choices  "AmigaLeftToLEGSa")
  1935.     (source   "T:Storage/Border")
  1936.     (dest     "EGS:Config/Border")
  1937.     (infos)
  1938.     (help     "Jetzt wird die AmigaLeftToLEGSa nach EGS:Storage/Border kopiert. Damit "
  1939.               "wird automatisch beim Starten der EGS-Software ein Softwareborder "
  1940.               "für das Bewegen der Maus vom EGS-Bildschirm zum Workbench-Bildschirm "
  1941.               "installiert.")
  1942. )))
  1943.  
  1944. (if (AND (= 1 Monitor) (= RIGHT Direction))
  1945.    ((copyfiles
  1946.     (prompt   "Kopiere Datei AmigaRightToLEGSa nach EGS:Storage/Border !")
  1947.     (choices  "AmigaRightToLEGSa")
  1948.     (source   "T:Storage/Border")
  1949.     (dest     "EGS:Config/Border")
  1950.     (infos)
  1951.     (help     "Jetzt wird die AmigaRightToLEGSa nach EGS:Storage/Border kopiert. Damit "
  1952.               "wird automatisch beim Starten der EGS-Software ein Softwareborder "
  1953.               "für das Bewegen der Maus vom EGS-Bildschirm zum Workbench-Bildschirm "
  1954.               "installiert.")
  1955. )))
  1956.  
  1957. (if (AND (= 1 Monitor) (= BOTTOM Direction))
  1958.    ((copyfiles
  1959.     (prompt   "Kopiere Datei AmigaBottomToLEGSa nach EGS:Storage/Border !")
  1960.     (choices  "AmigaBottomToLEGSa")
  1961.     (source   "T:Storage/Border")
  1962.     (dest     "EGS:Config/Border")
  1963.     (infos)
  1964.     (help     "Jetzt wird die AmigaBottomToLEGSa nach EGS:Storage/Border kopiert. Damit "
  1965.               "wird automatisch beim Starten der EGS-Software ein Softwareborder "
  1966.               "für das Bewegen der Maus vom EGS-Bildschirm zum Workbench-Bildschirm "
  1967.               "installiert.")
  1968. )))
  1969.  
  1970.  
  1971. ;*** install the correct monitor prefs file for the selected monitor
  1972. ;*** Copy MUX
  1973.  
  1974. (if (<> 0 MONITORNUMBER)
  1975.     (
  1976.       (set n 0)
  1977.       (while (set MONITORNAME
  1978.         (select n
  1979.              "C1942"
  1980.              "C1950"
  1981.              "C1960"
  1982.              "MultiScan38kHz"
  1983.              "MultiScan48kHz"
  1984.              "MultiScan57kHz"
  1985.              "MultiScan64kHz"
  1986.              "VGA"
  1987.              "SVGA"
  1988.              "VESA60Hz"
  1989.              "VESA72Hz"
  1990.              ""))
  1991.         (if (= MONITORNUMBER n)(
  1992.         (set    DDir  "EGS:Monitors/Prefs/")
  1993.         (set    SFile (cat "T:monitors/" MONITORNAME))
  1994.  
  1995.         (copyfiles
  1996.             (prompt   "Kopiere Monitor-File")
  1997.             (source   SFile)
  1998.             (dest     DDir)
  1999.             (newname  MUX)
  2000.             (delopts  "remove" "force")
  2001.             (help "Die Datei, die Einstellungen über den Monitor enthält, "
  2002.                   "wird nach " MoniDir " kopiert.")
  2003.         )
  2004.         ));if monitor
  2005.         (set n (+ n 1))
  2006.     );while
  2007. ))
  2008.  
  2009. ;*** Delete file from RAM ***
  2010. (delete "T:bin"
  2011.     (prompt  "Entferne bin aus dem Verzeichnis 'T:'.")
  2012.     (help    "Es wird ein Teil der Installation-Datei aus dem Verzeichnis 'T:' gelöscht.")
  2013.     (delopts "remove")
  2014. )
  2015. (delete "T:Storage"
  2016.     (prompt  "Entferne Storage aus dem Verzeichnis 'T:'.")
  2017.     (help    "Es wird ein Teil der Installation-Datei aus dem Verzeichnis 'T:' gelöscht.")
  2018.     (delopts "remove")
  2019. )
  2020. (delete "T:Monitors"
  2021.     (prompt  "Entferne Monitors aus dem Verzeichnis 'T:'.")
  2022.     (help    "Es wird ein Teil der Installation-Datei aus dem Verzeichnis 'T:' gelöscht.")
  2023.     (delopts "remove")
  2024. )
  2025.  
  2026. (delete "T:Driver"
  2027.     (prompt  "Entferne Driver aus dem Verzeichnis 'T:'.")
  2028.     (help    "Es wird ein Teil der Installation-Datei aus dem Verzeichnis 'T:' gelöscht.")
  2029.     (delopts "remove")
  2030. )
  2031. ;*** Ask user to reboot ***
  2032. (complete 100)
  2033. (message "Die System-Software für die "DRVNAME"-Grafikkarte ist nun installiert. \n"
  2034.          "Das System führt nun einen RESET durch, damit die neuen Einstellungen "
  2035.          "wirksam werden !!!\n\n Viel Spaß mit Ihrer "DRVNAME"-Grafikkarte !!!")
  2036.  
  2037. (run "t:bin/Reboot")
  2038. (exit)
  2039.