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 >
Wrap
Text File
|
2001-03-27
|
34KB
|
990 lines
;$VER: Boing Bag Install 45.8 (26.3.2001)
(effect "center" "radial" $FF0077 $AA8800)
(set #language (getenv "Language"))
(set #wbversion 0)
(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536) )
(set #iconversion 0)
(set #iconversion (getversion "icon.library" (resident)))
(set #iconversion (/ #iconversion 65536) )
(set #w (querydisplay "screen" "width"))
(set #h (querydisplay "screen" "height"))
(set #d (querydisplay "screen" "depth"))
(set #c (querydisplay "screen" "colors"))
(complete 0)
;=============================================================================
; English strings
(set #product "Boing Bag 1 for AmigaOS 3.9")
(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different "
"languages. Several files must be copied to your "
"hard drive for each language supported.\n\n"
"To reduce the amount of space consumed by the "
"language files, you can select only the "
"files of specific languages to be copied.\n\n"
"Check the boxes of the languages you wish "
"to have available on your system.\n\n"
@askoptions-help
))
(set #pretendabort "Pretend mode cannot be used with this installation script.")
(set #mainwelcome (cat "Welcome to the " #product " installation.\n"))
(set #bad-3.9
(cat "\n\n\nThis update needs AmigaOS 3.9. Please install it first!\n\n"
"This update is not intended for AmigaOS 3.5!\n"
))
(set #introduction
(cat "\n\nThis program lets you install " #product
" on your hard drive.\n\nIt can be used to update Version 3.9 of AmigaOS."
))
(set #which-disk
(cat "On which partition should " #product " be installed?"
))
(set #which-disk-help
(cat "\nThis section lets you choose on which hard drive partition the "
"update files will be installed. These should normally go "
"to the same directory you installed AmigaOS 3.9 to.\n\n"
@askdir-help
))
(set #confirm-target
(cat "\n\nVERY IMPORTANT!!!\n\nThis program installs " #product " on your hard disk. "
"\n\nOlder files will be overwritten."
"\n\nDo you want to install the update on partition \"%s\"? "
))
(set #confirm-target-help
(cat "In the further installation process "
"some of the files on this partition will be replaced with newer "
"files.\n\n"
))
(set #insert-cdrom "\n\nPlease insert AmigaOS 3.9 CD-ROM!")
(set #insert-cdrom-help
(cat "\nThis Update installation only works when you insert an original"
" AmigaOS 3.9 CD-ROM."
)
)
(set #warpup-update "Installing WarpUP 5.1 Update")
(set #warpup-update-help "This will update your installed WarpUP PowerPC software.")
(set #update-failed
(cat "\nUpdate failed. Please check whether your AmigaOS 3.9 CD-ROM is"
" inserted in your CD-ROM drive"
" and whether the download of the update archive worked correctly."
"\n\nThen try again. If it still doesn't work contact our support."
)
)
(set #installing
(cat "\n\nInstalling the update..."
))
(set #reboot
(cat "\nThe installation of " #product " is now complete.\n\n"
"To enable the updated files, you must reboot your Amiga.\n\n"
"Remove all the disks from the floppy drive and "
"reboot your Amiga now."
))
;=============================================================================
; German strings
(if (= #language "deutsch")
(
(set #product "Boing Bag 1 für AmigaOS 3.9")
(set #which-language
(cat "\nWelche Sprachen sollen installiert werden?"
))
(set #which-language-help
(cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
"Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
"Festplatte kopiert werden.\n\n"
"Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
"einnehmen, können Sie wählen, nur die Treiber für bestimmte "
"Sprachen zu installieren.\n\n"
"Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
"Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
"einem Häkchen markiert sind.\n\n"
@askoptions-help
))
(set #pretendabort "Dieses Installationsprogramm unterstützt den Simulationsmodus (Scheinbar installieren) nicht.")
(set #mainwelcome (cat "Willkommen zur Installation vom " #product " \n"))
(set #bad-3.9
(cat "\n\n\nDieses Update benötigt AmigaOS 3.9. Bitte installieren Sie es zuerst!\n\n"
"Dieses Update ist nicht für AmigaOS 3.5 gedacht!\n"
))
(set #introduction
(cat "\n\nHiermit können Sie " #product " auf Ihrer "
"Festplatte installieren.\n\nSie können damit die Version 3.9 von AmigaOS "
"aktualisieren."
))
(set #confirm-target
(cat "\n\nBITTE BEACHTEN!!!\n\nDieses Programm installiert " #product " auf Ihrer Festplatte."
"\n\nBisherige Dateien werden überschrieben.\n\n"
" Wollen Sie das Update auf der Partition \"%s\" installiert "
" bekommen?"
))
(set #confirm-target-help
(cat "Bei der weiteren Installation "
"werden die meisten Dateien in dieser Partition durch neuere Dateien "
"ersetzt.\n\n"
))
(set #which-disk
(cat "Auf welcher Partition soll " #product " installiert werden?"
))
(set #which-disk-help
(cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
"die Dateien vom Update installiert werden sollen. "
"Sie sollten normalerweise an dieselbe Stelle installiert werden, "
"wie die bisherigen Dateien von AmigaOS 3.9.\n\n"
@askdir-help
))
(set #insert-cdrom "\n\nBitte legen Sie die AmigaOS 3.9 CD-ROM in ihr CD-ROM-Laufwerk!")
(set #insert-cdrom-help
(cat "\nDiese Update-Installation funktioniert nur, wenn Sie eine"
" originale AmigaOS 3.9 CD-ROM einlegen."
)
)
(set #warpup-update "Installiere WarpUP 5.1 Update")
(set #warpup-update-help "Hiermit wird ihre installierte WarpUP-PowerPC-Software erneuert.")
(set #update-failed
(cat "\nUpdate fehlgeschlagen. Bitte prüfen Sie, ob die AmigaOS 3.9 CD-ROM"
" in ihr CD-ROM-Laufwerk eingelegt ist und ob der Download des Update-Archives"
" einwandfrei geklappt hat.\n\nDann versuchen Sie es erneut. Wenn auch daraufhin"
" noch nicht klappt, kontaktieren Sie unseren Support."
)
)
(set #installing
(cat "\n\nInstalliere das Update..."
))
(set #reboot
(cat "Die Installation des Updates ist nun abgeschlossen.\n\n"
"Um das Update zu aktivieren, müssen Sie Ihren Amiga neu "
"starten. "
"Nehmen Sie die eventuell vorhandene Disketten aus Ihren Diskettenlaufwerken "
"und starten Sie ihren Amiga jetzt neu.\n\n"
))
))
;=============================================================================
; Danish strings ... thanks to Niels Bache and team!
(if (= #language "dansk")
(
(set #product "Boing Bag 1 for AmigaOS 3.9")
(set #which-language
(cat "\nHvilke sprog skal der installeres?"
))
(set #which-language-help
(cat "\nAmigaen kan anvendes med mange forskellige sprog. "
"For hvert sprog skal der kopieres nogle filer til "
"din harddisk.\n\n"
"For at begrænse den diskplads som sprogfilerne optager på "
"harddisken, kan du vælge kun at installere filerne for "
"nogle bestemte sprog.\n\n"
"Du skal blot klikke på knapperne for de sprog som du gerne vil "
"have til rådighed i systemet, så disse sprog bliver markeret "
"med et hak.\n\n"
@askoptions-help
))
(set #pretendabort "Dette installationsprogram understøtter ikke simuleringsmodusen ('Lade som om'-installering).")
(set #mainwelcome (cat "Velkommen til installeringen af " #product " \n"))
(set #bad-3.9
(cat "\n\n\nDenne opdatering kræver AmigaOS 3.9. Installér først denne.\n\n"
"Denne opdatering er ikke beregnet til AmigaOS 3.5.\n"
))
(set #introduction
(cat "\n\nMed dette program kan du installere " #product " på din "
"harddisk.\n\nDermed kan du opdatere version 3.9 af AmigaOS."
))
(set #confirm-target
(cat "\n\nBEMÆRK!!!\n\nDette program installerer " #product " på din harddisk."
"\n\nEksisterende filer vil blive overskrevet.\n\n"
" Vil du have opdateringen installeret i diskafsnittet \"%s\"?"
))
(set #confirm-target-help
(cat "Som led i installeringen "
"vil de fleste filer i dette diskafsnit blive udskiftet med nyere "
"versioner.\n\n"
))
(set #which-disk
(cat "I hvilket diskafsnit skal " #product " installeres?"
))
(set #which-disk-help
(cat "\nHer kan du vælge i hvilket diskafsnit (partition) "
"opdateringens filer skal installeres. "
"De skal normalt installeres samme sted som de eksisterende "
"filer fra AmigaOS 3.9.\n\n"
@askdir-help
))
(set #insert-cdrom "\n\nLæg cd'en med AmigaOS 3.9 i cd-drevet.")
(set #insert-cdrom-help
(cat "\nInstalleringen af denne opdatering virker kun hvis man lægger"
" en original AmigaOS 3.9-cd i drevet."
)
)
(set #warpup-update "Installerer WarpUP 5.1-opdateringen")
(set #warpup-update-help "Herved opdateres den installerede WarpUp-PowerPC-software.")
(set #update-failed
(cat "\nOpdateringen lykkedes ikke. Check om cd'en med AmigaOS 3.9"
" er lagt i cd-drevet og om hentningen af opdateringsarkivet er gennemført"
" uden problemer.\n\nPrøv derefter installeringen igen. Hvis den stadig"
" ikke lykkes, så kontakt vores support."
)
)
(set #installing
(cat "\n\nInstallerer opdateringen..."
))
(set #reboot
(cat "Installeringen af opdateringen er nu gennemført.\n\n"
"For at aktivere opdateringen skal du genstarte din "
"Amiga. "
"Tag eventuelle disketter ud af diskettedrevene og "
"genstart Amigaen nu.\n\n"
))
))
;=============================================================================
; Spanish strings ... thanks to David Rey and team!
(if (= #language "español")
(
(set #product "Boing Bag 1 para AmigaOS 3.9")
(set #which-language
(cat "\n¿Qué idiomas desea instalar?"
))
(set #which-language-help
(cat "\nEl Amiga puede utilizarse en muchos idiomas diferentes. "
"Deberán copiarse varios ficheros a su disco duro para "
"cada idioma que se desee soportar.\n\n"
"Para reducir la cantidad de espacio ocupado por los "
"ficheros correspondientes, puede elegir sólo aquéllos "
"específicos de los idiomas que le interesen.\n\n"
"Marque las casillas de los idiomas que desee "
"poder utilizar en su sistema.\n\n"
@askoptions-help
))
(set #pretendabort "El modo simulado no puede ser utilizado con este script de instalación.")
(set #mainwelcome (cat "Bienvenido a la instalación del " #product ".\n"))
(set #bad-3.9
(cat "\n\n\nEsta actualización necesita el AmigaOS 3.9. ¡Por favor, instálelo primero!\n\n"
"¡Esta actualización NO ES para el AmigaOS 3.5!\n"
))
(set #introduction
(cat "\n\nEste programa le permite instalar el " #product
" en su disco duro.\n\nPuede utilizarse para actualizar la versión 3.9 del AmigaOS."
))
(set #which-disk
(cat "¿En qué partición desea instalar el " #product "?"
))
(set #which-disk-help
(cat "\nEsta sección le permite elegir la partición de disco duro en la "
"que se instalará la actualización. Normalmente debería hacerlo en "
"el mismo directorio donde tiene ya instalado el AmigaOS 3.9.\n\n"
@askdir-help
))
(set #confirm-target
(cat "\n\n¡¡¡MUY IMPORTANTE!!!\n\nEste programa instala el " #product " en su disco duro. "
"\n\nLos ficheros antiguos se sobreescribirán."
"\n\n¿Desea instalar la actualización en la partición \"%s\"? "
))
(set #confirm-target-help
(cat "Más adelante, algunos de los ficheros de esta partición "
"serán sustituidos por otros más recientes.\n\n"
))
(set #insert-cdrom "\n\nPor favor, inserte el CD-ROM del AmigaOS 3.9.")
(set #insert-cdrom-help
(cat "\nEsta instalación sólo funcionará una vez que inserte el CD-ROM"
" original del AmigaOS 3.9."
)
)
(set #warpup-update "Instalando actualización de WarpUP 5.1")
(set #warpup-update-help "Esta parte actualizará su versión instalada de WarpUP.")
(set #update-failed
(cat "\nLa actualización ha fracasado. Por favor, compruebe que tiene"
" su CD-ROM del AmigaOS 3.9 insertado en su lector de CD-ROM y"
" que ha descargado correctamente el archivo con la actualización."
"\n\nEntonces inténtelo de nuevo. Si todavía no funciona, póngase"
" en contacto con nuestro soporte técnico."
)
)
(set #installing
(cat "\n\nInstalando la actualización..."
))
(set #reboot
(cat "\nLa instalación del " #product " ha concluido con éxito.\n\n"
"Para que el nuevo software entre en funcionamiento, deberá reiniciar su Amiga.\n\n"
"Extraiga cualquier disquete insertado en una disquetera y "
"entonces reinicie su sistema."
))
))
; =============================================================================
; Italian strings ... thanks to Stefano Guidetti and team!
(if (= #language "italiano")
(
(set #product "Boing Bag 1 per AmigaOS 3.9")
(set #which-language
(cat "\nQuali lingue devono essere installate?"
))
(set #which-language-help
(cat "\nAmiga può operare in molte lingue differenti. "
"Diversi file devono essere copiati sul tuo disco "
"rigido per ogni lingua scelta.\n\n"
"Per ridurre l'ammontare di spazio richiesto dai "
"file relativi alle lingue, puoi selezionare "
"quali lingue installare.\n\n"
"Seleziona le caselle relative alle lingue che "
"vuoi avere a disposizione nel tuo sistema.\n\n"
@askoptions-help
))
(set #pretendabort "Non è possibile eseguire questa installazione in modalità virtuale.")
(set #mainwelcome (cat "Benvenuti all'installazione di " #product " \n"))
(set #bad-3.9
(cat "\n\n\nQuesto aggiornamento necessita di AmigaOS 3.9. Per favore installalo prima di effettuare l'aggiornamento!\n\n"
"Questo aggiornamento non è destinato ad AmigaOS 3.5\n"
))
(set #introduction
(cat "\n\nQuesto programma ti permette di installare " #product " sul tuo disco rigido.\n\n"
"Può essere usato solo per aggiornare la versione 3.9 di AmigaOS."
))
(set #confirm-target
(cat "\n\nIMPORTANTE!!!\n\nQuesto programma installa " #product " sul tuo disco rigido."
"\n\nI vecchi file verranno sovrascritti.\n\n"
" Vuoi veramente installare l'aggiornamento nella partizione \"%s\"?"
))
(set #confirm-target-help
(cat "Nel corso dell'installazione "
"alcuni file di questa partizione saranno sostituiti con file più recenti.\n\n"
))
(set #which-disk
(cat "In quale partizione vuoi che " #product " sia installato?"
))
(set #which-disk-help
(cat "\nQuesta sezione ti permette di scegliere in quale partizione del disco rigido "
"vuoi installare i file dell'aggiornamento. Normalmente questa dovrebbe essere "
"la stessa partizione in cui hai installato AmigaOS 3.9.\n\n"
@askdir-help
))
(set #insert-cdrom "\n\nPer favore inserisci il CD-ROM di AmigaOS 3.9!")
(set #insert-cdrom-help
(cat "\nQuesto aggiornamento funziona solo se inserisci il CD originale di AmigaOS 3.9."
)
)
(set #update-failed
(cat "\nAggiornamento fallito. Per favore controlla che il CD originale di AmigaOS3.9 "
"sia inserito nel lettore CD-ROM e che l'archivo dell'aggiornamento sia stato "
"scaricato correttamente, quindi riprova. Se ancora non funziona, contatta il "
"servizio di supporto "
)
)
(set #installing
(cat "\n\nAggiornamento in corso..."
))
(set #warpup-update "Installazione aggiornamento di WarpUP 5.1")
(set #warpup-update-help "La tua installazione di WarpUP verrà aggiornata.")
(set #reboot
(cat "\nL'installazione di " #product" è stata completata.\n\n"
"Per attivare l'aggiornamento è ora necessario riavviare il computer.\n\n"
"Rimuovi tutti i dischetti dal lettore di floppy e riavvia il tuo Amiga adesso."
))
))
;=============================================================================
; Turkish strings ... thanks to Sinan Gürkan and team!
(if (= #language "türkçe")
(
(set #product "AmigaOS 3.9 Ýçin Boing Bag 1")
(set #which-language
(cat "\nHangi dil desteði kurulsun ?"
))
(set #which-language-help
(cat "\nAmiga birçok farklý dilde kullanýlabilinir "
"Her desteklenen dil için birkaç dosyanýn sabit "
"diskinize kopyalanmasý gerekmektedir.\n\n"
"Dil dosyalarý tarafýndan kaplanan alaný azaltmak"
"için, sadece belli dilleri seçebilirsiniz.\n\n"
"Sisteminizde olmasýný istediðiniz dil(ler)in"
"yanýndaki kutucuklara týklayýnýz.\n\n"
@askoptions-help
))
(set #pretendabort "Taklit modu bu kurulumla kullanýlamaz !.")
(set #mainwelcome (cat "Hoþgeldiniz " #product " Kurulumuna.\n"))
(set #bad-3.9
(cat "\n\n\nBu güncelleme AmigaOS 3.9 Gerektirir. Lütfen ilk önce onu kurun!!\n\n"
"Bu güncelleme AmigaOS 3.5 için deðildir !.\n"
))
(set #introduction
(cat "\n\nBu program sabit diskinize " #product
" yazýlýmýný kuracaktýr .\n\nAmigaOS 3.9`un sürümünü yükseltmek için kullanýlýr."
))
(set #which-disk
(cat "Hangi sabit disk partisyonuna " #product " kurulsun?"
))
(set #which-disk-help
(cat "\nBu bölüm hangi sabit disk partisyonu üzerine güncelleme"
"dosyalarýnýn kurulacaðýný belirlemek içindir. Normal olarak"
"bu AmigaOS 3.9`u kurduðunuz dizindir.\n\n"
@askdir-help
))
(set #confirm-target
(cat "\n\nÇOK ÖNEMLÝ!!!\n\nBu program sabit diskinize " #product " kuracaktýr. "
"\n\nEski dosyalar silinecektir."
"\n\nGüncellemeyi kurmak istiyormusunuz? Partisyon: \"%s\"? "
))
(set #confirm-target-help
(cat "Kurulum iþleminin ileri safhalarýnda "
"bu partisyondaki bazý dosyalarý yenileri ile yer "
"deðiþtirecektir.\n\n"
))
(set #insert-cdrom "\n\nLütfen AmigaOS 3.9 CD-ROM`unu Takýnýz!")
(set #insert-cdrom-help
(cat "\nBu güncelleme sadece orjinal AmigaOS3.9 CD-ROM taktýðýnýzda"
" çalýþmaya baþlayacaktýr."
)
)
(set #warpup-update "WarpUP 5.1 Güncelleme Yükleniyor")
(set #warpup-update-help "Bu WarpUP PowerPC yazýlýmýný güncelleyecektir.")
(set #update-failed
(cat "\nGüncelleme baþarýsýz. Lütfen AmigaOS 3.9 CD-ROM sürücünüze"
" takýlý olduðundan emin olun"
" ve güncelleme arþivinin bozuk olmadýðýndan emin olun."
"\n\nSonra tekrar deneyin. Sorun devam ederse bizi arayýn."
)
)
(set #installing
(cat "\n\nGüncelleme Kuruluyor..."
))
(set #reboot
(cat "\n " #product " kurulumu tamamlandý.\n\n"
"Güncellemeyi aktif hale getirmek için Amiga`yý tekrar baþlatýn.\n\n"
"Bütün disketleri sürücünüzden çýkarýn ve "
"Amiga`yý tekrar baþlatýn."
))
))
;=============================================================================
; CopyDirByLang ...
(procedure P_CopyDirByLang #languages #NumLanguages #whichdir #source #destination #create-lang-dir
(
(if (not (exists (tackon #destination #whichdir)))
(makedir (tackon #destination #whichdir))
)
(set #i 0)
(while (< #i #NumLanguages)
(
(if (<> 0 (IN #languages #i))
(
;(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"))
(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"))
(if (exists (tackon (tackon #source #whichdir) #cLanguage))
(
if (= #create-lang-dir true)
(
(copyfiles
(source (tackon (tackon #source #whichdir) #cLanguage))
(dest (tackon (tackon #destination #whichdir) #cLanguage) )
(all) (optional nofail force)
)
)
(
(copyfiles
(source (tackon (tackon #source #whichdir) #cLanguage))
(dest (tackon #destination #whichdir))
(all) (optional nofail force)
)
)
)
)
)
)
)
(set #i (+ #i 1))
)
)
)
;=============================================================================
; rename procedure ...
(procedure ren #oldname #newname
(
(if (exists #oldname)
(
(if (= (exists #newname) false)
(
(rename #oldname #newname)
)
)
)
)
)
)
;=============================================================================
; do a bit of set up...
(set #sourcePath (expandpath (pathonly @icon)))
(set #internetPath (tackon #sourcePath "Internet"))
(set #logo "BB39-1-logo.jpg")
(set #old_wb "SYS:")
(set #old_wb (expandpath #old_wb))
(user 2)
(set #theirlevel @user-level)
(set #hires 0)
(if (> #c 32)
(
(if (> #h 590)
(
(set #hires 2)
(showmedia 'logo' (tackon "Installer/Hires" #logo) 'upper_left' 'none' 0)
)
(
(set #hires 1)
(showmedia 'logo' (tackon "Installer/LoRes" #logo) 'upper_left' 'none' 0)
)
)
)
)
;=============================================================================
; what do you want to do?
(if (<> #wbversion 45)
(
(message #bad-3.9) ; No OS3.9 installed
(exit (quiet))
)
(
;******************************************************************
;***************** Boing BAG Installation *************************
;******************************************************************
(complete 1)
(message #introduction)
(complete 5)
(user 0)
(welcome #mainwelcome)
(set #theirlevel @user-level)
(if @pretend
(abort #pretendabort)
)
(complete 10)
(set #target (askdir (prompt #which-disk)
(help #which-disk-help)
(default #old_wb)
(disk)
)
)
(complete 15)
(message (#confirm-target #target))
(set @default-dest #target)
(complete 20)
;=============================================================================
; ask for languages to install
; "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"
(set i 0)
(set #languages 0)
(while (<> #language "")
(
(set #NumLanguages 0) (set l 0)
(if (= #language "türkçe") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "svenska") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "suomi") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "srpski") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "slovensko") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
;(if (= #language "slovak") (set l (+ l 1)) )
;(set l (shiftleft l 1))
;(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "russian") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "português-brasil") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "português") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "polski") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
;(if (= #language "norsk") (set l (+ l 1)) )
;(set l (shiftleft l 1))
;(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "nederlands") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "latvian") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "italiano") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
;(if (= #language "hrvatski") (set l (+ l 1)) )
;(set l (shiftleft l 1))
;(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "français") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "español") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "deutsch") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "dansk") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "czech") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "català") (set l (+ l 1)) )
(set l (shiftleft l 1))
(set #NumLanguages (+ #NumLanguages 1))
(if (= #language "bosanski") (set l (+ l 1)) )
(set #NumLanguages (+ #NumLanguages 1))
(set #language (getenv ("language.%ld" i)) )
(set #languages (bitor #languages l) )
(set i (+ i 1))
)
)
(complete 25)
;-ask options------------------------------------------------------------------------
(set #languages
(askoptions
(help #which-language-help) (prompt #which-language) (default #languages)
;(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")
(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")
)
)
;=============================================================================
; get the version of what is currently installed
(set old_version 0)
(if (exists (tackon #target "Libs/version.library"))
(
(set old_version (/ (getversion (tackon #target "Libs/version.library")) 65536))
))
(complete 30)
;=============================================================================
; ask to insert the AmigaOS 3.9 CD-ROM
(if (<> (patmatch "#?BoingBag3.9-1:#?" #sourcePath) true)
(askdisk (prompt #insert-cdrom)
(help #insert-cdrom-help)
(dest "AmigaOS3.9")
(assigns)
)
)
(complete 40)
;=============================================================================
; now copy the Workbench disk
(working #installing)
(set #updaterror 20)
(set #updateerror (run (cat "C/Updater AmigaOS-Update \"" #target "\"")))
(if (> #updateerror 0)
(
(abort #update-failed)
)
)
(complete 60)
; set some protection bits
(protect (tackon #target "C/LoadMonDrvs") "+prwed")
(protect (tackon #target "C/LoadResource") "+prwed")
(protect (tackon #target "C/MakeDir") "+prwed")
(protect (tackon #target "C/MakeLink") "+prwed")
(protect (tackon #target "C/SetEnv") "+prwed")
(protect (tackon #target "C/WBInfo") "+prwed")
(protect (tackon #target "C/WBRun") "+prwed")
(protect (tackon #target "S/Start-Amplifier.rexx") "+srwed")
(protect (tackon #target "S/Startup-Sequence.BB39-1") "+srwed")
(protect (tackon #target "S/Stream-Amplifier.rexx") "+srwed")
(complete 70)
;=============================================================================
; install WarpUP 5.1
(if (exists "PowerPC/powerpc.library")
(
(if (exists (tackon #target "Libs/powerpc.library"))
(
(copylib (prompt #warpup-update)
(help #warpup-update-help)
(source "PowerPC/powerpc.library")
(dest (tackon #target "Libs"))
(optional nofail force)
)
)
)
)
)
(if (exists "PowerPC/warp.library")
(
(if (exists (tackon #target "Libs/warp.library"))
(
(copylib (prompt #warpup-update)
(help #warpup-update-help)
(source "PowerPC/warp.library")
(dest (tackon #target "Libs"))
(optional nofail force)
)
)
)
)
)
(complete 80)
;=============================================================================
; catalog files
(P_CopyDirByLang #languages #NumLanguages "Catalogs" "Locale" (tackon #target "Locale") true)
; also the AWeb3SE locales
(if (exists (tackon #target "Internet/AWeb3SE/Catalogs"))
(
(P_CopyDirByLang #languages #NumLanguages "Catalogs" "Locale/AWeb3SE" (tackon #target "Internet/AWeb3SE") true)
)
)
(complete 90)
;=============================================================================
; Internet!
(if (exists (tackon #target "Internet"))
(
(set @default-dest (tackon #target "Internet"))
(if (exists (tackon @default-dest "GenesisRA"))
(
(if (exists (tackon @default-dest "Genesis"))
(
(ren (tackon @default-dest "Genesis") (tackon @default-dest "GenesisMUI"))
(ren (tackon @default-dest "Genesis.info") (tackon @default-dest "GenesisMUI.info"))
)
)
)
)
(ren (tackon @default-dest "GenesisRA") (tackon @default-dest "Genesis"))
(ren (tackon @default-dest "GenesisRA.info") (tackon @default-dest "Genesis.info"))
(if (exists (tackon @default-dest "GenesisWizardRA"))
(
(if (exists (tackon @default-dest "GenesisWizard"))
(
(ren (tackon @default-dest "GenesisWizard") (tackon @default-dest "GenesisWizardMUI"))
(ren (tackon @default-dest "GenesisWizard.info") (tackon @default-dest "GenesisWizardMUI.info"))
)
)
)
)
(ren (tackon @default-dest "GenesisWizardRA") (tackon @default-dest "GenesisWizard"))
(ren (tackon @default-dest "GenesisWizardRA.info") (tackon @default-dest "GenesisWizard.info"))
(ren (tackon @default-dest "GenesisPrefs") (tackon @default-dest "GenesisPrefsMUI"))
(ren (tackon @default-dest "GenesisPrefs.info") (tackon @default-dest "GenesisPrefsMUI.info"))
(copyfiles (source #internetPath)
(dest (tackon #target "Internet"))
(all)
(optional "nofail" "force" "askuser")
)
(set @default-dest #target)
)
)
(complete 100)
;=============================================================================
; "Say goodnight Gracy."
(user 2)
(message #reboot)
(closemedia logo)
(exit)
)
)