
; +-------------------------v----------------v-------------------------+
; |             PoWeR Installer Script by JaGu of PoWeR TeAm           |
; +-------------------------^----------------^-------------------------+


(complete 0)
(set @default-dest "DH1:")

; Szvegek

(set #Intro-Txt
	(cat "dvzllek a PoWeR 11 HD  Install  programjban.\n"
	"Az installls utn iconrl indthatod az jsgot.\n\n"
	"J szrakozst kvn mindenkinek az jsghoz a \n"
	"PoWeR TeAm !\n\n"
        "FIGYELEM!\n\n"
        "A PoWeR installlshoz legalbb 1.0Mbyte szabad hely szksges!\n"
	)
)

(set #Path-Txt
	(cat "Vlaszd ki a  clknyvtrat. Itt egy j, PoWeR_11 nev "
	"knyvtr kerl ltrehozsra."
	)
)
(set #Path-Help
	(cat "\nItt tudod kivlasztani, az a cl tvonalat, ahova\n"
	"installlni akarod a PoWeR_11-et. Itt egy PoWeR_11 nev"
	"directory-t fog ltrehozni az installer.\n\n"
	"Az alap bellts DH1:\n\n\n"
	@askdir-help
	)
)



; Main

(message #Intro-Txt)
	(set target_dir 
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
	)
)

; Knyvtrak
(set directory_name (substr target_dir (- (strlen target_dir) 1) 1)) 
(set PoWeR_11_dir (cat target_dir "PoWeR_11"))
     (if (NOT (exists power_11_dir))
         (makedir PoWeR_11_dir))
(set directory_name (substr power_11_dir (- (strlen target_dir) 3) 3))
(set data_dir (cat power_11_dir "/Data"))
(if (NOT (exists Data_dir))
         (makedir Data_dir)) 
(set bonus_dir (cat power_11_dir "/Bonus"))
(if (NOT (exists Bonus_dir))
         (makedir Bonus_dir)) 
(set Fonts_dir (cat power_11_dir "/Fonts"))
(if (NOT (exists Fonts_dir))
         (makedir Fonts_dir)) 
(complete 20)



; Data msolsa
(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "Power_11:data")
(dest (tackon target_dir "PoWeR_11/data"))
(pattern "#?")
)

(complete 80)

; Bonus msolsa
(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "Power_11:bonus")
(dest (tackon target_dir "PoWeR_11/bonus"))
(pattern "#?")
)

(complete 87)

; Font-ok msolsa
(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "Power_11:Fonts")
(dest (tackon target_dir "PoWeR_11/Fonts"))
(pattern "#?")
)

(complete 90)

; DrawerIcon kivlre
(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "Power_11:DrawerIcon/")
(dest (tackon target_dir ""))
(pattern "#?")
)

(complete 95)

; A maradk 
(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "Power_11:")
(dest (tackon target_dir "PoWeR_11/"))
(pattern "power_11")
(infos)
)


(complete 100)