home *** CD-ROM | disk | FTP | other *** search
- ;************************************************************
- ;* *
- ;* Piccolo-FRESHUP(1) Installation-Script *
- ;* *
- ;* *
- ;* Script written by J.Ringelberg *
- ;* 21.04.1994 *
- ;* *
- ;* $VER: Install-Script 1.0 (21.04.94) *
- ;* ©1994 by Ing.Büro Helfrich *
- ;* *
- ;************************************************************
-
-
- (set EGSSysDir "EGS:")
- (set @default-dest EGSSysDir)
-
-
- ;*** First check if EGS: is assigned
-
- (if (exists "EGS:" (noreq)) (set EGSok 1))
-
- (complete 10)
-
- (if (<> 1 EGSok)
- (
- (message "Es wurde KEIN EGS: System erkannt! "
- "Demzufolge haben Sie die Piccolo Software NICHT oder "
- "NICHT RICHTIG installiert. Bitte installieren Sie erst die "
- "Piccolo-System-Software, bevor Sie das Software-Freshup"
- "durchführen lassen möchten. !")
- (exit (quiet))
- )
- )
-
- ;*************** Now the installation itself begins ******************
-
- ;*** Copy LHARC to RAM ***
- (copyfiles
- (prompt "Kopiere Datei lharc nach RAM.")
- (source "Piccolo_Freshup:c/LHARC")
- (dest "ram:")
- )
-
- ;*** Install the main part of EGS - drivers, libraries, classes...
- (if (= 1 EGSok)
- (
- (working "Installiere EGS-Systemdateien...")
- (if (= @user-level 2)
- (
- (set ReallyInst
- (askbool
- (prompt "Archiv 'Piccolo-Freshup.lzh' nach '" EGSSysDir "' auspacken ?")
- (help "Dieser Schritt installiert die wichtigsten Dateien des "
- "EGS-Systems auf Ihrer Festplatte - Bibliotheken, Treiber "
- "und Klassen. Ohne diese Dateien kann EGS nicht laufen.\n"
- "Wenn Sie wollen, können Sie an dieser Stelle die Installation "
- "der EGS-Systemdateien überspringen. Das ist aber ganz und gar "
- "nicht zu empfehlen.")
- (choices "Ja" "Nein")
- )
- )
- )
- (set ReallyInst 1)
- )
-
- (if (= ReallyInst 1)
- (
- (set @execute-dir EGSSysDir)
- (set lzrc
- (run ("RAM:LHARC -mqx x %s" "Piccolo_Freshup:Piccolo-Freshup.lzh")
- (prompt "Entpacke Archiv Piccolo-Freshup.lzh nach " EGSSysDir)
- )
- )
- (if (<> lzrc 0)
- (message "Es trat ein Fehler beim Dekomprimieren von 'EGS-System' auf." )
- )
- )
- )
- )
- )
-
-
- ;*** Delete file LHARC from RAM ***
- (delete "Ram:LHARC"
- (prompt "Entferne RAM:LHARC")
- )
-
- (complete 100)
- ;*** Ask user to reboot ***
- (exit "Das Software-Freshup für die Piccolo-Grafikkarte ist nun installiert. \n"
- "Bitte führen Sie nun einen Reset durch, damit die gemachten Änderungen "
- "wirksam werden !!!\n\n Viel Spaß mit Ihrer Piccolo-Grafikkarte !!!")
-