home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
maloc.dms
/
maloc.adf
/
WFMH_LocalePL_v1.53
/
Skasuj_LocalePL
< prev
next >
Wrap
Text File
|
1995-01-12
|
11KB
|
405 lines
;
; LocalePL © 1994-1995 Marcin Orlowski
;
; ---------------------------------------------------------
;
; *** *** ********* *** *** *** ***
; *** *** *** **** **** *** ***
; *** *** *** *** ** *** *** ***
; *** *** ******** *** ** *** **********
; *** ** *** ******** *** *** **********
; *** ** *** *** *** *** *** ***
; **** **** ** *** ** *** *** ** *** *** **
; *** *** ** *** ** *** *** ** *** *** **
;
; ---------------------------------------------------------
;
; Mental Pictures Developed Here
;
; Marcin Orlowski
; ul. Radomska 38
; 71-002 Szczecin
;
; SilverDream!'s BBS: 091-540431 (24h non-stop)
; GlobalNet: 52:4800/6
; FidoNet : 2:481/22.2
;
; Internet: carlos@felix.univ.szczecin.pl
;
;
;
;
;
;
;--------------------------------------------------------------------
;
; LocalePL Deratyzer
;
; MR SOFT / WORLD FEDERATION OF MAD HACKERS
;
;--------------------------------------------------------------------
;
; $VER: WFMH LocalePL v1.53 (01.10.94) - Skrypt deratyzacyjny
;
(set OS_Version (/ (getversion "LIBS:locale.library") 65536))
(if (< OS_Version 38)
(abort "\n\n\nAby wykorzystac pakiet LocalePL\n"
"niezbedny jest conajmniej Kickstart 2.1!\n\n"
"W zwiazku z tym nie ma czego usuwac!"
)
)
(complete 0)
(welcome
"\n"
" *** *** ********* *** *** *** ***\n"
" *** *** *** **** **** *** ***\n"
" *** *** *** *** ** *** *** ***\n"
" *** *** ******** *** ** *** **********\n"
" *** ** *** ******** *** *** **********\n"
" *** ** *** *** *** *** *** ***\n"
" **** **** ** *** ** *** *** ** *** *** **\n"
" *** *** ** *** ** *** *** ** *** *** **\n"
"\n"
" ------------------------------------------\n"
" Locale PL 1.53 (01.01.1995)\n"
" ------------------------------------------"
)
(message "\n"
"UWAGA!\n"
"--------\n"
"Wykonanie niniejszego skryptu spowoduje\n"
"przywrócenie preferencji jezykowych\n"
"do poprzedniego stanu (przed instalacja)\n"
"Jednoczesnie, w zaleznosci od Twego wyboru,\n"
"wszelkie 'polskie' pliki, oraz czcionki\n"
"wchodzace w sklad pakietu zostana fizycznie\n"
"usuniete z dysku.\n\n"
"Konwerter tekstu PrintIt oraz dokumentacje\n"
"musisz usunac recznie."
)
(set Wynik (askoptions
(prompt "Co chcesz usunac:")
(help "\n"
" Skasowanie polskich czcionek TopazPL powoduje\n"
"automatyczne usuniecie programu FontPLPatch, który\n"
"bez tychze czcionek jest calkowicie bezuzyteczny.\n"
"Jesli z jakichkolwiek przyczyn chcesz zostawic owe\n"
"czcionki ale program skasowac, to usun 'ptaszka'\n"
"obok czcionek które chcesz zostawic.\n\n"
" Opcja 'Skasuj wszystkie polskie pliki' powoduje\n"
"usuniecie wszystkich plików, które sa uzywane zarówno\n"
"przez system Amigi jak i inne programy do komunikacji\n"
"z uzytkownikiem w jezyku polskim. Usuniete zostana\n"
"takze charakterystyczne definicje (symbol waluty,\n"
"nazwy dni tygodnia...), a takze wszelkie polskie\n"
"tekst pomocy\n\n"
@askoptions-help)
(choices " Przywroc preferencje"
" Skasuj czcionki TopazPL"
" Skasuj czcionke TopazPropPL"
" Skasuj HoustonPL, UnityPL, ApplePL"
" Skasuj polskie czcionki dla MagicWB"
" Skasuj wszystkie 'polskie' pliki"
" Skasuj polskie mapy klawiatury"
" Skasuj program AssignWedge"
" Skasuj program FontPLPatch"
)
)
)
(set PrzywrocStare 0)
(if (bitand Wynik 1)
(
(working "Probuje przywrócic poprzednie\n"
"preferencje systemowe...")
(if (= (exists "ENVARC:Sys/STARE_PREFERENCJE" (noreq)) 2)
(
(working "Przywracam poprzednie preferencje...")
(copyfiles
(source "ENVARC:Sys/STARE_PREFERENCJE")
(dest "ENVARC:Sys")
(all))
(run "c/delete >NIL: ENVARC:Sys/STARE_PREFERENCJE all force")
(set PrzywrocStare 1)
)
(message "\n\n\n"
"Przykro mi, ale w ferworze walki\n"
"musiales skasowac zachowane podczas\n"
"instalacji poprzednie preferencje!\n\n"
"Bedziesz musial odtworzyc je recznie...")
)
)
)
(complete 10)
(if (bitand Wynik 2)
(
(working "\n\n\nProbuje skasowac czcionke: TopazPL")
(if (= (exists "FONTS:TopazPL") 2)
(
(run "c/delete >NIL: FONTS:TopazPL all force")
(run "c/delete >NIL: FONTS:TopazPL.font force")
)
(message "\n\n\n\n"
"Czcionka TopazPL nie znaleziona!")
(working "\n\n\nProbuje skasowac program: FontPLPatch")
(if (= (exists "SYS:FontPLPatch") 2)
(
(run "c/delete >NIL: SYS:FontPLPatch force")
(run "c/delete >NIL: SYS:FontPLPatch.info force")
)
(message "\n\n\n\n"
"Program FontPLPatch nie znaleziony!")
)
)
)
)
(complete 20)
(if (bitand Wynik 4)
(
(working "\n\n\nProbuje skasowac czcionke: TopazPropPL")
(if (= (exists "FONTS:TopazPropPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:TopazPropPL all force")
(run "c/delete >NIL: FONTS:TopazPropPL.font force")
)
(message "\n\n\n\n"
"Czcionka TopazPropPL nie znaleziona!")
)
)
)
(complete 30)
(if (bitand Wynik 8)
(
(working "\n\n\nProbuje skasowac dodatkowe czcionki:\n"
"HoustonPL, UnityPL,\nThinpazPL oraz ApplePL")
(if (= (exists "FONTS:HoustonPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:HoustonL all force")
(run "c/delete >NIL: FONTS:HoustonPL.font force")
)
(message "\n\n\n\n"
"Czcionka HoustonPL nie znaleziona!")
)
(if (= (exists "FONTS:UnityPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:UnityPL all force")
(run "c/delete >NIL: FONTS:UnityPL.font force")
)
(message "\n\n\n\n"
"Czcionka UnityPL nie znaleziona!")
)
(if (= (exists "FONTS:ApplePL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:ApplePL all force")
(run "c/delete >NIL: FONTS:ApplePL.font force")
)
(message "\n\n\n\n"
"Czcionka ApplePL nie znaleziona!")
)
(if (= (exists "FONTS:ThinpazPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:ThinpazPL all force")
(run "c/delete >NIL: FONTS:ThinpazPL.font force")
)
(message "\n\n\n\n"
"Czcionka ThinpazPL nie znaleziona!")
)
)
)
(complete 40)
(if (bitand Wynik 16)
(
(working "\n\n\nProbuje skasowac czcionki dla MagicWB:\n"
"XCourierPL, XenPL oraz XHelveticaPL")
(if (= (exists "FONTS:XCourierPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:XCourierPL all force")
(run "c/delete >NIL: FONTS:XCourierPL.font force")
)
(message "\n\n\n\n"
"Czcionka XCourierPL nie znaleziona!")
)
(if (= (exists "FONTS:XenPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:XenPL all force")
(run "c/delete >NIL: FONTS:XenPL.font force")
)
(message "\n\n\n\n"
"Czcionka XenPL nie znaleziona!")
)
(if (= (exists "FONTS:XHelveticaPL" (noreq)) 2)
(
(run "c/delete >NIL: FONTS:XHelveticaPL all force")
(run "c/delete >NIL: FONTS:XHelveticaPL.font force")
)
(message "\n\n\n\n"
"Czcionka XHelveticaPL nie znaleziona!")
)
)
)
(complete 50)
(if (bitand Wynik 32)
(
(working "\n\n\nProbuje skasowac\n"
"wszystkie polskie pliki\n")
(if (= (exists "LOCALE:Catalogs/Polski" (noreq)) 2)
(run "c/delete >NIL: LOCALE:Catalogs/Polski all force")
(message "\n\n\n\n"
"Katalog\n"
"'LOCALE:Catalogs/Polski'\n"
"nie znaleziony")
)
(if (= (exists "LOCALE:Countries/polska.country" (noreq)) 1)
(run "c/delete >NIL: LOCALE:Countries/polska.country force")
(message "\n\n\n\n"
"Plik\n"
"'LOCALE:Countries/polska.country'\n"
"nie znaleziony")
)
(if (= (exists "LOCALE:Help/Polski" (noreq)) 2)
(run "c/delete >NIL: LOCALE:Help/Polski all force")
(message "\n\n\n\n"
"Katalog\n"
"'LOCALE:Help/Polski'\n"
"nie znaleziony")
)
(if (= (exists "LOCALE:Languages/polski.language" (noreq)) 1)
(run "c/delete >NIL: LOCALE:Languages/polski.language force")
(message "\n\n\n\n"
"Plik\n"
"'LOCALE:Languages/polski.language'\n"
"nie znaleziony")
)
)
)
(complete 60)
(if (bitand Wynik 64)
(
(working "\n\n\nProbuje skasowac\n"
"polskie mapy klawiatury")
(if (= (exists "DEVS:Keymaps/AmigaPL-D" (noreq)) 1)
(run "c/delete >NIL: DEVS:Keymaps/AmigaPL-D force")
)
(if (= (exists "DEVS:Keymaps/AmigaPL-USA" (noreq)) 1)
(run "c/delete >NIL: DEVS:Keymaps/AmigaPL-USA force")
)
)
)
(complete 70)
(if (bitand Wynik 128)
(
(working "\n\n\nProbuje skasowa program: AssignWedge")
(if (= (exists "SYS:WBStartup/AssignWedge" (noreq)) 1)
(
(run "c/delete >NIL: SYS:WBStartup/AssignWedge force")
(run "c/delete >NIL: SYS:WBStartup/AssignWedge.info force")
)
)
)
)
(complete 80)
(if (bitand Wynik 256)
(
(if (= (bitand Wynik 2) 0)
(working "\n\n\nProbuje skasowac program: FontPLPatch")
(if (= (exists "SYS:WBStartup/FontPLPatch" (noreq)) 1)
(
(run "c/delete >NIL: SYS:WBStartup//FontPLPatch force")
(run "c/delete >NIL: SYS:WBStartup//FontPLPatch.info force")
)
)
)
)
)
(complete 90)
(if (= PrzywrocStare 1)
(if
(askbool
(prompt "\n\n\nCzy chcesz abym przelaczyl\n"
"system zgodnie z odtworzonymi\n"
"preferencjami, czy tez chcesz to\n"
"zrobic recznie?")
(help "\n"
" Wprawdzie preferencje zostaly odtworzone\n"
" poprawnie, ale Amiga nadal pracuje zgodnie\n"
" z poprzednim ustawieniem. Antidotum na ta\n"
" sytacje moze byc:\n\n"
" 1. wywolanie odpowiednich programów\n"
" systemowych, co tez zostanie zrobione\n"
" jesli skorzystasz z niniejszej opcji\n"
" 2. reset komputera, czyli Ctrl+Amiga+Amiga\n"
" (uwaga na pozostale programy i dane!)\n"
@askbool-help)
(choices "Zrob to" "Wole sama")
)
(
(run "SYS:Prefs/LOCALE ENVARC:Sys/locale.prefs USE")
(run "SYS:Prefs/INPUT ENVARC:Sys/input.prefs USE")
(run "SYS:Prefs/FONT ENVARC:Sys/font.prefs USE")
)
)
)
(complete 100)
(message "\nGotowe!\n"
"---------\n"
"Teraz, teoretycznie, twoja Amiga\n"
"winna pracowac zgodnie z ustawieniami\n"
"z czasow przed instalacja pakietu\n\n\n"
"W.F.M.H. LocalePL\n"
"\n\nLocalePL © 1994 Marcin Orlowski\n"
"MR SOFT / World Federation of Mad Hackers"
)
(exit)