; ; LocalePL © 1994-1998 Marcin Orlowski ; ; --------------------------------------------------------- ; ; ### ### ######### ### ### ### ### ; ### ### ### #### #### ### ### ; ### ### ### ### ## ### ### ### ; ### ### ######## ### ## ### ########## ; ### ## ### ######## ### ### ########## ; ### ## ### ### ### ### ### ### ; #### #### ## ### ## ### ### ## ### ### ## ; ### ### ## ### ## ### ### ## ### ### ## ; ; --------------------------------------------------------- ; ; Mental Pictures Developed Here ; ; Marcin Orlowski ; ul. Radomska 38 ; 71-002 Szczecin ; ; tel. 091 4836425 ; ; Internet: info@amiga.com.pl ; WWW : http://amiga.com.pl ; http://wfmh.org.pl ; ; ;-------------------------------------------------------------------- ; ; W.F.M.H. LocalePL - Skrypt instalacyjny ; ;-------------------------------------------------------------------- ; ; $VER: WFMH LocalePL 3.0 (01.03.98) ©1994-1998 Marcin Orlowski ; ;-------------------------------------------------------------------- (set __version 3) (set __revision 0) (set __date "01.03.1998") (set #Test 0) ; #sprawdzonych tlumaczen (set #Zainstalowane 0) ; #zainstalowanych katalogow (set #Pominiete 0) ; #pominietych (set #Duplikaty 0) ; #duplikatow ogolem (set #Nowsze 0) ; #zainstalowanych nowszych tlumaczen (set #Kopii 0) ; #utworzonych kopii (set #Zastap 0) ; #zastapionych katalogów (set _debug 0) ;/// OnError ;########################################################################### ;## OnError ;########################################################################### (onerror (working "Przerywam instalacje...") (P_CleanUp) ) ;//| ;/// Bug ;########################################################################### ;## Bug ;########################################################################### (procedure bug #tekst (if (> _debug 0) (message #tekst))) ;//| ;/// Version ;########################################################################### ;## P_Version ;########################################################################### (procedure P_Version #dir #katalog (set _Version (getversion (cat #dir #katalog ".catalog"))) (set _Ver (/ _Version 65536)) (set _Rev (- _Version (* _Ver 65536))) (if (= _Version 0) (set _Ex 0) (set _Ex 1) ) (bug (cat "P_Version " #dir #katalog ".catalog => v" _Ver "." _Rev " (" _Ex ")")) ) ;//| ;/// P_CleanUp ;########################################################################### ;## P_CleanUp ;########################################################################### (procedure P_CleanUp (run "c/FixTaskName2" (safe)) (if (= (exists "RAM:UnLzX" (noreq)) 1) (delete "RAM:UnLzX" (safe)) ) (run "c/WaitPort" (safe)) (delete "RAM:describe" (safe)) (delete "RAM:sync" (safe)) (delete "RAM:Info.bat" (safe)) (delete "RAM:Locale1.iff" (safe)) (delete "RAM:Locale2.iff" (safe)) (delete "RAM:Locale3.iff" (safe)) (delete "RAM:Locale4.iff" (safe)) (delete "RAM:Locale5.iff" (safe)) (delete "RAM:Locale6.iff" (safe)) (delete "RAM:Locale7.iff" (safe)) (delete "RAM:Locale8.iff" (safe)) (delete "RAM:Locale9.iff" (safe)) (if (= (exists "RAM:LocaleA.iff" (noreq)) 1) (delete "RAM:LocaleA.iff" (safe)) ) ) ;//| ;/// P_Unpack ;########################################################################### ;## P_Unpack ;########################################################################### (procedure P_Unpack #Archiwum (set UnpackCMD (cat "RAM:UnLzX >nil: x -m " #Archiwum " #? RAM:")) (run UnpackCMD (safe)) ) ;//| ;/// P_Copy ;########################################################################### ;## P_Copy ;########################################################################### (procedure P_Copy #katalog (copyfiles (source (cat "RAM:" #katalog ".catalog")) (dest #DestDir)) (set #Zainstalowane (+ #Zainstalowane 1)) ) ;//| ;/// P_Combo ;########################################################################### ;## P_Combo ;########################################################################### (procedure P_Combo #archiwum #katalog (P_Unpack #Archiwum) (P_Install #archiwum #katalog) ) ;//| ;/// P_Install ;########################################################################### ;## P_Install ;########################################################################### (set #Nowsze 0) (set #Pomin 1) (set #Backup 2) (set #Zastap 3) (set #Pytaj 4) (procedure P_Install #archiwum #katalog (P_Version "RAM:" #katalog) (set _SrcVer _Version) (set _SrcVer _Ver) (set _SrcRev _Rev) (set _SrcEx _Ex) (P_Version #DestDir #katalog) (set _DestVer _Version) (set _DestVer _Ver) (set _DestRev _Rev) (set _DestEx _Ex) (set #Test (+ #Test 1)) (if (= _DestEx 0) (P_Copy #katalog) ; else ( (set #Duplikaty (+ #Duplikaty 1)) (if (= #OverwriteMode #Nowsze) ( (if (> _SrcVer _DestVer) ( (P_Copy #katalog)) (set #Nowsze (+ #Nowsze 1)) ) ; else (set #Pominiete (+ #Pominiete 1)) ) ) (if (= #OverwriteMode #Pomin) ( (working (cat "Pomijam duplikat: " #katalog)) (set #Pominiete (+ #Pominiete 1)) ) ) (if (= #OverwriteMode #Backup) ( (working (cat "Tworze kopie: " #katalog)) (rename (cat #DestDir #katalog ".catalog") (cat #DestDir #katalog ".catalog.bak")) (set #Kopii (+ #Kopii 1)) (P_Copy #katalog) ) ) (if (= #OverwriteMode #Zastap) ( (P_Copy #katalog) (set #Zastap (+ #Zastap 1)) ) ) (if (= #OverwriteMode #Pytaj) ( (if (askbool (prompt "\nTlumaczenie \"" #katalog "\" juz istnieje\n\n" "Wersja istniejaca u uzytkownika: " _DestVer "." _DestRev "\n\n" "Wersja do zainstalowania: " _SrcVer "." _SrcRev "\n\n\n" "Czy chcesz zainstalowac tlumaczenie z dyskietki\n" "instalacyjnej pakietu LocalePL?" ) (help "\nWybranie \"Tak, zainstaluj\" spowoduje zainstalowanie tlumaczenia " "z dyskietki instalacyjnej pakietu WFMH LocalePL v3! i zastapienie nim " "istniejacego juz na dysku uzytkownika tlumaczenia. Wybranie \"Nie, pomin\" " "spowoduje pominiecie instalacji tego tlumaczenie i kontynuowanie pracy " "przez program instalacyjny.\n\n" "In wyzszy numer wersji, tym nowsze jest tlumaczenie" ) (choices "Tak, zainstaluj" "Nie, pomin") ) ( (P_Copy #katalog) ) ; else ( (set #Pominiete (+ #Pominiete 1)) ) ) ) ) ) ) (delete (cat "RAM:" #katalog ".catalog" (safe))) ) ;//| ;/// Przygotowanie ;########################################################################### ;## Przygotowanie... ;########################################################################### ;/// LSortHelp (set LSortHelp (cat "\n LSort to program sortujacy pliki tekstowe " "z wykorzystaniem funkcji systemu operacyjnego, " "konkretnie locale.library, co pozwala na poprawne " "sortowanie zgodnie zasadami danego jezyka.\n" " LSort zainstalowany zostanie w katalogu C: " "Szczegolowa dokumentacja zostanie zaistalowana " "razem z nim.\n\n" ) ) ;//| (set @abort-button "Przerwij instalacje") (set OS_Version (/ (getversion "LIBS:locale.library") 65536)) (if (< OS_Version 37) (abort "\n\n\nAby wykorzystac pakiet W.F.M.H. LocalePL\n" "niezbedny jest co najmniej Kickstart 2.05\n" "oraz Workbench w wersji 2.1 lub nowszej!" ) ) (if (<> (exists "LOCALE:" (noreq)) 2) (abort "System w Twoim komputerze nie jest zainstalowany poprawnie! " "Nie znalazlem przypisania LOCALE: ktore jest elementem " "niezbednym do poprawnego zainstalowania pakietu WFMH LocalePL v3!\n\n" "Zainstaluj poprawnie z dyskietek systemowych system Amigi " "i sprobuj ponownie zainstalowac pakiet WFMH LocalePL v3!" ) ) (copyfiles (source "c/UnLzX") (nogauge) (dest "RAM:") (safe) ) ;//| ;/// De szou mast gou on... ;########################################################################### ;## De szou mast gou on... ;########################################################################### (run "RAM:UnLzX >nil: x -m Info/reqtools.lzx #? RAM:" (safe)) (run "c/LoadResource RAM:reqtools.library" (safe)) (delete "RAM:reqtools.library" (safe)) (run "RAM:UnLzX >nil: x -m Info/Info.lzx #? RAM:" (safe)) (run "c/FixTaskName" (safe)) (run "RAM:sync SCRIPT=Info.bat" (safe)) ;describe © Dietmar Eilert (complete 0) (welcome "\n" " ### ### ######### ### ### ### ###\n" " ### ### ### #### #### ### ###\n" " ### ### ### ### ## ### ### ###\n" " ### ### ######## ### ## ### ##########\n" " ### ## ### ######## ### ### ##########\n" " ### ## ### ### ### ### ### ###\n" " #### #### ## ### ## ### ### ## ### ###\n" " ### ### ## ### ## ### ### ## ### ###\n" "\n" " ------------------------------------------\n" " LocalePL " __version "." __revision " (" __date ")\n" " ------------------------------------------" ) (message "\n\n\n\n" "W.F.M.H. LocalePL " __version "." __revision "\n" "----------------------------\n" "Numer seryjny: ask-royal-4-it!" "\n\n\n" "Licencja jednostanowiskowa\n" "Bez prawa odsprzedazy") (message "\n" "Podczas gdy niniejszy program instalowal\n" "bedzie pakiet LocalePL v3! w Twoim systemie,\n" "wypelnij zalaczona karte rejestracyjna.\n" "Tylko dzieki niej uzyskasz prawo do\n" "aktualizacji pakietu po atrakcyjnych,\n" "niskich cenach oraz uzyskasz znizki przy\n" "zakupie innych produktow autorstwa W.F.M.H.\n" "\n" "Uwaga: Honorujemy jedynie oryginalna\n" "karte rejestracyjna, ktora znajdziesz\n" "w opakowaniu z pakietem LocalePL v3!" ) ;/// Help info ;########################################################################### ;## Help Info ;########################################################################### (message "\n" "Podczas instalacji dostepne sa dodatkowe opisy poszczegolnych " "opcji programu instalacyjnego. Kliknij na gadzecie \"Pomoz...\" " "badz \"Help...\" aby przejsc do okna pomocy a nastepnie " "\"Exit from help\" aby powrocic do okna poprzedniego. Gadzety " "\"Back\" oraz \"More\" pozwalaja przewinac wyswietlany tekst " "na strone poprzednia/nastepna." ) ;//| ;/// HD Mode ;########################################################################### ;## HD Mode ;########################################################################### (set InstallMode (askchoice (prompt "Instalacja:") (choices "na dysku twardym") (help "\n\n" " W chwili obecnej instalacja pakietu na dyskietkach " "nie jest przewidziana. Wszelkie pliki nalezy zatem " "skopiowac samemu albo lepiej dokupic dysk twardy.\n" " Jesli jednak ktos jest na tyle zdeterminowany, zeby " "zrobic to recznie samemu, to odsylam do skroconego " "samouczka zawartego w dokumentacji.\n" "(Szczegoly w pliku LOCALE_PL-NA-DYSKIETCE.TEKST)" ) ) ) ;//| ;/// Rodzaj instalacji ;########################################################################### ;## Rodzaj instalacji ;########################################################################### (set _UpdateMode 0) (if (= (exists "ENV:LocalePL/LocalePL" (noreq)) 1) ( (set ver (getenv "LocalePL/LocalePL")) (if (< ver 3.0) (set _UpdateMode 0) (set _UpdateMode 1) ) ) ) (if (>= ver 3.0) (message "\n" "UWAGA!\n\n" "Zainstalowana w systemie wersja pakietu\n" "WFMH LocalePL jest identyczna badz nowsza\n" "od wersji, ktora wlasnie chcesz zainstalowac.\n" "Dalsze kontynuowanie instalacji moze \n" "spowodowac utrate nowszych tlumaczen oraz\n" "plikow dodatkowych.\n" "\n" "Wcisnij \"Przerwij instalacje\" aby uniknac\n" "pozniejszych problemow z zainstalowanym pakietem." ) ) (set UpdateMode (askchoice (prompt "Rodzaj instalacji:") (help "\n" "\"Pelna instalacja\" przewidziana jest dla " "uzytkownikow wersji wczesniejszych niz v2! " "oraz dla tych, ktorzy instaluja pakiet " "po raz pierwszy.\n\n" "Pozostali uzytkownicy moga wybrac \"Aktualizacja\"." ) (choices "Pelna instalacja" "Aktualizacja wersji" ) (default _UpdateMode) ) ) ;//| ;/// Sprawdzanie wersji katalogow etc ;########################################################################### ;## Sprawdzanie wersji katalogow etc ;########################################################################### (set #OverwriteMode (askchoice (prompt "Istniejace tlumaczenia:\n" "(przeczytaj tekst pomocy aby dowiedziec sie wiecej)" ) (choices "Instaluj tylko nowsze wersje" "Nie instaluj duplikatow" "Zmien nazwe istniejacych na #?.bak" "Zastap istniejace tlumaczenia" "Zapytaj uzytkownika" ) (help " Ustal sposob dzialania skryptu instalacyjnego " "w przypadku napotkania tlumaczenia o takiej samej " "nazwie jak instalowane. Dostepne opcje to:\n" "\n" " \"Instaluj tylko nowsze wersje\" - tlumaczenia z pakietu LocalePL " "ktorych nazwa pokrywa sie z nazwami posiadanych " "juz przez uzytkownika tlumaczeni, zostana zainstalowane " "tylko wtedy, gdy ich numer wersji bedzie wyzszy, niz wersja " "zainstalowanego juz tlumaczenia.\n" "\n" " \"Nie instaluj duplikatow\" - tlumaczenia z pakietu LocalePL " "ktorych nazwa pokrywa sie z nazwami posiadanych " "juz przez uzytkownika tlumaczeni, nie zostana zainstalowane " "(bez wzgledu czy dane tlumaczenie jest nowsze czy tez nie).\n" "\n" " \"Zmien nazwe istniejacych na #?.bak\" - nazwa istniejacego tlumaczenia " "zostanie zmieniona na \"Nazwa.bak\", i dopiero wtedy " "zostanie zainstalowane nowe tlumaczenie.\n" "\n" " \"Zastap istniejace tlumaczenia\" - istniejace tlumaczenia zostana zastapione " "przez nowe, z dyskietki instalacyjnej, niezaleznie od numeru wersji obu plilkow.\n" "\n" " \"Zapytaj uzytkownika\" - w przypadku napotkania pokrywajacych sie nazw tlumaczen " "program instalacyjny zapyta uzytkownika o to, czy chce on dane tlumaczenie instalowac czy tez nie\n" "\n" "Opcje NIE DOTYCZA tlumaczen systemu operacyjnego, ktore zostana ZAWSZE zainstalowane/zaktualizowane.\n\n" "\n" "Po zakonczeniu instalacji wyswietlony zostanie szczegolowy raport " "informujacy o liczbie tlumaczen zainstalowanych, pokrywajacych sie etc.\n" "\n" @askchoice-help ) ) ) ;//| ;/// Rodzaj ikonek ;########################################################################### ;## Rodzaj ikonek ;########################################################################### (set OS 0) (set MWB 1) (set IGFX 2) (if (= (exists "ENVARC:MagicWB" (noreq)) 1) (set DefIcons MWB) (set DefIcons OS) ) (set IconType (askchoice (prompt "Jakie ikonki chcesz zainstalowac?") (help " Okresl uzywany przez Ciebie rodzaj ikonek. " "Wszystkie programy i dokumenty nalezace " "do pakietu WFMH LocalePL v3! i posiadajace " "swoje ikonki, zostana zainstalowane z uwzglednieniem " "Twoich preferencji.\n\n" " Jedyna roznica podczas instalacji pakietu " "dla uzytkownikow MagicWB badz pakietu Iconographics " "polega na skopiowaniu ikon narysowanych wlasnie dla " "tych pakietow (czyli 8/16 kolorow, ekran o wymiarach " "co najmniej 640x512).\n\n" " Ikonki standardowe, to ikonki stylu NewLook OS2.0+, " "dostarczane z komputerem przez s.p. Commodore." ) (default DefIcons) (choices "Standardowe" "MagicWB" "Iconographics" ) ) ) ;//| ;/// OS3.1 ;########################################################################### ;## OS3.1 ;########################################################################### (if (< OS_Version 40) ( (set LibsVersion (/ (getversion "libs:locale.library") 65536)) (if (> LibsVersion 39) (if (askbool (prompt "\n\n\n" "Wprawdzie Twoja Amiga wyposazona jest\n" "w ROM z systemem wczesniejszym niz 3.1,\n" "jednak masz ow system zainstalowany na dysku.\n\n" "Czy chcesz zainstalowac W.F.M.H. LocalePL\n" "dla systemu 3.1+?" ) (help "\n\n\n\n" " Roznica w przypadku OS3.1+ polega na uwzglednieniu\n" " zmian w katalogu systemowego programu MultiView." ) (choices "OS3.1+" "OS2.05 - 3.0") ) (set OS_Version 40) ) ) ) ) ;//| ;/// translator.library ;########################################################################### ;## translator.library ;########################################################################### (set LibsVersion (/ (getversion "libs:translator.library") 65536)) (if (< LibsVersion 42) ( (set TranslatorPrompt "* Biblioteka translator 42+ nie znaleziona! *\nCzy mimo to chcesz dokonac poprawek w:") (set defTrans 0) ) ;else ( (set TranslatorPrompt "Czy chcesz dokonac poprawek w:") (set defTrans 1) ) ) (if (= (exists "L:speak-handler" (noreq)) 1) (set defTrans (+ defTrans 2))) (if (= (exists "SYS:Utilities/Say" (noreq)) 1) (set defTrans (+ defTrans 4))) (set TranslatorPatch (askoptions (prompt TranslatorPrompt) (help " Powyzsze opcje dotycza uzytkownikow biblioteki " "translator.library v42+ (dostepnej w SD!'s BBS, " "badz w sieci AmiNet, w katalogu \"util/libs\") " "autorstwa Francesco Devitta bedaca lokalizowana " "wersja znanej z systemu 1.3/2.0 biblioteki sluzacej " "do syntezy mowy. Jesli jej nie uzywasz (a warto!) to " "mozesz pominac wszystkie opcje z tej strony.\n\n" " Oryginalne programy speak-handler " "(obslugujacy urzadzenie SPEAK:) i Say nie " "wspolpracuja poprawnie z tekstami zawierajacymi " "znaki narodowe konieczne jest ich poprawienie, " "ktore odbywa sie automatycznie podczas instalacji " "pakietu W.F.M.H. LocalePL. Oryginalne wersje " "wymienionych plikow zostana zachowane pod " "zmienionymi nazwami.\n\n" " Uwaga uzytkownicy OS3.0+: zarowno speak-handler " "jak i Say nie sa juz standardowym wyposazeniem tej " "(i nowszych) wersji systemu.\n\n" " Uwaga: Nie posiadajac tej biblioteki NIE TRACISZ " "zadnej z podstawowych funkcji pakietu!\n\n" @askoptions-help ) (choices " Accents" " speak-handler" " Say" ) (default defTrans) ) ) ;//| ;/// Dodatki ;########################################################################### ;## Dodatki ;########################################################################### (set #dod_czcionki 1) (set #dod_printit 2) (set #dod_lsort 4) (set #dod_apc20 8) (set #dod_czcionkimwb 16) (set #dod_apc 32) (set Dodatki (askoptions (prompt "Czy chcesz zainstalowac:") (help LSortHelp @askoptions-help ) (choices " Dodatkowe polskie czcionki" " Konwerter tekstu PrintIt 1.1" " Program LSort 1.2" " APC 2.0 (GUI)" " Polskie czcionki dla MagicWB" " APC - wersja CLI/Shell" ) ) ) ;//| ;/// CrossDOS - tablice konwersji ;########################################################################### ;## CrossDOS - tablice konwersji ;########################################################################### (set CrossDosHelp (cat " CrossDos jest standardowym wyposazeniem systemu " "operacyjnego poczawszy od wersji 3.0 i wsrod swoich " "opcji posiada takze mozliwosc automatycznej " "konwersji plikow podczas np. ich kopiowania. Szczegolow szukaj " "w zalaczonej do komputera dokumentacji.\n\n" ) ) (if (< OS_Version 39) ( (set DefCross 0) (set DefCrossExtra 0) ) ;else ( (set DefCross 15) (set DefCrossExtra 16383) ) ) (set CrossDos (askoptions (prompt "Wybierz tablice konwersji dla CrossDos-a (1/2):") (help CrossDosHelp @askoptions-help ) (choices " ApplePL" " Latin-2 (CP 852)" " Mazovia" " Windows (CP 1250)" ) (default DefCross) ) ) (set CrossDosExtra (askoptions (prompt "Wybierz dodatkowe tablice konwersji dla CrossDos-a (2/2):") (help CrossDosHelp @askoptions-help ) (choices "CSK" "Cyfromat" "DHN" "FIDO-Mazovia" "ISO-Latin-1" "ISO-Latin-2" "Latin-1" "Latin-2" "MacCentralEuro" "Mazovia" "Microvex" "Pomocnik" "TAG" "US-ASCII" "xJP" ) (default DefCrossExtra) ) ) ;//| ;/// Sterowniki drukarek ;########################################################################### ;## Sterowniki drukarek ;########################################################################### (set #Druk_Help (cat " Ponizsze sterowniki pozwalaja uzyskac " "polskie litery na wymienionych modelach " "drukarek. Po szczegoly dot. sterownikow " "siegnij do dokumentacji pakietu.\n\n" @askoptions-help ) ) (set Drukarka (askoptions (prompt "Wybierz polski sterownik drukarki (1/2):") (help #Druk_Help) (choices " Citizen120D" " Citizen120Dplus" " D100M_4" " D100M_6" " EpsonLQ100-L2" " EpsonLX400" " EpsonQ-Latin2" " EpsonQ-Mzv" " EpsonStylus800-L2" " EpsonX-Latin2" " EpsonX-Mzv" " EpsonXgraf" ) (default 0) ) ) (set Drukarka2 (askoptions (prompt "Wybierz polski sterownik drukarki (2/2):") (help #Druk_Help) (choices " GenericOver" " HPDeskJet-Latin2" " HPLJ4_PCL5_ISOL1L2" " IBM-Mzv" " SeikoshaSP1900" " StarLC10" " StarLC200" " StarLC90-L2" " StarNL10Eps" " StarNL10Eps1" " StarNX15" ) (default 0) ) ) ;//| ;/// Katalogi ;########################################################################### ;## Katalogi ;########################################################################### (set katalogi_wynik1 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla (1/5):") (help @askoptions-help) (choices "AGraph 36" "AHI v4" "ARCalc 2.0" "ARC Handler 2.0c" "AssignWedge 1.5" "AZap 2.40" "BGui" "CatEdit 1.2b" "CVMode 1.5" "CGXMode 2.7" ) )) (set katalogi_wynik2 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla (2/5):") (help @askoptions-help) (choices "CyberView 2.1" "CyberWindow 2.0" "CycleToMenu 2.1" "Daywatch 1.2" "Deft II 1.6" "DoIcon 1.6" "Executive 2.x" "ForceMode 1.1" "GIFToolkit" "IFFMaster 1.6" ) )) (set katalogi_wynik3 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla (3/5):") (help @askoptions-help) (choices "ModePro 4.39" "Most 1.57" "MUI Builder 2.2c" "MUI 3.8" "MultiUser 1.8" "New Mode 3.x" "Organiser 1.x" "PicToIcon" "PicView 2.x" "PPrefs 2.02" ) )) (set katalogi_wynik4 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla (4/5):") (help @askoptions-help) (choices "Printer v42" "PSM 1.2" "ReOrg 3.11" "ReqTools 2.x" "ScreenTab 1.25" "ScreenWizard 1.1" "SnoopDos 3.0" "Term 4.x" "TIFF datatype 40.5" ) )) (set katalogi_wynik5 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla (5/5):") (help @askoptions-help) (choices "TinyMeter 4.22" "ToolsDeamon 2.1a" "TrashMaster 1.7" "Triton 1.4" "Typeface 1.21" "VChess 3.4" "Visage 39.4" "WSpeed 1.4" "xprzmodem.library" "X-Trash 1.3" ) )) (message "\n\nDalsze tlumaczenia wymagaja aby oprogramowanie ktorego dotycza " "bylo zainstalowane. Dodatkowo, w wiekszosci przypadkow nalezy " "okresli wersje programu dla ktorego tlumaczenia maja zostac " "zainstalowane, co jest o tyle istotne, iz wersje te z reguly " "znaczaco roznia sie komunikatami oraz ukladem interfejsu uzytkownika." ) (set katalogi_wynik6 (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla:") (help @askoptions-help) (default 0) (choices "CygnusED" "DirectoryOpus 5.xx (+ArcDir)" "DrawStudio" "GoldED 4.7.x" "Personal Paint" "WordWorth" ) )) (message "\n\nDalsze tlumaczenia dotycza oprogramowania sieciowego, uzywanego " "podczas korzystania z sieci Internet.\n\n" "Zapraszamy do skorzystania z promocyjnej oferty na sieciowe " "programy firmy VaporWare\n\n\n" "NAJTANIEJ NA SWIECIE!!\n\n" "http://amiga.com.pl/vapor/" ) (set katalogi_net (askoptions (prompt "Czy chcesz zainstalowac polskie pliki dla:") (help @askoptions-help) (default 0) (choices "AWeb 3.x" "AmFTP" "AmIRC" "AmTalk" "AmTelnet" "AmTerm" "AmiFTP" "IBrowse 1.12" "Miami" "NetInfo" "URLManager" "YAM 1.3.x" ) )) ;"mFinger" ;//| ;/// Instalacja - OS ;########################################################################### ;## Instalacja - OS ;########################################################################### (set JakiesCzcionkiZainstalowane 0) (if (= UpdateMode 0) ( (working "Instaluje podstawowe czcionki...") (run "RAM:UnLzX >nil: x -m Commodore/Czcionki/Czcionki.lzx #? FONTS:") (set JakiesCzcionkiZainstalowane 1) (complete 15) (working "Instaluje FontPLPatch...") (run "RAM:UnLzX >nil: x -m Commodore/WBStartup/FontPLPatch.lzx #? SYS:WBStartup/") (complete 17) (working "Instaluje mapy klawiatury...") (run "RAM:UnLzX >nil: x -m Commodore/Keymaps/Keymaps.lzx #? KEYMAPS:") ) ) (complete 20) (working "Instaluje pliki systemowe...") (run "RAM:UnLzX >nil: x -m Commodore/Locale/Catalogs.lzx #? LOCALE:Catalogs/Polski/Sys/") (complete 22) (run "RAM:UnLzX >nil: x -m Commodore/Locale/Help.lzx #? LOCALE:") (complete 24) (if (= UpdateMode 0) ( (if (<> (exists "LOCALE:Countries" (noreq)) 2) (makedir "LOCALE:Countries") ) (if (<> (exists "LOCALE:Languages" (noreq)) 2) (makedir "LOCALE:Languages") ) (copyfiles (source "Commodore/Locale/polska.country") (dest "LOCALE:Countries") ) (copyfiles (source "Commodore/Locale/polski.language") (dest "LOCALE:Languages") ) ) ) ;########################################################################### ;## Instalacja - poprawki dla OS3.1 ;########################################################################### (complete 25) (if (< OS_Version 40) ( (delete "LOCALE:Catalogs/Polski/Sys/utilities.catalog") (rename "LOCALE:Catalogs/Polski/Sys/utilities3.0.catalog" "LOCALE:Catalogs/Polski/Sys/utilities.catalog") ) ; else (delete "LOCALE:Catalogs/Polski/Sys/utilities3.0.catalog") ) ;//| ;/// Instalacja - translator.library oraz patch ;########################################################################### ;## Instalacja - translator.library oraz patch ;########################################################################### (complete 27) (if (<> TranslatorPatch 0) ( (if (bitand TranslatorPatch 1) ( (working "Instaluje zasady wymowy...") (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Accents/Accents.lzx #? LOCALE:") ) ) (complete 28) (if (bitand TranslatorPatch 2) ( (if (= (exists "L:speak-handler" (noreq)) 1) ( (set speak 0) (set speak_ver (getversion "L:speak-handler")) (set speak_version (/ speak_ver 65536)) (set speak_revision (- speak_ver (* speak_version 65536))) (if(= speak_ver (+ (* 65536 37) 4)) (set speak 1)) (if(= speak_ver (+ (* 65536 37) 5)) (set speak 2)) (if (= speak 0) (message "\nTO NIE JEST BLAD!\n\n" "Przykro mi, ale wersja pliku L:speak-handler, " "ktora posiadasz (" speak_version "." speak_revision ") nie jest uwzgledniona w aktualnej wersji " "dystrybucyjnej pakietu LocalePL. Skontaktuj " "sie prosze z producentem, badz przeslij " "posiadany przez siebie plik, tak aby mozna " "bylo go uwzglednic w nastepnej edycji pakietu." "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) (if (= speak 2) (message "\nTO NIE JEST BLAD!\n\n" "Posiadasz juz zainstalowana nowa wersje " "pliku L:speak-handler.\n" "Wprowadzenie poprawek jest zatem zbedne.\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) (if (= speak 1) ( (working "\nInstaluje poprawki do L:speak-handler...") (set err (run "c/spatch -pDodatki/Patch/speak-handler.37.4.pch -oL:speak-handler.new L:speak-handler")) (if (= err 0) ( (rename "L:speak-handler" "L:speak-handler.old") (rename "L:speak-handler.new" "L:speak-handler") ) ; else ( (message "\nTO NIE JEST BLAD!\n\n" "Nie moge wprowadzic poprawek " "w pliku L:speak-handler. Byc moze dysponujesz " "inna edycja handlera, lub jest on " "skompresowany np. Imploderem.\n" "Skontaktuj sie prosze z producentem, badz przeslij " "posiadany przez siebie plik, tak aby mozna " "bylo go uwzglednic w nastepnej edycji pakietu." "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) ) ) ) ) ; else (message "\nTO NIE JEST BLAD!\n\n" "Plik L:speak-handler nie zostal znaleziony!\n\n" "Aby program instalacyjny mogl wprowadzic " "poprawki, plik speak-handler powinie znajdowac " "sie w katalogu L:" "\n\n" "Nie majac tego pliku, NIE TRACISZ zadnej " "ze standardowych funkcji pakietu LocalePL v3!" "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) ) ) (complete 30) (if (bitand TranslatorPatch 4) ( (if (= (exists "SYS:Utilities/Say" (noreq)) 1) ( (set speak 0) (set speak_ver (getversion "L:speak-handler")) (set speak_version (/ speak_ver 65536)) (set speak_revision (- speak_ver (* speak_version 65536))) (if(= speak_ver (+ (* 65536 37) 4)) (set speak 1)) (if(= speak_ver (+ (* 65536 37) 5)) (set speak 2)) (if (= speak 0) (message "\nTO NIE JEST BLAD!\n\n" "Przykro mi, ale wersja pliku SAY, " "ktora posiadasz (" speak_version "." speak_revision ") nie jest uwzgledniona w aktualnej wersji " "dystrybucyjnej pakietu LocalePL. Skontaktuj " "sie prosze z producentem, badz przeslij " "posiadany przez siebie plik, tak aby mozna " "bylo go uwzglednic w nastepnej edycji pakietu." "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) (if (= speak 2) (message "\nTO NIE JEST BLAD!\n\n" "Posiadasz juz zainstalowana nowa wersje " "programu SAY.\n\nWprowadzenie poprawek " "jest zatem zbedne.\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) (if (= speak 1) ( (working "Instaluje poprawki do\nprogramu Say...") (set err (run "c/spatch -pDodatki/Patch/Say.37.4.pch -oSYS:Utilities/Say.new SYS:Utilities/Say")) (if (= err 0) ( (rename "SYS:Utilities/Say" "SYS:Utilities/Say.old") (rename "SYS:Utilities/Say.new" "SYS:Utilities/Say") ) ; else ( (message "\nTO NIE JEST BLAD!\n\n" "Nie moge wprowadzic poprawek " "do programu SAY. Byc moze dysponujesz " "inna edycja programu, lub jest on " "skompresowany np. Imploderem.\n" "Skontaktuj sie prosze z producentem, badz przeslij " "posiadany przez siebie plik, tak aby mozna " "bylo go uwzglednic w nastepnej edycji pakietu." "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) ) ) ) ) ; else (message "\nTO NIE JEST BLAD!\n\n" "Program SAY nie znaleziony!\n" "Aby program instalacyjny mogl wprowadzic " "poprawki, plik SAY powinie znajdowac " "sie w katalogu \"SYS:Utilities\" " "(gdzie SYS: to wolumen z ktorego uruchomiona zostala Twoja Amiga)\n" "\n" "Nie majac tego pliku, NIE TRACISZ zadnej " "ze standardowych funkcji pakietu LocalePL v3!" "\n\n" "Kliknij \"Kontynuuj\" / \"Proceed\" aby kontynuowac " "instalacje pakietu." ) ) ) ) ) ) ;//| ;/// Instalacja - CrossDOS - tablice konwersji ;########################################################################### ;## Instalacja - CrossDOS - tablice konwersji ;########################################################################### (complete 33) (if (<> CrossDos 0) ( (working "Instaluje tablice konwersji...") (set CMD "RAM:UnLzX >nil: x -m Commodore/L/CrossDOS.lzx ") (if (bitand CrossDos 1) (set CMD (cat CMD " FileSystem_Trans/ApplePL.crossdos"))) (if (bitand CrossDos 2) (set CMD (cat CMD " \"FileSystem_Trans/Latin-2 CP 852.crossdos\""))) (if (bitand CrossDos 4) (set CMD (cat CMD " FileSystem_Trans/Mazovia.crossdos"))) (if (bitand CrossDos 8) (set CMD (cat CMD " \"FileSystem_Trans/Windows CP 1250.crossdos\""))) (set CMD (cat CMD " L:")) (run CMD) (complete 35) ) ) (if (<> CrossDosExtra 0) ( (working "Instaluje dodatkowe tablice konwersji...") (set CMD "RAM:UnLzX >nil: x -m Commodore/L/CrossDOSExtra.lzx ") (if (bitand CrossDosExtra 1) (set CMD (cat CMD " FileSystem_Trans/CSK.crossdos"))) (if (bitand CrossDosExtra 2) (set CMD (cat CMD " FileSystem_Trans/Cyfromat.crossdos"))) (if (bitand CrossDosExtra 4) (set CMD (cat CMD " FileSystem_Trans/DHN.crossdos"))) (if (bitand CrossDosExtra 8) (set CMD (cat CMD " FileSystem_Trans/FIDO-Mazovia.crossdos"))) (if (bitand CrossDosExtra 16) (set CMD (cat CMD " FileSystem_Trans/ISO-Latin-1.crossdos"))) (set CMD (cat CMD " L:")) (run CMD) (complete 37) (set CMD "RAM:UnLzX >nil: x -m Commodore/L/CrossDOSExtra.lzx ") (if (bitand CrossDosExtra 32) (set CMD (cat CMD " FileSystem_Trans/ISO-Latin-2.crossdos"))) (if (bitand CrossDosExtra 64) (set CMD (cat CMD " FileSystem_Trans/Latin-1.crossdos"))) (if (bitand CrossDosExtra 128) (set CMD (cat CMD " FileSystem_Trans/Latin-2.crossdos"))) (if (bitand CrossDosExtra 256) (set CMD (cat CMD " FileSystem_Trans/MacCentralEuro.crossdos"))) (if (bitand CrossDosExtra 512) (set CMD (cat CMD " FileSystem_Trans/Mazovia.crossdos"))) (set CMD (cat CMD " L:")) (run CMD) (complete 39) (set CMD "RAM:UnLzX >nil: x -m Commodore/L/CrossDOSExtra.lzx ") (if (bitand CrossDosExtra 1024) (set CMD (cat CMD " FileSystem_Trans/Microvex.crossdos"))) (if (bitand CrossDosExtra 2048) (set CMD (cat CMD " FileSystem_Trans/Pomocnik.crossdos"))) (if (bitand CrossDosExtra 4096) (set CMD (cat CMD " FileSystem_Trans/TAG.crossdos"))) (if (bitand CrossDosExtra 8192) (set CMD (cat CMD " FileSystem_Trans/US-ASCII.crossdos"))) (if (bitand CrossDosExtra 16384) (set CMD (cat CMD " FileSystem_Trans/xJP.crossdos"))) (set CMD (cat CMD " L:")) (run CMD) (complete 42) ) ) ;//| ;/// Instalacja - sterowniki drukarek ;########################################################################### ;## Instalacja - sterowniki drukarek ;########################################################################### (if (<> Drukarka 0) ( (working "Instaluje sterowniki drukarek...") (set CMD "RAM:UnLzX >nil: x -m Dodatki/Drukarki/Drukarki.lzx ") (if (bitand Drukarka 1) (set CMD (cat CMD " PL_Citizen120D"))) (if (bitand Drukarka 2) (set CMD (cat CMD " PL_Citizen120Dplus"))) (if (bitand Drukarka 4) (set CMD (cat CMD " PL_D100M_4"))) (if (bitand Drukarka 8) (set CMD (cat CMD " PL_D100M_6"))) (if (bitand Drukarka 16) (set CMD (cat CMD " PL_EpsonLQ100-L2"))) (if (bitand Drukarka 32) (set CMD (cat CMD " PL_EpsonLX400"))) (set CMD (cat CMD " DEVS:Printers/")) (run CMD) (complete 44) (set CMD "RAM:UnLzX >nil: x -m Dodatki/Drukarki/Drukarki.lzx ") (if (bitand Drukarka 64) (set CMD (cat CMD " PL_EpsonQ-Latin2"))) (if (bitand Drukarka 128) (set CMD (cat CMD " PL_EpsonQ-Mzv"))) (if (bitand Drukarka 256) (set CMD (cat CMD " PL_EpsonStylus800-L2"))) (if (bitand Drukarka 512) (set CMD (cat CMD " PL_EpsonX-Latin2"))) (if (bitand Drukarka 1024) (set CMD (cat CMD " PL_EpsonX-Mzv"))) (if (bitand Drukarka 2048) (set CMD (cat CMD " PL_EpsonXgraf"))) (set CMD (cat CMD " DEVS:Printers/")) (run CMD) (complete 46) ) ) (if (<> Drukarka2 0) ( (set CMD "RAM:UnLzX >nil: x -m Dodatki/Drukarki/Drukarki.lzx ") (if (bitand Drukarka2 1) (set CMD (cat CMD " PL_GenericOver"))) (if (bitand Drukarka2 2) (set CMD (cat CMD " PL_HPDeskJet-Latin2"))) (if (bitand Drukarka2 4) (set CMD (cat CMD " PL_HPLJ4_PCL5_ISOL1L2"))) (if (bitand Drukarka2 8) (set CMD (cat CMD " PL_IBM-Mzv"))) (if (bitand Drukarka2 16) (set CMD (cat CMD " PL_SeikoshaSP1900"))) (if (bitand Drukarka2 32) (set CMD (cat CMD " PL_StarLC10"))) (if (bitand Drukarka2 64) (set CMD (cat CMD " PL_StarLC200"))) (if (bitand Drukarka2 128) (set CMD (cat CMD " PL_StarLC90-L2"))) (if (bitand Drukarka2 256) (set CMD (cat CMD " PL_StarNL10Eps"))) (if (bitand Drukarka2 512) (set CMD (cat CMD " PL_StarNL10Eps1"))) (if (bitand Drukarka2 1024) (set CMD (cat CMD " PL_StarNX15"))) (set CMD (cat CMD " DEVS:Printers/")) (run CMD) (complete 48) ) ) ;//| ;/// Instalacja - dodatkowe czcionki ;########################################################################### ;## Instalacja - dodatkowe czcionki ;########################################################################### (working "Instaluje dodatkowe czcionki...") (if (bitand #dod_czcionki 1) (run "RAM:UnLzX >nil: x -m Dodatki/Czcionki/CzcionkiDodatkowe.lzx #? FONTS:") ) (set JakiesCzcionkiZainstalowane 1) (complete 50) ;//| ;/// Instalacja - katalogi ;########################################################################### ;## Instalacja - katalogi ;########################################################################### (set #DestDir "LOCALE:Catalogs/Polski/") (set Wybierak katalogi_wynik1) (set Maska 1) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AGraph.lzx" "AGraph")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/AHI.lzx") (P_Install "" "AHI") (P_Install "" "AHIPrefs") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ARCalc.lzx" "ARCalc")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ARCHandler.lzx" "ARCHandler")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AssignWedge.lzx" "AssignWedge")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AZap.lzx" "AZap")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/BGui.lzx" "BGui")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CatEdit.lzx" "CatEdit")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CVMode.lzx" "CVMode")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CGXMode.lzx" "CGXMode")) (set Maska (* Maska 2)) (complete 55) (set Wybierak katalogi_wynik2) (set Maska 1) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CyberView.lzx" "CyberView")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CyberWindow.lzx" "CyberWindow")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/CycleToMenu.lzx" "CycleToMenu")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/Daywatch.lzx") (P_Install "" "Daywatch") (P_Install "" "DaywatchPrefs") ) ) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/DeftII.lzx" "DeftII")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/DoIcon.lzx" "DoIcon")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/Executive.lzx") (P_Install "" "Executive") (P_Install "" "Dashboard") ) ) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ForceMode.lzx" "ForceMode")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/GifToolkit.lzx" "GifToolkit")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/IFFMaster.lzx" "IFFMaster")) (set Maska (* Maska 2)) (complete 58) (set Wybierak katalogi_wynik3) (set Maska 1) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/ModePro.lzx") (P_Install "" "ModePro") (P_Install "" "ModeProPrefs") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Most.lzx" "Most")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/MUIBuilder.lzx" "MUIBuilder")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/MUI.lzx") (P_Install "" "MUI") (P_Install "" "PSI") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/MuFS.lzx") (P_Install "" "multiuser") (P_Install "" "multiuser_support") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/NewMode.lzx" "NewMode")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Organiser.lzx" "Organiser")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/PictIcon.lzx" "PictIcon")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/PicView.lzx" "PicView")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/PPrefs.lzx" "PPrefs")) (set Maska (* Maska 2)) (complete 61) (set Wybierak katalogi_wynik4) (set Maska 1) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Printer.lzx" "Printer")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/PSM.lzx" "PSM")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ReOrg.lzx" "ReOrg")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/ReqTools.lzx") (P_Install "" "ReqTools") (P_Install "" "ReqToolsPrefs") ) ) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ScreenTab.lzx" "ScreenTab")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/ScreenWizard.lzx" "ScreenWizard")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/SnoopDos.lzx" "SnoopDos")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Term.lzx" "Term")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/TIFFPrefs.lzx" "TIFFPrefs")) (set Maska (* Maska 2)) (complete 64) (set Wybierak katalogi_wynik5) (set Maska 1) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/TinyMeter.lzx" "TinyMeterPrefs")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/ToolsDaemon.lzx") (P_Install "" "ToolsDaemon") (P_Install "" "ToolsPrefs") ) ) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/TrashMaster.lzx" "Trashmaster")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/Triton.lzx") (P_Install "" "Triton") (P_Install "" "TritonPrefs") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Typeface.lzx" "Typeface")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/VChess.lzx" "VChess")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/Visage.lzx" "Visage")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/WSpeed.lzx" "WSpeed")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/XPRZmodem.lzx" "xprzmodem")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/X-Trash.lzx" "X-Trash")) (set Maska (* Maska 2)) ;// Cedy i inne takie... (set #cust_help (cat "\n\n\n" "Wskaz wersje programu ktorej jestes uzytkownikiem. " "Zaleznie od Twojego wyboru zainstalowane zostanie wlasciwe tlumaczenie.\n\n" @askchoice-help ) ) (complete 66) (set Wybierak katalogi_wynik6) (set Maska 1) (if (bitand Wybierak Maska) ;/// CED ( (set #ced (askchoice (prompt "Instaluje tlumaczenia programu CED\n" "Ktorej wersji programu uzywasz:" ) (choices "3.5" "4.x") (default 0) (help #cust_help) ) ) (if(= #ced 0) ( (P_Unpack "Dodatki/Locale/Catalogs/CED35.lzx") (rename "RAM:ced.catalog.35" "RAM:CED.catalog" (safe)) (rename "RAM:RecoverCEDFiles.catalog.35" "RAM:RecoverCEDFiles.catalog" (safe)) (P_Install "" "CED") (P_Install "" "RecoverCEDFiles") ) ; else ( (P_Unpack "Dodatki/Locale/Catalogs/CED4x.lzx") (P_Install "" "CED") (P_Install "" "RecoverCEDFiles") ) ) ) ;//| ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ;/// DOpus5 (if (<> (exists "DOpus5:" (noreq)) 2) (message "\nDirectoryOpus5 nie jest zainstalowany poprawnie! " "Nie znalazlem przypisania DOPUS5: ktore jest elementem " "niezbednym do poprawnego zainstalowania tlumaczenia\n\n" "Zainstaluj poprawnie program z oryginalnych dyskietek " "i sprobuj ponownie zainstalowac tlumaczenie!\n\n" "Original programu DirectoryOpus5 zakupic mozna w W.F.M.H!" ) ; else ( (set #DestDir "DOpus5:Catalogs/Polski/") (if (= (exists "DOpus5:Catalogs" (noreq)) 0) (makedir "Dopus5:Catalogs")) (if (= (exists "DOpus5:Catalogs/Polski" (noreq)) 0) (makedir "Dopus5:Catalogs/Polski")) (P_Unpack "Dodatki/Locale/Catalogs/DOpus5.lzx") (P_Install "" "dopus") (P_Install "" "cleanup") (P_Install "" "configopus") (P_Install "" "listerformat") (P_Install "" "diskinfo") (P_Install "" "font") (P_Install "" "icon") (P_Install "" "join") (P_Install "" "read") (P_Install "" "ftp") (P_Install "" "iconclock") (P_Install "" "viewfont") (P_Install "" "filetype") (P_Install "" "update") (P_Install "" "show") (P_Install "" "register") (P_Install "" "print") (P_Install "" "play") (P_Install "" "pathformat") (P_Install "" "misc") (P_Install "" "format") (P_Install "" "diskinfo55") (P_Install "" "diskcopy") (P_Install "" "dopuslib") (if (< (/ (getversion "DOpus5:modules/diskinfo.module") 65536) 56) ( (delete "DOpus5:Catalogs/Polski/diskinfo.catalog") (rename "DOpus5:Catalogs/Polski/diskinfo55.catalog" "DOpus5:Catalogs/Polski/diskinfo.catalog") ) (delete "DOpus5:Catalogs/Polski/diskinfo55.catalog") ) ) ) ;//| ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ;/// DrawStudio ( (set #DS_help (cat "\n" " W przeciwienstwie do pozostalych tlumaczen " "wchodzacych w sklad pakietu WFMH LocalePL v3! " "tlumaczenie do programu DrawStudio nie moze " "byc zainstalowane, jest program ten nie jest " "poprawnie zainstalowany lub nie istnieje " "fizycznie na dysku!\n\n" "W takim przypadku musisz wybrac \"Nie\", " "gdyz w przeciwnym razie instalacja pakietu " "zostanie przerwana." ) ) (if (askbool (prompt "\n\n\n" "Czy chcesz zainstalowac polskie tlumaczenie\n" "do programu Draw Studio?\n\n\n" "UWAGA! Program musi byc zainstalowany!\n\n\n") (help #DS_help) (choices "Tak" "Nie") ) ( (set DS_dest (askdir (default @default-dest) (prompt "Wybierz katalog w ktorym zainstalowany\n" "jest program DrawStudio\n" "(np. \"Work:Graphics/DrawStudio\")" ) (help "\n" " Z wyswietlonej listy wybierz katalog w ktorym zainstalowany " "jest program DrawStudio. Jesli, przykladowo, program ten " "zainstalowany jest w katalogu \"Work:Graphics/DrawStudio\", powinienes " "wskazac ten wlasnie katalog, nie zas \"Work:Graphics/\".\n" #PP_help "\n\n" @askdir-help ) ) ) (set DSVersion (askchoice (prompt "Ktorej wersji programu DrawStudio uzywasz:") (choices "1.x" "2.x") (default 1) (help "\nWskaz wersje programu DrawStudio, ktorej " "jestes uzytkownikiem. Zaleznie od Twojego wyboru zainstalowane " "zostanie wlasciwe tlumaczenie." ) ) ) (if (exists (tackon DS_dest "Language.msg") (noreq)) ( (message "\n\nZachowuje istniejace wersje jezykowa w pliku \"Language.msg.bak\"") (rename (tackon DS_dest "Language.msg") (tackon DS_dest "Language.msg.bak")) (delete (tackon DS_dest "Language.msg")) ) ) (run (cat "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/DrawStudio.lzx #? \"" DS_dest "/\"")) (set #Zainstalowane (+ #Zainstalowane 1)) ) ) ) ;//| ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ;/// GoldED (if (<> (exists "GoldED:" (noreq)) 2) (message "\nGoldED nie jest zainstalowany poprawnie! " "Nie znalazlem przypisania GOLDED: ktore jest elementem " "niezbednym do poprawnego zainstalowania tlumaczenia\n\n" "Zainstaluj poprawnie program z oryginalnych dyskietek " "i sprobuj ponownie zainstalowac tlumaczenie!" ) ; else ( (set #DestDir "GoldED:Catalogs/Polski/") (if (= (exists "GoldED:Catalogs" (noreq)) 0) (makedir "GoldED:Catalogs")) (if (= (exists "GoldED:Catalogs/Polski" (noreq)) 0) (makedir "GoldED:Catalogs/Polski")) (P_Combo "Dodatki/Locale/Catalogs/GoldED.lzx" "GoldED") ) ) ;//| ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ;/// PPaint ( (set #PP_usage (cat "\nPo uruchomieniu programu Cloanto Personal Paint, " "przelacz jego wersje jezykowa na CUSTOM " "(Menu Settings/Language/Custom), " "a nastepnie zapisz ustawienia programu." ) ) (set #PP_help (cat "\n" " W przeciwienstwie do pozostalych tlumaczen " "wchodzacych w sklad pakietu WFMH LocalePL v3! " "tlumaczenie do programu Personal Paint nie moze " "byc zainstalowane, jest program ten nie jest " "poprawnie zainstalowany lub nie istnieje " "fizycznie na dysku!\n\n" "W takim przypadku musisz wybrac \"Nie\", " "gdyz w przeciwnym razie instalacja pakietu " "zostanie przerwana.") ) (if (askbool (prompt "\n\n\n" " Czy chcesz zainstalowac polskie tlumaczenie\n" " do programu Cloanto Personal Paint?\n\n\n" " UWAGA! Program musi byc zainstalowany!\n\n\n") (help #PP_help) (choices "Tak" "Nie") ) ( (set PP_dest (askdir (default @default-dest) (prompt "Wybierz katalog w ktorym zainstalowany\n" "jest program PersonalPaint\n" "(np. \"Work:Graphics/PPaint\")") (help "\n" " Z wyswietlonej listy wybierz katalog w ktorym zainstalowany " "jest program Cloanto Personal Paint. Jesli, przykladowo, program ten " "zainstalowany jest w katalogu \"Work:Graphics/PPaint\", powinienes " "wskazac ten wlasnie katalog, nie zas \"Work:Graphics/\".\n" #PP_help "\n\n" @askdir-help) ) ) (set PPVersion (askchoice (prompt "Ktorej wersji programu uzywasz:") (choices "6.4" "6.8" "7.x lub nowszej" ) (default 0) (help #cust_help) ) ) (if (exists (tackon PP_dest "PPaint_Prefs/UIText.custom") (noreq)) ( (rename (tackon PP_dest "PPaint_Prefs/UIText.custom") (tackon PP_dest "PPaint_Prefs/UIText.custom.bak")) (delete (tackon PP_dest "PPaint_Prefs/UIText.custom")) ) ) (if (exists (tackon PP_dest "PPaint_Prefs/UIText.pol") (noreq)) ( (rename (tackon PP_dest "PPaint_Prefs/UIText.pol") (tackon PP_dest "PPaint_Prefs/UIText.pol.bak")) (delete (tackon PP_dest "PPaint_Prefs/UIText.pol")) ) ) (run (cat "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/PPaint.lzx #? \"" PP_dest "/\"")) (if (= PPVersion 0) ( (delete (tackon PP_dest "PPaint_Prefs/UIText.custom.84")) (delete (tackon PP_dest "PPaint_Prefs/UIText.pol")) (rename (tackon PP_dest "PPaint_Prefs/UIText.custom.82") (tackon PP_dest "PPaint_Prefs/UIText.custom")) (set #Zainstalowane (+ #Zainstalowane 1)) (message #PP_usage) ) ) (if (= PPVersion 1) ( (delete (tackon PP_dest "PPaint_Prefs/UIText.custom.82")) (delete (tackon PP_dest "PPaint_Prefs/UIText.pol")) (rename (tackon PP_dest "PPaint_Prefs/UIText.custom.84") (tackon PP_dest "PPaint_Prefs/UIText.custom")) (set #Zainstalowane (+ #Zainstalowane 1)) (message #PP_usage) ) ) (if (= PPVersion 2) ( (delete (tackon PP_dest "PPaint_Prefs/UIText.custom.82")) (delete (tackon PP_dest "PPaint_Prefs/UIText.custom.84")) (set #Zainstalowane (+ #Zainstalowane 1)) (message #PP_usage) ) ) ) ) ) ;//| ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ;/// WordWorth ( (set #WW_help (cat "\n" " W przeciwienstwie do pozostalych tlumaczen " "wchodzacych w sklad pakietu WFMH LocalePL v3! " "tlumaczenie do edytora WordWorth nie moze " "byc zainstalowane, jest program ten nie jest " "poprawnie zainstalowany lub nie istnieje " "fizycznie na dysku!\n\n" "W takim przypadku musisz wybrac \"Nie\", " "gdyz w przeciwnym razie instalacja pakietu " "zostanie przerwana." ) ) (if (askbool (prompt "\n\n\n" "Czy chcesz zainstalowac polskie tlumaczenie\n" "do programu Digita WordWorth?\n\n\n" "UWAGA! Program musi byc zainstalowany!\n\n\n") (help #WW_help) (choices "Tak" "Nie") ) ( (set WW_dest (askdir (default @default-dest) (prompt "Wybierz katalog w ktorym zainstalowany\n" "jest program WordWorth\n" "(np. \"Work:Text/WordWorth6\")") (help "\n" " Z wyswietlonej listy wybierz katalog w ktorym zainstalowany " "jest program Digita WordWorth. Jesli, przykladowo, program ten " "zainstalowany jest w katalogu \"Work:Text/Wordworth6\", powinienes " "wskazac ten wlasnie katalog, nie zas \"Work:Text/\".\n" #WW_help "\n\n" @askdir-help ) ) ) (set #ww_ver (askchoice (prompt "Instaluje tlumaczenia programu WordWorth\n" "Ktorej wersji programu uzywasz:" ) (choices "5.x" "6.x") (default 0) (help #cust_help) ) ) (set CMD (cat "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/WordWorth.lzx #? \"" WW_dest "/\"")) (if (= #ww_ver 0) (set CMD (cat "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/WordWorth5.lzx #? \"" WW_dest "/\"")) (set CMD (cat "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/WordWorth6.lzx #? \"" WW_dest "/\"")) ) (set #Test (+ #Test 5)) (set #Zainstalowane (+ #Zainstalowane 5)) (tooltype (dest "WordWorth") (prompt "Zmodyfikuje teraz parametry pracy Wordwortha " "tak aby od nastepnego uruchomienia zaczal " "korzystac z polskiej wersji jezykowej.") (settooltype "LANGUAGE" "polski") ) (run CMD) ) ) ) ;//| ) (set Maska (* Maska 2)) (complete 68) (set #DestDir "LOCALE:Catalogs/Polski/") (working "Instaluje tlumaczenia oprogramowania\ndo obslugi sieci Internet...") (set Wybierak katalogi_net) (set Maska 1) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/AWeb.lzx") (P_Install "" "AWeb") (P_Install "" "AWebCfg") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmFTP.lzx" "AmFTP")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmIRC.lzx" "AmIRC")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmTalk.lzx" "AmTalk")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmTelnet.lzx" "AmTelnet")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmTerm.lzx" "AmTerm")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/AmiFTP.lzx" "AmiFTP")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/IBrowse.lzx" "IBrowse")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) ( (P_Unpack "Dodatki/Locale/Catalogs/Miami.lzx") (P_Install "" "Miami") (P_Install "" "MiamiInit") (P_Install "" "MiamiRegister") ) ) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/NetInfo.lzx" "NetInfo")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/URLManager.lzx" "URLManager")) (set Maska (* Maska 2)) (if (bitand Wybierak Maska) (P_Combo "Dodatki/Locale/Catalogs/YAM.lzx" "YAM")) (set Maska (* Maska 2)) (complete 71) ;//| (message "\nU W A G A !\n" "------------\n\n" "System operacyjny Amigi zawsze szuka tlumaczen najpierw w " "\"PROGDIR:Catalogs/Polski/\" (gdzie \"PROGDIR:\" to katalog " "glowny danego programu) a nastepnie jesli tlumaczenie nie " "zostalo znalezione, sprawdza katalog \"LOCALE:Catalogs/Polski/\"." "W zwiazku z tym, upewnij sie, ze w katalogach programow do " "ktorych zainstalowano wlasnie nowsze tlumaczenie nie rezyduja " "poprzenie ich wersje. Jesli tak jest to skasuj je, gdyz inaczej " "nowe edycje nie beda przez programy uzywane!" ) ;/// Instalacja - dodatki - Czcionki MWB, APC, dokumentacja itp ;########################################################################### ;## Instalacja - dodatki - Czcionki MagicWB ;########################################################################### (if (bitand Dodatki #dod_czcionkimwb) ( (run "RAM:UnLzX >nil: x -m MagicWB/CzcionkiMagicWB.lzx #? FONTS:") (set JakiesCzcionkiZainstalowane 1) ) ) (complete 74) ;########################################################################### ;## Instalacja - dodatki - LSort ;########################################################################### (if (bitand Dodatki #dod_lsort) (run "RAM:UnLzX >nil: x -m Dodatki/Programy/LSort.lzx #? C:") ) (complete 76) ;########################################################################### ;## Instalacja - dodatki - APC - CLI ;########################################################################### (if (bitand Dodatki #dod_apc) (run "RAM:UnLzX >nil: x -m Dodatki/Programy/APC_CLI.lzx #? C:") ) (complete 78) ;########################################################################### ;## Instalacja - dokumentacja ;########################################################################### (set #doc_guide 1) (set DOC_Type (askoptions (prompt "Dokumentacja pakietu WFMH LocalePL v3!\n\nCo chcesz poczytac?") (help "Koniecznie przeczytaj rozdzial \"Uwagi\" " "poswiecony zauwazonym problemom w pracy innych " "programow na komputerach z zainstalowanym " "systemem W.F.M.H. LocalePL\n\n" @askoptions-help ) (choices " Dokument AmigaGuide") (default #doc_guide) ) ) (if (> DOC_Type 0) ( (set Dok_dest (tackon (askdir (default @default-dest) (prompt "Gdzie zyczysz sobie zainstalowac zalaczona\n" "dokumentacje do pakietu W.F.M.H. LocalePL?" ) (help "\n\n\n Z wyswietlonej listy wybierz urzadzenie lub katalog " "w ktorym chcialbys zainstalowac dokumentacje.\n" "Program instalacyjny zalozy katalog \"LocalePL\" " "a w nim podkatalog \"AmigaGuide\" i tam nim umiesci " "cala dokumentacje\n\n" "Nie zapomnij jej potem przeczytac!\n\n\n\n" @askdir-help ) ) "LocalePL" ) ) (makedir Dok_dest (infos)) (if (bitand DOC_Type 1) ( (if (<> (exists (tackon Dok_dest "AmigaGuide") (noreq)) 2) (makedir (tackon Dok_dest "AmigaGuide") (infos)) ) (if (= (exists (tackon Dok_dest "AmigaGuide/PanStanislaw.pic") (noreq)) 1) (delete (tackon Dok_dest "AmigaGuide/PanStanislaw.pic")) ) (if (= (exists (tackon Dok_dest "AmigaGuide/Klepaki.pic") (noreq)) 1) (delete (tackon Dok_dest "AmigaGuide/Klepaki.pic")) ) (run (cat "RAM:UnLzX >nil: x -m AmigaGuide/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/"))) ) ) ) ;else (message "\n\n\n\n\n\nNie to nie... ;-)") ) (complete 80) ;########################################################################### ;## Instalacja - dodatki - PrintIt ;########################################################################### (set #dodatki_help1 "\n\n\n\nZ wyswietlonej listy wybierz urzadzenie lub katalog, w ktorym chcialbys zainstalowac ") (set #dodatki_help2 ".\n\nProgram instalacyjny zalozy dodatkowy katalog o nazwie ") (set #dodatki_help3 " i w nim umiesci co trzeba.\n\n") (if (bitand Dodatki #dod_printit) ( (set PrintIt_dest (tackon (askdir (default @default-dest) (prompt "Gdzie zyczysz sobie zainstalowac PrintIt?") (help #dodatki_help1 "PrintIt v1.1" #dodatki_help2 "PrintIt" @askdir-help ) ) "PrintIt" ) ) (makedir PrintIt_dest (infos)) (run (cat "RAM:UnLZX x -m Dodatki/Programy/PrintIt.lzx " "\"" PrintIt_dest "\"")) ) ) ;########################################################################### ;## Instalacja - dodatki - APC 2.0 ;########################################################################### (if (bitand Dodatki #dod_apc20) ( (set APC_dest (tackon (askdir (default @default-dest) (prompt "Gdzie zyczysz sobie zainstalowac APC 2.0?") (help #dodatki_help1 "APC 2.0" #dodatki_help2 "APC" #dodatki_help3 @askdir-help ) ) "APC" ) ) (makedir APC_dest (infos)) (run (cat "RAM:UnLzX x -m Dodatki/Programy/APC.lzx " "\"" APC_dest "/\"")) ) ) (complete 70) ;########################################################################### ;## Instalacja - ikonki ;########################################################################### (if (bitand IconType MWB) ;## MagicWB ( (if (= UpdateMode 0) (copyfiles (source "MagicWB/FontPLPatch.info") (dest "SYS:WBStartup/") ) ) (if (bitand DOC_Type #doc_guide) ( (set CMD (cat "RAM:UnLzX >nil: x -m MagicWB/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/"))) (run CMD) (copyfiles (source "MagicWB/PL.info") (dest Dok_dest) (newname "AmigaGuide.info") ) ) ) (if (bitand Dodatki #dod_printit) ;## PrintIt (copyfiles (source "MagicWB") (dest PrintIt_dest) (pattern "PrintIt#?") ) ) (if (bitand Dodatki #dod_apc20) ;## APC (copyfiles (source "MagicWB") (dest APC_dest) (pattern "APC#?") ) ) ) ;## Iconographics (if (bitand IconType IGFX) ( (if (= UpdateMode 0) (copyfiles ;## FontPLPatch (source "Iconographics/FontPLPatch.info") (dest "SYS:WBStartup/") ) ) (if (bitand DOC_Type #doc_guide) ( (set CMD (cat "RAM:UnLzX >nil: x -m MagicWB/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/"))) (run CMD) (set CMD (cat "RAM:UnLzX >nil: x -m Iconographics/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/"))) (run CMD) (copyfiles (source "Iconographics/PL.info") (dest Dok_dest) (newname "AmigaGuide.info") ) ) ) (if (bitand Dodatki #dod_printit) (copyfiles (source "Iconographics") (dest PrintIt_dest) (pattern "PrintIt#?") ) ) (if (bitand Dodatki #dod_apc20) ;## APC (copyfiles (source "Iconographics") (dest APC_dest) (pattern "APC#?") ) ) ) ) ) (complete 80) ;//| ;/// Instalacja - FixFonts - aktualizacja listy czcionek ;########################################################################### ;## Instalacja - FixFonts - aktualizacja listy czcionek ;########################################################################### (set FixFontHelp (cat "\n\n" " Aby operacja sie powiodla, program aktualizujacy " "\"FixFonts\" powinien znajdowac sie w katalogu " "\"SYS:System\" (gdzie SYS: to wolumen z ktorego " "uruchomiona zostala Twoja Amiga), gdyz tam bedzie " "poszukiwany przez niniejszy skrypt instalacyjny. " "Jesli proba zlokalizowania programu sie nie " "powiedzie, bedziesz musial wskazac " "recznie jego lokalizacje." ) ) (if (= JakiesCzcionkiZainstalowane 1) (if (AskBool (prompt "\n\nPo zainstalowaniu dodatkowych\n" "czcionek w systemie, wypada uruchomic\n" "program FixFonts, ktory zaktualizuje\n" "m. in. indeksy ich wielkosci, co jest\n" "szczegolnie istotne w przypadku pokrywania\n" "sie nazw czcionek instalowanych z istniejacymi.\n" "Czy chcesz abym wywolal program aktualizujacy,\n" "czy tez wolisz zrobic to potem samodzielnie?" ) (choices "Zrob to" "Wole sama") (help FixFontHelp) ) (if (= (exists "SYS:System/FixFonts" (noreq)) 1) ( (working "\n\n\nUaktualniam rozmiary czcionek...") (run "SYS:System/FixFonts >nil:") ) ; else ( (message "\n\n\n\n\n" "Niestety program \"FixFonts\" nie zostal\n" "znaleziony. W tym przypadku musisz wskazac\n" "recznie miejsce jego pobytu." ) (set LastChance (tackon (askdir (default "SYS:System") (prompt "Wskaz katalog z programem \"FixFonts\"") (help "\n\n\n\n\n" " Z wyswietlonej listy wybierz urzadzenie lub katalog, " "w ktorym znajduje sie program FixFonts.\n" "\n\n\n\n\n\n\n\n\n" @askdir-help ) ) "FixFonts" ) ) (if (= (exists LastChance (noreq)) 1) ( (working "\n\n\nUaktualniam rozmiary czcionek...") (run (cat LastChance " >nil:")) ) ) ) ) ) ) (complete 90) ;//| ;/// Instalacja - CacheFonts - aktualizacja listy czcionek ;########################################################################### ;## Instalacja - CacheFonts - aktualizacja listy czcionek ;########################################################################### (set CacheHelp (cat "\n Aby operacja sie powiodla, program aktualizujacy " "\"MakeFontList\" powinien znajdowac sie " "badz w katalogu \"C:\" badz w \"C:CacheFont/\" " "gdyz tam bedzie poszukiwany przez niniejszy " "skrypt instalacyjny. Jesli proba zlokalizowania " "programu nie powiedzie sie, bedziesz musial " "wskazac recznie jego lokalizacje." ) ) (if (= JakiesCzcionkiZainstalowane 1) ( (set IsCacheFont (OR (run "c/CheckCacheFont") (= (exists "FONTS:CacheFontData" (noreq)) 2))) (if IsCacheFont (if (AskBool (prompt "\n\nJako ze uzywasz programu CacheFont,\n" "wszelkie nowe czcionki beda w pelni\n" "osiagalne dopiero po aktualizacji listy\n" "czcionek. Czy chcesz abym wywolal program\n" "aktualizujacy ta liste, czy tez wolisz\n" "zrobic to potem samodzielnie?") (choices "Zrob to" "Wole sama") (help CacheHelp) ) (if (= (exists "C:MakeFontList" (noreq)) 1) ( (working "\n\n\nUaktualniam liste czcionek...") (run "C:MakeFontList >nil:") ) ; else (if (= (exists "C:CacheFont/MakeFontList" (noreq)) 1) ( (working "\n\n\nUaktualniam liste czcionek...") (run "C:CacheFont/MakeFontList >nil:") ) ; else ( (message "\n\n\n\n\n" "Niestety program \"MakeFontList\" nie zostal\n" "znaleziony. W tym przypadku musisz wskazac\n" "recznie miejsce jego pobytu." ) (set LastChance (tackon (askdir (default "SYS:") (prompt "Wskaz katalog z programem \"MakeFontList\"") (help "\n\n\n\n" "Z wyswietlonej listy wybierz urzadzenie lub katalog, " "w ktorym znajduje sie program MakeFontList. " "Zostanie on wywolany w celu aktualizacji listy " "istniejacych na dysku czionek." "\n\n" @askdir-help) ) "MakeFontList" ) ) (if (= (exists LastChance (noreq)) 1) ( (working "\n\n\nUaktualniam liste czcionek...") (run (cat LastChance " >nil:")) ) ) ) ) ) ) ) ) ) (complete 95) ;//| ;/// Instalacja - Presets ;########################################################################### ;## Instalacja - Presets ;########################################################################### (set ModKeymap (cat "\n\n Nie obawiaj sie przy tym, ze twoje dotychczasowe " " preferencje zostana skasowane.Program instalacyjny " " zachowa Twoje dotychczasowe pliki preferencji, " " a ponadto podczas rekonfiguracji mapy klawiatury " " zachowa dotychczasowe ustawienie predkosci oraz " " przyspieszenia myszki oraz wszelkie parametry " " dotyczace klawiatury." ) ) (if (= UpdateMode 0) ( (if (= 1 (askbool (prompt "\n\n\nCzy ustawic niezbedne parametry\n" "w preferencjach systemowych, tak aby\n" "LocalePL byly aktywne od razu po\n" "zainstalowaniu, czy tez wolisz zrobic to\n" "recznie?") (choices "Zrob to" "Wole sama") (help "\n Jesli wolisz miec to z glowy, to wybierz wariant " "\"Zrob to\" co pozwoli Ci na zaoszczedzenie paru " "jakze cennych chwilek..." ModKeymap) ) ) ; then ( ; ustawiamy ;########################################################################### ;## Instalacja - Presets - mapa klawiatury ;########################################################################### (set KeymapHelp (cat "\n Zaleznie od Twego wyboru ustawiona zostanie " "odpowiednia mapa klawiatury" ModKeymap ) ) (set Keymap (askchoice (prompt "Jakiej klawiatury uzywasz?") (help KeymapHelp) (choices "Angielskiej" "Niemieckiej" "Amerykanskiej" "Angielskiej - maszynistki" "Niemieckiej - maszynistki" "Amerykanskiej - maszynistki" ) ) ) ;########################################################################### ;## Instalacja - Presets - czcionki ;########################################################################### (if (= (bitand Dodatki #dod_czcionkimwb) 0) (set prefs (askchoice (prompt "Ustawienie czcionek:") (choices "Zostaw bez zmian" "TopazPropPL i TopazPL" ) (help "\n Zostaw bez zmian\n" " ----------------\n\n" " Nie zmienia aktualnego ustawienia czcionek...\n\n\n" " Wariant 1\n" " ---------\n\n" " Proporcjonalny TopazPropPL jako czcionka " " ekranowa (menu) i pod ikonki, do reszty " " zas klasyczny TopazPL\n\n\n" " Jak widac, masz do dyspozycji jeden tylko " " dodatkowy wariant, a to z tego powodu, ze " " wyszystkie pozostale uzywaja polskich " " czionek z pakietu MagicWB a przeciez takich " " nie chciales zainstalowac...") ) ) ; else (set prefs (askchoice (prompt "Ustawienie czcionek:") (choices "Zostaw bez zmian" "TopazPropPL i TopazPL" "TopazPropPL i XenPL" "XHelveticaPL i XenPL (1)" "XHelveticaPL i XenPL (2)" "XHelveticaPL, TopazPL i XenPL" ) (help "\n Zostaw bez zmian\n" " ----------------\n\n" " Nie zmienia aktualnego ustawienia " " czcionek...\n\n\n" " Wariant 1\n" " ---------\n\n" " Proporcjonalny TopazPropPL jako czcionka " " ekranowa (menu) i pod ikonki, do reszty " " zas klasyczny TopazPL\n\n\n" " Wariant 2\n" " ---------\n\n" " Proporcjonalny TopazPL jako czcionka " " ekranowa (menu) i pod ikonki, do reszty " " zas XenPL. Wariant ten przeznaczony jest " " raczej dla uzytkownikow MagicWB.\n" " Moim zdaniem taki uklad jest lepszy niz...\n\n" " Wariant 3\n" " ---------\n\n" " ...standardowe ustawienie dla MagicWB " " (czyli XHelveticaPL (11) jako czcionka " " ekranowa (menu) i pod ikonki, do reszty " " zas XenPL (9)), bowiem TopazPropPL jest znacznie " " ladniejszy ale to kwestia gustu.\n\n" " Wariant 4\n" " ---------\n\n" " Jak powyzszy wariant 3 ale czcionka ekranowa " " ciut wieksza: XHelveticaPL (15).\n" " Dla niezdecydowanych pozostaje juz ostatni...\n\n" " Wariant 5\n" " ---------\n\n" " Pod ikonki TopazPropPL, Na ekran XHelvetica" " 15 punktowa, zas jako czcionka systemowa " " polecamy XENPL 13...\n\n\n\n\n\n\n\n\n\n" " ...do tego wszystkiego mlode ziemniaczki saute, " " kapustka gdzie niegdzie z groszkiem, oraz" " renomowane wino spoldzielni Botwina" " o dzwiecznej nazwie" " \"Janosik\" (limited edition!) z 1994 roku....\n\n" " Wesolych Swiat! ;-)" ) ) ) ) (run "SYS:Prefs/LOCALE SAVE") ; zapisujemy aktualne nastawy... (run "SYS:Prefs/INPUT SAVE") (run "SYS:Prefs/FONT SAVE") (if ( = (exists "ENVARC:Sys/STARE_PREFERENCJE" (noreq)) 0) (makedir "ENVARC:Sys/STARE_PREFERENCJE") ) ; robimy kopie (if (> prefs 0) ( (if (exists "ENVARC:Sys/input.prefs" (noreq)) (copyfiles (source "ENVARC:Sys/input.prefs") (dest "ENVARC:Sys/STARE_PREFERENCJE") ) ) (if(exists "ENVARC:Sys/locale.prefs" (noreq)) (copyfiles (source "ENVARC:Sys/locale.prefs") (dest "ENVARC:Sys/STARE_PREFERENCJE") ) ) (if(exists "ENVARC:Sys/font.prefs" (noreq)) (copyfiles (source "ENVARC:Sys/font.prefs") (dest "ENVARC:Sys/STARE_PREFERENCJE") ) ) ) ) (if (> prefs 0) (set Env_pat "#?") (set Env_pat "locale.prefs") ) (set CMD ("RAM:UnLzX e -x >nil: Commodore/Prefs/Wariant%ld.lzx %s ENVARC:Sys/" prefs Env_pat)) (run CMD) (if (= keymap 0) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-GB")) (if (= keymap 1) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-D")) (if (= keymap 2) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-USA")) (if (= keymap 3) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-Masz-GB")) (if (= keymap 4) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-Masz-D")) (if (= keymap 5) (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-Masz-USA")) (run "SYS:Prefs/LOCALE ENVARC:Sys/locale.prefs USE") (run "SYS:Prefs/INPUT ENVARC:Sys/input.prefs USE") (if (> prefs 0) (run "SYS:Prefs/FONT ENVARC:Sys/font.prefs USE") ) ) ) ) ) ;########################################################################### ;## Instalacja - ENVARC ;########################################################################### (copyfiles (source "Commodore/Envarc") (dest "ENVARC:") (all) ) (complete 97) ;//| ;/// Raport ;########################################################################### ;## Raport ;########################################################################### (message (cat "\nRaport przebiegu instalacji\n\n" "Sprawdzono ogolem " #test " tlumaczen.\n\n" "Podczas instalacji wykryto " #duplikaty " tlumaczen o identycznych nazwach, " "z czego " #nowsze " bylo starszych niz tlumaczenia z pakietu " "\"LocalePL v3!\".\n\n" "Zainstalowano ogolem " #zainstalowane " tlumaczen," "z czego zastapiono " #zastap " istniejacych tlumaczen, " "zas " #pominiete " pominieto. Wykonano " #kopii " kopii " "bezpieczenstwa (#?.bak) istniejacych plikow." ) ) (complete 99) ;//| ;/// Koncowka ;########################################################################### ;## Koncowka ;########################################################################### (set sys (cat (getassign 'sys') "WBStartup\"")) (set progs "FontPLPatch") (set koncowka ":") (if (> DOC_Type 0) (message "\nGotowe!\n" "---------\n" "Teraz najlepiej \"zresetuj\" Amige, lub uruchom\n" "wlasnorecznie program" koncowka "\n" progs "\nz systemowego katalogu:\n\"" sys "\noraz przeczytaj bardzo dokladnie zalaczona\n" "dokumentacje, umieszczona w katalogu:\n\"" Dok_dest "\"\n\nW.F.M.H. LocalePL © 1994-1998 Marcin Orlowski" ) (message "\nGotowe!\n" "---------\n" "Teraz najlepiej \"zresetuj\" Amige, lub uruchom\n" "wlasnorecznie program" koncowka "\n" progs "\nz systemowego katalogu:\n\"" sys "\n\nPoniewaz nie chciales instalowac dokumentacji," "to poczytaj sobie teraz cos innego..." "\n\nW.F.M.H. LocalePL © 1994-1998 Marcin Orlowski" ) ) (message "\n\nU W A G A !\n----------\n\nKoniecznie przeczytaj rozdzial \"Uwagi\"\n" "poswiecony zauwazonym problemom w pracy innych\n" "programow na komputerach z zainstalowanym\n" "systemem W.F.M.H. LocalePL" ) (message "\nWszelkie uwagi i sugestie na temat niniejszego\n" "pakietu oraz ewentualne, zauwazone bledy a takze\n" "karty rejestracyjne prosze przesylac\n" "na ponizszy adres:\n\n" "W.F.M.H. LocalePL\n" "ul. Radomska 38\n" "71-002 Szczecin\n\n" "tel. 091 4836425\n\n" "Internet: info@amiga.com.pl\n" "http://amiga.com.pl" ) (if (= (exists "SYS:Utilities/Multiview" (noreq)) 1) ( (set Show "run >nil: SYS:Utilities/Multiview ") (set Show_Guide 1) ) ;else ( (set Show "run >nil: More ") (set Show_Guide 0) ) ) (if(= Show_Guide 1) ( (if(bitand DOC_Type 1) (set Doc (cat (tackon Dok_dest "Dokumentacja/LocalePL.doc")))) (if(bitand DOC_Type 2) (set Doc (cat (tackon Dok_dest "AmigaGuide/LocalePL.guide")))) ) ;else ( (if(bitand DOC_Type 2) (set Doc (cat (tackon Dok_dest "AmigaGuide/LocalePL.guide")))) (if(bitand DOC_Type 1) (set Doc (cat (tackon Dok_dest "Dokumentacja/LocalePL.doc")))) ) ) (if (OR (OR (AND (bitand Doc_Type 1) (= Show_Guide 1)) (AND (bitand Doc_Type 1) (= Show_Guide 0)) ) (AND (bitand Doc_Type 2) (= Show_Guide 1)) ) (run (cat Show Doc)) ) (complete 100) ;//| ;########################################################################### ;## Gejm Olwer ;########################################################################### (P_CleanUp) (exit (QUIET))