; * $VER: Install Animplaer for Opus5 1.0 (30-Jan-96) ; * Script written by Eckhard Ludwig ;============================================================================= (complete 0) (set defaultdest "DOpus5:Arexx") (set GuideDir "Dopus5:") (set Opt 2) (set PrefsPrompt "Settings for the installed programmes.") (set MPEGPrompt "Found old settings for SHOW_DT.dopus5.\n\nSelect 'no' for install new settings !") (set MPPrompt "SHOW_DT.dopus5 needed ") (set MPPrompt2 "\nPlease select drawer or path do Player !") (set MPERROR " is not installed or error do path !\nPlease install mpeg_play (from the amipeg05.lha package) do SYS:C/mpeg_play") (set PRPrompt "Please select your prozessor") (set GRAFIKPrompt "Please select Amigagrafik or Grafik-Card.") (set SCREENPrompt "Please select Screenmode.") (set GuidePrompt "For programm exists guide.") (set GuideDirPrompt "Please select drawer for guide.") (set InstallPrompt "Which of the following locale should be installed ?") (set Opus5DirPrompt "DirectoryOpus not found ?\nPlease select path do DirectoryOpus !") (set Opus5Message "Is DirectoryOpus correct installed ?\nPlease select drawer do DirectoryOpus5 or install DirectoryOpus5 first !") (set Opus5Help "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !") (set Opus5Old "Is version of DirectoryOpus 5.11 or later ?\n\nInstall programmes ?") (set Deinstallprompt "Newer version of programmes exists!\nIm this delete ??") (set Opus5OHelp "I need Version 5.11 or later of Directory Opus! Test version, see mpeg.readme.") (set ArexxDirPrompt "Please select Arexx-Drawer for Playerscript !") (set RexxPrompt "I need Arexx for run programmes.\n\nKlick 'Proceed' for add line\n'SYS:System/Rexxmast >NIL:'\ndo your 'User-Startup'") (set PlayerCopyPrompt "Copy player ...") (set LocaleCopyPrompt "Copy cataloges ...") (set FiletypesPrompt "Copy filetypes ...") (set GuideCopyPrompt "Copy guide ...") (set ToolsCopyPrompt "Copy external players ...") (set OpusEdit "Defaultdir for players is not standard (Dopus5:Arexx)!\nEdit Arexx-path AudioCD-Buttons and Filetypes.") (SET #exitMsg (CAT "Much fun with Programmes\nfor DirOpus5 wish you\n\n" "Eckhard Ludwig" ) ) ; deutsche Texte ***************************** (IF (= @language "deutsch") ( (set Opt 1) (set PrefsPrompt "Die neu installierten Programme müssen jetzt konfiguriert werden.\n\nEs werden Angaben zu Ihrem Amigasystem benötigt.") (set MPEGPrompt "Es ist bereits eine Konfigurationsdatei für SHOW_DT.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?") (set MPPrompt "SHOW_DT.dopus5 benötigt als externen Player ") (set MPPrompt2 "\nBitte wählen Sie die Schublade, wo der Player installiert wurde, oder 'Weiter' !") (set MPERROR " ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung benutzen, falls sie mpeg_play noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.") (set PRPrompt "Bitte wählen Sie den Prozessortyp ihres Amiga.") (set GRAFIKPrompt "Bitte wählen Sie die gewünschte Grafik bzw. die verwendete Grafikkarte.") (set SCREENPrompt "Bitte wählen Sie die gewünschte Bildschirmdarstellung (Screenmode).") (set GuidePrompt "Für das Programm existiert eine deutsche Anleitung.\n\nDiese können sie jetzt in ihre bevorzugte Schublade für Dokumentdateien installieren.") (set GuideDirPrompt "Wohin soll die deutsche Anleitung kopiert werden?") (set Installprompt "Bitte wählen Sie für die Programme Ihre bevorzugte(n) Sprachversion(en). Weitere Sprachen können auch nachträglich installiert werden.") (set Opus5DirPrompt "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!") (set Opus5Message "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !") (set Opus5Help "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !") (set Opus5Old "Für die zu installierenden Programme wird mindesten Version 5.11 von DirectoryOpus benötigt.\n(siehe mpeg.readme).\nSollen die Programme installiert werden ?") (set Deinstallprompt "Es ist bereits eine neuere Version des Player installiert!\nSoll dieser wirklich ersetzt werden ?") (set Opus5OHelp "Ich benötige mindesten V5.11 von DirectoryOpus!") (set ArexxDirPrompt "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !") (set RexxPrompt "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.") (set PlayerCopyPrompt "Kopiere Player ...") (set LocaleCopyPrompt "Kopiere Cataloge ...") (set FiletypesPrompt "Kopiere Filetypes ...") (set GuideCopyPrompt "Kopiere Anleitung ...") (set ToolsCopyPrompt "Kopiere Softwareplayer ...") (set OpusEdit "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx).") (SET #exitMsg (CAT "Viel Spaß mit den Programmen\nfür DirOpus5 wünscht\n\n" "Eckhard Ludwig" ) ) ) ) ;********************************************* ; check if Directory Opus 5 is already installed ; check Version (if (not (exists "DOpus5:DirectoryOpus" (noreq))) ((message Opus5Message) (set Opus5path (askdir (prompt Opus5DirPrompt) (help @askdir-help) (default "Work:"))) (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq))) (abort Opus5Help)) (makeassign "Dopus5" Opus5path (safe)) )) (if (> 327691 (getversion "DOpus5:DirectoryOpus")) (if (not (askbool (prompt Opus5Old) (help Opus5OHelp) (default 0))) (abort Opus5OHelp)) ) ;********************************************* ; expertentest & versionstest older version (if (= @user-level 2) (if (not (exists defaultdest (noreq))) (set defaultdest (askdir (prompt ArexxDirPrompt) (help @askdir-help) (default "Rexx:") )))) (set @default-dest defaultdest) (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq)) ((set version (getversion ("dopus5:arexx/SHOW_DT.dopus5"))) (if (> version (getversion "Arexx/SHOW_DT.dopus5")) (if (not (askbool (prompt Deinstallprompt) (help @askbool-help) (default 0))) (exit (quiet))) ))) ;********************************************* ; copy the files (copyfiles (prompt PlayerCopyPrompt) (help @copyfiles-help) (source "arexx") (dest defaultdest) (pattern "#?.dopus5") (confirm "EXPERT") (optional "force") ) (complete 15) (IF (= @language "All") (set Opt 511)) (set installchoice (askoptions (prompt InstallPrompt) (help @askoptions-help) (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska") (default Opt) )) (IF (BITAND installchoice 1) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/deutsch") (dest "SYS:Locale/Catalogs/deutsch") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 4) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/dansk") (dest "SYS:Locale/Catalogs/dansk") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 8) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/français") (dest "SYS:Locale/Catalogs/français") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 16) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/italiano") (dest "SYS:Locale/Catalogs/italiano") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 32) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/nederlands") (dest "SYS:Locale/Catalogs/nederlands") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 64) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/norsk") (dest "SYS:Locale/Catalogs/norsk") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 128) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/suomi") (dest "SYS:Locale/Catalogs/suomi") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (IF (BITAND installchoice 256) (copyfiles (prompt LocaleCopyPrompt) (help @copyfiles-help) (source "Locale/Catalogs/svenska") (dest "SYS:Locale/Catalogs/svenska") (pattern "#?.catalog") (confirm "EXPERT") (optional "force") )) (complete 35) ;********************************************* ; copy filetypes (copyfiles (prompt FiletypesPrompt) (help @copyfiles-help) (source "filetypes") (dest "DOpus5:filetypes") (optional "force") (confirm "EXPERT") (pattern "#?") (files) ) (complete 55) ;********************************************* ; copy tools (copyfiles (prompt ToolsCopyPrompt) (help @copyfiles-help) (source "c") (dest "SYS:C") (pattern "#?") (optional "force") (confirm "EXPERT") (files) ) (complete 65) ;********************************************* ; ADD REXX TO USER-STARTUP (if (startup "ARexx" (prompt RexxPrompt) (help @startup-help) (command "SYS:System/RexxMast >NIL:") ) (run "SYS:System/RexxMast >NIL:") ) ;********************************************* ; set prefs (message PrefsPrompt) (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq)) ((set MPEG_flag 1) (if (exists ("ENVARC:SHOW_opus5.prefs") (noreq)) (if (askbool (prompt MPEGPrompt) (help " ") (default 1)) (set MPEG_flag 0)) ))) (if (= MPEG_flag 1) ( ((set PROZ (askchoice (prompt PRPrompt) (help @askchoice-help) (choices "68020/68030" "68040/68060") (default 0) ))) (set MPEGPLAY "mpeg_play.020") (if (= PROZ 1) (set MPEGPLAY "mpeg_play.040")) ((set MPEGDir "C:") (if (<> 1 (exists (tackon MPEGDir MPEGPLAY))) (until (= flag_1 1) ((set MPEGDir (askdir (prompt (CAT MPPrompt MPEGPLAY MPPrompt2)) (help @askdir-help) (default "C:") )) (if (<> 1 (exists (tackon MPEGDir MPEGPLAY))) (if (askbool (prompt (CAT MPEGPLAY MPERROR)) (help " ")) ((set flag_1 1) (set MPEGDir "C:"))) (set flag_1 1)) )) ) ) (set MPPLAYER (tackon MPEGDir MPEGPLAY)) (set GRAFIK (askchoice (prompt GRAFIKPrompt) (help @askchoice-help) (choices "Gray" "Color" "HAM6" "Hires HAM (Default AGA)" "Cybergrafix (Default Cgfx)") (default 4) )) ((if (= GRAFIK 0) (set MPOPTION "dither color")) (if (= GRAFIK 1) (set MPOPTION "dither color")) (if (= GRAFIK 2) (set MPOPTION "dither ham6")) (if (= GRAFIK 3) (set MPOPTION "dither hiresham")) (if (= GRAFIK 4) (set MPOPTION "dither cybergfx")) ) (set MPOPTION2 " ") (if (OR (= GRAFIK 4) (= GRAFIK 5)) ((set SCREEN (askchoice (prompt SCREENPrompt) (help @askchoice-help) (choices "320x240x16M" "640x480x16M" "800x600x16M" "Selectable") (default 1) )) ((if (= SCREEN 0) (set MPOPTION2 " modeid 40120050")) (if (= SCREEN 1) (set MPOPTION2 " modeid 40120051")) (if (= SCREEN 2) (set MPOPTION2 " modeid 40120052")) (if (= SCREEN 3) (set MPOPTION2 " ")) ))) (textfile (dest "ENVARC:show_opus5.prefs") (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2)) ) (textfile (dest "ENV:show_opus5.prefs") (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2)) ) )) ;********************************************* ; set guidedir (message GuidePrompt) (if (>= @user-level 1) (set GuideDir (askdir (prompt GuideDirPrompt) (help @askdir-help) (default "DOpus5:") ))) (copyfiles (prompt GuideCopyPrompt) (help @copyfiles-help) (source "show.readme") (dest GuideDir) (confirm "EXPERT") (optional "force") (infos) ) (copyfiles (prompt GuideCopyPrompt) (help @copyfiles-help) (source "show.guide") (dest GuideDir) (confirm "EXPERT") (optional "force") (infos) ) (complete 100) (if (<> defaultdest "DOpus5:Arexx") (message OpusEdit)) (delete (tackon GuideDir ".info")) (EXIT #exitMsg )