home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #7 / amigamamagazinepolishissue1998.iso / rozrywka / rpg / sliver / installiere_silver < prev    next >
Text File  |  1997-10-24  |  20KB  |  781 lines
  1. ; $VER: Installiere_Silver 0.4 (23.10.97)
  2. ;
  3. ; 11.08.97      Aenderung des Installationsvorgangs:
  4. ;               Es wird nun kein Archiv mehr entpackt sondern einzelne
  5. ;               Files kopiert um eine Anpassung an andere Sprachen zu
  6. ;               erleichtern (wenn z.B. nur eine einzige Sprache
  7. ;               installiert werden soll)
  8. ;
  9. ; 15.08.97      Erweiterung des Skripts: Sprachspezifische Installation der
  10. ;               Kataloge und Doku-Texte, Abfrage der Zielverzeichnise der
  11. ;               Libraries und Catalogs
  12. ;
  13. ; 23.10.97      Auf Wunsch werden nun auch die ct/cd-Files kopiert
  14.  
  15.  
  16.  
  17. ;*******************************************************
  18. ;* Deutsche Texte
  19. ;*******************************************************
  20.  
  21. (if (= @language "deutsch")
  22.    (
  23.        (set #WrongInstallerVersion
  24.        (cat "\nSie benötigen mindestens Version 42 des Installers!\n"
  25.             "Die Version 43.3 finden Sie im Aminet in util/misc/Installer43.3.lha\n\n"
  26.             "Ihre Installer-Version ist: %ld.%ld"
  27.        ))
  28.  
  29.     (set #WrongKickVersion
  30.     (cat "\nSie benötigen mindestens Kickstart-Version 37!\n"
  31.          "Ihre Kickstart-Version ist: %ld.%ld"
  32.     ))
  33.  
  34.  
  35.     (set #WrongUserLevel
  36.     (cat "\nEine Installation im Einsteiger-Modus ist nicht möglich!\n"
  37.     ))
  38.  
  39.  
  40.  
  41.     (set #Warnung
  42.     (cat "Nur um sicherzugehen:\n"
  43.          "Obwohl dieses Installer-Skript ausführlich getestet wurde lehne ich "
  44.          "jede Verantwortung für durch den Gebrauch oder Mißbrauch dieses "
  45.          "Skripts entstandenen Schäden ab.\n"
  46.          "Die Benutzung dieses Skripts erfolgt auf eigene Gefahr..."
  47.     ))
  48.  
  49.  
  50.     (set #AskTargetdir
  51.     (cat "\nWo soll das Spiel installiert werden?\n"
  52.          "(Ein neues Verzeichnis namens Silver wird dort angelegt)"
  53.     ))
  54.  
  55.  
  56.     (set #AskLibdir
  57.     (cat "\nWo soll die reqtools.library installiert werden?\n"
  58.     ))
  59.  
  60.  
  61.        (set #AskCatdir
  62.        (cat "\nWo sollen die Sprachkataloge und Übersetzungsdateien installiert werden?\n"
  63.             "Das Verzeichnis Catalogs wird dort angelegt.\n"
  64.        ))
  65.  
  66.  
  67.        (set #WhichTranslationfiles
  68.        (cat "\nWelche Übersetzungsdateien sollen kopiert werden?\n"
  69.             "Kopiert werden sie nach:\n"
  70.        ))
  71.  
  72.  
  73.  
  74.     (set #InstallingLibs
  75.     (cat "Installiere die reqtools.library.\n"
  76.          "Diese Bibliothek wird für den Konfig-Editor benötigt."
  77.     ))
  78.  
  79.     (set #InstallingOscar
  80.     (cat "Installiere den Charaktereditor OSCAR\n"
  81.          "Dieser Programm ist ein Zusatz, der dem Komfort dient."
  82.     ))
  83.  
  84.     (set #HelpInstallingOscar
  85.     (cat "OSCAR ist ein externer Charaktereditor für Silver.\n"
  86.          "Um zu vermeiden, daß man aus Versehen eine Version von\n"
  87.          "OSCAR durch eine ältere Version überschreibt erfolgt hier\n"
  88.          "eine Sicherheitsabfrage."
  89.     ))
  90.  
  91.     (set #Copy_files
  92.     (cat "Kopiere Dateien...\n"
  93.     ))
  94.  
  95.  
  96.     (set #RunPrefs
  97.     (cat "Nun wird der Konfigurationseditor gestartet.\n"
  98.          "Hier können sie diverse Programmparameter einstellen.\n"
  99.          "Sollten sie dies nicht tun wollen, dann überspringen sie einfach diesen Installationsschritt "
  100.          "und verwenden sie die Standardkonfiguration."
  101.     ))
  102.  
  103.  
  104.        (set #RunPrefsHelp
  105.        (cat "Wenn sie 'Weiter' anwählen, dann wird der Konfigurationseditor gestartet..\n"
  106.             "Wählen sie 'diesen Teil überspringen', dann wird die Standardkonfiguration verwendet.\n"
  107.        ))
  108.  
  109.  
  110.        (set #WhichAdv
  111.        (cat "Welche Abenteuermodule sollen installiert werden?\n"
  112.        ))
  113.  
  114.  
  115.     (set #WhichDepth
  116.     (cat "Wie viele Farben soll Silver verwenden?\n"
  117.     ))
  118.  
  119.     (set #16Colors
  120.     (cat "16 Farben (OCS, ECS, AGA)"
  121.     ))
  122.  
  123.     (set #32Colors
  124.     (cat "32 Farben (AGA)"
  125.     ))
  126.  
  127.     (set #WhichCPU
  128.     (cat "Es gibt zwei Versionen der Programme: Eine für Prozessoren ab dem "
  129.          "Typ MC68020 und eine für alle Prozessoren des Typs MC680xx.\n"
  130.          "Welche Programmversion wollen Sie installieren?"
  131.     ))
  132.    ))
  133.  
  134.  
  135.  
  136. ;*******************************************************
  137. ;* Englische Texte
  138. ;*******************************************************
  139.  
  140.  
  141.    (if (= @language "english")
  142.    (
  143.  
  144.  
  145.     (set #WrongInstallerVersion
  146.     (cat "\nYou need at least V42 of the Installers!\n"
  147.          "Version 43.3 can be found on Aminet in util/misc/Installer43.3.lha\n\n"
  148.          "Your Installer-Version is: %ld.%ld"
  149.     ))
  150.  
  151.  
  152.     (set #WrongKickVersion
  153.     (cat "\nYou need at least Kickstart-Version 37!\n"
  154.          "Your Kickstart-Version is: %ld.%ld"
  155.     ))
  156.  
  157.  
  158.     (set #WrongUserLevel
  159.     (cat "\nInstalling with Novice-Mode is not supported!\n"
  160.     ))
  161.  
  162.  
  163.  
  164.     (set #Warnung
  165.     (cat "Use this Installer-script on your own risk...\n"
  166.          "If your cat explodes while using this script - don't blame me ;-)"
  167.     ))
  168.  
  169.  
  170.     (set #AskTargetdir
  171.     (cat "\nWhere do you want to install the game?\n"
  172.          "(A new directory called Silver will be created there)"
  173.     ))
  174.  
  175.  
  176.     (set #AskLibdir
  177.     (cat "\nWhere do you want to install the reqtools.library?\n"
  178.     ))
  179.  
  180.  
  181.     (set #AskCatdir
  182.     (cat "\nWhere do you want to install the catalog-files?\n"
  183.          "(The directory Catalogs will be created there)"
  184.     ))
  185.  
  186.  
  187.     (set #WhichTranslationfiles
  188.     (cat "\nWhich translationsfiles should be copied?\n"
  189.          "Target directory is:\n"
  190.     ))
  191.  
  192.  
  193.     (set #InstallingLibs
  194.     (cat "Installing the reqtools.library.\n"
  195.          "This library is used by the Config-Editor."
  196.     ))
  197.  
  198.     (set #InstallingOscar
  199.     (cat "Installing the charactereditor  OSCAR\n"
  200.     ))
  201.  
  202.     (set #HelpInstallingOscar
  203.     (cat "OSCAR is an external charactereditor for Silver.\n"
  204.          "In order to avoid to overwrite an existing version with an older one,\n"
  205.          "this securityrequest is used.\n"
  206.     ))
  207.  
  208.     (set #Copy_files
  209.     (cat "Copying files...\n"
  210.     ))
  211.  
  212.  
  213.  
  214.     (set #RunPrefs
  215.     (cat "Now the config-editor will be started.\n"
  216.          "If you don't want to start it, Silver will use its default configuration."
  217.     ))
  218.  
  219.  
  220.     (set #RunPrefsHelp
  221.     (cat "If you select 'Procced' the config-editor will be started.\n"
  222.          "If you select 'Skip this part' the default configuration will be used.\n"
  223.     ))
  224.  
  225.  
  226.     (set #WhichAdv
  227.     (cat "Which adventure-modules do you want to install?\n"
  228.     ))
  229.  
  230.  
  231.     (set #WhichDepth
  232.     (cat "How many colors should Silver use?\n"
  233.     ))
  234.  
  235.     (set #16Colors
  236.     (cat "16 Colors"
  237.     ))
  238.  
  239.     (set #32Colors
  240.     (cat "32 Colors"
  241.     ))
  242.  
  243.     (set #WhichCPU
  244.     (cat "There are two versions of the executable programs: One for 68020 and"
  245.          "better and one for all MC680xx. Which version do you want to install?\n"
  246.     ))
  247.  
  248.    ))
  249.  
  250.  
  251.  
  252.  
  253.    ;********************************************************************************************
  254.    ;***
  255.    ;*** Diverse Versionstests (Installer, OS und User-Level)
  256.    ;***
  257. ;***
  258. ;***
  259. ;********************************************************************************************
  260.  
  261.  
  262. ; *********************************************************************
  263. ; * Es wird mindestens Version 42 des Installers gefordert
  264. ; *********************************************************************
  265.  
  266.  
  267.    (set #vernum @installer-version)
  268.    (set #ver (/ #vernum 65536))
  269.    (set #rev (- #vernum (* #ver 65536) ) )
  270.  
  271.  
  272.    (if (< #ver 42)
  273.    (
  274.      (abort (#WrongInstallerVersion #ver #rev) )
  275.    ))
  276.  
  277.  
  278.    ; *********************************************************************
  279.    ; * Es wird mindestens Kickstart 2.0 (V 37) gefordert
  280.    ; *********************************************************************
  281.  
  282.  
  283.    (set #vernum (getversion) )
  284.    (set #ver (/ #vernum 65536))
  285.    (set #rev (- #vernum (* #ver 65536) ) )
  286.  
  287.  
  288.    (if (< #ver 37)
  289.    (
  290.      (abort (#WrongKickVersion #ver #rev) )
  291.    ))
  292.  
  293.  
  294.    ; *********************************************************************
  295. ; * Es wird mindestens ein "Average User" gefordert
  296. ; *********************************************************************
  297.  
  298.  
  299.    (if (= @user-level 0)
  300.    (
  301.      (abort (#WrongUserLevel) )
  302.    ))
  303.  
  304.  
  305.  
  306. ;********************************************************************************************
  307. ;***
  308. ;*** Hier beginnt die eigentliche Installation
  309. ;***
  310. ;*** TEIL 1: Alle noetigen Nachfragen
  311. ;***
  312. ;********************************************************************************************
  313.  
  314. ; *********************************************************************
  315. ; * Abfrage, wo installiert werden soll
  316. ; *   ==> #Installverz
  317. ; *********************************************************************
  318.  
  319.    (complete 0)
  320.  
  321.    (message #Warnung)
  322.  
  323.    (set #Zielverzeichnis @default-dest)
  324.  
  325.  
  326.    (set #Zielverzeichnis
  327.            (askdir
  328.                    (prompt #AskTargetdir)
  329.                    (help @askdir-help)
  330.                    (default #Zielverzeichnis)
  331.            )
  332.    )
  333.  
  334.  
  335.    (set #Installverz (tackon #Zielverzeichnis "Silver"))
  336.  
  337.  
  338.    ;* Damit die Protokolldatei am richtigen Ort landet
  339.    (set @default-dest #Installverz)
  340.  
  341.  
  342. ; *********************************************************************
  343. ; * Zielverzeichnis und
  344. ; * Spielstandsverzeichnis und DokuVerzeichnis anlegen
  345. ; *********************************************************************
  346.  
  347.    (complete 5)
  348.  
  349.    (makedir #Installverz    (infos) )
  350.  
  351.    (set #Spielstandverz (tackon #Installverz "save"))
  352.    (makedir #Spielstandverz (infos) )
  353.  
  354.    (set #Dokverz (tackon #Installverz "doks"))
  355.    (makedir #Dokverz        (infos) )
  356.  
  357.  
  358.  
  359. ; *********************************************************************
  360. ; * Abfrage, wo Libraries installiert werden sollen
  361. ; *   ==> #Libverz
  362. ; *********************************************************************
  363.  
  364. ; *** reqtools.library installieren
  365. ; *** Ein Average-User wird nicht gefragt
  366. ; *** Ein Expert-User hat Wahlmoeglichkeit
  367.  
  368.  
  369.    (set #Libverz "LIBS:")
  370.  
  371.  
  372.    ; *** Hier den Expert-User fragen
  373.    (if (> @user-level 1)
  374.    (
  375.        (set #Libverz
  376.            (askdir
  377.                    (prompt #AskLibdir)
  378.                    (help @askdir-help)
  379.                    (default #Libverz)
  380.            )
  381.        )
  382.  
  383.    ))
  384.  
  385.  
  386.  
  387.  
  388. ; *********************************************************************
  389. ; * Abfrage, wo Catalogs installiert werden sollen
  390. ; *   ==> #Catverz
  391. ; *********************************************************************
  392.  
  393.    ; *** Catalogs installieren
  394.    ; *** Ein Average-User wird nicht gefragt
  395.    ; *** Ein Expert-User hat Wahlmoeglichkeit
  396.  
  397.    ; *** Defaulteinstellung
  398.    (set #Catverz #Installverz)
  399.  
  400.  
  401.    ; *** Hier den Expert-User fragen
  402.    (if (> @user-level 1)
  403.    (
  404.          (set #Catverz
  405.              (askdir
  406.                      (prompt #AskCatdir)
  407.                      (help @askdir-help)
  408.                      (default #Catverz)
  409.              )
  410.          )
  411.  
  412.    ))
  413.  
  414. ; *** "Catalogs" anhaengen
  415.    (set #Catverz (tackon #Installverz "Catalogs") )
  416.  
  417.  
  418. ; *********************************************************************
  419. ; * Katalogverzeichnis anlegen
  420. ; * (wurde etwas frueher abgefragt)
  421. ; *********************************************************************
  422.  
  423.    (makedir #Catverz   (infos)  )
  424.  
  425.  
  426. ; *********************************************************************
  427. ; * Abfrage, ob die ct/cd-Files fuer die Uebersetzung installiert werden sollen
  428. ; *   ==> #Locale
  429. ; *
  430. ; *     Bit 0  = ct/cd-Files kopieren
  431. ; *
  432. ; *********************************************************************
  433.  
  434.    (set #dummy
  435.     (cat #WhichTranslationfiles #CatVerz
  436.    ))
  437.  
  438.    (set #Locale
  439.            (askoptions (choices ".ct & .cd-Files" )
  440.                        (default -1)
  441.                        (prompt #dummy)
  442.                        (help @askoptions-help)
  443.            )
  444.    )
  445.  
  446.  
  447.  
  448. ; *********************************************************************
  449. ; * Abfrage, welche Abenteuer installiert werden sollen
  450. ; *   ==> #Abenteuer
  451. ; *
  452. ; *     Bit 0  = Morgengrauen
  453. ; *
  454. ; * ACHTUNG: Werden weitere Abenteuer eingefuegt, dann muss man auch den
  455. ; *          Kopierteil aendern!
  456. ; *
  457. ; *********************************************************************
  458.  
  459.    (set #Abenteuer
  460.            (askoptions (choices "Morgengrauen" )
  461.                        (default -1)
  462.                        (prompt  #WhichAdv)
  463.                        (help @askoptions-help)
  464.            )
  465.    )
  466.  
  467.  
  468.  
  469. ; *********************************************************************
  470. ; * KONFIGURATIONSDATEN ABFRAGEN - nur wenn silver.konfig nicht vorhanden ist
  471. ; *
  472. ; * - Abfrage, welche Farbanzahl installiert werden sollen
  473. ; *     ==> #Farbanzahl
  474. ; *
  475. ; *       0  = 16 Farben
  476. ; *       1  = 32 Farben
  477. ; *
  478. ; *********************************************************************
  479.  
  480.    (set #Exist (exists (tackon #Installverz "silver.konfig") (noreq) ) )
  481.  
  482.    (if (= #Exist 0)
  483.    (
  484.  
  485.        ;**** Farbanzahl abfragen
  486.        (if (not (patmatch "ECS|AGNUS" (database "chiprev")))
  487.          (
  488.           ;*** Es ist kein (!) ECS oder AGNUS (= OCS) vorhanden, also sind 16 oder 32 Farben moeglich
  489.  
  490.           ;**** !!!! ASKCHOICE liefert die absolute Nummer des gewaehlten Eintrages
  491.           (set #Farbanzahl
  492.                (askchoice  (choices #16Colors #32Colors)
  493.                            (default 0)
  494.                            (prompt  #WhichDepth)
  495.                            (help @askchoice-help)
  496.                )
  497.           )
  498.  
  499.          )
  500.          (
  501.           ;*** Es ist ECS oder AGNUS (= OCS) vorhanden, also: 16 Farben
  502.           (set #Farbanzahl 0)
  503.          )
  504.        )
  505.    ))
  506.  
  507.  
  508.  
  509. ; *********************************************************************
  510. ; * Welche Prozessorversion verwenden?
  511. ; *
  512. ; *    #cpuversion
  513. ; *             0 = Executables fuer MC68000 installieren
  514. ; *                      (silver und editor)
  515. ; *             1 = Executables fuer MC68020+ installieren
  516. ; *                      (silver_68020 und editor_68020)
  517. ; *
  518. ; *
  519. ; *********************************************************************
  520.  
  521.  
  522. ;** die 68000-Version wird installiert
  523.    (set #cpuversion  0)
  524.  
  525.    ;*** Ist ein hinreichend guter Prozessor vorhanden?
  526.    (if (not (patmatch "68000|68010" (database "cpu")))
  527.    (
  528.         ;*** Ja...
  529.         ;*** Sind die noetigen Exe-Files im aktuellen Verzeichnis vorhanden?
  530.  
  531.  
  532.         (set #Exist (exists "silver_68020" (noreq) ) )
  533.  
  534.         (if (= #Exist 1)
  535.         (
  536.            ;*** Gut - das Exe-File von Silver ist da...
  537.  
  538.            (set #Exist (exists "editor_68020" (noreq) ) )
  539.  
  540.            (if (= #Exist 1)
  541.            (
  542.                ;*** Gut - das Exe-File von Editor ist da...
  543.  
  544.                ;*** Jetzt geht es darum, welche Programmversion installiert
  545.                ;*** werden soll
  546.  
  547.  
  548.                ;*** Defaultmaessig wird die Version fuer MC 68020+ installiert
  549.                (set #cpuversion  1)
  550.  
  551.                (set #cpuversion
  552.                            (askchoice  (choices "MC 68000" "MC 68020+")
  553.                                        (default #cpuversion)
  554.                                        (prompt  #WhichCPU)
  555.                                        (help @askoptions-help)
  556.                            )
  557.                )
  558.            ))
  559.         ))
  560.    ))
  561.  
  562.  
  563.    ;********************************************************************************************
  564.    ;***
  565. ;*** Hier beginnt die eigentliche Installation
  566. ;***
  567. ;*** TEIL 2: Die gewuenschten Dateien kopieren
  568. ;***
  569. ;********************************************************************************************
  570.  
  571.  
  572.  
  573.  
  574.  
  575.  
  576. ; *********************************************************************
  577. ; * Libraries installieren
  578. ; *********************************************************************
  579.  
  580.    (complete 15)
  581.  
  582.  
  583.    ; *** Jetzt die Lib kopieren
  584.    (copylib (prompt #InstallingLibs)
  585.                (source "reqtools.library")
  586.                (dest #Libverz)
  587.                (confirm)
  588.                (help @copylib-help)
  589.    )
  590.  
  591.  
  592.  
  593.  
  594. ; *********************************************************************
  595. ; * Noetige Files kopieren
  596. ; *********************************************************************
  597.  
  598.  
  599.    (complete 30)
  600.    (working #Copy_files)
  601.  
  602.    (copyfiles (source "silver_prefs")        (dest #Installverz) (infos) )
  603.    (copyfiles (source "silver_1.readme")     (dest #Installverz) (infos) )
  604.  
  605.  
  606.    ;*** Je nach gewuenschter Prozessorversion installieren
  607.    (complete 35)
  608.  
  609.  
  610.      (select #cpuversion
  611.            (
  612.               ;*** die 68000 Version installieren
  613.               (copyfiles (source "silver")              (dest #Installverz) (infos) )
  614.               (copyfiles (source "editor")              (dest #Installverz) (infos) )
  615.            )
  616.  
  617.            (
  618.               ;*** die 68020+ Version installieren
  619.               (copyfiles (source "silver_68020")  (newname "silver") (dest #Installverz) )
  620.               (copyfiles (source "editor_68020")  (newname "editor") (dest #Installverz) )
  621.               (copyfiles (source "silver_68020.info")  (newname "silver.info") (dest #Installverz) )
  622.               (copyfiles (source "editor_68020.info")  (newname "editor.info") (dest #Installverz) )
  623.            )
  624.      )
  625.  
  626.  
  627. ;*** Grafikdaten kopieren
  628.    (complete 40)
  629.    (copyfiles (source "daten")     (dest (tackon #Installverz "daten") ) (all)  )
  630.  
  631.  
  632.  
  633.  
  634. ; *********************************************************************
  635. ; * Abenteuer installieren
  636. ; * Nur die gewaehlten Abenteuer installieren
  637. ; *********************************************************************
  638.  
  639.    (complete 50)
  640.  
  641.  
  642.    (if #Abenteuer
  643.       (
  644.          (if (IN #Abenteuer 0)
  645.           (
  646.            ;*** Abenteur Morgengrauen installieren
  647.            (copyfiles (source "morgengrauen")
  648.                       (dest (tackon #Installverz "morgengrauen") ) (all) (infos) )
  649.           )
  650.          )
  651.       )
  652.    )
  653.  
  654.  
  655. ; *********************************************************************
  656. ; * Catalogs installieren
  657. ; *********************************************************************
  658.  
  659.    (complete 60)
  660.    (working #Copy_files)
  661.  
  662.  
  663.  
  664.  
  665.      ; **** ACHTUNG: Deutsch ist die eingebaute Sprache - in diesem Fall ist
  666.      ; ****          kein Catalog noetig
  667.      (if (<> @language "deutsch")
  668.       (
  669.  
  670.        ; **** Jetzt den Katalog aufgrund der aktuellen Sprache installieren
  671.  
  672.        (copyfiles (source (tackon "catalogs" @language) )
  673.                   (dest   (tackon #Catverz @language) ) (all)
  674.        )
  675.  
  676.       )
  677.      )
  678.  
  679. ;******* Zusaetzliche Uebersetzungsfiles
  680. (if #Locale
  681.    (
  682.       (if (IN #Locale 0)
  683.        (
  684.         ;*** cd/ct-Files kopieren
  685.         (copyfiles (source "catalogs") (dest   #Catverz  ) (pattern "#?.ct") )
  686.         (copyfiles (source "catalogs") (dest   #Catverz  ) (pattern "#?.cd") )
  687.        )
  688.       )
  689.    )
  690. )
  691.  
  692.  
  693.  
  694. ; *********************************************************************
  695. ; * Doku installieren (nur die Doku der jeweiligen Sprache)
  696. ; *********************************************************************
  697.  
  698.  
  699. (complete 70)
  700. (working #Copy_files)
  701.  
  702.  
  703.  
  704. (copyfiles (source (tackon "doks" @language) )
  705.            (dest   #Dokverz  ) (all) (infos)
  706. )
  707.  
  708.  
  709.  
  710.  
  711.  
  712. ; *********************************************************************
  713. ; * Oscar kopieren (mit Icon), aber nur, wenn es eine neuere Version ist
  714. ; *********************************************************************
  715. (complete 75)
  716. (working #Copy_files)
  717.  
  718. (copylib (prompt #InstallingOscar)
  719.             (source "OSCAR_Dir/Oscar")
  720.             (dest #Installverz)
  721.             (confirm)
  722.             (help #HelpInstallingOscar)
  723.             (infos)
  724. )
  725.  
  726.  
  727.  
  728.  
  729. ; *********************************************************************
  730. ; * Standardkonfigurationsfile anlegen, falls noch nicht vorhanden
  731. ; * Wird das Standardkonfigurationsfile angelegt, dann wird
  732. ; * der Prefs-Editor gestartet
  733. ; *********************************************************************
  734.  
  735.  
  736. (complete 85)
  737.  
  738. (set #Exist (exists (tackon #Installverz "silver.konfig") (noreq) ) )
  739.  
  740. (if (= #Exist 0)
  741. (
  742.   (set #Standardkonfig
  743.     (cat "DOC=Doks\n"
  744.          "SAVE=save\n"
  745.          "TEMP=save/temp\n"
  746.          "SILVER=\n"
  747.          "ADV=Morgengrauen\n"
  748.          "QUICKSTART=1\n"
  749.          "DEGRADE=0\n"
  750.     )
  751.   )
  752.  
  753.  
  754.  
  755.   (select #Farbanzahl
  756.         (set #Standardkonfig  (cat #Standardkonfig "DEPTH=4\n") )
  757.         (set #Standardkonfig  (cat #Standardkonfig "DEPTH=5\n") )
  758.   )
  759.  
  760.   ;*** Standardkonfig schreiben
  761.   (textfile (dest (tackon #Installverz "silver.konfig") ) (append #Standardkonfig) )
  762.  
  763.  
  764.   ;*** Prefs-Editor starten
  765.   (set @execute-dir #Installverz)
  766.  
  767.   (run "silver_prefs" (confirm average) (prompt #RunPrefs) (help #RunPrefsHelp) )
  768.  
  769. ))
  770.  
  771.  
  772.  
  773. ; *********************************************************************
  774. ; * AUFRAEUMARBEITEN
  775. ; *********************************************************************
  776.  
  777. (complete 100)
  778.  
  779. (exit)
  780.  
  781.