home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / TAU-MAT3.LHA / maxonatlas / installation / HDInstall < prev    next >
Encoding:
Text File  |  1996-08-01  |  43.1 KB  |  1,401 lines
  1. ; MaxonATLAS 3 installation script
  2. ; created for Installer V43.3, 4.10.96, by Andreas Regul
  3. ; (c)'96 SOFTWARE DEVELOPMENT
  4.  
  5. ; ------------------------------------------------------------------------------
  6. ; Predefined variables
  7.  
  8. (set #appname "MaxonATLAS")
  9. (set #assname (cat #appname ":"))
  10.  
  11. (set #min_stacksize 20000)
  12. (set #min_drivespace 8000000)
  13.  
  14. (set #OSversion (/ (getversion) 65536))
  15. (set #OS2 (AND (>= #OSversion 36) (<= #OSversion 38)))
  16. (set #OS3 (>= #OSversion 39))
  17. (set #chipset (database "chiprev"))
  18. (set #external_viewer (OR (= #OS2 1) (<> #chipset "AA")))
  19.  
  20. (set #cybervision (exists "SYS:devs/Monitors/CyberVision" (noreq)))
  21. (set #cyber640x480 "")
  22. (set #cyber800x600 "")
  23. (set #cyber1024x768 "")
  24. (set #cyber1280x1024 "")
  25.  
  26. (set #germany_small "")
  27. (set #germany_special "")
  28. (set #europe_small "")
  29. (set #europe_special "")
  30. (set #europe_plan "")
  31.  
  32. (set #germany_special_size 3000000)
  33. (set #europe_size 3300000)
  34. (set #europe_special_size 4000000)
  35. (set #europe_plan_size 1500000)
  36.  
  37. ; ------------------------------------------------------------------------------
  38. ; english strings
  39.  
  40. (if (= @language "english")
  41. (
  42.    (set @special-msg (cat "Please repeat installation.\n"))
  43.  
  44.    (set @error-msg (cat #appname " 3 installation has not been completed.\n"
  45.                         "Please repeat installation."))
  46.  
  47.    (set #introduction (cat "\n"
  48.  
  49.        #appname " 3\n"
  50.        "\n"
  51.        "©'96 MAXON-Computer, Eschborn\n"
  52.        "©'96 SOFTWARE DEVELOPMENT, Andreas Regul\n"
  53.        "\n"
  54.        #appname " 3 is not freely distributable. Please read the licence agreement in the documentation file.\n"
  55.    ))
  56.  
  57.    (set #error (cat
  58.  
  59.        "Some error has ocurred. Please inform the author.\n"
  60.        "\n"
  61.        "The following information is required: error code (see above), last error message, the percentage done (see window title) and your log file. If available: a SnoopDos report. Thanks !\n"
  62.    ))
  63.  
  64.    (set #assign_found (cat "\n"
  65.        #appname " installation detected...\n"
  66.    ))
  67.  
  68.    (set #assign_found_help "")
  69.  
  70.    (set #new    "Install new")
  71.    (set #update (cat "Update existing " #appname))
  72.    (set #remove (cat "Remove " #appname " from your system"))
  73.  
  74.    (set #remove_MaxonATLAS (cat "Remove " #appname " assign ?\n"))
  75.    (set #must_remove "")
  76.    (set #removed     "; (removed)")
  77.  
  78.    (set #where_to_install (cat "Where do you want " #appname " to be installed ?"))
  79.  
  80.    (set #where_help "")
  81.  
  82.    (set #err_wrong_version (cat "\n"
  83.        "Wrong installer version\n"
  84.        "\n"
  85.        "You are using an obsolete 'Installer' program on your Amiga. The install script needs version 43.3 or better.\n"
  86.        "\n"
  87.        "Please check your configuration.\n"
  88.    ))
  89.  
  90.    (set #err_wrong_OS (cat "\n"
  91.        "Obsolete operation system\n"
  92.        "\n"
  93.        "Your Amiga runs an obsolete OS version (Kickstart 1.2 or 1.3). " #appname " needs at least Kickstart and Workbench 2.0.\n"
  94.        "\n"
  95.        "Sorry...\n"
  96.    ))
  97.  
  98.    (set #err_no_default_target (cat "\n"
  99.        "No standard hard drive detected\n"
  100.        "\n"
  101.        "There is no standard hard drive device accessible on you system.\n"
  102.        "\n"
  103.        "Please use installation modes AVERAGE or EXPERT to specify the hard drive yourself.\n"
  104.    ))
  105.  
  106.    (set #bad_ram_path (cat "\n"
  107.        "Warning...\n"
  108.        "\n"
  109.        "Cannot install to RAM disk.\n"
  110.    ))
  111.  
  112.    (set #err_drive_space (cat "\n"
  113.        "Not enough memory\n"
  114.        "\n"
  115.        "This installation requires at least 8 MByte of free disk space. Please make this space available and start installation again.\n"
  116.    ))
  117.  
  118.    (set #creating_dirs (cat "\n Creating directories for " #appname "\n"))
  119.  
  120.    (set #copy_prog_files "Copying program files")
  121.    (set #copy_config     "Creating custom configuration")
  122.    (set #test_guide      "Testing AmigaGuide and MultiView versions")
  123.  
  124.    (set #screen_mode "Choose screen mode...")
  125.    (set #screen_mode_help "")
  126.  
  127.    (set #pal_screen "PAL noninterlaced screen")
  128.    (set #workbench  "Workbench screen")
  129.  
  130.    (if (= #cybervision 1)
  131.        (
  132.           (set #cyber640x480 "CyberVision 640 x 480")
  133.           (set #cyber800x600 "CyberVision 800 x 600")
  134.           (set #cyber1024x768 "CyberVision 1024 x 768")
  135.           (set #cyber1280x1024 "CyberVision 1280 x 1024  (be careful !)")
  136.        )
  137.    )
  138.  
  139.    (set #prpt_map_choice "Choose maps to install...")
  140.    (set #prpt_map_choice_help "")
  141.  
  142.    (set #germany_small "Germany standard (4.000 towns)")
  143.    (set #germany_special "Germany special (15.500 towns)")
  144.    (set #europe_small "Europe standard (5.500 towns)")
  145.    (set #europe_special "Europe special (17.000 towns)")
  146.    (set #europe_plan "Europe planning (1.500 towns)")
  147.  
  148.    (set #memory_size (cat "How much memory (chip + fast) do you want " #appname " to use as maximum ?"))
  149.    (set #memory_size_help "")
  150.  
  151.    (set #small_mem "Up to 3 MByte RAM")
  152.    (set #medium_mem "3 to 4 MByte RAM")
  153.    (set #large_mem "4 to 6 MByte RAM")
  154.    (set #huge_mem "More than 6 MByte RAM")
  155.  
  156.    (set #ask_overwrite_actual (cat "\nAn actual " #appname " version is already installed. Do you want to repeat installation anyway ?"))
  157.  
  158.    (set #yes "Yes")
  159.    (set #no  "No")
  160.  
  161.    (set #copying_mapD "Copying map Germany standard")
  162.    (set #copying_mapDS "Copying map Germany special")
  163.    (set #copying_mapE "Copying map Europe standard")
  164.    (set #copying_mapES "Copying map Europe special")
  165.    (set #copying_mapEP "Copying European Planning Map")
  166.  
  167.    (set #msg_low_mem_germany_special "Not enough memory for map Germany special")
  168.    (set #msg_low_mem_europe "Not enough memory for map Europe")
  169.    (set #msg_low_mem_europe_special "Not enough memory for map Europe special")
  170.    (set #msg_low_mem_europe_plan "Not enough memory for European Planning Map")
  171.  
  172.    (set #ask_AmiAtlas_map_1 "\nAmiAtlas map '")
  173.    (set #ask_AmiAtlas_map_2 (cat "' has been found\n"
  174.                                  "\n"
  175.                                  "Do you want this map to be copied to your MaxonATLAS directory ?\n"
  176.    ))
  177.  
  178.    (set #copy_AmiAtlas_map "\nCopying AmiAtlas map '")
  179.  
  180.    (set #make_assign (cat "\n"
  181.        "Assign for " #appname "\n"
  182.        "\n"
  183.        "An assign command has to be added to file 'user-startup'. Please go on to do this automatically.\n"
  184.        "\n"
  185.        "In case you skip this part the new command line will not be added. In this case please add the following commands to file 'user-startup' yourself:\n"
  186.        "\n"
  187.        "Stack 20000\n"
  188.        "Assign " #assname " \""
  189.    ))
  190.  
  191.    (set #make_assign_help "")
  192.  
  193.    (set #install_complete (cat "\n"
  194.        "\n"
  195.        "Installation has been completed successfully.\n"
  196.        "\n"
  197.        "You can find " #appname " 3 in directory:\n"
  198.        "\n"
  199.    ))
  200.  
  201.    (set #lowmem_message (cat "\n"
  202.  
  203.       "Important note\n"
  204.       "\n"
  205.       #appname " is not able to run under the actual main memory situation.\n"
  206.       "\n"
  207.       "Please try to free memory before starting the program.\n"
  208.    ))
  209.  
  210.    (set #lowchip_message (cat "\n"
  211.  
  212.       "Important note\n"
  213.       "\n"
  214.       "In all probability your Amiga only uses 512 KByte of chip memory. In this case sea cannot be displayed.\n"
  215.    ))
  216. ))
  217.  
  218. ; ------------------------------------------------------------------------------
  219. ; german strings
  220.  
  221. (if (= @language "deutsch")
  222. (
  223.    (set @abort-button "Installation abbrechen")
  224.  
  225.    (set @special-msg (cat "Bitte wiederholen Sie die Installation.\n"))
  226.  
  227.    (set @error-msg (cat #appname" 3 wurde nicht komplett installiert.\n"
  228.                         "Bitte wiederholen Sie die Installation, um eine lauffähige Version auf Ihrer Festplatte zu erhalten."))
  229.  
  230.    (set #introduction (cat "\n"
  231.  
  232.        #appname " 3\n"
  233.        "\n"
  234.        "©'96 Maxon-Computer, Eschborn\n"
  235.        "©'96 Software Development, Andreas Regul\n"
  236.        "\n"
  237.        "Ein Routenplaner für Deutschland und Europa\n"
  238.        "\n"
  239.        "Kein Bestandteil dieses Pakets darf frei weitergegeben werden. Bitte lesen Sie die Lizenzvereinbarungen und das Nutzungsrecht in der Dokumentation.\n"
  240.    ))
  241.  
  242.    (set #error (cat
  243.  
  244.        "Ein Fehler ist aufgetreten. Bitte informieren Sie den Autor.\n"
  245.        "\n"
  246.        "Die folgenden Informationen werden benötigt: Fehler-Code (s.o.), Fehler-Text, abgearbeiteter Prozentsatz (s. Fenstertitel) und die Protokoll-Datei. Falls vorhanden: ein SnoopDos-Report. Danke !\n"
  247.    ))
  248.  
  249.    (set #assign_found (cat "\n" #appname "-Installation entdeckt...\n"))
  250.  
  251.    (set #assign_found_help (cat "\n"
  252.  
  253.        "Wählen Sie 'Update', um die neue " #appname "-Version über Ihre bisherige Kopie zu installieren; in diesem Fall wird das Skript auf einige Fragen verzichten und sich dafür an der bisherigen Installation orientieren.\n"
  254.        "\n"
  255.        "Mit 'Deinstallation' kann eine schon vorhandene " #appname "-Version entfernt werden. Einige Dateien werden dabei allerdings nicht gelöscht (u.a. Libraries, da sie meist noch von anderen Programmen benötigt werden).\n"
  256.        "\n"
  257.        "Von Ihren bisherigen Karten und Voreinstellungen werden Sicherheitskopien angelegt.\n"
  258.        "\n"
  259.        "Libraries werden nicht überschrieben, sofern sie nicht überholt sind.\n"
  260.    ))
  261.  
  262.    (set #new    "Neu installieren")
  263.    (set #update "Update (über bisherige Version installieren)")
  264.    (set #remove (cat #appname " entfernen"))
  265.  
  266.    (set #remove_MaxonATLAS  (cat "\n" #appname "-Assign entfernen ?\n"))
  267.    (set #must_remove (cat "\n"
  268.        "Sie sollten die Referenz entfernen lassen !\n"
  269.    ))
  270.    (set #removed "; (entfernt)")
  271.  
  272.    (set #where_to_install (cat ""
  273.        "Wo soll " #appname " installiert werden ?\n"
  274.        "Ein eigenes Verzeichnis wird erzeugt."
  275.    ))
  276.  
  277.    (set #where_help (cat "\n"
  278.  
  279.        "Wählen Sie ein beliebiges Verzeichnis. Hauptverzeichnisse wie Work: oder DH0: sollten bevorzugt werden. In dem angegebenen Pfad wird ein Ordner '" #appname "' samt Icon erzeugt.\n"
  280.        "\n"
  281.        "Sie sollten ein Verzeichnis wählen, dem ein Icon zugeordnet ist, um " #appname " über die Workbench wiederfinden zu können (etwa Work).\n"
  282.        "\n"
  283.        "Das " #appname "-Verzeichnis wird neben dem Routenplaner diverse Zusatzdateien aufnehmen: U.a. wird dort die Anleitung als ©AmigaGuide-Text abgelegt.\n"
  284.    ))
  285.  
  286.    (set #err_wrong_version (cat "\n"
  287.        "Ungeeignete Installer-Version\n"
  288.        "\n"
  289.        "Sie verwenden eine alte Version von 'Installer' auf Ihrem Amiga. Die Installationsprozedur benötigt Installer 43.3 oder höher.\n"
  290.        "\n"
  291.        "Bitte prüfen Sie Ihre Konfiguration.\n"
  292.    ))
  293.  
  294.    (set #err_wrong_OS (cat "\n"
  295.        "Veraltete Betriebssystemversion\n"
  296.        "\n"
  297.        "Sie verwenden eine veraltete Betriebssystemversion (Kickstart 1.2 oder 1.3) auf Ihrem Amiga. " #appname " benötigt mindestens Kickstart und Workbench 2.0.\n"
  298.        "\n"
  299.        "Sorry...\n"
  300.    ))
  301.  
  302.    (set #err_no_default_target (cat "\n"
  303.        "Festplatte nicht gefunden\n"
  304.        "\n"
  305.        "Es konnte keine Festplatte über einen Standard-Laufwerksnamen gefunden werden.\n"
  306.        "\n"
  307.        "Bitte starten Sie die Installation neu und wählen Sie als Installationsmodus entweder 'Geübter Benutzer' oder 'Experte', um das Laufwerk selber vorgeben zu können.\n"
  308.    ))
  309.  
  310.    (set #bad_ram_path (cat "\n"
  311.        "Warnung...\n"
  312.        "\n"
  313.        "Eine Installation auf die RAM-Disk ist nicht möglich !\n"
  314.    ))
  315.  
  316.    (set #err_drive_space (cat "\n"
  317.        "Zu wenig Speicher\n"
  318.        "\n"
  319.        "Diese Installation benötigt mindestens 8 MByte freien Platz auf dem Zieldatenträger. Bitte machen Sie diesen Platz verfügbar und starten die Installation danach erneut.\n"
  320.    ))
  321.  
  322.    (set #creating_dirs (cat "\nErzeuge Verzeichnisse für " #appname "\n"))
  323.  
  324.    (set #copy_prog_files (cat ""
  325.  
  326.        "Kopiere Programmdateien\n"
  327.        "\n"
  328.        "Außer dem Hauptprogramm werden die komplette Online-Dokumentation, einige Beispielrouten sowie diverse Konfigurationsdateien erstellt.\n"
  329.        "\n"
  330.        "Eine sehr ausführliche Anleitung zu allen Möglichkeiten von " #appname " befindet sich im Hypertext-Dokument 'Main.guide' im Verzeichnis 'help', das auch vom Programm selber über das Hilfsmenü erreichbar ist.\n"
  331.        "\n"
  332.        "Bitte warten...\n"
  333.    ))
  334.  
  335.    (set #copy_config   "Erstelle benutzerdefinierte Konfiguration")
  336.    (set #test_guide    "Prüfe AmigaGuide- und MultiView-Versionen")
  337.  
  338.    (set #screen_mode "Wählen Sie den Bildschirmmodus...")
  339.    (set #screen_mode_help (cat "\n"
  340.        "Hilfe zur Wahl des Bildschirmmodus'\n"
  341.        "\n"
  342.        "Als Bildschirmmodus sollten Sie wenn möglich zunächst den PAL-Modus wählen, da " #appname " nur hier sofort 32 (bzw. 16 bei ECS Chipsatz) Farben verwendet.\n"
  343.        "\n"
  344.        "Falls Sie die CyberGraphX-Software für die CyberVision-Grafikkarte installiert haben, stehen verschiedene CyberGraphX-Auflösungen zur Verfügung. Wählen Sie unter diesen unbedingt nur solche, die Ihr Monitor verkraftet.\n"
  345.        "\n"
  346.        "Die hier getroffene Auswahl kann später in den Voreinstellungen geändert werden.\n"
  347.    ))
  348.  
  349.    (set #pal_screen "PAL-Noninterlace")
  350.    (set #workbench "Workbench")
  351.  
  352.    (if (= #cybervision 1)
  353.        (
  354.           (set #cyber640x480 "CyberVision 640 x 480")
  355.           (set #cyber800x600 "CyberVision 800 x 600")
  356.           (set #cyber1024x768 "CyberVision 1024 x 768")
  357.           (set #cyber1280x1024 "CyberVision 1280 x 1024  (Vorsicht !)")
  358.        )
  359.    )
  360.  
  361.    (set #prpt_map_choice "Welche Karten sollen installiert werden ?")
  362.    (set #prpt_map_choice_help (cat "\n"
  363.        "Hilfe zur Kartenauswahl\n"
  364.        "\n"
  365.        "Setzen Sie für jede Karte, die installiert werden soll, das Häkchen vor den Namen.\n"
  366.        "\n"
  367.        "Wenn Sie auf Ihrer Festplatte nicht genug freie Kapazität haben oder Ihr Hauptspeicher weniger als 6 MByte groß ist, können nicht alle Karten installiert werden. Sie werden in diesem Fall nicht in der Auswahlliste angezeigt."
  368.    ))
  369.  
  370.    (set #germany_small "Deutschland Standard (4.000 Orte)")
  371.    (set #germany_special "Deutschland Spezial (15.500 Orte)")
  372.    (set #europe_small "Europa Standard (5.500 Orte)")
  373.    (set #europe_special "Europa Spezial (17.000 Orte)")
  374.    (set #europe_plan "Europa Planungskarte (1.500 Orte)")
  375.  
  376.    (set #memory_size "Wieviel Hauptspeicher hat Ihr Amiga (chip + fast) ?")
  377.    (set #memory_size_help (cat "\n"
  378.        "Hilfe zur Hauptspeichergröße\n"
  379.        "\n"
  380.        "Wenn Sie 'Bis 3 MByte' wählen, werden einfachere Geografiedaten installiert, die nur die Informationen für die Hauptkarte enthalten, nicht jedoch für ganz Europa.\n"
  381.        "\n"
  382.        "Bei Auswahl von '4 bis 6 MByte RAM' wird auch die Deutschland-Spezial-Karte installiert, allerdings ebenfalls nur mit vereinfachter Geografie. Nur bei '6 MByte RAM und mehr' wird eine komplette Installation aller Daten vorgenommen.\n"
  383.        "\n"
  384.        "WARNUNG: Wählen Sie keine Alternative, wenn in Wirklichkeit weniger Speicher verfügbar ist. " #appname " würde dann Fehler verursachen.\n"
  385.    ))
  386.    (set #small_mem "Bis 3 MByte RAM")
  387.    (set #medium_mem "3 bis 4 MByte RAM")
  388.    (set #large_mem "4 bis 6 MByte RAM")
  389.    (set #huge_mem "Mehr als 6 MByte RAM")
  390.  
  391.    (set #ask_overwrite_actual (cat "\n"
  392.        "Aktuelle Version gefunden\n"
  393.        "\n"
  394.        "Es ist bereits eine aktuelle Version von " #appname " installiert.\n"
  395.        "\n"
  396.        "\n"
  397.        "Installation dennoch erneut durchführen ?"
  398.    ))
  399.  
  400.    (set #yes "Ja")
  401.    (set #no  "Nein")
  402.  
  403.    (set #copying_mapD (cat ""
  404.        "Kopiere Karte Deutschland-Standard\n"
  405.        "\n"
  406.        "Die Deutschland-Standard-Karte umfaßt ca. 4000 Ortschaften und 6000 Straßenabschnitte. Außer diesen Daten für die Routenberechnung werden Geografiedateien zur Darstellung von Küsten, Inseln, Flüssen und Meeresflächen installiert.\n"
  407.        "\n"
  408.        "Ergänzt werden diese Informationen durch Reiseinfos, Autokennzeichen, Freizeitparks, Hotels sowie ein AVON-Verzeichnis mit den Vorwahlen von Deutschland.\n"
  409.        "\n"
  410.        "Bitte warten...\n"
  411.    ))
  412.  
  413.    (set #copying_mapDS (cat ""
  414.        "Kopiere Karte Deutschland-Spezial\n"
  415.        "\n"
  416.        "Die Deutschland-Spezial-Karte umfaßt ca. 15.500 Ortschaften und 26.000 Straßenabschnitte. Außer diesen Daten für die Routenberechnung werden Geografiedateien zur Darstellung von Küsten, Inseln, Flüssen und Meeresflächen installiert.\n"
  417.        "\n"
  418.        "Ergänzt werden diese Informationen wie bei der kleinen Deutschland-Karte durch Reiseinfos, Autokennzeichen, Freizeitparks, Hotels sowie ein AVON-Verzeichnis mit den Vorwahlen von Deutschland.\n"
  419.        "\n"
  420.        "Bitte warten...\n"
  421.    ))
  422.  
  423.    (set #copying_mapE (cat ""
  424.        "Kopiere Karte Europa\n"
  425.        "\n"
  426.        "Die Europa-Standardkarte enthält zunächst alle Daten, die schon in der kleinen Deutschland-Karte enthalten sind, ergänzt um ca. 1.400 ausgewählte Reiseziele im europäischen Ausland.\n"
  427.        "\n"
  428.        "Bitte warten...\n"
  429.    ))
  430.  
  431.    (set #copying_mapES (cat ""
  432.        "Kopiere Karte Europa-Spezial\n"
  433.        "\n"
  434.        "Diese umfangreiche Europekarte besitzt im deutschen Bereich über 15.500 Orte und 26.000 Straßenabschnitte. Sie wird ergänzt durch ca. 1.400 ausgewählte Reiseziele im europäischen Ausland.\n"
  435.        "\n"
  436.        "Bitte warten...\n"
  437.    ))
  438.  
  439.    (set #copying_mapEP (cat ""
  440.        "Kopiere Europa-Planungskarte\n"
  441.        "\n"
  442.        "Diese Karte besteht ausschließlich aus den Ortschaften im europäischen Ausland und kann bei Bedarf mit einer der Deutschland-Karten nachträglich zusammengefügt werden.\n"
  443.        "\n"
  444.        "Bitte warten...\n"
  445.    ))
  446.  
  447.    (set #msg_low_mem_germany_special (cat "\n"
  448.        "Nicht genug Speicher auf Datenträger\n"
  449.        "\n"
  450.        "Die Karte Deutschland-Spezial kann wegen zu wenig freiem Speicher auf dem Zieldatenträger nicht installiert werden.\n"
  451.        "\n"
  452.        "Bitte stellen Sie auf dem Laufwerk mehr Speicher zur Verfügung und wiederholen Sie die Installation."
  453.    ))
  454.    (set #msg_low_mem_europe (cat "\n"
  455.        "Nicht genug Speicher auf Datenträger\n"
  456.        "\n"
  457.        "Die Karte Europa kann wegen zu wenig freiem Speicher auf dem Zieldatenträger nicht installiert werden.\n"
  458.        "\n"
  459.        "Bitte stellen Sie auf dem Laufwerk mehr Speicher zur Verfügung und wiederholen Sie die Installation."
  460.    ))
  461.    (set #msg_low_mem_europe_special (cat "\n"
  462.        "Nicht genug Speicher auf Datenträger\n"
  463.        "\n"
  464.        "Die Karte Europa-Spezial kann wegen zu wenig freiem Speicher auf dem Zieldatenträger nicht installiert werden.\n"
  465.        "\n"
  466.        "Bitte stellen Sie auf dem Laufwerk mehr Speicher zur Verfügung und wiederholen Sie die Installation."
  467.    ))
  468.    (set #msg_low_mem_europe_plan (cat "\n"
  469.        "Nicht genug Speicher auf Datenträger\n"
  470.        "\n"
  471.        "Die Europa-Planungskarte kann wegen zu wenig freiem Speicher auf dem Zieldatenträger nicht installiert werden.\n"
  472.        "\n"
  473.        "Bitte stellen Sie auf dem Laufwerk mehr Speicher zur Verfügung und wiederholen Sie die Installation."
  474.    ))
  475.  
  476.    (set #ask_AmiAtlas_map_1 "\nAmiAtlas-Karte '")
  477.    (set #ask_AmiAtlas_map_2 (cat "' wurde gefunden\n"
  478.                                  "\n"
  479.                                  "Soll diese Karte in das MaxonATLAS-Verzeichnis kopiert werden ?\n"
  480.    ))
  481.  
  482.    (set #copy_AmiAtlas_map "\nKopiere AmiAtlas-Karte '")
  483.  
  484.    (set #make_assign (cat "\n"
  485.        "Assign für " #appname "\n"
  486.        "\n"
  487.        "Es wird ein Assign in der Datei 'user-startup' benötigt. Führen Sie diese Aktion aus, um die Ergänzung automatisch durchführen zu lassen.\n"
  488.        "\n"
  489.        "Wenn Sie stattdessen diesen Abschnitt überspringen, wird der entsprechende Befehl nicht eingefügt. Ergänzen Sie in diesem Fall selber die Datei 'S:user-startup' durch folgende Befehle:\n"
  490.        "\n"
  491.        "Stack 20000\n"
  492.        "Assign " #assname " \""
  493.    ))
  494.    (set #make_assign_help (cat "\n"
  495.        "Hilfe zu Assign\n"
  496.        "\n"
  497.        #appname " wird über das logische Laufwerk \"" #assname "\" angesprochen und benötigt deshalb einen Verweis auf das entsprechende Festplattenverzeichnis. Dieser Verweis wird beim Amiga in der Datei 'user-startup' durch einen Assign-Befehl hergestellt.\n"
  498.        "Die Installation kann den benötigten Befehl selbständig einfügen."
  499.    ))
  500.  
  501.    (set #install_complete (cat "\n"
  502.        "Installation erfolgreich abgeschlossen\n"
  503.        "\n"
  504.        "Die Programmdateien, die Sprachkataloge sowie die Hypertext-Dokumentation wurden kopiert. Die Standardkarte von Deutschland wurde als Hauptkarte eingerichtet.\n"
  505.        "\n"
  506.        #appname " 3 befindet sich nun im Verzeichnis: \n"
  507.        "\n"
  508.    ))
  509.  
  510.    (set #lowmem_message (cat "\n"
  511.        "Hinweis\n"
  512.        "\n"
  513.        "Unter den aktuellen Speicherbedingungen kann " #appname " nicht gestartet werden.\n"
  514.        "\n"
  515.        "Sorgen Sie vor dem Aufruf des Programms für mehr verfügbaren Hauptspeicher.\n"
  516.    ))
  517.  
  518.    (set #lowchip_message (cat "\n"
  519.        "Wichtiger Hinweis\n"
  520.        "\n"
  521.        "Sehr wahrscheinlich verfügt Ihr Amiga nur über 512 KByte Chip-Memory. In diesem Fall können Gewässer nicht in jedem Bildschirmmodus dargestellt werden !\n"
  522.    ))
  523.  
  524.    (set #questions (cat "Fragebogen\n"
  525.        "\n"
  526.        "Wir sind sehr an Ihrer Meinung über MaxonATLAS interessiert und bemühen uns die Weiterentwicklung an Ihren Wünschen und Vorstellungen auszurichten.\n"
  527.        "\n"
  528.        "Zu diesem Zweck ist es für uns außerordentlich wichtig von Ihnen Rückmeldungen zu erhalten. Bitte nehmen Sie sich einige Minuten Zeit und füllen Sie den Fragebogen aus, den Sie im Inhaltsverzeichnis der Dokumentation oder direkt in der Datei 'help/Interview.guide' vorfinden. Senden Sie den ausgedruckten und ausgefüllten Bogen an die angegebene Anschrift.\n"
  529.        "\n"
  530.        "Vielen Dank\n"
  531.    ))
  532. ))
  533.  
  534. ; --------------------------------------------------------------------------
  535.  
  536. (complete 0)
  537.  
  538. (message #introduction (all))
  539.  
  540. (welcome)
  541.  
  542. (set @default-dest "")
  543.  
  544. ; Handle DOS errors
  545. (onerror (
  546.     (if (> @ioerr 0) 
  547.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #error) (all))
  548.     )
  549. ))
  550.  
  551. (set #installmode 0)
  552.  
  553. ; We can't handle this script without Installer 43.3 or better
  554. (if (< @installer-version 2818051)
  555.       (
  556.             (message #err_wrong_version (all))
  557.             (exit (quiet))
  558.       )
  559. )
  560.  
  561. ; MaxonATLAS already installed ?
  562. (if (exists #assname (noreq))
  563.  
  564.     (
  565.        (set #installmode (askchoice
  566.  
  567.            (prompt #assign_found)
  568.            (help   #assign_found_help)
  569.  
  570.            (default 1)
  571.  
  572.            (choices
  573.  
  574.                (cat "p" #new)
  575.                #update
  576.                #remove
  577.            )
  578.        ))
  579.     )
  580. )
  581.  
  582. ; Remove MaxonATLAS ?
  583. (if (= #installmode 2) (
  584.  
  585.     (if (exists #assname (noreq))
  586.         (
  587.             (delete (cat #assname "#?")
  588.                (all)
  589.                (optional force askuser)
  590.             )
  591.  
  592.             (set #atlaspath (expandpath #assname))
  593.  
  594.             (run (cat "assign >NIL: " #assname " remove"))
  595.  
  596.             (if (exists "AmiAtlas:" (noreq))
  597.                 (run (cat "assign >NIL: AmiAtlas: remove"))
  598.             )
  599.  
  600.             (delete #atlaspath
  601.                (optional force askuser)
  602.                (infos)
  603.             )
  604.  
  605.             ((startup
  606.  
  607.                 #appname
  608.                 (prompt  #remove_MaxonATLAS)
  609.                 (help    #must_remove)
  610.                 (command #removed)
  611.             ))
  612.         )
  613.     )
  614.  
  615.     (exit (quiet))
  616. ))
  617.  
  618. (complete 1)
  619.  
  620. ; Check if we are running under OS2.0 at least
  621. (if (< #OSversion 36)
  622.       (
  623.             (message #err_wrong_OS (all))
  624.             (exit (quiet))
  625.       )
  626. )
  627.  
  628. (complete 2)
  629.  
  630. ; Perform update only ?
  631. (if (= #installmode 1)
  632.     (
  633.        ; actual version already installed ?
  634.        (if (exists (cat #assname #appname) (noreq))
  635.            (if (>= (/ (getversion (cat #assname #appname)) 65536) 3)
  636.                (if (NOT (askbool
  637.                       (prompt #ask_overwrite_actual)
  638.                       (help "")
  639.                       (choices #yes #no)
  640.                       (default 0)
  641.                    ))
  642.                    (exit (quiet))
  643.                )
  644.            )
  645.        )
  646.  
  647.        (set #target #assname)
  648.        (set @default-dest #assname)
  649.        (set #arctarget @default-dest)
  650.     )
  651.  
  652. ; Complete installation
  653.     (
  654.        ; Search for default target device
  655.        (if (exists "Work:" (noreq))
  656.            (set #defaulttarget "Work:")
  657.            (if (exists "DH1:" (noreq))
  658.                (set #defaulttarget "DH1:")
  659.                (if (exists "DH0:" (noreq))
  660.                    (set #defaulttarget "DH0:")
  661.                    (if (exists "HD0:" (noreq))
  662.                        (set #defaulttarget "HD0:")
  663.                        (
  664.                           (if (= @user-level 2)
  665.                               (set #defaulttarget "SYS:")
  666.                               (
  667.                                  (message #err_no_default_target (all))
  668.                                  (exit (quiet))
  669.                               )
  670.                           )
  671.                        )
  672.                    )
  673.                )
  674.            )
  675.        )
  676.  
  677.        (set #target (askdir
  678.  
  679.           (prompt #where_to_install)
  680.           (help   #where_help)
  681.           (newpath)
  682.           (disk)
  683.           (default #defaulttarget)
  684.        ))
  685.        (set @default-dest (tackon #target #appname))
  686.        (set #arctarget (cat @default-dest "/"))
  687.     )
  688. )
  689.  
  690. (complete 3)
  691.  
  692. ; No installation to RAM disk
  693. (if (= "RAM" (getdevice #target))
  694.     (
  695.         (message #bad_ram_path (all))
  696.         (exit (quiet))
  697.     )
  698. )
  699.  
  700. (complete 4)
  701.  
  702. ; Check for disk size available
  703. (set #targetsize (getdiskspace #target))
  704.  
  705. (if (< #targetsize #min_drivespace) (
  706.  
  707.     (if (<> (getdevice #target) "RAM") (
  708.  
  709.         (message #err_drive_space (all))
  710.         (exit (quiet))
  711.     ))
  712. ))
  713.  
  714. (complete 6)
  715.  
  716. (set helpdir    (tackon @default-dest "help"))
  717. (set Dmapdir    (tackon @default-dest "germany"))
  718. (set DSmapdir   (tackon @default-dest "germany_special"))
  719. (set Emapdir    (tackon @default-dest "europe"))
  720. (set ESmapdir   (tackon @default-dest "europe_special"))
  721. (set EPmapdir   (tackon @default-dest "europe_plan"))
  722. (set configdir  (tackon @default-dest "config"))
  723. (set Dinfodir   (tackon Dmapdir "information"))
  724. (set parkdir    (tackon Dmapdir "parks"))
  725. (set hoteldir   (tackon Dmapdir "hotels"))
  726.  
  727. ; Create directories
  728. (working #creating_dirs)
  729.  
  730. (if (NOT (exists @default-dest))
  731.       (makedir @default-dest
  732.             (infos)
  733.       )
  734. )
  735.  
  736. (if (NOT (exists Dmapdir))
  737.       (makedir Dmapdir)
  738. )
  739.  
  740. (complete 10)
  741.  
  742. ; Ask if user wants to use own screen
  743. (set #screenmode (askchoice
  744.  
  745.     (prompt #screen_mode)
  746.     (help   #screen_mode_help)
  747.  
  748.     (default 0)
  749.  
  750.     (choices
  751.  
  752.         (cat "p" #pal_screen)
  753.         #workbench
  754.         #cyber640x480
  755.         #cyber800x600
  756.         #cyber1024x768
  757.         #cyber1280x1024
  758.     )
  759. ))
  760.  
  761. (complete 11)
  762.  
  763. ; Ask for available memory
  764. (set #mem_size (+ (database "total-mem") 0))
  765.  
  766. (if (< #mem_size (+ "3000000" 0))
  767.     (set #mem_default 0)
  768.     (if (< #mem_size (+ "4000000" 0))
  769.         (set #mem_default 1)
  770.         (if (< #mem_size (+ "6000000" 0))
  771.             (set #mem_default 2)
  772.             (set #mem_default 3)
  773.         )
  774.     )
  775. )
  776.  
  777. (set #memchoice (askchoice
  778.  
  779.     (prompt #memory_size)
  780.     (help   #memory_size_help)
  781.  
  782.     (default #mem_default)
  783.  
  784.     (choices
  785.  
  786.         (cat "p" #small_mem)
  787.         #medium_mem
  788.         #large_mem
  789.         #huge_mem
  790.     )
  791. ))
  792.  
  793. (complete 12)
  794.  
  795. ; Ask for maps to be installed
  796. (set #mapchoice (askoptions
  797.  
  798.     (prompt #prpt_map_choice)
  799.     (help   #prpt_map_choice_help)
  800.  
  801.     (choices
  802.  
  803.         (cat "p" #germany_small)
  804.         #germany_special
  805.         #europe_small
  806.         #europe_special
  807.         #europe_plan
  808.     )
  809. ))
  810.  
  811. (complete 15)
  812.  
  813. ; Install program files
  814. (working #copy_prog_files)
  815.  
  816. (copyfiles
  817.    (prompt "")
  818.    (help "")
  819.    (source "/")
  820.    (dest @default-dest)
  821.    (nogauge)
  822.    (optional force askuser nofail)
  823.    (infos)
  824.    (choices "c"
  825.             "catalogs"
  826.             "config"
  827.             "help"
  828.             "icons"
  829.             "Routen"
  830.             "Tools"
  831.             "Bestellung"
  832.             "MaxonATLAS"
  833.             "MaxonATLAS.countries")
  834. )
  835.  
  836. (copyfiles
  837.    (prompt "")
  838.    (help "")
  839.    (source "/icons/def_AtlasDrawer.info")
  840.    (dest (cat #arctarget "/"))
  841.    (newname (cat #appname ".info"))
  842.    (nogauge)
  843.    (optional force askuser nofail)
  844. )
  845.  
  846. ; Copy readme file
  847. (if (= #OS3 1)
  848.     (set #readme "/Bitte lesen, OS3")
  849.     (set #readme "/Bitte lesen, OS2")
  850. )
  851.  
  852. (copyfiles
  853.    (prompt "")
  854.    (help "")
  855.    (source #readme)
  856.    (dest @default-dest)
  857.    (newname "Bitte lesen")
  858.    (infos)
  859.    (nogauge)
  860.    (optional force askuser nofail)
  861. )
  862.  
  863. ; Copy OS2 Help-System
  864. (if (= #OS2 1)
  865.     (copyfiles
  866.        (prompt "")
  867.        (help "")
  868.        (source "/OS_dependent/os2.0/help")
  869.        (dest helpdir)
  870.        (all)
  871.        (nogauge)
  872.        (optional force askuser nofail)
  873.     )
  874. )
  875.  
  876. (complete 25)
  877.  
  878. ; Create custom configuration
  879. (working #copy_config)
  880.  
  881. (if (= #screenmode 0)
  882.     (if (= #chipset "AA")
  883.        (set #presetsource "/presets/AGA/")
  884.        (set #presetsource "/presets/ECS/")
  885.     )
  886. )
  887.  
  888. (if (= #screenmode 1)
  889.     (set #presetsource "/presets/Workbench/")
  890. )
  891.  
  892. (if (= #screenmode 2)
  893.     (set #presetsource "/presets/CyberVision640x480/")
  894. )
  895.  
  896. (if (= #screenmode 3)
  897.     (set #presetsource "/presets/CyberVision800x600/")
  898. )
  899.  
  900. (if (= #screenmode 4)
  901.     (set #presetsource "/presets/CyberVision1024x768/")
  902. )
  903.  
  904. (if (= #screenmode 5)
  905.     (set #presetsource "/presets/CyberVision1280x1024/")
  906. )
  907.  
  908. (copyfiles
  909.    (prompt "")
  910.    (help "")
  911.    (source #presetsource)
  912.    (dest configdir)
  913.    (all)
  914.    (nogauge)
  915.    (optional force askuser)
  916. )
  917.  
  918. (if (= @language "english")
  919.    (if (exists "/c/SetLanguage")
  920.        (run (cat "/c/SetLanguage \"" configdir "/Global.prefs\" english.cat £"))
  921.    )
  922. )
  923.  
  924. (complete 28)
  925.  
  926. ; Copy AmigaGuide if not installed
  927. (working #test_guide)
  928.  
  929. (if (exists "/support/AmigaGuide" (noreq))
  930.       (
  931.             (if (NOT (exists "SYS:Utilities/AmigaGuide" (noreq)))
  932.                   (if (exists "SYS:Utilities" (noreq))
  933.                         (copyfiles
  934.                               (prompt "AmigaGuide")
  935.                               (help "")
  936.                               (source "/support/AmigaGuide/AmigaGuide")
  937.                               (dest "SYS:Utilities")
  938.                               (optional nofail force askuser)
  939.                               (infos)
  940.                         )
  941.                   )
  942.             )
  943.             (if (exists "LIBS:" (noreq))
  944.                   (copylib
  945.                         (prompt "AmigaGuide")
  946.                         (help "")
  947.                         (source "/support/AmigaGuide/libs/amigaguide.library")
  948.                         (dest "LIBS:")
  949.                   )
  950.             )
  951.       )
  952. )
  953.  
  954. (complete 35)
  955.  
  956. ; Install map Germany standard
  957. (if (IN #mapchoice 0)
  958.    (
  959.       (working #copying_mapD)
  960.  
  961.       (copyfiles
  962.          (prompt "")
  963.          (help "")
  964.          (source "/germany")
  965.          (dest Dmapdir)
  966.          (pattern "germany.#?")
  967.          (nogauge)
  968.          (optional force askuser nofail)
  969.       )
  970.  
  971.       (copyfiles
  972.          (prompt "")
  973.          (help "")
  974.          (source "/germany")
  975.          (dest Dmapdir)
  976.          (infos)
  977.          (nogauge)
  978.          (optional force askuser nofail)
  979.          (choices "annotation"
  980.                   "hotels"
  981.                   "information.info"
  982.                   "parks")
  983.       )
  984.  
  985.       (copyfiles
  986.          (prompt "")
  987.          (help "")
  988.          (source "/Germany.info")
  989.          (dest @default-dest)
  990.          (nogauge)
  991.          (optional force askuser nofail)
  992.       )
  993.  
  994.       (if (NOT (exists Dinfodir))
  995.             (makedir Dinfodir)
  996.       )
  997.  
  998.       (copyfiles
  999.          (prompt "")
  1000.          (help "")
  1001.          (source "/germany/Information")
  1002.          (dest Dinfodir)
  1003.          (infos)
  1004.          (nogauge)
  1005.          (optional force askuser nofail)
  1006.          (choices "pictures"
  1007.                   "CarRegistration.guide"
  1008.                   "Tourist.guide")
  1009.       )
  1010.  
  1011.       ; Copy small geographic data in low memory environment
  1012.       (if (= #memchoice 0)
  1013.           (copyfiles
  1014.              (prompt "")
  1015.              (help "")
  1016.              (source "/geo_germany")
  1017.              (dest Dmapdir)
  1018.              (nogauge)
  1019.              (optional force askuser nofail)
  1020.              (all)
  1021.           )
  1022.       )
  1023.  
  1024.       (if (= #OS2 1)
  1025.           (
  1026.              (copyfiles
  1027.                 (prompt "")
  1028.                 (help "")
  1029.                 (source "/OS_dependent/os2.0/germany")
  1030.                 (dest Dmapdir)
  1031.                 (all)
  1032.                 (nogauge)
  1033.                 (optional force askuser nofail)
  1034.              )
  1035.           )
  1036.       )
  1037.  
  1038.       (if (exists "/c/SetGuideBook")
  1039.           (
  1040.              (if (= #OS3 1)
  1041.                  (run (cat "/c/SetGuideBook \"" Dmapdir "/germany.ref\" MaxonATLAS_CD:germany/information/GuideBook.guide"))
  1042.                  (run (cat "/c/SetGuideBook \"" Dmapdir "/germany.ref\" MaxonATLAS_CD:germany/information/GuideBook_os2.guide"))
  1043.              )
  1044.           )
  1045.       )
  1046.    )
  1047. )
  1048.  
  1049. (complete 50)
  1050.  
  1051. ; Install map Germany special
  1052. (if (IN #mapchoice 1)
  1053.     (if (> (getdiskspace #target) #germany_special_size)
  1054.         (
  1055.            (working #copying_mapDS)
  1056.  
  1057.            (copyfiles
  1058.               (prompt "")
  1059.               (help "")
  1060.               (source "/")
  1061.               (dest @default-dest)
  1062.               (infos)
  1063.               (nogauge)
  1064.               (optional force askuser nofail)
  1065.               (choices "germany_special")
  1066.            )
  1067.  
  1068.            (if (= #OS2 1)
  1069.                (copyfiles
  1070.                   (prompt "")
  1071.                   (help "")
  1072.                   (source "/OS_dependent/os2.0/germany_special")
  1073.                   (dest DSmapdir)
  1074.                   (all)
  1075.                   (nogauge)
  1076.                   (optional force askuser nofail)
  1077.                )
  1078.            )
  1079.  
  1080.            ; Copy small geographic data in low memory environment
  1081.            (if (OR (= #memchoice 0) (= #memchoice 2))
  1082.                (copyfiles
  1083.                   (prompt "")
  1084.                   (help "")
  1085.                   (source "/geo_germany")
  1086.                   (dest Dmapdir)
  1087.                   (nogauge)
  1088.                   (optional force askuser nofail)
  1089.                   (all)
  1090.                )
  1091.            )
  1092.  
  1093.            (if (exists "/c/SetGuideBook")
  1094.                (
  1095.                   (if (= #OS3 1)
  1096.                       (run (cat "/c/SetGuideBook \"" DSmapdir "/germany.ref\" MaxonATLAS_CD:germany/information/GuideBook.guide"))
  1097.                       (run (cat "/c/SetGuideBook \"" DSmapdir "/germany.ref\" MaxonATLAS_CD:germany/information/GuideBook_os2.guide"))
  1098.                   )
  1099.                )
  1100.            )
  1101.         )
  1102.         (message #msg_low_mem_germany_special (all))
  1103.     )
  1104. )
  1105.  
  1106. (complete 60)
  1107.  
  1108. ; Install map Europe standard
  1109. (if (IN #mapchoice 2)
  1110.     (if (> (getdiskspace #target) #europe_size)
  1111.         (
  1112.            (working #copying_mapE)
  1113.  
  1114.            (copyfiles
  1115.               (prompt "")
  1116.               (help "")
  1117.               (source "/")
  1118.               (dest @default-dest)
  1119.               (infos)
  1120.               (nogauge)
  1121.               (optional force askuser nofail)
  1122.               (choices "europe")
  1123.            )
  1124.  
  1125.            (if (= #OS2 1)
  1126.                (copyfiles
  1127.                   (prompt "")
  1128.                   (help "")
  1129.                   (source "/OS_dependent/os2.0/europe")
  1130.                   (dest Emapdir)
  1131.                   (all)
  1132.                   (nogauge)
  1133.                   (optional force askuser nofail)
  1134.                )
  1135.            )
  1136.  
  1137.            (if (exists "/c/SetGuideBook")
  1138.                (
  1139.                   (if (= #OS3 1)
  1140.                       (run (cat "/c/SetGuideBook \"" Emapdir "/europe.ref\" MaxonATLAS_CD:germany/information/GuideBook.guide"))
  1141.                       (run (cat "/c/SetGuideBook \"" Emapdir "/europe.ref\" MaxonATLAS_CD:germany/information/GuideBook_os2.guide"))
  1142.                   )
  1143.                )
  1144.            )
  1145.         )
  1146.         (message #msg_low_mem_europe (all))
  1147.     )
  1148. )
  1149.  
  1150. (complete 70)
  1151.  
  1152. ; Install map Europe special
  1153. (if (IN #mapchoice 3)
  1154.     (if (> (getdiskspace #target) #europe_special_size)
  1155.         (
  1156.            (working #copying_mapES)
  1157.  
  1158.            (copyfiles
  1159.               (prompt "")
  1160.               (help "")
  1161.               (source "/")
  1162.               (dest @default-dest)
  1163.               (infos)
  1164.               (nogauge)
  1165.               (optional force askuser nofail)
  1166.               (choices "europe_special")
  1167.            )
  1168.  
  1169.            (if (= #OS2 1)
  1170.                (copyfiles
  1171.                   (prompt "")
  1172.                   (help "")
  1173.                   (source "/OS_dependent/os2.0/europe_special")
  1174.                   (dest ESmapdir)
  1175.                   (all)
  1176.                   (nogauge)
  1177.                   (optional force askuser nofail)
  1178.                )
  1179.            )
  1180.  
  1181.            (if (exists "/c/SetGuideBook")
  1182.                (
  1183.                   (if (= #OS3 1)
  1184.                       (run (cat "/c/SetGuideBook \"" ESmapdir "/europe.ref\" MaxonATLAS_CD:germany/information/GuideBook.guide"))
  1185.                       (run (cat "/c/SetGuideBook \"" ESmapdir "/europe.ref\" MaxonATLAS_CD:germany/information/GuideBook_os2.guide"))
  1186.                   )
  1187.                )
  1188.            )
  1189.         )
  1190.         (message #msg_low_mem_europe_special (all))
  1191.     )
  1192. )
  1193.  
  1194. (complete 80)
  1195.  
  1196. ; Install map Europe Plan
  1197. (if (IN #mapchoice 4)
  1198.     (if (> (getdiskspace #target) #europe_plan_size)
  1199.         (
  1200.            (working #copying_mapEP)
  1201.  
  1202.            (copyfiles
  1203.               (prompt "")
  1204.               (help "")
  1205.               (source "/")
  1206.               (dest @default-dest)
  1207.               (infos)
  1208.               (nogauge)
  1209.               (optional force askuser nofail)
  1210.               (choices "europe_plan")
  1211.            )
  1212.  
  1213.            (if (= #OS2 1)
  1214.                (copyfiles
  1215.                   (prompt "")
  1216.                   (help "")
  1217.                   (source "/OS_dependent/os2.0/europe_plan")
  1218.                   (dest EPmapdir)
  1219.                   (all)
  1220.                   (nogauge)
  1221.                   (optional force askuser nofail)
  1222.                )
  1223.            )
  1224.         )
  1225.         (message #msg_low_mem_europe_plan (all))
  1226.     )
  1227. )
  1228.  
  1229. (complete 85)
  1230.  
  1231. ; Check if AmiAtlas is installed
  1232. (if (exists "AmiAtlas:" (noreq))
  1233.     (if (<> (expandpath @default-dest) (expandpath "AmiAtlas:"))
  1234.        (
  1235.           (set n 0)
  1236.           (while (set #country (select n "Swiss"
  1237.                                          "Switzerland"
  1238.                                          "Switzerland_special"
  1239.                                          "Austria"
  1240.                                          "Austria_special"
  1241.                                          "Benelux"
  1242.                                          "Belgium"
  1243.                                          "Danmark"
  1244.                                          "S_N"
  1245.                                          "France"
  1246.                                          "Spain"
  1247.                                          "Italy"
  1248.                                          "GBR"
  1249.                                          "Hungary"
  1250.                                          "Poland"
  1251.                                          "CZ_SK"
  1252.                                          "Romania" ""))
  1253.              (
  1254.                 (set n (+ n 1))
  1255.  
  1256.                 (set #sourcepath (cat "AmiAtlas:" #country))
  1257.  
  1258.                 (if (exists #sourcepath (noreq))
  1259.                     (
  1260.                        (if (askbool
  1261.                               (prompt (cat #ask_AmiAtlas_map_1 #country #ask_AmiAtlas_map_2))
  1262.                               (help "")
  1263.                               (choices #yes #no)
  1264.                               (default 1)
  1265.                            )
  1266.                            (
  1267.                               (set #destpath (tackon @default-dest #country))
  1268.  
  1269.                               (if (NOT (exists #destpath))
  1270.                                     (makedir #destpath
  1271.                                           (infos)
  1272.                                     )
  1273.                               )
  1274.  
  1275.                               (copyfiles
  1276.                                  (prompt (cat #copy_AmiAtlas_map #country "'"))
  1277.                                  (help "")
  1278.                                  (source #sourcepath)
  1279.                                  (dest #destpath)
  1280.                                  (optional force askuser nofail)
  1281.                                  (all)
  1282.                               )
  1283.  
  1284.                               (set m 0)
  1285.                               (while (set #extension (select m ".altitude"
  1286.                                                                ".anno"
  1287.                                                                ".borders"
  1288.                                                                ".coasts"
  1289.                                                                ".country"
  1290.                                                                ".depart"
  1291.                                                                ".hotels"
  1292.                                                                ".index"
  1293.                                                                ".islands"
  1294.                                                                ".mappos"
  1295.                                                                ".military"
  1296.                                                                ".nature"
  1297.                                                                ".parks"
  1298.                                                                ".ref"
  1299.                                                                ".rivers"
  1300.                                                                ".route"
  1301.                                                                ".sea"
  1302.                                                                ".share"
  1303.                                                                ".town" ""))
  1304.                                  (
  1305.                                     (set m (+ m 1))
  1306.                                     (set #file (cat #destpath "/" #country #extension))
  1307.                                     (if (= #country "Switzerland")
  1308.                                         (set #file (cat #destpath "/swiss" #extension))
  1309.                                     )
  1310.                                     (if (= #country "Switzerland_special")
  1311.                                         (set #file (cat #destpath "/switzerland" #extension))
  1312.                                     )
  1313.                                     (if (= #country "Austria_special")
  1314.                                         (set #file (cat #destpath "/austria" #extension))
  1315.                                     )
  1316.                                     (if (exists #file (noreq))
  1317.                                         (tooltype
  1318.                                            (prompt "")
  1319.                                            (help "")
  1320.                                            (dest #file)
  1321.                                            (setdefaulttool "MaxonATLAS:MaxonATLAS")
  1322.                                            (setstack 20000)
  1323.                                         )
  1324.                                     )
  1325.                                  )
  1326.                               )
  1327.                            )
  1328.                        )
  1329.                     )
  1330.                 )
  1331.              )
  1332.           )
  1333.        )
  1334.    )
  1335. )
  1336.  
  1337. (complete 90)
  1338.  
  1339. ; Add assign and stack commands to user-startup
  1340. (set #asstarget (expandpath @default-dest))
  1341.  
  1342. (set #startup_command (cat "Assign " #assname " \"" #asstarget "\"\n"
  1343.                            "Assign AmiAtlas: \"" #asstarget "\"\n"
  1344.                            "Stack " #min_stacksize)
  1345. )
  1346.  
  1347. (startup #appname
  1348.  
  1349.     (prompt (cat #make_assign @default-dest "\""))
  1350.     (help #make_assign_help)
  1351.     (command #startup_command)
  1352. )
  1353.  
  1354. (complete 93)
  1355.  
  1356. ; Assign directory to logical device
  1357. (makeassign #appname @default-dest)
  1358. (if (<> #appname "AmiAtlas")
  1359.     (makeassign "AmiAtlas" @default-dest)
  1360. )
  1361.  
  1362. (complete 95)
  1363.  
  1364. ; Speichersituation prüfen und nötigenfalls Warnungen ausgeben
  1365. (if (< (+ (database "total-mem") 0) (+ "2500000" 0))
  1366.    (message #lowmem_message (all))
  1367.    (
  1368.       (if (<= (+ (database "graphics-mem") 0) (+ "524288" 0))
  1369.          (message #lowchip_message (all))
  1370.       )
  1371.    )
  1372. )
  1373.  
  1374. (complete 100)
  1375.  
  1376. ; Remember user to fill out questionnaire
  1377. (if (= @language "deutsch")
  1378.     (message #questions (all))
  1379. )
  1380.  
  1381. ; Hinweis über den Pfad zu MaxonATLAS zusammenstellen
  1382. (set #final_message (cat #install_complete (expandpath @default-dest)))
  1383.  
  1384. (message #final_message (all))
  1385.  
  1386. ; Display new features
  1387. (if (= #OS3 1)
  1388.     (set #viewer "SYS:Utilities/MultiView")
  1389.     (set #viewer "/c/GuideView")
  1390. )
  1391.  
  1392. (if (exists #viewer (noreq))
  1393.     (
  1394.        (working "")
  1395.        (run (cat #viewer " " #assname "help/NewFeatures.guide"))
  1396.     )
  1397. )
  1398.  
  1399. (exit (quiet))
  1400.  
  1401.