; This Installer(TM) script installs the separately distributed
; catalogs to your hard disk
; © 1998 DEFECT Softworks, All rights reserved.
;
; Written by Henryk Richter
; Date: 16/Apr/98

(set #EP_Version (cat "2.01"))					;Eagleplayer Version
(set #Space (cat "40"))							;KiloBytes needed for
                                                ;installation.
(set KickVersion (/ (getversion) 65536))
(debug "Kickversion:" Kickversion)

;=========================== English texts ==================================
(set #EPNotFound
(cat "Eagleplayer2: - Assign not found, please Install Eagleplayer V"
     #EP_Version
     " first."
))

(Set #intro
(cat "This procedurce lets you install the catalogs for Eagleplayer V"
     #EP_Version
     " on your hard drive. \n\n"
     " Please make sure you`ve installed Eagleplayer before doing this step.\n\n"
     "For installing of this "
     "package you need about "
     #Space
     " kBytes free space on your harddisk. \n\n\n"
     "Thanks to the ATO members for translating our texts."
))


;=========================== Polski tekst ===================================
;                  tīumaczenie Don Adan/Wanted Team
(if (= @language "Polski")
(

(set #EPNotFound
(cat "Nie znaleziono przypisania Eagleplayer2: ,\n"
     "proszė najpierw zainstalowaź EaglePlayera V"
     #EP_Version
     "."
     
))

(Set #intro
(cat "Ta procedura sīuūy do instalacji katalogów jėzykowych EaglePlayera V"
     #EP_Version
     " na Twoim twardym dysku. \n\n"
     " Proszė siė upewniź, ūe masz zainstalowanego EaglePlayera zanim"
     " uczynisz nastėpny krok.\n\n"
     "W celu zainstalowania tego "
     "pakietu potrzebujesz "
     #Space
     " kilobajtów wolnego miejsca na Twym twardym dysku. \n\n\n"
     "Podziėkowania dla czīonków ATO za przetīumaczenie naszych tekstów."
))

)
)

;============================== Welcome the User ===========================

(complete 0)

;(welcome)
(message #intro)

;====== get target directory where the Eagleplayer is to be installed =====
;=================== ask for the Iconset to install ================================

    (set yo (exists ("Eagleplayer2:") (noreq)))
	(debug "Eagleplayer2 gefunden: " yo)

	(if (= yo 0)
	 (
	  (abort #EPNotFound)
	 )
	)
	  
	(set target "Eagleplayer2:")
	(set @default-dest "Eagleplayer2:")

	(debug "Ziel:" target)

;=========== copy Players,Engines, Catalogs, Docs, Goodies, Developer, Rexxscripts ==

    (copyfiles (source ("Catalogs"))
               (dest (tackon target "Catalogs"))
               (all)
               (optional "force" "nofail")
    )

	(complete 100)

;========================== done =============================================
(exit)