home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / Amiatlas / AmiAtlasProZusatzSchweiz.dms / in.adf / HDInstall < prev    next >
Encoding:
Text File  |  1994-11-29  |  10.3 KB  |  279 lines
  1. ; Installationsskript für Karte [Schweiz] von AmiAtlas Pro
  2. ; erstellt für Installer V1.24, 29.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 der Schweiz 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:swiss")
  25.  
  26. (complete 0)
  27.  
  28. ; Wurde von der Diskette gebootet ?
  29. (if (= @sysdir "AmiAtlas_Schweiz")
  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 Schweiz-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 der Schweiz benötigt. In dieses Verzeichnis werden daraufhin alle Daten "
  64.                   "zur Schweiz-Karte kopiert.")
  65.             (infos)
  66.       )
  67.       (
  68.             (if (NOT
  69.                   (askbool
  70.                        (prompt "\nHinweis\n\nDie Schweiz-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.                              "'swiss' gefunden. In dieses Verzeichnis wurden bereits zu "
  76.                              "einem früheren Zeitpunkt die Kartendaten von der Schweiz 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 der Schweiz in das "
  94.          "entsprechende Verzeichnis auf Ihrer Festplatte zu kopieren.")
  95.  
  96. (copyfiles
  97.       (prompt "Kopiere Karte der Schweiz.")
  98.       (help "")
  99.       (source "swiss")
  100.       (dest @default-dest)
  101.       (pattern "~(#?.info)")
  102.       (optional force askuser)
  103. )
  104.  
  105. (complete 70)
  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 Schweiz-Karte.")
  129.                   (help "")
  130.                   (source "swiss")
  131.                   (dest @default-dest)
  132.                   (pattern "#?.info")
  133.                   (optional force askuser)
  134.             )
  135.       )
  136. )
  137.  
  138. (complete 80)
  139.  
  140. ; Grenzbeschreibung in Deutschland-Karte ergänzen
  141. (if (exists "AmiAtlas:germany")
  142.     (
  143.         (message "\nAnpassung der Grenzübergänge\n\n"
  144.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zur Schweiz "
  145.                  "bei der installierten Deutschland-Karte zu ergänzen.")
  146.  
  147.         (copyfiles
  148.               (prompt "Kopiere Grenzbeschreibung")
  149.               (help "")
  150.               (source "germany_new/germany.share")
  151.               (dest "AmiAtlas:germany")
  152.         )
  153.  
  154.         (complete 82)
  155.  
  156.         (if (exists "AmiAtlas:germany/germany.town.info")
  157.             (copyfiles
  158.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  159.                   (help "")
  160.                   (source "germany_new")
  161.                   (dest "AmiAtlas:germany")
  162.                   (pattern "#?.share.info")
  163.                   (optional force askuser)
  164.             )
  165.         )
  166.     )
  167. )
  168.  
  169. (complete 83)
  170.  
  171. ; Grenzbeschreibung in Österreich-Karte ergänzen
  172. (if (exists "AmiAtlas:austria")
  173.     (
  174.         (message "\nAnpassung der Grenzübergänge\n\n"
  175.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zur Schweiz "
  176.                  "bei der installierten Österreich-Karte zu ergänzen.")
  177.  
  178.         (copyfiles
  179.               (prompt "Kopiere Grenzbeschreibung")
  180.               (help "")
  181.               (source "austria_new/austria.share")
  182.               (dest "AmiAtlas:austria")
  183.         )
  184.  
  185.         (complete 85)
  186.  
  187.         (if (exists "AmiAtlas:austria/austria.town.info")
  188.             (copyfiles
  189.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  190.                   (help "")
  191.                   (source "austria_new")
  192.                   (dest "AmiAtlas:austria")
  193.                   (pattern "#?.share.info")
  194.                   (optional force askuser)
  195.             )
  196.         )
  197.     )
  198. )
  199.  
  200. (complete 86)
  201.  
  202. ; Grenzbeschreibung in Italien-Karte ergänzen
  203. (if (exists "AmiAtlas:germany")
  204.     (
  205.         (message "\nAnpassung der Grenzübergänge\n\n"
  206.                  "Bitte klicken Sie 'Proceed' an, um die Zusatzdaten für Grenzübergänge zur Schweiz "
  207.                  "bei der installierten Italien-Karte zu ergänzen.")
  208.  
  209.         (copyfiles
  210.               (prompt "Kopiere Grenzbeschreibung")
  211.               (help "")
  212.               (source "italy_new/italy.share")
  213.               (dest "AmiAtlas:italy")
  214.         )
  215.  
  216.         (complete 88)
  217.  
  218.         (if (exists "AmiAtlas:italy/italy.town.info")
  219.             (copyfiles
  220.                   (prompt "Kopiere Icon für Grenzübergangsdatei")
  221.                   (help "")
  222.                   (source "italy_new")
  223.                   (dest "AmiAtlas:italy")
  224.                   (pattern "#?.share.info")
  225.                   (optional force askuser)
  226.             )
  227.         )
  228.     )
  229. )
  230.  
  231. (complete 90)
  232.  
  233. ; Voreinstellung ändern
  234. (if (askbool
  235.             (prompt "\nVoreinstellung ändern\n\n"
  236.                     "Soll die Voreinstellung so verändert werden, daß beim Starten von 'AmiAtlas Pro' "
  237.                     "sofort die Karte von der Schweiz geladen wird ?")
  238.             (help "\nHilfe zu Änderung der Voreinstellung\n\n"
  239.                   "'AmiAtlas Pro' legt in seiner Voreinstellung fest, welche Karte beim Laden des "
  240.                   "Programms geöffnet wird. Nach der Installation der neuen Karte wird normalerweise "
  241.                   "weiterhin die vorher festgelegte Karte von 'AmiAtlas Pro' verwendet.\n\n"
  242.                   "Hier kann nun die Voreinstellung verändert werden, so daß automatisch auch die "
  243.                   "neue Karte verwendet wird. Beachten Sie jedoch, daß dabei alle anderen "
  244.                   "Voreinstellungen von 'AmiAtlas Pro' auf die Standardwerte zurückgesetzt werden.")
  245.             (choices "Ja" "Nein")
  246.             (default 0)
  247.       )
  248.       (
  249.             (set osversion (/ (getversion) 65536))
  250.  
  251.             (if (< osversion 36)
  252.                   (copyfiles
  253.                         (prompt "Kopiere Datei 'AmiAtlas.prefs'")
  254.                         (help "")
  255.                         (source "s/AmiAtlas.prefs")
  256.                         (dest "AmiAtlas:")
  257.                   )
  258.                   (copyfiles
  259.                         (prompt "Kopiere Datei 'AmiAtlas.prefs'")
  260.                         (help "")
  261.                         (source "s/AmiAtlas.prefs")
  262.                         (dest "ENVARC:")
  263.                   )
  264.             )
  265.       )
  266.       (message "\nHinweis zum Laden der neuen Karte\n\n"
  267.                "Die Voreinstellung von 'AmiAtlas Pro' blieb unverändert.\n\n"
  268.                "Um die neue Karte zu öffnen, laden Sie diese bitte über den Menüpunkt 'Laden...' "
  269.                "im 'Karte'-Menü des Hauptprogramms.")
  270. )
  271.  
  272. (complete 100)
  273.  
  274. (message "\nInstallation beendet\n\n"
  275.          "Die Karte von der Schweiz befindet sich nun im Verzeichnis:\n'" @default-dest "'")
  276.  
  277. (exit (quiet))
  278.  
  279.