; * $VER: Install PlayCDDA_YACDP.dopus5 V1.3 (15.8.95)
; * Script written by Eckhard Ludwig
;=============================================================================
; check if Directory Opus 5 is already installed

(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
    (abort "Directory Opus 5 muß installiert sein.\nInstall Directory Opus5 first !")
)

;=============================================================================
; copy the files

(complete 0)

(set @default-dest "DOpus5:arexx")
(set GuideDirPrompt 	"Please select drawer for: \nPlayCDDA_YACDP.guide and playcd.readme.")
(set GuideCopyPrompt	"Copy guide ...")
(set GuideCopyPrompt2	"Copy checktools ...")
(SET #exitMsg (CAT "Much fun with Players wish you\n\n"
                   "Eckhard Ludwig" ) )

; deutsche Texte *****************************

(IF (= @language "deutsch")
(
(set GuideDirPrompt 	"Wohin soll die deutsche Anleitung \n(PlayCDDA_YACDP.guide) kopiert werden?")
(set GuideCopyPrompt	"Kopiere Anleitung ...")
(set GuideCopyPrompt2	"Kopiere Checktools ...")
(SET #exitMsg (CAT "Viel Spaß mit den Audioplayers wünscht\n\n"
                   "Eckhard Ludwig" ) )

)

)
;*********************************************

(copyfiles
   (source "arexx")
   (dest "DOpus5:arexx")
   (pattern "#?")
   (files)
)

(complete 25)

(copyfiles
   (source "buttons")
   (dest "DOpus5:buttons")
   (pattern "#?")
   (files)
)

(complete 50)

(copyfiles
   (source "filetypes")
   (dest "DOpus5:filetypes")
   (pattern "#?")
   (files)
)

(complete 75)

(set GuideDir (askdir
	(prompt GuideDirPrompt)
	(help	@askdir-help)
	(default "DOpus5:")
))

(makedir (tackon GuideDir "Check"))
(makedir (tackon GuideDir "Pics"))

(copyfiles
	(prompt	GuideCopyPrompt)
	(help	@copyfiles-help)
	(source "PlayCDDA_YACDP.guide")
	(dest	GuideDir)
	(infos)
)

(copyfiles
	(prompt	GuideCopyPrompt)
	(help	@copyfiles-help)
	(source "playcd.readme")
	(dest	GuideDir)
	(infos)
)

(copyfiles
	(prompt	GuideCopyPrompt)
	(help	@copyfiles-help)
	(source "snapshot.gif")
	(dest	GuideDir)
	(infos)
)

(copyfiles
	(prompt	GuideCopyPrompt)
	(help	@copyfiles-help)
	(source "zgif00")
	(dest	GuideDir)
)

(complete 90)

(copyfiles
	(prompt	GuideCopyPrompt2)
	(help	@copyfiles-help)
	(source "Check")
	(dest	(tackon GuideDir "Check"))
        (pattern "#?")
        (files)
)

(copyfiles
	(prompt	GuideCopyPrompt2)
	(help	@copyfiles-help)
	(source "Pics")
	(dest	(tackon GuideDir "Pics"))
        (pattern "#?")
        (files)
)

(complete 100)

(EXIT #exitMsg )