;BERET 0.5% Install script by LoPeZ/sECTOr5
(welcome)

(user 2)

(message "\nJeūeli jesteō pewien, ūe chcesz zainstalowaź\n\n\nBERET 0.5%\n\n\ntO\n\nwciōnij\n\nKONTYNUUJ")

(set drawerdest1

  (askdir

     (prompt "Wskaū katalog, do którego mam zainstalowaź BERET 0.5%")

     (help "Katalog BERET_0.5% zostanie automatycznie utworzony.")

     (default "RAM:")
  )
)

(set drawerdest2

       (tackon drawerdest1 "Beret_0.5%")

)

(makedir drawerdest2 (infos))

(makedir

        (tackon drawerdest2 "C")
)


(copyfiles  (source "BERET_0.5%") (dest drawerdest2) (infos))


(copyfiles  (source "BERET_0.5%.data") (dest drawerdest2))


(set fotosfile (exists "FOTOS_AST97.data"))


(if (= fotosfile "1")


    (copyfiles  (source "FOTOS_AST97.data") (dest drawerdest2))


    (copyfiles  (source "FOTOS_AST97:FOTOS_AST97.data") (dest drawerdest2))

)

(copyfiles  (source "C/GetModeID") (dest (tackon drawerdest2 "C")))


(copyfiles  (source "Install") (dest drawerdest2) (infos))

(set votka (exists "· fILLING vOTE ·/ b!charts-.txt.pp"))


(if (= votka "1")


    (copyfiles  (source "· fILLING vOTE ·/ b!charts-.txt.pp") (dest drawerdest2))

    (
        (set votka1 (exists " b!charts-.txt.pp"))


        (if (= votka1 "1")


        (copyfiles  (source " b!charts-.txt.pp") (dest drawerdest2))

        )

    )

)

(set getscreen

        (askbool

           (prompt "Czy mam otworzyź okno do wyboru paramerów ekranu maga?")

           (help "Jeūeli wybierzesz TAK, to otworzy siė okno w którym bėdziesz mógī wybraź typ ekranu na jakim chcesz pracowaź. Opcja ta jest szczególnie przydatna posiadaczom karty graficznej lub monitora wyōwietlajācego obraz w czėstotliwoōci poziomej wiėkszej niū 15 kHz.  Pamiėtaj tylko, ūe BERET 0.5% otwiera ekran w rozdzielczoōci 640x256. Jeūeli wybierzesz NIE zostanie ustawiony tryb PAL:HIRES NOLACE.")

           (choices "TAK" "NIE")

           (default 0)
        )
)

(if
   (= getscreen "1")

(
   (run "C/GetModeID")

   (set teksttooltype (getenv "Beret.prefs"))
)

   (set teksttooltype "$29000")

)


   (tooltype

        (dest (tackon drawerdest2 "Beret_0.5%"))

        (setstack 4096)

        (settooltype "MODE_MAG" teksttooltype)

   )


(set getscreen1

        (askbool

           (prompt "Czy mam otworzyź okno do wyboru parametrów ekranu fotek?")

           (help "Jeūeli wybierzesz TAK, to otworzy siė okno w którym bėdziesz mógī wybraź typ ekranu na jakim chcesz mieź wyōwietlane zdjėcia z party Astrosyn '97. Jeūeli nie masz szybkiego procesora lub przynajmnie Fastu to wybranie rozdzielczoōci pionowej (NOLACE) zwiėkszy dwukrotnie szybkoōź wyōwietlania i bėdzie mniej zabieraīo pamiėci podczas pokazywania zdjėź. Dla osób posiadajācych lepszy sprzėt proponujė HIRES LACED, co poprawi jakoź fotek. Jeūeli wybierzesz NIE zostanie ustawiony tryb PAL:HIRES NOLACE.")

           (choices "TAK" "NIE")

           (default 0)
        )
)

(if
   (= getscreen1 "1")

(
   (run "C/GetModeID")

   (set teksttooltype1 (getenv "Beret.prefs"))

)

   (set teksttooltype1 "$29004")
)

   (tooltype

        (dest (tackon drawerdest2 "Beret_0.5%"))

        (setstack 4096)

        (settooltype "MODE_GAL" teksttooltype1)
   )

(exit "Instalacja magazynu BERET 0.5% przebiegīa bezbīėdnie.\n\n Aby uruchomiź zina kliknij na ikonce BERET_0.5%")