
;****************************************************************************
;--------------PoWeR HD install script v1.2 generated by ZOZO/PoWeR TeAm-----
;-------------------------        1996 mjus     ---------------------------- 
;****************************************************************************


(complete 0)
(run "bin/sync SCRIPT=INSTALL.BAT")
(set @default-dest "Work:")

;*TEXTS*

(set #Intro-Txt
	(cat "dvzllek a PoWeR 13.HD  Install  programjban.\n"
	"Az installls utn iconrl indthatod az jsgot.\n\n\n\n\n\n"
	"J szrakozst kvn mindenkinek az jsghoz a \n"
	"PoWeR TeAm !\n"
	)
)
(set #Warning-Txt
	(cat "FIGYELEM !!!\n\n\n"
	"A PoWeR 13. szma 1 Mbyte res helyet ignyel a winydrl !!! \n\n"
	"Ha van ennyi res helyed, akkor megkezdheted az installcit...\n\n"
	)
)
(set #Path-Txt
	(cat "Vlaszd ki a  clknyvtrat. Itt egy j, PoWeR_13 nev "
	"knyvtr kerl ltrehozsra."
	)
)
(set #Path-Help
	(cat "\nThis section lets you choose the "
	"target directory to install PoWeR_issue_13. \n\n"
	"A directory PoWeR_13 will be created there.\n\n"
	"Default is Work:\n\n\n"
	@askdir-help
	)
)



;*INSTALL THE MAIN FILES*

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

(set directory_name (substr target_dir (- (strlen target_dir) 1) 1)) 
(set PoWeR_13_dir (cat target_dir "/PoWeR_13"))
     (if (NOT (exists PoWeR_12_dir))
         (makedir PoWeR_13_dir))
(set directory_name (substr PoWeR_13_dir (- (strlen target_dir) 3) 3))
(set data_dir (cat PoWeR_13_dir "/Data"))
(if (NOT (exists Data_dir))
         (makedir Data_dir)) 
(set bonus_dir (cat PoWeR_13_dir "/Bonus"))
(if (NOT (exists Bonus_dir))
         (makedir Bonus_dir)) 
(set Fonts_dir (cat PoWeR_13_dir "/Fonts"))
(if (NOT (exists Fonts_dir))
         (makedir Fonts_dir)) 





(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "PoWeR_13:data")
(dest (tackon target_dir "PoWeR_13/data"))
(pattern "#?")
)

(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "PoWeR_13:bonus")
(dest (tackon target_dir "PoWeR_13/bonus"))
(pattern "#?")
)

(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "PoWeR_13:Fonts")
(dest (tackon target_dir "PoWeR_13/Fonts"))
(pattern "#?")
)

(set @default-dest target_dir)
(copyfiles            
(help @copy-files-help)
(source "PoWeR_13:")
(dest (tackon target_dir "PoWeR_13/"))
(pattern "PoWeR_13")
(infos)
)


(complete 100)