home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / maloc.dms / maloc.adf / WFMH_LocalePL_v1.53 / Skasuj_LocalePL < prev    next >
Text File  |  1995-01-12  |  11KB  |  405 lines
  1. ;
  2. ;              LocalePL © 1994-1995 Marcin Orlowski
  3. ;
  4. ;        ---------------------------------------------------------
  5. ;
  6. ;        ***    ***    *********  ***    ***    ***    ***
  7. ;        ***    ***    ***        ****  ****    ***    ***
  8. ;        ***    ***    ***        *** ** ***    ***    ***
  9. ;        ***    ***    ********   *** ** ***    **********
  10. ;        *** ** ***    ********   ***    ***    **********
  11. ;        *** ** ***    ***        ***    ***    ***    ***
  12. ;        ****  **** ** ***     ** ***    *** ** ***    *** **
  13. ;        ***    *** ** ***     ** ***    *** ** ***    *** **
  14. ;
  15. ;        ---------------------------------------------------------
  16. ;
  17. ;            Mental Pictures Developed Here
  18. ;
  19. ;                Marcin Orlowski
  20. ;                ul. Radomska 38
  21. ;                71-002 Szczecin
  22. ;
  23. ;         SilverDream!'s BBS:      091-540431  (24h non-stop)
  24. ;                               GlobalNet: 52:4800/6
  25. ;                               FidoNet  :  2:481/22.2
  26. ;
  27. ;        Internet:         carlos@felix.univ.szczecin.pl
  28. ;
  29. ;
  30. ;
  31. ;
  32. ;
  33. ;
  34. ;--------------------------------------------------------------------
  35. ;
  36. ;                 LocalePL Deratyzer
  37. ;
  38. ;                 MR SOFT /  WORLD FEDERATION OF MAD HACKERS
  39. ;
  40. ;--------------------------------------------------------------------
  41. ;
  42. ;     $VER: WFMH LocalePL v1.53 (01.10.94) - Skrypt deratyzacyjny
  43. ;
  44. (set OS_Version (/ (getversion "LIBS:locale.library") 65536))
  45. (if (< OS_Version 38)
  46.     (abort  "\n\n\nAby wykorzystac pakiet LocalePL\n"
  47.         "niezbedny jest conajmniej Kickstart 2.1!\n\n"
  48.         "W zwiazku z tym nie ma czego usuwac!"
  49.     )
  50. )
  51.  
  52. (complete 0)
  53. (welcome
  54.     "\n"
  55.     " ***    ***    *********  ***    ***    ***    ***\n"
  56.     " ***    ***    ***        ****  ****    ***    ***\n"
  57.     " ***    ***    ***        *** ** ***    ***    ***\n"
  58.     " ***    ***    ********   *** ** ***    **********\n"
  59.     " *** ** ***    ********   ***    ***    **********\n"
  60.     " *** ** ***    ***        ***    ***    ***    ***\n"
  61.     " ****  **** ** ***     ** ***    *** ** ***    *** **\n"
  62.     " ***    *** ** ***     ** ***    *** ** ***    *** **\n"
  63.     "\n"
  64.     "      ------------------------------------------\n"
  65.     "            Locale PL 1.53     (01.01.1995)\n"
  66.     "      ------------------------------------------"
  67. )
  68.  
  69. (message "\n"
  70.          "UWAGA!\n"
  71.          "--------\n"
  72.          "Wykonanie niniejszego skryptu spowoduje\n"
  73.          "przywrócenie preferencji jezykowych\n"
  74.          "do poprzedniego stanu (przed instalacja)\n"
  75.          "Jednoczesnie, w zaleznosci od Twego wyboru,\n"
  76.          "wszelkie 'polskie' pliki, oraz czcionki\n"
  77.          "wchodzace w sklad pakietu zostana fizycznie\n"
  78.          "usuniete z dysku.\n\n"
  79.          "Konwerter tekstu PrintIt oraz dokumentacje\n"
  80.          "musisz usunac recznie."
  81. )
  82.  
  83. (set Wynik (askoptions
  84.            (prompt  "Co chcesz usunac:")
  85.         (help    "\n"
  86.              "    Skasowanie polskich czcionek TopazPL powoduje\n"
  87.              "automatyczne usuniecie programu FontPLPatch, który\n"
  88.          "bez tychze czcionek jest calkowicie bezuzyteczny.\n"
  89.              "Jesli z jakichkolwiek przyczyn chcesz zostawic owe\n"
  90.          "czcionki ale program skasowac, to usun 'ptaszka'\n"
  91.          "obok czcionek które chcesz zostawic.\n\n"
  92.          "    Opcja 'Skasuj wszystkie polskie pliki' powoduje\n"
  93.          "usuniecie wszystkich plików, które sa uzywane zarówno\n"
  94.          "przez system Amigi jak i inne programy do komunikacji\n"
  95.          "z uzytkownikiem w jezyku polskim. Usuniete zostana\n"
  96.          "takze charakterystyczne definicje (symbol waluty,\n"
  97.          "nazwy dni tygodnia...), a takze wszelkie polskie\n"
  98.          "tekst pomocy\n\n"
  99.                          @askoptions-help)
  100.            (choices " Przywroc preferencje"
  101.          " Skasuj czcionki TopazPL"
  102.          " Skasuj czcionke TopazPropPL"
  103.          " Skasuj HoustonPL, UnityPL, ApplePL"
  104.          " Skasuj polskie czcionki dla MagicWB"
  105.          " Skasuj wszystkie 'polskie' pliki"
  106.          " Skasuj polskie mapy klawiatury"
  107.          " Skasuj program AssignWedge"
  108.          " Skasuj program FontPLPatch"
  109.         )
  110.  
  111.        )
  112. )
  113.  
  114. (set PrzywrocStare 0)
  115. (if (bitand Wynik 1)
  116.  (
  117.     (working "Probuje przywrócic poprzednie\n"
  118.          "preferencje systemowe...")
  119.  
  120.     (if  (= (exists "ENVARC:Sys/STARE_PREFERENCJE" (noreq)) 2)
  121.          (
  122.          (working "Przywracam poprzednie preferencje...")
  123.  
  124.          (copyfiles
  125.         (source "ENVARC:Sys/STARE_PREFERENCJE")
  126.         (dest "ENVARC:Sys")
  127.         (all))
  128.  
  129.          (run "c/delete >NIL: ENVARC:Sys/STARE_PREFERENCJE all force")
  130.      (set PrzywrocStare 1)
  131.      )
  132.      (message "\n\n\n"
  133.            "Przykro mi, ale w ferworze walki\n"
  134.            "musiales skasowac zachowane podczas\n"
  135.            "instalacji poprzednie preferencje!\n\n"
  136.            "Bedziesz musial odtworzyc je recznie...")
  137.     )
  138.  )
  139. )
  140. (complete 10)
  141.  
  142.  
  143.  
  144. (if (bitand Wynik 2)
  145.  (
  146.     (working "\n\n\nProbuje skasowac czcionke: TopazPL")
  147.  
  148.     (if (= (exists "FONTS:TopazPL") 2)
  149.      (
  150.           (run "c/delete >NIL: FONTS:TopazPL all force")
  151.           (run "c/delete >NIL: FONTS:TopazPL.font force")
  152.          )
  153.      (message "\n\n\n\n"
  154.           "Czcionka TopazPL nie znaleziona!")
  155.  
  156.     (working "\n\n\nProbuje skasowac program: FontPLPatch")
  157.     (if (= (exists "SYS:FontPLPatch") 2)
  158.      (
  159.           (run "c/delete >NIL: SYS:FontPLPatch force")
  160.           (run "c/delete >NIL: SYS:FontPLPatch.info force")
  161.          )
  162.      (message "\n\n\n\n"
  163.           "Program FontPLPatch nie znaleziony!")
  164.     )
  165.        )
  166.  )
  167. )
  168. (complete 20)
  169.  
  170.  
  171. (if (bitand Wynik 4)
  172.  (
  173.     (working "\n\n\nProbuje skasowac czcionke: TopazPropPL")
  174.  
  175.     (if (= (exists "FONTS:TopazPropPL" (noreq)) 2)
  176.      (
  177.           (run "c/delete >NIL: FONTS:TopazPropPL all force")
  178.           (run "c/delete >NIL: FONTS:TopazPropPL.font force")
  179.          )
  180.      (message "\n\n\n\n"
  181.           "Czcionka TopazPropPL nie znaleziona!")
  182.     )
  183.  )
  184. )
  185. (complete 30)
  186.  
  187.  
  188.  
  189. (if (bitand Wynik 8)
  190.  (
  191.     (working "\n\n\nProbuje skasowac dodatkowe czcionki:\n"
  192.          "HoustonPL, UnityPL,\nThinpazPL oraz ApplePL")
  193.  
  194.     (if (= (exists "FONTS:HoustonPL" (noreq)) 2)
  195.      (
  196.           (run "c/delete >NIL: FONTS:HoustonL all force")
  197.           (run "c/delete >NIL: FONTS:HoustonPL.font force")
  198.          )
  199.      (message "\n\n\n\n"
  200.           "Czcionka HoustonPL nie znaleziona!")
  201.     )
  202.  
  203.     (if (= (exists "FONTS:UnityPL" (noreq)) 2)
  204.      (
  205.           (run "c/delete >NIL: FONTS:UnityPL all force")
  206.           (run "c/delete >NIL: FONTS:UnityPL.font force")
  207.          )
  208.      (message "\n\n\n\n"
  209.           "Czcionka UnityPL nie znaleziona!")
  210.     )
  211.  
  212.     (if (= (exists "FONTS:ApplePL" (noreq)) 2)
  213.      (
  214.           (run "c/delete >NIL: FONTS:ApplePL all force")
  215.           (run "c/delete >NIL: FONTS:ApplePL.font force")
  216.          )
  217.      (message "\n\n\n\n"
  218.           "Czcionka ApplePL nie znaleziona!")
  219.     )
  220.  
  221.  
  222.     (if (= (exists "FONTS:ThinpazPL" (noreq)) 2)
  223.      (
  224.           (run "c/delete >NIL: FONTS:ThinpazPL all force")
  225.           (run "c/delete >NIL: FONTS:ThinpazPL.font force")
  226.          )
  227.      (message "\n\n\n\n"
  228.           "Czcionka ThinpazPL nie znaleziona!")
  229.     )
  230.  
  231.  
  232.  )
  233. )
  234. (complete 40)
  235.  
  236.  
  237.  
  238. (if (bitand Wynik 16)
  239.  (
  240.     (working "\n\n\nProbuje skasowac czcionki dla MagicWB:\n"
  241.          "XCourierPL, XenPL oraz XHelveticaPL")
  242.  
  243.     (if (= (exists "FONTS:XCourierPL" (noreq)) 2)
  244.      (
  245.           (run "c/delete >NIL: FONTS:XCourierPL all force")
  246.           (run "c/delete >NIL: FONTS:XCourierPL.font force")
  247.          )
  248.      (message "\n\n\n\n"
  249.           "Czcionka XCourierPL nie znaleziona!")
  250.     )
  251.  
  252.     (if (= (exists "FONTS:XenPL" (noreq)) 2)
  253.      (
  254.           (run "c/delete >NIL: FONTS:XenPL all force")
  255.           (run "c/delete >NIL: FONTS:XenPL.font force")
  256.          )
  257.      (message "\n\n\n\n"
  258.           "Czcionka XenPL nie znaleziona!")
  259.     )
  260.  
  261.     (if (= (exists "FONTS:XHelveticaPL" (noreq)) 2)
  262.      (
  263.           (run "c/delete >NIL: FONTS:XHelveticaPL all force")
  264.           (run "c/delete >NIL: FONTS:XHelveticaPL.font force")
  265.          )
  266.      (message "\n\n\n\n"
  267.           "Czcionka XHelveticaPL nie znaleziona!")
  268.     )
  269.  
  270.  )
  271. )
  272. (complete 50)
  273.  
  274.  
  275. (if (bitand Wynik 32)
  276.  (
  277.     (working "\n\n\nProbuje skasowac\n"
  278.             "wszystkie polskie pliki\n")
  279.  
  280.     (if (= (exists "LOCALE:Catalogs/Polski" (noreq)) 2)
  281.          (run "c/delete >NIL: LOCALE:Catalogs/Polski all force")
  282.      (message "\n\n\n\n"
  283.           "Katalog\n"
  284.          "'LOCALE:Catalogs/Polski'\n"
  285.          "nie znaleziony")
  286.     )
  287.  
  288.     (if (= (exists "LOCALE:Countries/polska.country" (noreq)) 1)
  289.          (run "c/delete >NIL: LOCALE:Countries/polska.country force")
  290.      (message "\n\n\n\n"
  291.           "Plik\n"
  292.          "'LOCALE:Countries/polska.country'\n"
  293.          "nie znaleziony")
  294.     )
  295.  
  296.     (if (= (exists "LOCALE:Help/Polski" (noreq)) 2)
  297.          (run "c/delete >NIL: LOCALE:Help/Polski all force")
  298.      (message "\n\n\n\n"
  299.           "Katalog\n"
  300.          "'LOCALE:Help/Polski'\n"
  301.          "nie znaleziony")
  302.     )
  303.  
  304.     (if (= (exists "LOCALE:Languages/polski.language" (noreq)) 1)
  305.          (run "c/delete >NIL: LOCALE:Languages/polski.language force")
  306.      (message "\n\n\n\n"
  307.           "Plik\n"
  308.          "'LOCALE:Languages/polski.language'\n"
  309.          "nie znaleziony")
  310.     )
  311.  )
  312. )
  313. (complete 60)
  314.  
  315.  
  316. (if (bitand Wynik 64)
  317.  (
  318.     (working "\n\n\nProbuje skasowac\n"
  319.             "polskie mapy klawiatury")
  320.  
  321.     (if (= (exists "DEVS:Keymaps/AmigaPL-D" (noreq)) 1)
  322.          (run "c/delete >NIL: DEVS:Keymaps/AmigaPL-D force")
  323.     )
  324.  
  325.     (if (= (exists "DEVS:Keymaps/AmigaPL-USA" (noreq)) 1)
  326.          (run "c/delete >NIL: DEVS:Keymaps/AmigaPL-USA force")
  327.     )
  328.  )
  329. )
  330. (complete 70)
  331.  
  332.  
  333. (if (bitand Wynik 128)
  334.  (
  335.     (working "\n\n\nProbuje skasowa program: AssignWedge")
  336.  
  337.     (if (= (exists "SYS:WBStartup/AssignWedge" (noreq)) 1)
  338.      (
  339.           (run "c/delete >NIL: SYS:WBStartup/AssignWedge force")
  340.           (run "c/delete >NIL: SYS:WBStartup/AssignWedge.info force")
  341.          )
  342.     )
  343.  )
  344. )
  345. (complete 80)
  346.  
  347.  
  348. (if (bitand Wynik 256)
  349.  (
  350.        (if (= (bitand Wynik 2) 0)
  351.     (working "\n\n\nProbuje skasowac program: FontPLPatch")
  352.  
  353.     (if (= (exists "SYS:WBStartup/FontPLPatch" (noreq)) 1)
  354.      (
  355.           (run "c/delete >NIL: SYS:WBStartup//FontPLPatch force")
  356.           (run "c/delete >NIL: SYS:WBStartup//FontPLPatch.info force")
  357.          )
  358.     )
  359.        )
  360.  )
  361. )
  362. (complete 90)
  363.  
  364. (if (= PrzywrocStare 1)
  365.         (if
  366.       (askbool
  367.                 (prompt "\n\n\nCzy chcesz abym przelaczyl\n"
  368.             "system zgodnie z odtworzonymi\n"
  369.             "preferencjami, czy tez chcesz to\n"
  370.             "zrobic recznie?")
  371.                 (help "\n"
  372.                       "      Wprawdzie preferencje zostaly odtworzone\n"
  373.                       " poprawnie, ale Amiga nadal pracuje zgodnie\n"
  374.                       " z poprzednim ustawieniem. Antidotum na ta\n"
  375.                       " sytacje moze byc:\n\n"
  376.                       "  1. wywolanie odpowiednich programów\n"
  377.                       "     systemowych, co tez zostanie zrobione\n"
  378.                       "     jesli skorzystasz z niniejszej opcji\n"
  379.                       "  2. reset komputera, czyli Ctrl+Amiga+Amiga\n"
  380.                       "     (uwaga na pozostale programy i dane!)\n"
  381.                           @askbool-help)
  382.                 (choices "Zrob to" "Wole sama")
  383.       )
  384.           (
  385.            (run "SYS:Prefs/LOCALE ENVARC:Sys/locale.prefs USE")
  386.            (run "SYS:Prefs/INPUT ENVARC:Sys/input.prefs USE")
  387.            (run "SYS:Prefs/FONT ENVARC:Sys/font.prefs USE")
  388.           )
  389.         )
  390. )
  391. (complete 100)
  392.  
  393.  
  394.  
  395. (message "\nGotowe!\n"
  396.      "---------\n"
  397.      "Teraz, teoretycznie, twoja Amiga\n"
  398.      "winna pracowac zgodnie z ustawieniami\n"
  399.      "z czasow przed instalacja pakietu\n\n\n"
  400.      "W.F.M.H. LocalePL\n"
  401.          "\n\nLocalePL © 1994 Marcin Orlowski\n"
  402.      "MR SOFT / World Federation of Mad Hackers"
  403. )
  404. (exit)
  405.