; $VER: AmigaWriter_PL 2.20 (22.10.2001)
; © 2001 Mariusz Danilewicz <mandi@interia.pl>

(set destdir "AmigaWriter:")

(message "Uruchomiony skrypt zainstaluje polskâ lokalizacjë programu AmigaWriter 2.20.\n"
         "Jeûeli nie chcesz zainstalowaê polskiej lokalizacji, "
         "proszë wybraê \"Przerwij instalacjë\".\n"
         "Lokalizacjë przygotowana polska sekcja ATO:\n"
         "Tîumaczenie, skrypt instalacyjny oraz spolszczenie czcionki helvetica:\nMariusz Danilewicz <mandi@interia.pl>\n\n"
         "Korekta:\nDaniel Sternik <dxs2@wp.pl>\n\n"
         "Data kompilacji: 2001.10.15\n"
         "Zapraszamy na naszâ stronë www\nhttp://www.amiga.pl/ato")

(if (<> (exists (tackon destdir "AmigaWriter.wizard")) 1)
(set destdir
  (askdir
    (prompt "Proszë wybraê katalog, w którym zostaî zainstalowany AmigaWriter v2.20")
    (help "Naleûy wybraê katalog, w którym jest zainstalowany plik gîówny programu AmigaWriter. Pliki lokalizacyjne zostanâ skopiowane odpowiednio do nastëpujâcych katalogów:\n\nAmigaWriter.catalog       - Catalogs/polski/\nPicture.catalog           - AWPlugIn/Catalogs/polski\nAmigaWriter_polski.guide  - Manual.")
    (default "AmigaWriter:")
  )
)
)

(if (<> (exists (tackon destdir "AmigaWriter.wizard")) 1)
  (abort "Nie znaleziono programu AmigaWriter, instalacja przerwana.")
)

(complete 10)

(Working "Tworzë niezbëdne katalogi.")

(if (<> (exists (tackon destdir "Catalogs")) 2)
  (makedir (tackon destdir "Catalogs"))
)

(if (<> (exists (tackon destdir "Catalogs/polski")) 2)
  (makedir (tackon destdir "Catalogs/polski"))
)

(if (<> (exists (tackon destdir "AWPlugIn/Catalogs")) 2)
  (makedir (tackon destdir "AWPlugIn/Catalogs"))
)

(if (<> (exists (tackon destdir "AWPlugIn/Catalogs/polski")) 2)
  (makedir (tackon destdir "AWPlugIn/Catalogs/polski"))
)

(if (<> (exists (tackon destdir "Manual")) 2)
  (makedir (tackon destdir "Manual") (infos))
)

(complete 20)

(Working "Kopiujë plik AmigaWriter.catalog.")

(copyfiles
 (prompt "Kopiujë plik AmigaWriter.catalog.")
 (source "Pliki/AmigaWriter.catalog")
 (dest (tackon destdir "Catalogs/polski"))
 (newname "AmigaWriter.catalog")
 (help "To jest plik zawierajâcy lokalizacjë gîównego programu.\nZostanie on umieszcony w katalogu Catalogs/Polski/")
 (optional force)
)

(complete 40)

(Working "Kopiujë plik Picture.catalog.")

(copyfiles
 (prompt "Kopiujë plik Picture.catalog.")
 (source "Pliki/Picture.catalog")
 (dest (tackon destdir "AWPlugIn/Catalogs/polski"))
 (newname "Picture.catalog")
 (help "To jest plik zawierajâcy lokalizacjë dodatku Picture.\nZostanie on umieszcony w katalogu AWPlugIn/Catalogs/Polski/")
 (optional force)
)

(complete 50)

(Working "Kopiujë polskâ dokumentacjë.")

(copyfiles
 (prompt "Kopiujë polskâ dokumentacjë.")
 (source "Pliki/AmigaWriter_polski.guide")
 (dest (tackon destdir "Manual"))
 (newname "AmigaWriter_polski.guide")
 (help "To jest plik zawierajâcy polskâ dokumentacjë.\nZostanie on umieszcony w katalogu Manual/")
 (infos)
 (optional force)
)

(Working "Kopiujë plik Czytaj_to.")

(copyfiles
 (prompt "Kopiujë plik Czytaj_to.")
 (source "Czytaj_to")
 (dest destdir)
 (newname "Czytaj_to")
 (help "")
 (infos)
 (optional force)

)

(complete 80)

(if (=
       (askbool
          (prompt "Czy chcesz zainstalowaê spolszczonâ czcionkë bitmapowâ helvetica?\n\n"
                  "Jeôli tak, to zostanâ skopiowane nastëpujâce rozmiary czcionki: "
                  "9, 11, 13, 15, 18 i 24.\n\n"
                  "Jeôli w Twoim systemie jest juû zainstalowana czcionka helvetica, "
                  "zostanie ona skasowana i zastâpiona przez nowâ.\n\n"
                  "Po zainstalowaniu czcionki zostanie uruchomiony program FixFonts, "
                  "w celu zapobiegniëcia ewentualnym problemom z rozmiarami czcionek."
          )
          (help "")
          (choices "Tak" "Nie")
       )
    1)
 (

  (Working "Kasujë starâ czcionkë helvetica")

  (delete "fonts:helvetica.font"
     (prompt "Kasujë starâ czcionkë helvetica")
     (help "")
     (optional force)
  )

  (Working "Kasujë starâ czcionkë helvetica")

  (delete "fonts:helvetica/#?"
     (prompt "Kasujë starâ czcionkë helvetica")
     (help "")
     (optional force)

  )


  (Working "Kopiujë czcionkë bitmapowâ helvetica.")

  (copyfiles
    (prompt "Kopiujë czcionkë bitmapowâ helvetica.")
    (help "")
    (source "Pliki/Czcionki/")
    (dest "fonts:")
    (all)
    (optional force)

  )

  (Working "Uruchamiam program FixFonts.\n\nTo moûe chwilë potrwaê...")

  (run "sys:system/fixfonts")
 )
)

(complete 95)

(Working "Kasujë plik Settings/PlugIns.")

(if (= (exists (tackon destdir "Settings/PlugIns")) 1)
  (delete (tackon destdir "Settings/PlugIns")
     (prompt "Kasujë plik Settings/PlugIns.")
     (help "Plik ten musi zostaê skasowany, zostanie on na nowo stworzony przy pierwszym uruchomieniu programu AmigaWriter")
     (optional force)
  )
)

(set @default-dest destdir)

(complete 100)

(exit "Instalacja polskiej lokalizacji programu\nAmigaWriter 2.20 "
      "zostaîa zakoïczona pomyôlnie.\n\n"
      "Zapraszamy na naszâ stronë www\nhttp://www.amiga.pl/ato")