home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / Amiatlas / AmiAtlasProZusatzÖstreich.dms / in.adf / HDInstall < prev    next >
Encoding:
Text File  |  1994-11-23  |  15.1 KB  |  413 lines
  1. ; Installationsskript für Karte [Österreich] von AmiAtlas Pro
  2. ; erstellt für Installer V1.24, 23.11.94, Autor: Andreas Regul
  3.  
  4. ;   Copyright-Hinweise für Installer:
  5.  
  6. ;     Installer and Installer project icon
  7. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc. All Rights Reserved.
  8. ;     Reproduced and distributed under license from Commodore.
  9.  
  10. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  11. ;     NO WARRANTIES ARE MADE. ALL USE IS AT YOUR OWN RISK. NO LIABILITY
  12. ;     OR RESPONSIBILITY IS ASSUMED.
  13.  
  14. (set @user-level 2)
  15. (set @language "deutsch")
  16. (set @abort-button "Installation abbrechen")
  17. (set @special-msg "Ein fataler Fehler ist aufgetreten !\nBitte wiederholen Sie die Installation.")
  18. (set @error-msg (cat "\nFehler...\n\n"
  19.                      "Kartendaten von Österreich wurden nicht komplett installiert. "
  20.                      "Bitte wiederholen Sie die Installation, um eine lauffähige Version auf Ihrer "
  21.                      "Festplatte zu erhalten."))
  22.  
  23. (set @sysdir (expandpath "SYS:"))
  24. (set @default-dest "AmiAtlas:austria")
  25.  
  26. (complete 0)
  27.  
  28. ; Wurde von der Diskette gebootet ?
  29. (if (= @sysdir "AmiAtlas_Österreich")
  30.       (
  31.             (message "Hinweis\n\nEs wurde von der AmiAtlas-Diskette gebootet. Für die Festplatten-Installation "
  32.                      "mit diesem Programm ist es notwendig, vorher von Festplatte zu booten.\n\n"
  33.                      "Bitte entfernen Sie die Diskette aus Laufwerk DF0: und setzen Sie Ihren Amiga zurück. "
  34.                      "Danach starten Sie das Installationsprogramm erneut.")
  35.  
  36.             (exit (quiet))
  37.       )
  38. )
  39.  
  40. ; Ist AmiAtlas schon installiert ?
  41. (if (NOT (exists "AmiAtlas:"))
  42.       (
  43.             (message "\nWarnung !!!\n\n"
  44.                      "'AmiAtlas' ist nicht auf Ihrer Festplatte installiert.\n\n"
  45.                      "Bitte installieren Sie zunächst eine beliebige AmiAtlas-Version, "
  46.                      "um danach die Kartendaten zu kopieren.")
  47.  
  48.             (exit (quiet))
  49.       )
  50. )
  51.  
  52. (welcome "Willkommen zur Festplatten-Installation der Österreich-Karte von 'AmiAtlas Pro'.\n")
  53.  
  54. ; Verzeichnis erzeugen
  55. (if (NOT (exists @default-dest))
  56.       (makedir @default-dest
  57.             (prompt "\nVerzeichnis für Karte\n\n"
  58.                     "Bitte klicken Sie 'Proceed' an, um das Verzeichnis '" @default-dest "' für "
  59.                     "die Kartendaten zu erzeugen.")
  60.             (confirm)
  61.             (help "\nHilfe zur Verzeichniserstellung\n\n"
  62.                   "Im Verzeichnis von 'AmiAtlas Pro' wird ein Unterverzeichnis für die Karte "
  63.                   "von Österreich benötigt. In dieses Verzeichnis werden daraufhin alle Daten "
  64.                   "zur Österreich-Karte kopiert.")
  65.             (infos)
  66.       )
  67.       (
  68.             (if (NOT
  69.                   (askbool
  70.                        (prompt "\nHinweis\n\nDie Österreich-Karte ist bereits installiert.\n"
  71.                                "Soll erneut eine Installation durchgeführt werden ?\n\n"
  72.                                "Warnung: Die vorhandenen Daten werden überschrieben.")
  73.                        (help "\nHilfe zu existierender Karte\n\n"
  74.                              "Im Verzeichnis von 'AmiAtlas Pro' wurde das Unterverzeichnis "
  75.                              "'austria' gefunden. In dieses Verzeichnis wurden bereits zu "
  76.                              "einem früheren Zeitpunkt die Kartendaten von Österreich kopiert.\n\n"
  77.                              "Eine Neuinstallation ist dann sinnvoll, wenn die Daten aus irgendeinem "
  78.                              "Grunde ungültig geworden sind oder eine erweiterte Karte installiert "
  79.                              "werden soll.")
  80.                        (choices "Ja" "Nein")
  81.                        (default 0)
  82.                   )
  83.                   )
  84.                   (exit (quiet))
  85.             )
  86.       )
  87. )
  88.  
  89. (complete 4)
  90.  
  91. ; Karte installieren
  92. (message "\nKopieren der Kartendaten\n\n"
  93.          "Bitte klicken Sie 'Proceed' an, um die Kartendaten von Österreich in das "
  94.          "entsprechende Verzeichnis auf Ihrer Festplatte zu kopieren.")
  95.  
  96. (copyfiles
  97.       (prompt "Kopiere Karte Österreich.")
  98.       (help "")
  99.       (source "austria")
  100.       (dest @default-dest)
  101.       (pattern "~(#?.info)")
  102.       (optional force askuser)
  103. )
  104.  
  105. (complete 50)
  106.  
  107. ; Icons speichern
  108. (if (askbool
  109.             (prompt "\nIcons speichern\n\n"
  110.                     "'AmiAtlas Pro' ermöglicht es, Icons zu den Kartendaten zu benutzen. "
  111.                      "Karten mit Icons können direkt über diese Icons geöffnet werden.\n\n"
  112.                      "Sollen Icons erzeugt werden ?")
  113.             (help "\nHilfe zu Icons erzeugen\n\n"
  114.                   "'AmiAtlas Pro' verwaltet seine Karten in mehreren Einzeldateien. Diese werden "
  115.                   "normalerweise beim Starten von 'AmiAtlas Pro' direkt nachgeladen und die "
  116.                   "entsprechende Karte sofort dargestellt.\n\n"
  117.                   "Wenn hingegen mehrere Karten vorhanden sind, kann immer nur eine Karte zum "
  118.                   "sofortigen Nachladen bestimmt werden. Die zweite und alle weiteren Karten "
  119.                   "werden dann über die 'Laden'-Funktion aus dem Menü geöffnet.\n\n"
  120.                   "Alternativ dazu können zu den Kartendateien Icons erzeugt werden, über die "
  121.                   "es dann möglich ist, gezielt eine Karte - unabhängig von der Voreinstellung - "
  122.                   "zu laden.")
  123.             (choices "Ja" "Nein")
  124.             (default 0)
  125.       )
  126.       (
  127.             (copyfiles
  128.                   (prompt "Kopiere Icons zur Österreich-Karte.")
  129.                   (help "")
  130.                   (source "austria")
  131.                   (dest @default-dest)
  132.                   (pattern "#?.info")
  133.                   (optional force askuser)
  134.             )
  135.       )
  136. )
  137.  
  138. (complete 60)
  139.  
  140. ; Deutschland-Karte installiert ?
  141. (if (exists "AmiAtlas:germany")
  142.     (if (askbool
  143.                 (prompt "\nDeutschland-Karte speichern\n\n"
  144.                         "Auf Ihrer Festplatte ist eine Karte von Deutschland enthalten, die "
  145.                         "im Grenzgebiet nicht mit der neuen Österreich-Karte zusammenpaßt. "
  146.                         "Soll eine passende Deutschland-Karte eingerichtet werden ?\n\n")
  147.                 (help "\nHilfe zur Speicherung der Deutschland-Karte\n\n"
  148.                       "Um bei den Grenzstrecken mit der Österreich-Karte zusammenzupassen, "
  149.                       "muß eine neue Deutschland-Karte installiert werden. Beachten Sie jedoch, "
  150.                       "daß die alten Karten-Daten von Deutschland überschrieben werden. Diese "
  151.                       "Installation fertigt zunächst eine Sicherungskopie an, bevor die neue "
  152.                       "Karte erstellt wird.\n\n")
  153.                 (choices "Ja" "Nein")
  154.                 (default 1)
  155.           )
  156.           (
  157.                 (message "\nSicherungskopie anfertigen\n\n"
  158.                          "Bitte klicken Sie 'Proceed' an, um von der alten Deutschland-Karte "
  159.                          "eine Kopie anzufertigen (in Verzeichnis 'AmiAtlas:germany_old')")
  160.  
  161.                 (if (NOT (exists "AmiAtlas:germany_old"))
  162.                     (makedir "AmiAtlas:germany_old"
  163.                         (infos)
  164.                     )
  165.                 )
  166.  
  167.                 (copyfiles
  168.                       (prompt "Erzeuge Sicherungskopie der Deutschland-Karte")
  169.                       (help "")
  170.                       (source "AmiAtlas:germany")
  171.                       (dest "AmiAtlas:germany_old")
  172.                       (optional force askuser)
  173.                       (all)
  174.                 )
  175.  
  176.                 (complete 65)
  177.  
  178.                 (set GermanyCopyMsg "Eine Kopie der Deutschland-Karte wurde in 'AmiAtlas:germany_old' abgelegt.")
  179.  
  180.                 (message "\nDeutschland-Karte einrichten\n\n"
  181.                          "Bitte klicken Sie 'Proceed' an, um nun die neue Deutschlandkarte "
  182.                          "auf Ihre Festplatte zu kopieren.")
  183.  
  184.                 (copyfiles
  185.                       (prompt "Kopiere Deutschland-Karte")
  186.                       (help "")
  187.                       (source "germany_new")
  188.                       (dest "AmiAtlas:germany")
  189.                       (pattern "~(#?.info)")
  190.                       (optional force askuser)
  191.                 )
  192.  
  193.                 (complete 75)
  194.  
  195.                 (if (exists "AmiAtlas:germany/germany.town.info")
  196.                     (copyfiles
  197.                           (prompt "Kopiere Icons zur Deutschland-Karte")
  198.                           (help "")
  199.                           (source "germany_new")
  200.                           (dest "AmiAtlas:germany")
  201.                           (pattern "#?.info")
  202.                           (optional force askuser)
  203.                     )
  204.                 )
  205.           )
  206.     )
  207. )
  208.  
  209. (complete 80)
  210.  
  211. ; Anpassung der Grenzverbindungen Österreich-Deutschland
  212. (if (exists "AmiAtlas:germany")
  213.     (
  214.         (message "\nAnpassung der Grenzübergänge\n\n"
  215.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zu Österreich "
  216.                  "bei der installierten Deutschland-Karte zu ergänzen.")
  217.  
  218.         (copyfiles
  219.               (prompt "Kopiere Grenzbeschreibung")
  220.               (help "")
  221.               (source "germany_new/germany.share")
  222.               (dest "AmiAtlas:germany")
  223.         )
  224.  
  225.         (complete 81)
  226.  
  227.         (if (exists "AmiAtlas:germany/germany.town.info")
  228.             (copyfiles
  229.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  230.                   (help "")
  231.                   (source "germany_new")
  232.                   (dest "AmiAtlas:germany")
  233.                   (pattern "#?.share.info")
  234.                   (optional force askuser)
  235.             )
  236.         )
  237.     )
  238. )
  239.  
  240. (complete 82)
  241.  
  242. ; Anpassung der Grenzverbindungen Österreich-Schweiz
  243. (if (exists "AmiAtlas:swiss")
  244.     (
  245.         (message "\nAnpassung der Grenzübergänge\n\n"
  246.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zu Österreich "
  247.                  "bei der installierten Schweiz-Karte zu ergänzen.")
  248.  
  249.         (copyfiles
  250.               (prompt "Kopiere Grenzbeschreibung")
  251.               (help "")
  252.               (source "swiss_new/swiss.share")
  253.               (dest "AmiAtlas:swiss")
  254.         )
  255.  
  256.         (complete 83)
  257.  
  258.         (if (exists "AmiAtlas:swiss/swiss.town.info")
  259.             (copyfiles
  260.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  261.                   (help "")
  262.                   (source "swiss_new")
  263.                   (dest "AmiAtlas:swiss")
  264.                   (pattern "#?.share.info")
  265.                   (optional force askuser)
  266.             )
  267.         )
  268.     )
  269. )
  270.  
  271. (complete 84)
  272.  
  273. ; Anpassung der Grenzverbindungen Österreich-Italien
  274. (if (exists "AmiAtlas:italy")
  275.     (
  276.         (message "\nAnpassung der Grenzübergänge\n\n"
  277.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zu Österreich "
  278.                  "bei der installierten Italien-Karte zu ergänzen.")
  279.  
  280.         (copyfiles
  281.               (prompt "Kopiere Grenzbeschreibung")
  282.               (help "")
  283.               (source "italy_new/italy.share")
  284.               (dest "AmiAtlas:italy")
  285.         )
  286.  
  287.         (complete 85)
  288.  
  289.         (if (exists "AmiAtlas:italy/italy.town.info")
  290.             (copyfiles
  291.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  292.                   (help "")
  293.                   (source "italy_new")
  294.                   (dest "AmiAtlas:italy")
  295.                   (pattern "#?.share.info")
  296.                   (optional force askuser)
  297.             )
  298.         )
  299.     )
  300. )
  301.  
  302. (complete 86)
  303.  
  304. ; Anpassung der Grenzverbindungen Österreich-Ungarn
  305. (if (exists "AmiAtlas:hungary")
  306.     (
  307.         (message "\nAnpassung der Grenzübergänge\n\n"
  308.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zu Österreich "
  309.                  "bei der installierten Ungarn-Karte zu ergänzen.")
  310.  
  311.         (copyfiles
  312.               (prompt "Kopiere Grenzbeschreibung")
  313.               (help "")
  314.               (source "hungary_new/hungary.share")
  315.               (dest "AmiAtlas:hungary")
  316.         )
  317.  
  318.         (complete 87)
  319.  
  320.         (if (exists "AmiAtlas:hungary/hungary.town.info")
  321.             (copyfiles
  322.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  323.                   (help "")
  324.                   (source "hungary_new")
  325.                   (dest "AmiAtlas:hungary")
  326.                   (pattern "#?.share.info")
  327.                   (optional force askuser)
  328.             )
  329.         )
  330.     )
  331. )
  332.  
  333. (complete 88)
  334.  
  335. ; Anpassung der Grenzverbindungen Österreich-Tschechien/Slowakei
  336. (if (exists "AmiAtlas:cz_sk")
  337.     (
  338.         (message "\nAnpassung der Grenzübergänge\n\n"
  339.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zu Österreich "
  340.                  "bei der installierten Tschechien/Slowakei-Karte zu ergänzen.")
  341.  
  342.         (copyfiles
  343.               (prompt "Kopiere Grenzbeschreibung")
  344.               (help "")
  345.               (source "cz_sk_new/cz_sk.share")
  346.               (dest "AmiAtlas:cz_sk")
  347.         )
  348.  
  349.         (complete 89)
  350.  
  351.         (if (exists "AmiAtlas:cz_sk/cz_sk.town.info")
  352.             (copyfiles
  353.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  354.                   (help "")
  355.                   (source "cz_sk_new")
  356.                   (dest "AmiAtlas:cz_sk")
  357.                   (pattern "#?.share.info")
  358.                   (optional force askuser)
  359.             )
  360.         )
  361.     )
  362. )
  363.  
  364. (complete 90)
  365.  
  366. ; Voreinstellung ändern
  367. (if (askbool
  368.             (prompt "\nVoreinstellung ändern\n\n"
  369.                     "Soll die Voreinstellung so verändert werden, daß beim Starten von 'AmiAtlas Pro' "
  370.                     "sofort die Karte von Österreich geladen wird ?")
  371.             (help "\nHilfe zu Änderung der Voreinstellung\n\n"
  372.                   "'AmiAtlas Pro' legt in seiner Voreinstellung fest, welche Karte beim Laden des "
  373.                   "Programms geöffnet wird. Nach der Installation der neuen Karte wird normalerweise "
  374.                   "weiterhin die vorher festgelegte Karte von 'AmiAtlas Pro' verwendet.\n\n"
  375.                   "Hier kann nun die Voreinstellung verändert werden, so daß automatisch auch die "
  376.                   "neue Karte verwendet wird. Beachten Sie jedoch, daß dabei alle anderen "
  377.                   "Voreinstellungen von 'AmiAtlas Pro' auf die Standardwerte zurückgesetzt werden.")
  378.             (choices "Ja" "Nein")
  379.             (default 0)
  380.       )
  381.       (
  382.             (set osversion (/ (getversion) 65536))
  383.  
  384.             (if (< osversion 36)
  385.                   (copyfiles
  386.                         (prompt "Kopiere Datei 'AmiAtlas.prefs'")
  387.                         (help "")
  388.                         (source "s/AmiAtlas.prefs")
  389.                         (dest "AmiAtlas:")
  390.                   )
  391.                   (copyfiles
  392.                         (prompt "Kopiere Datei 'AmiAtlas.prefs'")
  393.                         (help "")
  394.                         (source "s/AmiAtlas.prefs")
  395.                         (dest "ENVARC:")
  396.                   )
  397.             )
  398.       )
  399.       (message "\nHinweis zum Laden der neuen Karte\n\n"
  400.                "Die Voreinstellung von 'AmiAtlas Pro' blieb unverändert.\n\n"
  401.                "Um die neue Karte zu öffnen, laden Sie diese bitte über den Menüpunkt 'Laden...' "
  402.                "im 'Karte'-Menü des Hauptprogramms.")
  403. )
  404.  
  405. (complete 100)
  406.  
  407. (message "\nInstallation beendet\n\n"
  408.          "Die Karte von Österreich befindet sich nun im Verzeichnis: '" @default-dest "'\n\n"
  409.          GermanyCopyMsg)
  410.  
  411. (exit (quiet))
  412.  
  413.