home *** CD-ROM | disk | FTP | other *** search
- ; * $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 )
-