home *** CD-ROM | disk | FTP | other *** search
- ;***************************************************************************
- ; * $VER: Install Plug-Ins (04-31-98)
- ; * Script written by Eckhard Ludwig
- ;***************************************************************************
-
- (set #defaultdest "DOpus5:")
- (set #current_version "3.1")
- (set #lng @language)
-
- ;****************************************************************************
-
- (set #intro1 (cat
- "Opus MPEGA PPC "
- #current_version
- "\nThe Definitive MPEG Audio Player for Directory Opus5\n"
- "©1998 by Eckhard Ludwig"
- ))
-
- ;***************************************************************************
- ; deutsche Texte
- ;***************************************************************************
-
- (if (= #lng "deutsch")
- (
- (set #Opt 1)
- (set #INFO (cat "Dieser Skript installiert eine neue Oberfläche (Knopfbank).\n\n"
- "Die Knopfbank benötigt die newicons.library 40.1 (Newicons muß installiert sein).\n"
- "Für die Opus5 Workbench sind 256 oder mehr Farben empfohlen. "
- "Weniger Farben sollten mit 'Einstellungen für Newicons/Bild dithern' möglich sein."
- ))
- (set ButtonPrompt "Kopiere Buttonbank ...")
- (set #createdir "Erstelle Verzeichnis ...")
- (set #t_oldinstaller
- (cat
- "Die benutzte Version des Programmes Installer ist leider zu alt!"
- " Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
- " fortgesetzt werden, es können allerdings Fehler auftreten!\n\n"
- "Möchten sie fortfahren?"
- ))
- (set #t_oldinstallerhelp
- (cat
- " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
- " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
- " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
- ))
-
- (set #exitMsg (cat
- "Aktivieren der neuen Buttonleiste:\n\n"
- "Wähle im Menü des Applicationsicon den Punkt 'Player Knopfleiste'.\n\n"
- "Viel Spaß mit Opus MPEGA\nfür Directory Opus5.5+ wünscht\nEckhard Ludwig")
- )
- )
-
- ;******************************************************************************************************
- ; english
-
- (
- (set #Opt 2)
-
- (set #info (cat "You install the first plug-ins for OpusMPEGA.\n\n"
- "This Plugins represents a new graphic user surface.\n"
- "newicon.library V40.1 is required!\n"
- ))
-
- (set ButtonPrompt "Copy buttons ...")
- (set #createdir "Create Dir ...")
-
- (set #t_oldinstaller
- (cat
- " You have an old version of the Installer. I'll probably"
- " need version 43.3 or greater. You can continue anyway"
- " but there is no guarantee it will work as it's supposed"
- " to do.\n\n"
- " Do you wish to continue anyway?"
- ))
- (set #exitMsg (cat "The new GUI is called over the OpusMPEGA appicon with selection of the menu option 'Player buttons'.\n\n"
- "Much fun with Opus MPEGA for DirectoryOpus5.5+ wish you\nEckhard Ludwig")
- )
- ))
-
- ;***************************************************************************
-
- (if (< @installer-version (+ (* 43 65536) 3))
- (
- (if (not (askbool
- (prompt #t_oldinstaller)
- (help #t_oldinstallerhelp)
- ))
- (
- (abort (cat "\n\n" #t_oldinstallerhelp))
- ))
- ))
-
- ;***************************************************************************
-
- (message #intro1 "\n\n" #INFO)
- (welcome)
-
-
- ;***************************************************************************
- ; copy buttons
- ;***************************************************************************
-
- (copyfiles
- (prompt ButtonPrompt)
- (help @copyfiles-help)
- (source "buttons")
- (dest (tackon #defaultdest "Buttons"))
- (optional "force" "askuser")
- (safe)
- (pattern "#?")
- (files)
- )
-
- (makedir (tackon #defaultdest "Images/OpusMPEGA.images")
- (prompt #createdir)
- )
-
- (copyfiles
- (prompt ButtonPrompt)
- (help @copyfiles-help)
- (source "Images/OpusMPEGA.images")
- (dest (tackon #defaultdest "Images/OpusMPEGA.images"))
- (optional "force" "askuser")
- (safe)
- (pattern "#?")
- (files)
- )
-
- (exit #exitMsg (quiet))
-