home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / EGSFüRALLE5CRM-RECO.DMS / in.adf / EGS-Install next >
Encoding:
Text File  |  1994-05-13  |  44.3 KB  |  1,319 lines
  1. ;
  2. ;EGS Standard Installation-Script
  3. ;
  4. ;$VER: Install-Script 6.5  (03.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 (cat hjob "t:bin/lz >CON:0/0/640/100/CLOSE/EGS_Unarchive -2 -m e " Disk3: "EGSBlanker00"))
  1060.                     (set (cat hjob "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.