home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / OS3.5+ / BoingBag39-1.lha / BoingBag3.9-1 / Install < prev    next >
Text File  |  2001-03-27  |  34KB  |  990 lines

  1. ;$VER: Boing Bag Install 45.8 (26.3.2001)
  2.  
  3. (effect "center" "radial" $FF0077 $AA8800)
  4.  
  5. (set #language (getenv "Language"))
  6.  
  7. (set #wbversion 0)
  8. (set #wbversion (getversion "libs:version.library"))
  9. (set #wbversion (/ #wbversion 65536) )
  10.  
  11. (set #iconversion 0)
  12. (set #iconversion (getversion "icon.library" (resident)))
  13. (set #iconversion (/ #iconversion 65536) )
  14.  
  15. (set #w (querydisplay "screen" "width"))
  16. (set #h (querydisplay "screen" "height"))
  17. (set #d (querydisplay "screen" "depth"))
  18. (set #c (querydisplay "screen" "colors"))
  19.  
  20. (complete 0)
  21.  
  22. ;=============================================================================
  23. ; English strings
  24.  
  25. (set #product "Boing Bag 1 for AmigaOS 3.9")
  26.  
  27. (set #which-language
  28. (cat "\nWhich languages should be installed?"
  29. ))
  30.  
  31. (set #which-language-help
  32. (cat "\nThe Amiga can be operated in many different "
  33.      "languages. Several files must be copied to your "
  34.      "hard drive for each language supported.\n\n"
  35.      "To reduce the amount of space consumed by the "
  36.      "language files, you can select only the "
  37.      "files of specific languages to be copied.\n\n"
  38.      "Check the boxes of the languages you wish "
  39.      "to have available on your system.\n\n"
  40.      @askoptions-help
  41. ))
  42.  
  43. (set #pretendabort "Pretend mode cannot be used with this installation script.")
  44.  
  45. (set #mainwelcome (cat "Welcome to the " #product " installation.\n"))
  46.  
  47. (set #bad-3.9
  48. (cat "\n\n\nThis update needs AmigaOS 3.9. Please install it first!\n\n"
  49.      "This update is not intended for AmigaOS 3.5!\n"
  50. ))
  51.  
  52. (set #introduction
  53. (cat "\n\nThis program lets you install " #product
  54.      " on your hard drive.\n\nIt can be used to update Version 3.9 of AmigaOS."
  55. ))
  56.  
  57. (set #which-disk
  58. (cat "On which partition should " #product " be installed?"
  59. ))
  60.  
  61. (set #which-disk-help
  62. (cat "\nThis section lets you choose on which hard drive partition the "
  63.      "update files will be installed. These should normally go "
  64.      "to the same directory you installed AmigaOS 3.9 to.\n\n"
  65.      @askdir-help
  66. ))
  67.  
  68. (set #confirm-target
  69. (cat "\n\nVERY IMPORTANT!!!\n\nThis program installs " #product " on your hard disk. "
  70.      "\n\nOlder files will be overwritten."
  71.      "\n\nDo you want to install the update on partition \"%s\"? "
  72. ))
  73.  
  74. (set #confirm-target-help
  75. (cat "In the further installation process "
  76.      "some of the files on this partition will be replaced with newer "
  77.      "files.\n\n"
  78. ))
  79.  
  80.  
  81. (set #insert-cdrom "\n\nPlease insert AmigaOS 3.9 CD-ROM!")
  82. (set #insert-cdrom-help
  83.     (cat "\nThis Update installation only works when you insert an original"
  84.          " AmigaOS 3.9 CD-ROM."
  85.     )
  86. )
  87.  
  88. (set #warpup-update "Installing WarpUP 5.1 Update")
  89.  
  90. (set #warpup-update-help "This will update your installed WarpUP PowerPC software.")
  91.  
  92. (set #update-failed
  93.     (cat "\nUpdate failed. Please check whether your AmigaOS 3.9 CD-ROM is"
  94.          " inserted in your CD-ROM drive"
  95.          " and whether the download of the update archive worked correctly."
  96.          "\n\nThen try again. If it still doesn't work contact our support."
  97.     )
  98. )
  99.  
  100. (set #installing
  101. (cat "\n\nInstalling the update..."
  102. ))
  103.  
  104. (set #reboot
  105. (cat "\nThe installation of " #product " is now complete.\n\n"
  106.      "To enable the updated files, you must reboot your Amiga.\n\n"
  107.      "Remove all the disks from the floppy drive and "
  108.      "reboot your Amiga now."
  109. ))
  110.  
  111. ;=============================================================================
  112. ; German strings
  113.  
  114. (if (= #language "deutsch")
  115. (
  116.     (set #product "Boing Bag 1 für AmigaOS 3.9")
  117.  
  118.     (set #which-language
  119.     (cat "\nWelche Sprachen sollen installiert werden?"
  120.     ))
  121.  
  122.     (set #which-language-help
  123.     (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  124.          "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  125.          "Festplatte kopiert werden.\n\n"
  126.          "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  127.          "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  128.          "Sprachen zu installieren.\n\n"
  129.          "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  130.          "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  131.          "einem Häkchen markiert sind.\n\n"
  132.          @askoptions-help
  133.     ))
  134.  
  135.     (set #pretendabort "Dieses Installationsprogramm unterstützt den Simulationsmodus (Scheinbar installieren) nicht.")
  136.  
  137.     (set #mainwelcome (cat "Willkommen zur Installation vom " #product " \n"))
  138.  
  139.     (set #bad-3.9
  140.     (cat "\n\n\nDieses Update benötigt AmigaOS 3.9. Bitte installieren Sie es zuerst!\n\n"
  141.          "Dieses Update ist nicht für AmigaOS 3.5 gedacht!\n"
  142.     ))
  143.  
  144.     (set #introduction
  145.     (cat "\n\nHiermit können Sie " #product " auf Ihrer "
  146.          "Festplatte installieren.\n\nSie können damit die Version 3.9 von AmigaOS "
  147.          "aktualisieren."
  148.     ))
  149.  
  150.     (set #confirm-target
  151.     (cat "\n\nBITTE BEACHTEN!!!\n\nDieses Programm installiert " #product " auf Ihrer Festplatte."
  152.          "\n\nBisherige Dateien werden überschrieben.\n\n"
  153.          " Wollen Sie das Update auf der Partition \"%s\" installiert "
  154.          " bekommen?"
  155.     ))
  156.  
  157.     (set #confirm-target-help
  158.     (cat "Bei der weiteren Installation "
  159.          "werden die meisten Dateien in dieser Partition durch neuere Dateien "
  160.          "ersetzt.\n\n"
  161.     ))
  162.  
  163.     (set #which-disk
  164.     (cat "Auf welcher Partition soll " #product " installiert werden?"
  165.     ))
  166.  
  167.     (set #which-disk-help
  168.     (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  169.          "die Dateien vom Update installiert werden sollen. "
  170.          "Sie sollten normalerweise an dieselbe Stelle installiert werden, "
  171.          "wie die bisherigen Dateien von AmigaOS 3.9.\n\n"
  172.          @askdir-help
  173.     ))
  174.  
  175.     (set #insert-cdrom "\n\nBitte legen Sie die AmigaOS 3.9 CD-ROM in ihr CD-ROM-Laufwerk!")
  176.     (set #insert-cdrom-help
  177.         (cat "\nDiese Update-Installation funktioniert nur, wenn Sie eine"
  178.              " originale AmigaOS 3.9 CD-ROM einlegen."
  179.         )
  180.     )
  181.  
  182.     (set #warpup-update "Installiere WarpUP 5.1 Update")
  183.  
  184.     (set #warpup-update-help "Hiermit wird ihre installierte WarpUP-PowerPC-Software erneuert.")
  185.  
  186.     (set #update-failed
  187.         (cat "\nUpdate fehlgeschlagen. Bitte prüfen Sie, ob die AmigaOS 3.9 CD-ROM"
  188.              " in ihr CD-ROM-Laufwerk eingelegt ist und ob der Download des Update-Archives"
  189.              " einwandfrei geklappt hat.\n\nDann versuchen Sie es erneut. Wenn auch daraufhin"
  190.              " noch nicht klappt, kontaktieren Sie unseren Support."
  191.         )
  192.     )
  193.  
  194.     (set #installing
  195.     (cat "\n\nInstalliere das Update..."
  196.     ))
  197.  
  198.     (set #reboot
  199.     (cat "Die Installation des Updates ist nun abgeschlossen.\n\n"
  200.          "Um das Update zu aktivieren, müssen Sie Ihren Amiga neu "
  201.          "starten. "
  202.          "Nehmen Sie die eventuell vorhandene Disketten aus Ihren Diskettenlaufwerken "
  203.          "und starten Sie ihren Amiga jetzt neu.\n\n"
  204.     ))
  205. ))
  206.  
  207. ;=============================================================================
  208. ; Danish strings ... thanks to Niels Bache and team!
  209.  
  210. (if (= #language "dansk")
  211. (
  212.     (set #product "Boing Bag 1 for AmigaOS 3.9")
  213.  
  214.     (set #which-language
  215.     (cat "\nHvilke sprog skal der installeres?"
  216.     ))
  217.  
  218.     (set #which-language-help
  219.     (cat "\nAmigaen kan anvendes med mange forskellige sprog. "
  220.          "For hvert sprog skal der kopieres nogle filer til "
  221.          "din harddisk.\n\n"
  222.          "For at begrænse den diskplads som sprogfilerne optager på "
  223.          "harddisken, kan du vælge kun at installere filerne for "
  224.          "nogle bestemte sprog.\n\n"
  225.          "Du skal blot klikke på knapperne for de sprog som du gerne vil "
  226.          "have til rådighed i systemet, så disse sprog bliver markeret "
  227.          "med et hak.\n\n"
  228.          @askoptions-help
  229.     ))
  230.  
  231.     (set #pretendabort "Dette installationsprogram understøtter ikke simuleringsmodusen ('Lade som om'-installering).")
  232.  
  233.     (set #mainwelcome (cat "Velkommen til installeringen af " #product " \n"))
  234.  
  235.     (set #bad-3.9
  236.     (cat "\n\n\nDenne opdatering kræver AmigaOS 3.9. Installér først denne.\n\n"
  237.          "Denne opdatering er ikke beregnet til AmigaOS 3.5.\n"
  238.     ))
  239.  
  240.     (set #introduction
  241.     (cat "\n\nMed dette program kan du installere " #product " på din "
  242.          "harddisk.\n\nDermed kan du opdatere version 3.9 af AmigaOS."
  243.     ))
  244.  
  245.     (set #confirm-target
  246.     (cat "\n\nBEMÆRK!!!\n\nDette program installerer " #product " på din harddisk."
  247.          "\n\nEksisterende filer vil blive overskrevet.\n\n"
  248.          " Vil du have opdateringen installeret i diskafsnittet \"%s\"?"
  249.     ))
  250.  
  251.     (set #confirm-target-help
  252.     (cat "Som led i installeringen "
  253.          "vil de fleste filer i dette diskafsnit blive udskiftet med nyere "
  254.          "versioner.\n\n"
  255.     ))
  256.  
  257.     (set #which-disk
  258.     (cat "I hvilket diskafsnit skal " #product " installeres?"
  259.     ))
  260.  
  261.     (set #which-disk-help
  262.     (cat "\nHer kan du vælge i hvilket diskafsnit (partition) "
  263.          "opdateringens filer skal installeres. "
  264.          "De skal normalt installeres samme sted som de eksisterende "
  265.          "filer fra AmigaOS 3.9.\n\n"
  266.          @askdir-help
  267.     ))
  268.  
  269.     (set #insert-cdrom "\n\nLæg cd'en med AmigaOS 3.9 i cd-drevet.")
  270.     (set #insert-cdrom-help
  271.         (cat "\nInstalleringen af denne opdatering virker kun hvis man lægger"
  272.              " en original AmigaOS 3.9-cd i drevet."
  273.         )
  274.     )
  275.  
  276.     (set #warpup-update "Installerer WarpUP 5.1-opdateringen")
  277.  
  278.     (set #warpup-update-help "Herved opdateres den installerede WarpUp-PowerPC-software.")
  279.  
  280.     (set #update-failed
  281.         (cat "\nOpdateringen lykkedes ikke. Check om cd'en med AmigaOS 3.9"
  282.              " er lagt i cd-drevet og om hentningen  af opdateringsarkivet er gennemført"
  283.              " uden problemer.\n\nPrøv derefter installeringen igen. Hvis den stadig"
  284.              " ikke lykkes, så kontakt vores support."
  285.         )
  286.     )
  287.  
  288.     (set #installing
  289.     (cat "\n\nInstallerer opdateringen..."
  290.     ))
  291.  
  292.     (set #reboot
  293.     (cat "Installeringen af opdateringen er nu gennemført.\n\n"
  294.          "For at aktivere opdateringen skal du genstarte din "
  295.          "Amiga. "
  296.          "Tag eventuelle disketter ud af diskettedrevene og "
  297.          "genstart Amigaen nu.\n\n"
  298.     ))
  299. ))
  300.  
  301. ;=============================================================================
  302. ; Spanish strings ... thanks to David Rey and team!
  303.  
  304.  
  305. (if (= #language "español")
  306. (
  307.     (set #product "Boing Bag 1 para AmigaOS 3.9")
  308.  
  309.     (set #which-language
  310.     (cat "\n¿Qué idiomas desea instalar?"
  311.     ))
  312.  
  313.     (set #which-language-help
  314.     (cat "\nEl Amiga puede utilizarse en muchos idiomas diferentes. "
  315.          "Deberán copiarse varios ficheros a su disco duro para "
  316.          "cada idioma que se desee soportar.\n\n"
  317.          "Para reducir la cantidad de espacio ocupado por los "
  318.          "ficheros correspondientes, puede elegir sólo aquéllos "
  319.          "específicos de los idiomas que le interesen.\n\n"
  320.          "Marque las casillas de los idiomas que desee "
  321.          "poder utilizar en su sistema.\n\n"
  322.          @askoptions-help
  323.     ))
  324.  
  325.     (set #pretendabort "El modo simulado no puede ser utilizado con este script de instalación.")
  326.  
  327.     (set #mainwelcome (cat "Bienvenido a la instalación del " #product ".\n"))
  328.  
  329.     (set #bad-3.9
  330.     (cat "\n\n\nEsta actualización necesita el AmigaOS 3.9. ¡Por favor, instálelo primero!\n\n"
  331.          "¡Esta actualización NO ES para el AmigaOS 3.5!\n"
  332.     ))
  333.  
  334.     (set #introduction
  335.     (cat "\n\nEste programa le permite instalar el " #product
  336.          " en su disco duro.\n\nPuede utilizarse para actualizar la versión 3.9 del AmigaOS."
  337.     ))
  338.  
  339.     (set #which-disk
  340.     (cat "¿En qué partición desea instalar el " #product "?"
  341.     ))
  342.  
  343.     (set #which-disk-help
  344.     (cat "\nEsta sección le permite elegir la partición de disco duro en la "
  345.          "que se instalará la actualización. Normalmente debería hacerlo en "
  346.          "el mismo directorio donde tiene ya instalado el AmigaOS 3.9.\n\n"
  347.          @askdir-help
  348.     ))
  349.  
  350.     (set #confirm-target
  351.     (cat "\n\n¡¡¡MUY IMPORTANTE!!!\n\nEste programa instala el " #product " en su disco duro. "
  352.          "\n\nLos ficheros antiguos se sobreescribirán."
  353.          "\n\n¿Desea instalar la actualización en la partición \"%s\"? "
  354.     ))
  355.  
  356.     (set #confirm-target-help
  357.     (cat "Más adelante, algunos de los ficheros de esta partición "
  358.          "serán sustituidos por otros más recientes.\n\n"
  359.     ))
  360.  
  361.  
  362.     (set #insert-cdrom "\n\nPor favor, inserte el CD-ROM del AmigaOS 3.9.")
  363.     (set #insert-cdrom-help
  364.         (cat "\nEsta instalación sólo funcionará una vez que inserte el CD-ROM"
  365.              " original del AmigaOS 3.9."
  366.         )
  367.     )
  368.  
  369.     (set #warpup-update "Instalando actualización de WarpUP 5.1")
  370.  
  371.     (set #warpup-update-help "Esta parte actualizará su versión instalada de WarpUP.")
  372.  
  373.     (set #update-failed
  374.         (cat "\nLa actualización ha fracasado. Por favor, compruebe que tiene"
  375.              " su CD-ROM del AmigaOS 3.9 insertado en su lector de CD-ROM y"
  376.              " que ha descargado correctamente el archivo con la actualización."
  377.              "\n\nEntonces inténtelo de nuevo. Si todavía no funciona, póngase"
  378.              " en contacto con nuestro soporte técnico."
  379.         )
  380.     )
  381.  
  382.     (set #installing
  383.     (cat "\n\nInstalando la actualización..."
  384.     ))
  385.  
  386.     (set #reboot
  387.     (cat "\nLa instalación del " #product " ha concluido con éxito.\n\n"
  388.          "Para que el nuevo software entre en funcionamiento, deberá reiniciar su Amiga.\n\n"
  389.          "Extraiga cualquier disquete insertado en una disquetera y "
  390.          "entonces reinicie su sistema."
  391.     ))
  392. ))
  393.  
  394.  
  395. ; =============================================================================
  396. ; Italian strings ... thanks to Stefano Guidetti and team!
  397.  
  398. (if (= #language "italiano")
  399. (
  400.     (set #product "Boing Bag 1 per AmigaOS 3.9")
  401.  
  402.     (set #which-language
  403.     (cat "\nQuali lingue devono essere installate?"
  404.     ))
  405.  
  406.     (set #which-language-help
  407.     (cat "\nAmiga può operare in molte lingue differenti. "
  408.          "Diversi file devono essere copiati sul tuo disco "
  409.          "rigido per ogni lingua scelta.\n\n"
  410.          "Per ridurre l'ammontare di spazio richiesto dai "
  411.          "file relativi alle lingue, puoi selezionare "
  412.          "quali lingue installare.\n\n"
  413.          "Seleziona le caselle relative alle lingue che "
  414.          "vuoi avere a disposizione nel tuo sistema.\n\n"
  415.          @askoptions-help
  416.     ))
  417.  
  418.     (set #pretendabort "Non è possibile eseguire questa installazione in modalità virtuale.")
  419.  
  420.     (set #mainwelcome (cat "Benvenuti all'installazione di " #product " \n"))
  421.  
  422.     (set #bad-3.9
  423.     (cat "\n\n\nQuesto aggiornamento necessita di AmigaOS 3.9. Per favore installalo prima di effettuare l'aggiornamento!\n\n"
  424.          "Questo aggiornamento non è destinato ad AmigaOS 3.5\n"
  425.     ))
  426.  
  427.     (set #introduction
  428.     (cat "\n\nQuesto programma ti permette di installare " #product " sul tuo disco rigido.\n\n"
  429.          "Può essere usato solo per aggiornare la versione 3.9 di AmigaOS."
  430.     ))
  431.  
  432.     (set #confirm-target
  433.     (cat "\n\nIMPORTANTE!!!\n\nQuesto programma installa " #product " sul tuo disco rigido."
  434.          "\n\nI vecchi file verranno sovrascritti.\n\n"
  435.          " Vuoi veramente installare l'aggiornamento nella partizione \"%s\"?"
  436.     ))
  437.  
  438.     (set #confirm-target-help
  439.     (cat "Nel corso dell'installazione "
  440.          "alcuni file di questa partizione saranno sostituiti con file più recenti.\n\n"
  441.     ))
  442.  
  443.     (set #which-disk
  444.     (cat "In quale partizione vuoi che " #product " sia installato?"
  445.     ))
  446.  
  447.     (set #which-disk-help
  448.     (cat "\nQuesta sezione ti permette di scegliere in quale partizione del disco rigido "
  449.          "vuoi installare i file dell'aggiornamento. Normalmente questa dovrebbe essere "
  450.          "la stessa partizione in cui hai installato AmigaOS 3.9.\n\n"
  451.          @askdir-help
  452.     ))
  453.  
  454.     (set #insert-cdrom "\n\nPer favore inserisci il CD-ROM di AmigaOS 3.9!")
  455.     (set #insert-cdrom-help
  456.         (cat "\nQuesto aggiornamento funziona solo se inserisci il CD originale di AmigaOS 3.9."
  457.         )
  458.     )
  459.  
  460.     (set #update-failed
  461.         (cat "\nAggiornamento fallito. Per favore controlla che il CD originale di AmigaOS3.9 "
  462.              "sia inserito nel lettore CD-ROM e che l'archivo dell'aggiornamento sia stato "
  463.              "scaricato correttamente, quindi riprova. Se ancora non funziona, contatta il "
  464.              "servizio di supporto "
  465.         )
  466.     )
  467.  
  468.     (set #installing
  469.     (cat "\n\nAggiornamento in corso..."
  470.     ))
  471.  
  472.     (set #warpup-update "Installazione aggiornamento di WarpUP 5.1")
  473.     (set #warpup-update-help "La tua installazione di WarpUP verrà aggiornata.")
  474.  
  475.     (set #reboot
  476.     (cat "\nL'installazione di " #product" è stata completata.\n\n"
  477.          "Per attivare l'aggiornamento è ora necessario riavviare il computer.\n\n"
  478.          "Rimuovi tutti i dischetti dal lettore di floppy e riavvia il tuo Amiga adesso."
  479.     ))
  480.  
  481. ))
  482.  
  483.  
  484. ;=============================================================================
  485. ; Turkish strings ... thanks to Sinan Gürkan and team!
  486.  
  487. (if (= #language "türkçe")
  488. (
  489.     (set #product "AmigaOS 3.9 Ýçin Boing Bag 1")
  490.  
  491.     (set #which-language
  492.     (cat "\nHangi dil desteði kurulsun ?"
  493.     ))
  494.  
  495.     (set #which-language-help
  496.     (cat "\nAmiga birçok farklý dilde kullanýlabilinir "
  497.          "Her desteklenen dil için birkaç dosyanýn sabit  "
  498.          "diskinize kopyalanmasý gerekmektedir.\n\n"
  499.          "Dil dosyalarý tarafýndan kaplanan alaný azaltmak"
  500.          "için, sadece belli dilleri seçebilirsiniz.\n\n"
  501.          "Sisteminizde olmasýný istediðiniz dil(ler)in"
  502.          "yanýndaki kutucuklara týklayýnýz.\n\n"
  503.          @askoptions-help
  504.     ))
  505.  
  506.     (set #pretendabort "Taklit modu bu kurulumla kullanýlamaz !.")
  507.  
  508.     (set #mainwelcome (cat "Hoþgeldiniz " #product " Kurulumuna.\n"))
  509.  
  510.     (set #bad-3.9
  511.     (cat "\n\n\nBu güncelleme AmigaOS 3.9 Gerektirir. Lütfen ilk önce onu kurun!!\n\n"
  512.          "Bu güncelleme AmigaOS 3.5 için deðildir !.\n"
  513.     ))
  514.  
  515.     (set #introduction
  516.     (cat "\n\nBu program sabit diskinize " #product
  517.          " yazýlýmýný kuracaktýr .\n\nAmigaOS 3.9`un sürümünü yükseltmek için kullanýlýr."
  518.     ))
  519.  
  520.     (set #which-disk
  521.     (cat "Hangi sabit disk partisyonuna " #product " kurulsun?"
  522.     ))
  523.  
  524.     (set #which-disk-help
  525.     (cat "\nBu bölüm hangi sabit disk partisyonu üzerine güncelleme"
  526.          "dosyalarýnýn kurulacaðýný belirlemek içindir. Normal olarak"
  527.          "bu AmigaOS 3.9`u kurduðunuz dizindir.\n\n"
  528.          @askdir-help
  529.     ))
  530.  
  531.     (set #confirm-target
  532.     (cat "\n\nÇOK ÖNEMLÝ!!!\n\nBu program sabit diskinize " #product " kuracaktýr. "
  533.          "\n\nEski dosyalar silinecektir."
  534.          "\n\nGüncellemeyi kurmak istiyormusunuz? Partisyon: \"%s\"? "
  535.     ))
  536.  
  537.     (set #confirm-target-help
  538.     (cat "Kurulum iþleminin ileri safhalarýnda "
  539.          "bu partisyondaki bazý dosyalarý yenileri ile yer "
  540.          "deðiþtirecektir.\n\n"
  541.     ))
  542.  
  543.  
  544.     (set #insert-cdrom "\n\nLütfen AmigaOS 3.9 CD-ROM`unu Takýnýz!")
  545.     (set #insert-cdrom-help
  546.         (cat "\nBu güncelleme sadece orjinal AmigaOS3.9 CD-ROM taktýðýnýzda"
  547.              " çalýþmaya baþlayacaktýr."
  548.         )
  549.     )
  550.  
  551.     (set #warpup-update "WarpUP 5.1 Güncelleme Yükleniyor")
  552.     (set #warpup-update-help "Bu WarpUP PowerPC yazýlýmýný güncelleyecektir.")
  553.  
  554.     (set #update-failed
  555.         (cat "\nGüncelleme baþarýsýz. Lütfen AmigaOS 3.9 CD-ROM sürücünüze"
  556.              " takýlý olduðundan emin olun"
  557.              " ve güncelleme arþivinin bozuk olmadýðýndan emin olun."
  558.              "\n\nSonra tekrar deneyin. Sorun devam ederse bizi arayýn."
  559.         )
  560.     )
  561.  
  562.     (set #installing
  563.     (cat "\n\nGüncelleme Kuruluyor..."
  564.     ))
  565.  
  566.     (set #reboot
  567.     (cat "\n " #product " kurulumu tamamlandý.\n\n"
  568.          "Güncellemeyi aktif hale getirmek için Amiga`yý tekrar baþlatýn.\n\n"
  569.          "Bütün disketleri sürücünüzden çýkarýn ve "
  570.          "Amiga`yý tekrar baþlatýn."
  571.     ))
  572. ))
  573.  
  574. ;=============================================================================
  575. ; CopyDirByLang ...
  576.  
  577. (procedure P_CopyDirByLang #languages #NumLanguages #whichdir #source #destination #create-lang-dir
  578.   (
  579.     (if (not (exists (tackon #destination #whichdir)))
  580.       (makedir (tackon #destination #whichdir))
  581.     )
  582.  
  583.     (set #i 0)
  584.     (while (< #i #NumLanguages)
  585.       (
  586.         (if (<> 0 (IN #languages #i))
  587.           (
  588.             ;(set #cLanguage (select #i "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "hrvatski" "italiano" "nederlands" "norsk" "português" "português-brasil" "russian" "slovak" "slovensko" "srpski" "suomi" "svenska" "türkçe"))
  589.             (set #cLanguage (select #i "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "italiano" "latvian" "nederlands" "polski" "português" "português-brasil" "russian" "slovensko" "srpski" "suomi" "svenska" "türkçe"))
  590.  
  591.             (if (exists (tackon (tackon #source #whichdir) #cLanguage))
  592.               (
  593.                 if (= #create-lang-dir true)
  594.                 (
  595.                     (copyfiles
  596.                       (source (tackon (tackon #source #whichdir) #cLanguage))
  597.                       (dest (tackon (tackon #destination #whichdir) #cLanguage) )
  598.                       (all) (optional nofail force)
  599.                     )
  600.                 )
  601.                 (
  602.                     (copyfiles
  603.                       (source (tackon (tackon #source #whichdir) #cLanguage))
  604.                       (dest (tackon #destination #whichdir))
  605.                       (all) (optional nofail force)
  606.                     )
  607.                 )
  608.               )
  609.             )
  610.           )
  611.         )
  612.       )
  613.       (set #i (+ #i 1))
  614.     )
  615.   )
  616. )
  617.  
  618. ;=============================================================================
  619. ; rename procedure ...
  620.  
  621. (procedure ren #oldname #newname
  622.     (
  623.         (if (exists #oldname)
  624.             (
  625.                 (if (= (exists #newname) false)
  626.                     (
  627.                         (rename #oldname #newname)
  628.                     )
  629.                 )
  630.             )
  631.         )
  632.     )
  633. )
  634.  
  635. ;=============================================================================
  636. ; do a bit of set up...
  637.  
  638. (set #sourcePath (expandpath (pathonly @icon)))
  639. (set #internetPath (tackon #sourcePath "Internet"))
  640. (set #logo "BB39-1-logo.jpg")
  641.  
  642. (set #old_wb "SYS:")
  643. (set #old_wb (expandpath #old_wb))
  644.  
  645. (user 2)
  646. (set #theirlevel @user-level)
  647.  
  648. (set #hires 0)
  649.  
  650. (if (> #c 32)
  651.     (
  652.        (if (> #h 590)
  653.           (
  654.             (set #hires 2)
  655.             (showmedia 'logo' (tackon "Installer/Hires" #logo) 'upper_left' 'none' 0)
  656.           )
  657.           (
  658.             (set #hires 1)
  659.             (showmedia 'logo' (tackon "Installer/LoRes" #logo) 'upper_left' 'none' 0)
  660.           )
  661.        )
  662.     )
  663. )
  664.  
  665. ;=============================================================================
  666. ; what do you want to do?
  667.  
  668. (if (<> #wbversion 45)
  669.     (
  670.         (message #bad-3.9) ; No OS3.9 installed
  671.         (exit (quiet))
  672.     )
  673.     (
  674.         ;******************************************************************
  675.         ;***************** Boing BAG Installation *************************
  676.         ;******************************************************************
  677.         (complete 1)
  678.  
  679.         (message #introduction)
  680.  
  681.         (complete 5)
  682.  
  683.         (user 0)
  684.         (welcome #mainwelcome)
  685.         (set #theirlevel @user-level)
  686.  
  687.         (if @pretend
  688.           (abort #pretendabort)
  689.         )
  690.  
  691.         (complete 10)
  692.  
  693.         (set #target (askdir (prompt #which-disk)
  694.                           (help #which-disk-help)
  695.                           (default #old_wb)
  696.                           (disk)
  697.                      )
  698.         )
  699.  
  700.         (complete 15)
  701.  
  702.         (message (#confirm-target #target))
  703.  
  704.         (set @default-dest #target)
  705.  
  706.         (complete 20)
  707.  
  708.         ;=============================================================================
  709.         ; ask for languages to install
  710.  
  711.  
  712.         ; "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "hrvatski" "italiano"
  713.         ; "nederlands" "norsk" "português" "português-brasil" "russian" "slovak" "slovensko"
  714.         ; "srpski" "suomi" "svenska" "türkçe"
  715.  
  716.         (set i 0)
  717.         (set #languages 0)
  718.         (while (<> #language "")
  719.           (
  720.             (set #NumLanguages 0) (set l 0)
  721.  
  722.             (if (= #language "türkçe") (set l (+ l 1)) )
  723.             (set l (shiftleft l 1))
  724.             (set #NumLanguages (+ #NumLanguages 1))
  725.  
  726.             (if (= #language "svenska") (set l (+ l 1)) )
  727.             (set l (shiftleft l 1))
  728.             (set #NumLanguages (+ #NumLanguages 1))
  729.  
  730.             (if (= #language "suomi") (set l (+ l 1)) )
  731.             (set l (shiftleft l 1))
  732.             (set #NumLanguages (+ #NumLanguages 1))
  733.  
  734.             (if (= #language "srpski") (set l (+ l 1)) )
  735.             (set l (shiftleft l 1))
  736.             (set #NumLanguages (+ #NumLanguages 1))
  737.  
  738.             (if (= #language "slovensko") (set l (+ l 1)) )
  739.             (set l (shiftleft l 1))
  740.             (set #NumLanguages (+ #NumLanguages 1))
  741.  
  742.             ;(if (= #language "slovak") (set l (+ l 1)) )
  743.             ;(set l (shiftleft l 1))
  744.             ;(set #NumLanguages (+ #NumLanguages 1))
  745.  
  746.             (if (= #language "russian") (set l (+ l 1)) )
  747.             (set l (shiftleft l 1))
  748.             (set #NumLanguages (+ #NumLanguages 1))
  749.  
  750.             (if (= #language "português-brasil") (set l (+ l 1)) )
  751.             (set l (shiftleft l 1))
  752.             (set #NumLanguages (+ #NumLanguages 1))
  753.  
  754.             (if (= #language "português") (set l (+ l 1)) )
  755.             (set l (shiftleft l 1))
  756.             (set #NumLanguages (+ #NumLanguages 1))
  757.  
  758.             (if (= #language "polski") (set l (+ l 1)) )
  759.             (set l (shiftleft l 1))
  760.             (set #NumLanguages (+ #NumLanguages 1))
  761.  
  762.             ;(if (= #language "norsk") (set l (+ l 1)) )
  763.             ;(set l (shiftleft l 1))
  764.             ;(set #NumLanguages (+ #NumLanguages 1))
  765.  
  766.             (if (= #language "nederlands") (set l (+ l 1)) )
  767.             (set l (shiftleft l 1))
  768.             (set #NumLanguages (+ #NumLanguages 1))
  769.  
  770.             (if (= #language "latvian") (set l (+ l 1)) )
  771.             (set l (shiftleft l 1))
  772.             (set #NumLanguages (+ #NumLanguages 1))
  773.  
  774.             (if (= #language "italiano") (set l (+ l 1)) )
  775.             (set l (shiftleft l 1))
  776.             (set #NumLanguages (+ #NumLanguages 1))
  777.  
  778.             ;(if (= #language "hrvatski") (set l (+ l 1)) )
  779.             ;(set l (shiftleft l 1))
  780.             ;(set #NumLanguages (+ #NumLanguages 1))
  781.  
  782.             (if (= #language "français") (set l (+ l 1)) )
  783.             (set l (shiftleft l 1))
  784.             (set #NumLanguages (+ #NumLanguages 1))
  785.  
  786.             (if (= #language "español") (set l (+ l 1)) )
  787.             (set l (shiftleft l 1))
  788.             (set #NumLanguages (+ #NumLanguages 1))
  789.  
  790.             (if (= #language "deutsch") (set l (+ l 1)) )
  791.             (set l (shiftleft l 1))
  792.             (set #NumLanguages (+ #NumLanguages 1))
  793.  
  794.             (if (= #language "dansk") (set l (+ l 1)) )
  795.             (set l (shiftleft l 1))
  796.             (set #NumLanguages (+ #NumLanguages 1))
  797.  
  798.             (if (= #language "czech") (set l (+ l 1)) )
  799.             (set l (shiftleft l 1))
  800.             (set #NumLanguages (+ #NumLanguages 1))
  801.  
  802.             (if (= #language "català") (set l (+ l 1)) )
  803.             (set l (shiftleft l 1))
  804.             (set #NumLanguages (+ #NumLanguages 1))
  805.  
  806.             (if (= #language "bosanski") (set l (+ l 1)) )
  807.             (set #NumLanguages (+ #NumLanguages 1))
  808.  
  809.             (set #language (getenv ("language.%ld" i)) )
  810.             (set #languages (bitor #languages l) )
  811.  
  812.             (set i (+ i 1))
  813.           )
  814.         )
  815.  
  816.         (complete 25)
  817.  
  818.         ;-ask options------------------------------------------------------------------------
  819.  
  820.         (set #languages
  821.           (askoptions
  822.             (help #which-language-help) (prompt #which-language) (default #languages)
  823.             ;(choices "Bosanski" "Català" "Czech" "Dansk" "Deutsch" "Español" "Français" "Hrvatski" "Italiano" "Nederlands" "Norsk" "Português" "Português (Brasil)" "Ðóññêèé (Russian)" "Slovak" "Slovensko" "Srpksi" "Suomi" "Svenska" "Türkçe")
  824.             (choices "Bosanski" "Català" "Czech" "Dansk" "Deutsch" "Español" "Français" "Italiano" "Latvian" "Nederlands" "Polski" "Português" "Português (Brasil)" "Ðóññêèé (Russian)" "Slovensko" "Srpksi" "Suomi" "Svenska" "Türkçe")
  825.           )
  826.         )
  827.  
  828.         ;=============================================================================
  829.         ; get the version of what is currently installed
  830.  
  831.         (set old_version 0)
  832.         (if (exists (tackon #target "Libs/version.library"))
  833.         (
  834.             (set old_version (/ (getversion (tackon #target "Libs/version.library")) 65536))
  835.         ))
  836.  
  837.         (complete 30)
  838.  
  839.         ;=============================================================================
  840.         ; ask to insert the AmigaOS 3.9 CD-ROM
  841.  
  842.         (if (<> (patmatch "#?BoingBag3.9-1:#?" #sourcePath) true)
  843.             (askdisk (prompt #insert-cdrom)
  844.                 (help #insert-cdrom-help)
  845.                 (dest "AmigaOS3.9")
  846.                 (assigns)
  847.             )
  848.         )
  849.  
  850.         (complete 40)
  851.  
  852.         ;=============================================================================
  853.         ; now copy the Workbench disk
  854.  
  855.         (working #installing)
  856.  
  857.         (set #updaterror 20)
  858.         (set #updateerror (run (cat "C/Updater AmigaOS-Update \"" #target "\"")))
  859.         (if (> #updateerror 0)
  860.            (
  861.               (abort #update-failed)
  862.            )
  863.         )
  864.  
  865.         (complete 60)
  866.  
  867.         ; set some protection bits
  868.  
  869.         (protect (tackon #target "C/LoadMonDrvs") "+prwed")
  870.         (protect (tackon #target "C/LoadResource") "+prwed")
  871.         (protect (tackon #target "C/MakeDir") "+prwed")
  872.         (protect (tackon #target "C/MakeLink") "+prwed")
  873.         (protect (tackon #target "C/SetEnv") "+prwed")
  874.         (protect (tackon #target "C/WBInfo") "+prwed")
  875.         (protect (tackon #target "C/WBRun") "+prwed")
  876.  
  877.         (protect (tackon #target "S/Start-Amplifier.rexx") "+srwed")
  878.         (protect (tackon #target "S/Startup-Sequence.BB39-1") "+srwed")
  879.         (protect (tackon #target "S/Stream-Amplifier.rexx") "+srwed")
  880.  
  881.         (complete 70)
  882.  
  883.         ;=============================================================================
  884.         ; install WarpUP 5.1
  885.  
  886.         (if (exists "PowerPC/powerpc.library")
  887.           (
  888.             (if (exists (tackon #target "Libs/powerpc.library"))
  889.               (
  890.                 (copylib (prompt #warpup-update)
  891.                          (help #warpup-update-help)
  892.                          (source "PowerPC/powerpc.library")
  893.                          (dest (tackon #target "Libs"))
  894.                          (optional nofail force)
  895.                 )
  896.               )
  897.             )
  898.           )
  899.         )
  900.  
  901.         (if (exists "PowerPC/warp.library")
  902.           (
  903.             (if (exists (tackon #target "Libs/warp.library"))
  904.               (
  905.                 (copylib (prompt #warpup-update)
  906.                          (help #warpup-update-help)
  907.                          (source "PowerPC/warp.library")
  908.                          (dest (tackon #target "Libs"))
  909.                          (optional nofail force)
  910.                 )
  911.               )
  912.             )
  913.           )
  914.         )
  915.  
  916.         (complete 80)
  917.  
  918.         ;=============================================================================
  919.         ; catalog files
  920.  
  921.         (P_CopyDirByLang #languages #NumLanguages "Catalogs" "Locale" (tackon #target "Locale") true)
  922.  
  923.         ; also the AWeb3SE locales
  924.  
  925.         (if (exists (tackon #target "Internet/AWeb3SE/Catalogs"))
  926.             (
  927.                 (P_CopyDirByLang #languages #NumLanguages "Catalogs" "Locale/AWeb3SE" (tackon #target "Internet/AWeb3SE") true)
  928.             )
  929.         )
  930.  
  931.         (complete 90)
  932.  
  933.         ;=============================================================================
  934.         ; Internet!
  935.  
  936.         (if (exists (tackon #target "Internet"))
  937.           (
  938.                   (set @default-dest (tackon #target "Internet"))
  939.                   (if (exists (tackon @default-dest "GenesisRA"))
  940.                   (
  941.                           (if (exists (tackon @default-dest "Genesis"))
  942.                               (
  943.                                   (ren (tackon @default-dest "Genesis") (tackon @default-dest "GenesisMUI"))
  944.                                   (ren (tackon @default-dest "Genesis.info") (tackon @default-dest "GenesisMUI.info"))
  945.                               )
  946.                           )
  947.                       )
  948.                   )
  949.  
  950.                   (ren (tackon @default-dest "GenesisRA") (tackon @default-dest "Genesis"))
  951.                   (ren (tackon @default-dest "GenesisRA.info") (tackon @default-dest "Genesis.info"))
  952.  
  953.                   (if (exists (tackon @default-dest "GenesisWizardRA"))
  954.                       (
  955.                           (if (exists (tackon @default-dest "GenesisWizard"))
  956.                               (
  957.                                   (ren (tackon @default-dest "GenesisWizard") (tackon @default-dest "GenesisWizardMUI"))
  958.                                   (ren (tackon @default-dest "GenesisWizard.info") (tackon @default-dest "GenesisWizardMUI.info"))
  959.                               )
  960.                           )
  961.                       )
  962.                   )
  963.  
  964.                   (ren (tackon @default-dest "GenesisWizardRA") (tackon @default-dest "GenesisWizard"))
  965.                   (ren (tackon @default-dest "GenesisWizardRA.info") (tackon @default-dest "GenesisWizard.info"))
  966.  
  967.                   (ren (tackon @default-dest "GenesisPrefs") (tackon @default-dest "GenesisPrefsMUI"))
  968.                   (ren (tackon @default-dest "GenesisPrefs.info") (tackon @default-dest "GenesisPrefsMUI.info"))
  969.  
  970.                   (copyfiles (source #internetPath)
  971.                              (dest (tackon #target "Internet"))
  972.                              (all)
  973.                              (optional "nofail" "force" "askuser")
  974.                   )
  975.                   (set @default-dest #target)
  976.             )
  977.         )
  978.  
  979.         (complete 100)
  980.  
  981.         ;=============================================================================
  982.         ; "Say goodnight Gracy."
  983.  
  984.         (user 2)
  985.         (message #reboot)
  986.         (closemedia logo)
  987.         (exit)
  988.     )
  989. )
  990.