; $VER: ArtEffect_PL 4.0 (30.01.2002)
;  2002 Mariusz Danilewicz <mandi@interia.pl>

(set destdir "ArtEffect:")

(message "Uruchomiony skrypt zainstaluje polsk lokalizacj programu ArtEffect v4.\n"
         "Jeeli nie chcesz zainstalowa polskiej lokalizacji, "
         "prosz wybra \"Przerwij instalacj\".\n"
         "Lokalizacj przygotowana polska sekcja ATO:\n"
         "Tumaczenie i zrzuty ekranu:\nDaniel Sternik <dxs2@wp.pl>\n\n"
         "Korekta, skrypt instalacyjny oraz spolszczenie czcionki helvetica:\nMariusz Danilewicz <mandi@interia.pl>\n\n"
         "Data kompilacji: 2002.01.30\n"
         "Zapraszamy na nasz stron www\nhttp://www.amiga.pl/ato")

(if (<> (exists (tackon destdir "ArtEffect.wizard")) 1)
(set destdir
  (askdir
    (prompt "Prosz wybra katalog, w ktrym zosta zainstalowany ArtEffect v4")
    (help "Naley wybra katalog, w ktrym jest zainstalowany plik gwny programu ArtEffect. Pliki lokalizacyjne zostan skopiowane odpowiednio do nastpujcych katalogw:\n\nArtEffect2.catalog       - Catalogs/polski/\nArtEffect4_polski.guide  - Documents/\nAE_Rexx_polski.guide     - Documents/\nZrzuty ekranu            - Documents\n")
    (default "ArtEffect:")
  )
)
)

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

(complete 10)

(Working "Tworz niezbdne 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 "Documents")) 2)
  (makedir (tackon destdir "Documents") (infos))
)

(complete 20)

(Working "Kopiuj plik ArtEffect2.catalog.")

(copyfiles
 (prompt "Kopiuj plik ArtEffect2.catalog.")
 (source "Pliki/ArtEffect2.catalog")
 (dest (tackon destdir "Catalogs/polski"))
 (newname "ArtEffect2.catalog")
 (help "To jest plik zawierajcy lokalizacj gwnego programu.\nZostanie on umieszcony w katalogu Catalogs/Polski/")
 (optional force)
)

(complete 40)

(Working "Kopiuj polsk dokumentacj.")

(copyfiles
 (prompt "Kopiuj polsk dokumentacj.")
 (source "Pliki/ArtEffect4_polski.guide")
 (dest (tackon destdir "Documents"))
 (newname "ArtEffect4_polski.guide")
 (help "To jest plik zawierajcy polsk dokumentacj.\nZostanie on umieszcony w katalogu Documents/")
 (infos)
 (optional force)
)

(copyfiles
 (prompt "Kopiuj polsk dokumentacj.")
 (source "Pliki/AE_Rexx_polski.guide")
 (dest (tackon destdir "Documents"))
 (newname "AE_Rexx_polski.guide")
 (help "To jest plik zawierajcy polsk dokumentacj.\nZostanie on umieszcony w katalogu Documents/")
 (infos)
 (optional force)
)

(copyfiles
 (prompt "Kopiuj zrzuty ekranu.")
 (source "Pliki/Obrazki")
 (dest (tackon destdir "Documents"))
 (all)
 (help "S to pliki zrzutw ekranu do ktrych odwouje si dokumentacja.\nZostan one umieszcone w katalogu Documents/")
 (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"
                  "Jeli tak, to zostan skopiowane nastpujce rozmiary czcionki: "
                  "9, 11, 13, 15, 18 i 24.\n\n"
                  "Jeli w Twoim systemie jest ju zainstalowana czcionka helvetica, "
                  "zostanie ona skasowana i zastpiona przez now.\n\n"
                  "Po zainstalowaniu czcionki zostanie uruchomiony program FixFonts, "
                  "w celu zapobiegnicia 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 moe chwil potrwa...")

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

(complete 95)

(Working "Kasuj plik Settings/plugin.db.")

(if (= (exists (tackon destdir "Settings/plugin.db")) 1)
  (delete (tackon destdir "Settings/PlugIn.db")
     (prompt "Kasuj plik Settings/plugin.db.")
     (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\nArtEffect v4 "
      "zostaa zakoczona pomylnie.\n\n"
      "Zapraszamy na nasz stron www\nhttp://www.amiga.pl/ato")


