home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / AAGERSPC.DMS / in.adf / HDInstall < prev    next >
Encoding:
Text File  |  1995-05-31  |  12.5 KB  |  304 lines
  1. ; Installationsskript für Karte [Deutschland-Spezial] von AmiAtlas Pro
  2. ; erstellt für Installer V1.24, 18.5.95, 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 Deutschland wurden nicht komplett installiert. "
  20.                      "Bitte wiederholen Sie die Installation, um eine lauffähige Version auf Ihrer "
  21.                      "Festplatte zu erhalten."))
  22.  
  23. (complete 0)
  24.  
  25. (set @sysdir (expandpath "SYS:"))
  26. (set @default-dest "AmiAtlas:germany_special")
  27. (set lhatarget (cat @default-dest "/"))
  28.  
  29. (if (< (/ (getversion) 65536) 36)
  30.       (set prefspath "AmiAtlas:")
  31.       (set prefspath "ENVARC:")
  32. )
  33.  
  34. (complete 4)
  35.  
  36. ; Prüfen, ob AmiAtlas schon installiert ist
  37. (if (NOT (exists "AmiAtlas:"))
  38.       (
  39.             (message (cat "\n"
  40.                       "Warnung !!!                                  \n"
  41.                       "                                             \n"
  42.                       "'AmiAtlas Pro' ist nicht auf Ihrer Festplatte\n"
  43.                       "installiert.                                 \n"
  44.                       "                                             \n"
  45.                       "Bitte installieren Sie zunächst AmiAtlas Pro,\n"
  46.                       "um danach die Kartendaten zu kopieren.       \n")
  47.             )
  48.  
  49.             (exit (quiet))
  50.       )
  51. )
  52.  
  53. (complete 6)
  54.  
  55. ; Ist ältere AmiAtlas-Version intalliert ?
  56. (if (< (/ (getversion "AmiAtlas:AmiAtlas") 65536) 2)
  57.       (
  58.             (message (cat "\n"
  59.                       "Warnung !!!                                  \n"
  60.                       "                                             \n"
  61.                       "Es ist eine ältere AmiAtlas-Version auf Ihrer\n"
  62.                       "Festplatte installiert, die das Kartenformat \n"
  63.                       "dieser Karte nicht laden kann.               \n"
  64.                       "                                             \n"
  65.                       "Bitte installieren Sie zunächst Version 2.0  \n"
  66.                       "und kopieren Sie danach die Kartendaten von  \n"
  67.                       "Deutschland-Spezial.                         \n")
  68.             )
  69.  
  70.             (exit (quiet))
  71.       )
  72. )
  73.  
  74. (complete 8)
  75.  
  76. (welcome "Willkommen zur Festplatten-Installation der Deutschland-Spezial-Karte von 'AmiAtlas Pro'.")
  77.  
  78. ; Verzeichnis für Deutschlandkarte erzeugen
  79. (if (NOT (exists @default-dest))
  80.       (makedir @default-dest
  81.             (prompt "\nVerzeichnis für Karte\n\n"
  82.                     "Bitte klicken Sie 'Proceed' an, um das Verzeichnis '" @default-dest "' für "
  83.                     "die Kartendaten zu erzeugen.")
  84.             (confirm)
  85.             (help "\nHilfe zur Verzeichniserstellung\n\n"
  86.                   "Im Verzeichnis von 'AmiAtlas Pro' wird ein Unterverzeichnis für die Karte "
  87.                   "von Deutschland-Spezial benötigt. In dieses Verzeichnis werden daraufhin alle Daten "
  88.                   "zur Deutschlandkarte kopiert.")
  89.             (infos)
  90.       )
  91.       (
  92.             (if (NOT
  93.                   (askbool
  94.                        (prompt (cat "\n"
  95.                                 "Hinweis                                    \n"
  96.                                 "                                           \n"
  97.                                 "Die Deutschland-Spezial-Karte ist bereits  \n"
  98.                                 "installiert. Soll erneut eine Installation \n"
  99.                                 "durchgeführt werden ?                      \n"
  100.                                 "                                           \n"
  101.                                 "Warnung: Die vorhandenen Daten werden über-\n"
  102.                                 "schrieben.                                 \n"))
  103.                        (help "\nHilfe zu existierender Karte\n\n"
  104.                              "Im Verzeichnis von 'AmiAtlas Pro' wurde das Unterverzeichnis "
  105.                              "'germany_special' gefunden. In dieses Verzeichnis wurden bereits zu "
  106.                              "einem früheren Zeitpunkt die Kartendaten von Deutschland kopiert.\n\n"
  107.                              "Eine Neuinstallation ist dann sinnvoll, wenn die Daten aus irgendeinem "
  108.                              "Grunde ungültig geworden sind oder eine erweiterte Karte installiert "
  109.                              "werden soll.")
  110.                        (choices "Ja" "Nein")
  111.                        (default 0)
  112.                   )
  113.                   )
  114.                   (exit (quiet))
  115.             )
  116.       )
  117. )
  118.  
  119. (complete 10)
  120.  
  121. (working "Entpacke Karte Deutschland-Spezial...")
  122.  
  123. (run (cat "lhx x germany_special.lha \"" lhatarget "\""))
  124.  
  125. (complete 60)
  126.  
  127. (set n 0)
  128. (while (set fileextension (select n ".borders"
  129.                                     ".coasts"
  130.                                     ".islands"
  131.                                     ".rivers"
  132.                                     ".sea"
  133.                                     ".carID"
  134.                                     ".parks"
  135.                                     ".hotels"
  136.                                     ".journey"
  137.                                     ".mappos" ""))
  138.       (
  139.             (set n (+ n 1))
  140.  
  141.             (set sourcefile (cat "AmiAtlas:germany/germany" fileextension))
  142.  
  143.             (if (exists sourcefile)
  144.                   (copyfiles
  145.                         (prompt "Übernehme Daten von der Standard-Deutschland-Karte...")
  146.                         (help "")
  147.                         (source sourcefile)
  148.                         (dest "AmiAtlas:germany_special")
  149.                         (infos)
  150.                   )
  151.                   (message (cat "\n"
  152.                             "Hinweis                                       \n"
  153.                             "                                              \n"
  154.                             "Konnte folgende Datei nicht finden:           \n"
  155.                             "                                              \n"
  156.                             sourcefile)
  157.                   )
  158.             )
  159.       )
  160. )
  161.  
  162. (complete 80)
  163.  
  164. ; Share-Dateien in umliegenden Staaten anpassen
  165. (if (askbool
  166.             (prompt "\nGrenzverbindungen ändern\n\n"
  167.                     "Um eine korrekte Verbindung zu den zu Deutschland angrenzenden "
  168.                     "Staaten zu gewährleisten, müssen die Grenzbeschreibungsdateien "
  169.                     "dieser Staaten verändert werden. Sollen diese Veränderungen "
  170.                     "nun durchgeführt werden ?")
  171.             (help "")
  172.             (choices "Ja" "Nein")
  173.             (default 0)
  174.       )
  175.       (
  176.             ; Verzeichnis für veraltete share-Dateien erzeugen
  177.             (if (NOT (exists "AmiAtlas:obsolete"))
  178.                   (makedir "AmiAtlas:obsolete"
  179.                         (infos)
  180.                   )
  181.             )
  182.             (if (NOT (exists "AmiAtlas:obsolete/shares"))
  183.                   (makedir "AmiAtlas:obsolete/shares"
  184.                         (infos)
  185.                   )
  186.             )
  187.  
  188.             (set n 0)
  189.             (while (set country (select n "danmark"
  190.                                           "benelux"
  191.                                           "belgium"
  192.                                           "france"
  193.                                           "swiss"
  194.                                           "austria"
  195.                                           "cz_sk"
  196.                                           "poland" ""))
  197.                   (
  198.                         (set n (+ n 1))
  199.  
  200.                         (set countrypath (cat "AmiAtlas:" country))
  201.                         (set lhacountrypath (cat countrypath "/"))
  202.                         (set sharefile (cat "AmiAtlas:" country "/" country ".share"))
  203.                         (set newsharefile (cat country ".share"))
  204.  
  205.                         (if (exists countrypath)
  206.                               (
  207.                                     (if (exists sharefile)
  208.                                           (copyfiles
  209.                                                 (prompt "Erstelle Kopie der Grenzverbindungen")
  210.                                                 (help "")
  211.                                                 (source sharefile)
  212.                                                 (dest "AmiAtlas:obsolete/shares")
  213.                                                 (infos)
  214.                                           )
  215.                                     )
  216.                                     (working "Erstelle neue Grenzverbindungen...")
  217.                                     (run (cat "lhx x new_shares.lha " newsharefile " " lhacountrypath))
  218.                               )
  219.                         )
  220.                   )
  221.             )
  222.  
  223.             (set obsolete_message (cat "\n"
  224.                " Eine Kopie der alten Grenzbeschreibungen   \n"
  225.                " wurde im folgenden Verzeichnis abgelegt:   \n"
  226.                "                                            \n"
  227.                "'" (expandpath "AmiAtlas:obsolete/shares") "'\n")
  228.             )
  229.       )
  230.       (
  231.             (if (NOT (exists "AmiAtlas:new_shares"))
  232.                   (makedir "AmiAtlas:new_shares"
  233.                         (infos)
  234.                   )
  235.             )
  236.             (run "lhx x new_shares.lha AmiAtlas:new_shares/")
  237.             (message (cat "\n"
  238.                       " Hinweis für die Kartenverbindung            \n"
  239.                       "                                             \n"
  240.                       " Die Grenzdateien blieben unverändert. Bitte \n"
  241.                       " ersetzen Sie 'per Hand' die share-Dateien in\n"
  242.                       " den Deutschland umliegenden Staaten.        \n"
  243.                       "                                             \n"
  244.                       " Passende share-Dateien befinden sich in     \n"
  245.                       " folgendem Verzeichnis:                      \n"
  246.                       "                                             \n"
  247.                       (expandpath "AmiAtlas:new_shares"))
  248.             )
  249.       )
  250. )
  251.  
  252. (complete 90)
  253.  
  254. ; Voreinstellungen auf Wunsch ändern
  255. (if (askbool
  256.             (prompt "\nVoreinstellung ändern\n\n"
  257.                     "Soll die Voreinstellung so verändert werden, daß beim Starten von 'AmiAtlas Pro' "
  258.                     "sofort die Deutschland-Spezial-Karte geladen wird ?")
  259.             (help "\nHilfe zu Änderung der Voreinstellung\n\n"
  260.                   "'AmiAtlas Pro' legt in seiner Voreinstellung fest, welche Karte beim Laden des "
  261.                   "Programms geöffnet wird. Nach der Installation der neuen Karte wird normalerweise "
  262.                   "weiterhin die vorher festgelegte Karte von 'AmiAtlas Pro' verwendet.\n\n"
  263.                   "Hier kann nun die Voreinstellung verändert werden, so daß automatisch auch die "
  264.                   "neue Karte verwendet wird. Beachten Sie jedoch, daß dabei alle anderen "
  265.                   "Voreinstellungen von 'AmiAtlas Pro' auf die Standardwerte zurückgesetzt werden.")
  266.             (choices "Ja" "Nein")
  267.             (default 0)
  268.       )
  269.       (copyfiles
  270.             (prompt "Kopiere Datei 'AmiAtlas.prefs'")
  271.             (help "")
  272.             (source "s/AmiAtlas.prefs")
  273.             (dest prefspath)
  274.             (infos)
  275.       )
  276.  
  277.       (message (cat "\n"
  278.                 " Hinweis zum Laden der neuen Karte           \n"
  279.                 "                                             \n"
  280.                 " Die Voreinstellung von 'AmiAtlas Pro' blieb \n"
  281.                 " unverändert.                                \n"
  282.                 "                                             \n"
  283.                 " Um die neue Karte zu öffnen, laden Sie diese\n"
  284.                 " bitte über den Menüpunkt 'Laden...' aus dem \n"
  285.                 " 'Karte'-Menü des Hauptprogramms.            \n")
  286.       )
  287. )
  288.  
  289. (complete 100)
  290.  
  291. ; Abschlußmeldung
  292. (message (cat "\n"
  293.           " Installation beendet                       \n"
  294.           "                                            \n"
  295.           " Die Deutschland-Spezial-Karte befindet sich\n"
  296.           " nun im Verzeichnis:                        \n"
  297.           "                                            \n"
  298.           "'" (expandpath @default-dest) "'\n"
  299.           obsolete_message)
  300. )
  301.  
  302. (exit (quiet))
  303.  
  304.