; Nostalgia! 0.9ß installation utility
;
;
; Written by -Hybrid- from MELINA SOFTWORKS
;

;==================================================================
;VARIABLES
;==================================================================
(SET #bienvenue  "Witaj w skrypcie instalacyjnym programu Nostalgia!")

(SET #askinstall "Proszė wybraź miejsce przeznaczenia dla programu Nostalgia!\n Katalog zostanie stworzony")
(SET #aide       "Proszė wybraź miejsce przeznaczenia dla programu Nostalgia. Katalog o nazwie Nostalgia zostanie stworzony (potrzebne jest ok. 300Kb wolnego miejsca)")
(SET #merci      "\n\n\n\n\nDziėkuje !")

;==================================================================

(if (>= (/ @installer-version 65536) 44)
 (
  (effect "center" "radial" $F0F0F0 $A000E0)
  (showmedia "Nostalgia" "Nostalgia.jpg" "upper_center" "none" 0)
 )
)

(welcome #bienvenue)

(set #installdir
        (askdir
                (prompt #askinstall)
                (help #aide)
                (default @default-dest)
        )
)

(copyfiles
    (source "InstallStuff/")
    (dest #installdir)
    (pattern "#?")
)

(if !(exists "sys:prefs/env-archive/WarpSNES")
 (makedir "sys:prefs/env-archive/WarpSNES")
)

(EXIT #merci (QUIET))