(user 1)
;(on error
;	(if (=(exists "S:ETeacher.cnfg") 1)
;		(delete "S:ETeacher.cnfg")
;		(abort "Instalacja przerwana.")
;	)
;)
(set GDZIE (askdir
			(prompt "Proszë wskazaê miejsce, w którym ma byê zainstalowany katalog z ETeacherem.")
			(help "Moûna wpisaê rëcznie, badú wskazaê myszkâ wybrany katalog. Program instalacyjny utworzy katalog ETeacher i skopiuje do niego niezbëdne pliki.")
			(default @default-dest)
		   )
)
(set CEL (tackon gdzie "ETeacher"))
(set DANE (tackon CEL "Data"))
(set @default-dest CEL)

(trap
	(makedir CEL
		(infos)
	)
)

(trap
	(makedir DANE
		(infos)
	)
)
;(trap
;	(makedir (tackon gdzie "ETeacher/Modules")
;	)
;)

(askdisk
	(prompt "Proszë wîoûyê dysk ETeacher do stacji dysków DF0:")
	(dest "ETeacher")
	(help "Powinieneô wîoûyê do stacji DF0: dysk oznaczony ETeacher")
)

(if (=(exists "LIBS:amos.library") 0)
	(copyfiles
		(source "ETeacher:Libs/amos.library")
		(dest "LIBS:")
	)
	(complete 10)
)

(if (=(exists "LIBS:mathtrans.library") 0)
	(copyfiles
		(source "ETeacher:Libs/mathtrans.library")
		(dest "LIBS:")
	)
	(complete 15)
)

(copyfiles
	(source "ETeacher:ETeacher")
	(dest CEL)
)
(copyfiles
	(source "ETeacher:UnProtect")
	(dest CEL)
)
(copyfiles
	(source "ETeacher:HowDoUDo")
	(dest CEL)
)
(copyfiles
	(source "ETeacher:S/eTeacherHD")
	(dest CEL)
        (infos)
)
(complete 25)
(copyfiles
	(source "ETeacher:Modules")
;	(dest (tackon GDZIE "ETeacher/Modules"))
	(dest DANE)
	(all)
)
(complete 40)
(copyfiles
	(source "ETeacher:Fonts")
	(dest "FONTS:")
	(all)
)
(complete 50)
(textfile
	(dest "S:ETeacher.cnfg")
	(append CEL)
	(include "ETeacher:S/ETeacher.INSTALLcnfg")
)
(complete 60)
(askdisk
	(prompt "Proszë wîoûyê dysk ET_Data do stacji dysków DF0:")
	(dest "ET_Data")
	(help "Powinieneô wîoûyê do stacji dysków DF0: dysk oznaczony ET_Data")
)

(makedir (tackon DANE "Multiple_Choice")
	(infos)
)
(makedir (tackon DANE "Strict_Dictionary")
	(infos)
)
(makedir (tackon DANE "Extended_DictionaryGB")
	(infos)
)
(makedir (tackon DANE "Extended_DictionaryPL")
	(infos)
)
(makedir (tackon DANE "Filling_Blanks")
	(infos)
)
(makedir (tackon DANE "Fixed_Word")
	(infos)
)
(makedir (tackon DANE "Phrase_Transformation")
	(infos)
)
(makedir (tackon DANE "Translation_Phrases")
	(infos)
)
(makedir (tackon DANE "Question_Formation")
	(infos)
)

(copyfiles
	(source "ET_Data:Data/Multiple_Choice")
	(dest (tackon DANE "Multiple_Choice"))
	(all)
)
(complete 75)

(copyfiles
	(source "ET_Data:Data/Strict_Dictionary")
	(dest (tackon DANE "Strict_Dictionary"))
	(all)
	(infos)
)
(complete 78)

(copyfiles
	(source "ET_Data:Data/Extended_DictionaryGB")
	(dest (tackon DANE "Extended_DictionaryGB"))
	(all)
)
(complete 80)

(copyfiles
	(source "ET_Data:Data/Extended_DictionaryPL")
	(dest (tackon DANE "Extended_DictionaryPL"))
	(all)
)
(complete 85)

(copyfiles
	(source "ET_Data:Data/Filling_Blanks")
	(dest (tackon DANE "Filling_Blanks"))
	(all)
)
(complete 87)

(copyfiles
	(source "ET_Data:Data/Fixed_Word")
	(dest (tackon DANE "Fixed_Word"))
	(all)
)
(complete 90)

(copyfiles
	(source "ET_Data:Data/Phrase_Transformation")
	(dest (tackon DANE "Phrase_Transformation"))
	(all)
)
(complete 95)

(copyfiles
	(source "ET_Data:Data/Translation_Phrases")
	(dest (tackon DANE "Translation_Phrases"))
	(all)
)
(complete 97)

(copyfiles
	(source "ET_Data:Data/Question_Formation")
	(dest (tackon DANE "Question_Formation"))
	(all)
)
(complete 99)

(copyfiles
	(source "ET_Data:Data/Congratulations.GRA")
	(dest (tackon CEL "Data"))
)
(copyfiles
	(source "ET_Data:Data/Gratulacje.GRA")
	(dest (tackon CEL "Data"))
)
(copyfiles
	(source "ET_Data:Data/Invectives.INV")
	(dest (tackon CEL "Data"))
)
(copyfiles
	(source "ET_Data:Data/Nagany.INV")
	(dest (tackon CEL "Data"))
)
(complete 100)

(exit "Instalacja programu ETeacher zakoïczyîa sië pomyôlnie. Program moûesz uruchomiê od razu klikajâc w jego ikonë (bez resetowania komputera) gdyû nie wymaga on przypisaï ASSIGN.\n\nÛyczymy miîej pracy z programem.")