; AmBoS-Fix generated on Sunday 08-Oct-00 10:34:31. (set #UpdateVersion "08102000") ; $VER: AmBoS-Install 1.8 (24.02.00) © 2000 AmBoS-Team ; BEGIN AmBoS-Install.header (set #language (getenv "Language")) (set @default-dest "BBS:") (set #ConfirmOverwrite 2) ; 0 = no prompting, 1 = always prompt, 2 = prompt and ask (complete 0) (user 2) ; ---------------------------------------------------------------------- ; --- procedure to check if a given file is stored in a wrong place (procedure WrongFile (if (exists #CheckFilename) ( (message (#WrongFile-Msg #CheckFilename #RightDrawer)) ) ( (working (#Checking-File #CheckFilename)) ) ) ) ; ---------------------------------------------------------------------- ; --- procedure to check if a given file is present (procedure CheckFile (if (not (exists #CheckFilename)) ( (message (#CheckFile-Msg #CheckFilename)) ) ( (working (#Checking-File #CheckFilename)) ) ) ) ; ---------------------------------------------------------------------- ; --- procedure to check if the version command 40.3 is installed (procedure CheckVersionCmd (set #vernum 0) (set #vernum (getversion "c:version")) (set #verversion (/ #vernum 65536) ) (set #verrevision (- #vernum (* #verversion 65536) ) ) (set #OldVersionCmd (cat "\nYour 'version' command should be updated.\n\n" "You have currently installed the version %ld.%ld, it " "is recommanded to use version 40.3 or higher.\n\n" "AmBoS related tools may use this command so you " "better update this AmigaOS command file.\n\n" "Consult your local dealer or the AmBoS support.")) (if (= #language "deutsch") ( (set #OldVersionCmd (cat "\nIhr derzeitiger 'version'-Befehl Version %ld.%ld " "sollte aktualisiert werden. Es wird empfohlen, " "die Version 40.3 oder höher einzusetzen.\n\n" "AmBoS-Tools könnten diesen Befehl benutzen, " "daher sollten Sie diesen AmigaOS-Befehl mit " "einer neueren Version ersetzen.\n\n" "Bitte sprechen Sie Ihren örtlichen Händler " "oder den AmBoS-Support an.")) ) ) (if (< #verversion 40) ( (message (#OldVersionCmd #verversion #verrevision)) ) ( (if (= #verversion 40) ( (if (< #verrevision 3) ( (message (#OldVersionCmd #verversion #verrevision)) ) ) ) ) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to add the s protection flag to a specified file (procedure MakeScript (working #Checking-Files) (if (exists #Scriptname) ( (protect #Scriptname ("+s")) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to copy a file only if the dest file is not existing (procedure NotExistCopy (working (#Checking-File #Copy-SourceFile)) (set #iNotExistCopy-Source "%s%s") ; full path (set #iNotExistCopy-Dest "%s%s") ; full path (if (not (exists (#iNotExistCopy-Dest #Copy-DestDir #Copy-SourceFile))) ( (copyfiles (source (#iNotExistCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") ) ) ) ) ; ---------------------------------------------------------------------- ; --- procedure to create all AmBoS related drawers (procedure CreateDirs (set #CreateDirs-Text (cat "\n\nChecking AmBoS directory structure...")) (if (= #language "deutsch") ( (set #CreateDirs-Text (cat "\n\nÜberprüfe AmBoS-Verzeichnisstruktur...")) ) ) (working #CreateDirs-Text) (makedir "BBS:AutoPoints") (makedir "BBS:Batchdateien") (makedir "BBS:Catalogs") (makedir "BBS:Catalogs/deutsch") (makedir "BBS:Catalogs/english") (makedir "BBS:Catalogs/français") (makedir "BBS:Externe") (makedir "BBS:Externe/Anrufer") (makedir "BBS:Externe/ExtraHeader") (makedir "BBS:Externe/FL2Guide") (makedir "BBS:Externe/PointTool") (makedir "BBS:Guidefiles" (infos)) (makedir "BBS:Guidefiles/deutsch" (infos)) (makedir "BBS:HilfsTexte") (makedir "BBS:Libs") (makedir "BBS:Modules") (makedir "BBS:Netz") (makedir "BBS:Netz/AutoPoint") (makedir "BBS:Netz/Batchdateien") (makedir "BBS:Netz/Systeme") (makedir "BBS:Netz/Texte") (makedir "BBS:Netz/Texte/MapsRouter") (makedir "BBS:Netz/Texte/MapsHilfe") (makedir "BBS:Netz/Texte/MapsBefehle") (makedir "BBS:OnlineMenu") (makedir "BBS:OnlineMenu/Hilfe") (makedir "BBS:OnlineMenu/Hintergründe") (makedir "BBS:OnlineMenu/Rahmen") (makedir "BBS:Protokolle") (makedir "BBS:Root") (makedir "BBS:Setup") (makedir "BBS:Texte") (makedir "BBS:Texte/deutsch") (makedir "BBS:Texte/english") (makedir "BBS:Texte/français") (makedir "BBS:Toolbox" (infos)) (makedir "BBS:User") (makedir "BBS:User/FIRSTLOG") (makedir "BBS:WBStartup" (infos)) (makedir "BBS:ChangesFiles") ) ; ---------------------------------------------------------------------- ; --- procedure to create the text file "BBS:Setup/Usernamen.Verboten", ; if not present (procedure UsernamenVerboten (if (not (exists "BBS:Setup/Usernamen.verboten")) ( (working "BBS:Setup/Usernamen.verboten...") (set #BadUsernames (cat "Sysop#?\nZerberus\nJanus\nJanus2\nZCONNECT\nMaps\n" "CoSysop#?\nCoSysops\nSys0p#?\nAmBoS\n#?Hitler#?\n" "#?Saddam#?\n")) (textfile (dest "BBS:Setup/Usernamen.verboten") (append #BadUsernames) ) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to ask user if all files may be overwritten ; after selection choice will appear never again (procedure AskOverwrite (if (= #ConfirmOverwrite 2) ( (set #ConfirmOverwrite (askchoice (prompt #AskOverwrite-Prompt) (help #AskOverwrite-Help) (choices #AskOverwrite-1 #AskOverwrite-2 #AskOverwrite-3) (default 2) ) ) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to copy a file without version info, backup if needed (procedure FileCopy (working (#Checking-File #Copy-SourceFile)) (set #iFileCopy-Source "%s%s") ; full path (set #iFileCopy-Dest "%s%s") ; full path (set #iFileCopy-BackSource "%s%s") ; full path (set #iFileCopy-BackDest "Backup:\%s") ; directory (if (not (exists (#iFileCopy-Dest #Copy-DestDir #Copy-SourceFile))) ( (copyfiles (source (#iFileCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") ) ) ( (if (= #MakeBackups "1") ( (copyfiles (source (#iFileCopy-BackSource #Copy-DestDir #Copy-SourceFile)) (dest (#iFileCopy-BackDest #UpdateVersion)) (optional "nofail" "force") ) ) ) (AskOverWrite) (working #Checking-Files) (if (<> #ConfirmOverwrite 0) ( (copyfiles (source (#iFileCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") (prompt #FileCopy-Prompt) (help #FileCopy-Help) (confirm) ) ) ( (copyfiles (source (#iFileCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") ) ) ) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to copy an icon file, backup if needed (procedure IconCopy (working (#Checking-File #Copy-SourceFile)) (set #iIconCopy-Source "%s%s") ; full path (set #iIconCopy-Dest "%s%s") ; full path (set #iIconCopy-BackSource "%s%s") ; full path (set #iIconCopy-BackDest "Backup:\%s") ; directory (if (not (exists (#iIconCopy-Dest #Copy-DestDir #Copy-SourceFile))) ( (copyfiles (source (#iIconCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") ) ) ( (if (= #MakeBackups "1") ( (copyfiles (source (#iIconCopy-BackSource #Copy-DestDir #Copy-SourceFile)) (dest (#iIconCopy-BackDest #UpdateVersion)) (optional "nofail" "force") ) ) ) (copyfiles (source (#iIconCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") (prompt #IconCopy-Prompt) (help #IconCopy-Help) (confirm) ) ) ) ) ; --------------------------------------------------------------------- ; --- procedure to copy a file (with version check when dest file ; exists), backup if needed (procedure VerCopy (working (#Checking-File #Copy-SourceFile)) (set #iVerCopy-Source "%s%s") ; full path (set #iVerCopy-Dest "%s%s") ; full path (set #iVerCopy-BackSource "%s%s") ; full path (set #iVerCopy-BackDest "Backup:\%s") ; directory (set #iVerCopy-Prompt "\n\%s") (if (not (exists (#iVerCopy-Dest #Copy-DestDir #Copy-SourceFile))) ( (copyfiles (source (#iVerCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "nofail") ) ) ( (if (= #MakeBackups "1") ( (copyfiles (source (#iVerCopy-BackSource #Copy-DestDir #Copy-SourceFile)) (dest (#iVerCopy-BackDest #UpdateVersion)) (optional "nofail" "force") ) ) ) (copylib (source (#iVerCopy-Source #Copy-SourceDir #Copy-SourceFile)) (dest #Copy-DestDir) (optional "oknodelete" "force") (prompt (#iVerCopy-Prompt #Copy-SourceFile)) (help #VerCopy-Help) (confirm) ) ) ) ) ; ---------------------------------------------------------------------- ; --- set english strings (set #PretendAbort (cat "\nPretend mode cannot be used with this installation.")) (set #WrongKickstart (cat "\nYou have to install at least Kickstart / Workbench 2.0 before installing AmBoS.")) (set #WrongMUI (cat "\nYou have to install at least MUI 3.8 before installing AmBoS.")) (set #Fix-Introduction (cat "\nWelcome to the AmBoS-Fix release %s.\n\n" "Please use this installation if you want to update an existing AmBoS system.")) (set #Update-Introduction (cat "\nWelcome to the AmBoS-Update release %s.\n\n" "Please use this installation if you want to update an existing AmBoS system.")) (set #Demo-Introduction (cat "\nWelcome to the AmBoS-Demo installation.\n\n" "Please use this installation if you want to install a new AmBoS system for the first time.")) (set #NoBBSAssign (cat "\nAssign 'BBS:' not found in your system.\n\n" "Be sure that your AmBoS system is installed properly.")) (set #NoBackupAssign (cat "\nAssign 'Backup:' not found in your system.\n\n" "Be sure that your AmBoS system is installed properly.")) (set #MakeBackups (cat "\n\nShould backups be created of your updated files?")) (set #MakeBackups-Help (cat "\nPlease decide if you wish keep the updated files in the 'Backup:' drawer.\n\n" "Files will be copied to 'Backup:\%s\'.")) (set #VerCopy-Help (cat "\nPlease decide if you wish to install the file.\n\n" "Please ensure not to overwrite a newer version.")) (set #Reboot (cat "\nTo take changes affect it is safer to restart your system before starting AmBoS.")) (set #Support (cat "\nAmBoS Support\n\n" "Board Bulletin System\n" "ExecBase +49 (0)421 - 242966 (X.75 / V.34)\n\n" "Electronic Mail\n" "AmBoS@ebase.capella.de\n\n" "World Wide Web\n" "http://www.mailbox-ag/execbase")) (set #IconCopy-prompt (cat "\nDo you want to overwrite this existing icon?\n")) (set #IconCopy-Help (cat "\nDecide if you want to overwrite an existing icon file.\n\n" "Please notice that icons can be altered by you, e.g. tooltypes.")) (set #Checking-Files (cat "\n\nChecking files...")) (set #Checking-File (cat "\n\nChecking '%s'.")) (set #FileCopy-prompt (cat "\nDo you want to overwrite this existing file?\n")) (set #FileCopy-Help (cat "\nDecide if you want to overwrite an existing file.")) (set #AskOverwrite-Prompt (cat "\nDo you want to be prompted to overwrite files?\n")) (set #AskOverwrite-Help (cat "\nNormally, this program checks the file version " "information to decide automatically if a file must " "be updated (overwritten) or not.\n\n" "In some cases no version information is available " "and you will be prompted for each file.\n\n" "Here you can tell the program if you wish to be " "prompted every time or never again.")) (set #AskOverwrite-1 (cat "No, overwrite any file without prompting.")) (set #AskOverwrite-2 (cat "Yes, ask me before overwriting a file.")) (set #AskOverwrite-3 (cat "Yes, and show this selection again.")) (set #Required-Files (cat "\nBe sure you have installed the following components:\n\n" "- MUI 3.8 or above\n" "- xprzmodem.library\n" "- Cruncher (LhA, LZX)\n")) (set #CheckFile-Msg (cat "\nWarning\n\n" "The following file was not found in your system:\n\n" "%s\n\n" "This file is elementary for AmBoS. Please consult " "the AmBoS Support to replace this file.")) (set #WrongFile-Msg (cat "\nAttention\n\n" "The file '%s' should be located in '%s'.\n\n" "For future updates it is recommended to store this file " " in the right location.")) ; ---------------------------------------------------------------------- ; --- set german strings (if (= #language "deutsch") ( (set #PretendAbort (cat "\n'Scheinbar installieren' ist mit dieser Installation nicht möglich")) (set #WrongKickstart (cat "\nAmBoS benötigt mindestens Kickstart / Workbench 2.0.")) (set #WrongMUI (cat "\nAmBoS benötigt mindestens MUI 3.8")) (set #Fix-Introduction (cat "\nWillkommen zum AmBoS-Fix Release %s.\n\n" "Bitte benutzen Sie dieses Programm nur zur " "Aktualisierung eines existierenden AmBoS-Systems.")) (set #Update-Introduction (cat "\nWillkommen zum AmBoS-Update Release %s.\n\n" "Bitte benutzen Sie dieses Programm nur zur " "Aktualisierung eines existierenden AmBoS-Systems.")) (set #Demo-Introduction (cat "\nWillkommen zur AmBoS-Demo Installation.\n\n" "Bitte benutzen Sie dieses Programm nur zur " "Installation eines neuen AmBoS-Systems.")) (set #NoBBSAssign (cat "\nZuweisung 'BBS:' in diesem System nicht vorhanden.\n\n" "Stellen Sie sicher, daß Ihr AmBoS-System korrekt installiert ist.")) (set #NoBackupAssign (cat "\nZuweisung 'Backup:' in diesem System nicht vorhanden.\n\n" "Stellen Sie sicher, daß Ihr AmBoS-System korrekt installiert ist.")) (set #MakeBackups (cat "\n\nSollen Sicherheitskopien der zu aktualisierenden Dateien erstellt werden?")) (set #MakeBackups-Help (cat "\nBitte entscheiden Sie, ob alte Dateien im " "Verzeichnis 'Backup:' gespeichert werden sollen.\n\n" "Die Sicherheitskopien werden im Verzeichnis " "'Backup:\%s\' abgelegt.\n")) (set #VerCopy-Help (cat "\nBitte entscheiden Sie, ob die Datei installiert werden soll.\n\n" "Bitte vergewissern Sie sich, daß keine neuere Version überschrieben wird.")) (set #Reboot (cat "\nUm die Änderungen wirksam werden zu lassen, " "ist es sicherer, das System neu zu starten.")) (set #Support (cat "\nAmBoS Support\n\n" "Mailbox\n" "ExecBase +49 (0)421 - 242966 (X.75 / V.34)\n\n" "Elektronische Post\n" "AmBoS@ebase.capella.de\n\n" "World Wide Web\n" "http://www.mailbox-ag/execbase")) (set #IconCopy-prompt (cat "\nMöchten Sie dieses bestehende Icon überschreiben?\n")) (set #IconCopy-Help (cat "\nEntscheiden Sie, ob Sie ein existierendes Icon " "überschreiben wollen.\n\n" "Bitte beachten Sie, daß ein Icon von Ihnen verändert " "worden sein könnte, z.B. die Merkmale.")) (set #Checking-Files (cat "\n\nÜberprüfe Dateien...")) (set #Checking-File (cat "\n\nÜberprüfe '%s'.")) (set #FileCopy-prompt (cat "\nMöchten Sie diese bestehende Datei überschreiben?\n")) (set #FileCopy-Help (cat "\nEntscheiden Sie, ob Sie eine existierende Datei überschreiben wollen.")) (set #IconCopy-Prompt (cat "\nMöchten Sie diese bestehende Ikondatei überschreiben?\n")) (set #IconCopy-Help (cat "\nEntscheiden Sie, ob Sie eine existierende .info-Datei überschreiben wollen.")) (set #AskOverwrite-Prompt (cat "\nMöchten Sie gefragt werden, ob Dateien überschrieben werden sollen?\n")) (set #AskOverwrite-Help (cat "\nNormalerweise erkannt dieses Program anhand der " "Dateiversioninformation, ob eine Datei überschrieben " "werden sollte oder nicht.\n\n" "In einigen Fällen ist allerdings keine Versionsinformation " "vorhanden und Sie werden bei jeder Datei " "gefragt, ob diese überschrieben werden soll.\n\n" "An dieser Stelle können Sie dem Programm mitteilen, " "ob Sie bei jeder Datei gefragt werden möchten, oder " "ob alle Dateien unbestätigt überschrieben werden sollen")) (set #AskOverwrite-1 (cat "Nein, Dateien ohne Rückfrage überschreiben.")) (set #AskOverwrite-2 (cat "Ja, vor dem Überschreiben fragen.")) (set #AskOverwrite-3 (cat "Ja, und diese Auswahl beim nächsten Mal wieder zeigen.")) (set #Required-Files (cat "\nStellen Sie sicher, daß Sie folgende Komponenten installiert haben:\n\n" "- MUI 3.8 oder höher\n" "- xprzmodem.library\n" "- Packer (LhA, LZX)\n")) (set #CheckFile-Msg (cat "\nWarnung\n\n" "Die folgende Datei wurde in Ihrem System nicht gefunden:\n\n" "%s\n\n" "Diese Datei ist elementar wichtig für AmBoS. Bitte setzen " "Sie sich mit dem AmBoS-Support in Verbindung, um diese Datei " "zu erhalten.")) (set #WrongFile-Msg (cat "\nAchtung\n\n" "Die Datei '%s' sollte sich in '%s' befinden.\n\n" "Für zukünftige Updates sollte gewährleistet sein, daß sich " "diese Datei im richtigen Verzeichnis befindet.")) )) ; ---------------------------------------------------------------------- ; --- correct workbench version? (set #wbversion 0) (set #wbversion (getversion "libs:version.library")) (set #wbversion (/ #wbversion 65536) ) (if (< #wbversion 37) ( (abort #WrongKickstart) ) ) ; ---------------------------------------------------------------------- ; --- correct mui version? (set #muiversion 0) (set #muiversion (getversion "mui:libs/muimaster.library")) (set #muiversion (/ #muiversion 65536) ) (if (< #muiversion 19) ( (message #WrongMUI) ) ) ; ---------------------------------------------------------------------- ; --- correct version version? (CheckVersionCmd) ; ---------------------------------------------------------------------- ; --- mode = pretend? (if @pretend (abort #PretendAbort)) (run "SYS:Utilities/MultiView Hinweis") ; END AmBoS-Install.header ; BEGIN AmBoS-Fix.header ; ---------------------------------------------------------------------- ; --- does assign BBS: exist? (set #AssignBBS (getassign "BBS")) (if (= #AssignBBS "") ( (message #NoBBSAssign) ) ) ; ---------------------------------------------------------------------- ; --- does assign Backup: exist? (set #AssignBackup (getassign "Backup")) (if (= #AssignBackup "") ( (message #NoBackupAssign) ) ) ; ---------------------------------------------------------------------- ; --- welcome user (complete 1) (message (#Fix-Introduction #UpdateVersion)) ; ---------------------------------------------------------------------- ; --- ask for backups (complete 2) (set #MakeBackups (askbool (prompt #MakeBackups) (help (#MakeBackups-Help #UpdateVersion)) (default 1) ) ) (set #BackupDir "Backup:\%s") (if (= #MakeBackups "1") ( (makedir (#BackupDir #UpdateVersion)) ) ) (CreateDirs) (UsernamenVerboten) ; END AmBoS-Fix.header ; AmBoS/Guidefiles/deutsch/AmBoS-Hilfe.Guide (set #Copy-SourceDir "AmBoS/Guidefiles/deutsch/") (set #Copy-SourceFile "AmBoS-Hilfe.Guide") (set #Copy-DestDir "BBS:Guidefiles/deutsch/") (VerCopy) (complete 9) (set #Scriptname "BBS:Externe/FastPlay") (MakeScript) (set #Scriptname "BBS:Externe/StartSLIP") (MakeScript) (set #Scriptname "BBS:Externe/StopSLIP") (MakeScript) (set #Scriptname "BBS:Toolbox/SortPuffer/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/DIZ-Manager/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/AmBoS-SI/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/Gleichmacher/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/VerA/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/Hasso/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/BLUP/Dokumentation") (MakeScript) (set #Scriptname "BBS:Toolbox/StatusSetup/Dokumentation") (MakeScript) (set #Scriptname "BBS:WBStartup/LoadAmBoS") (MakeScript) ; AmBoS/Netz/Texte/MapsBefehle/NichtBerechtigt.German (set #Copy-SourceDir "AmBoS/Netz/Texte/MapsBefehle/") (set #Copy-SourceFile "NichtBerechtigt.German") (set #Copy-DestDir "BBS:Netz/Texte/MapsBefehle/") (NotExistCopy) (complete 37) (complete 90) (set #CheckFilename "BBS:AmBoS-Handler") (CheckFile) (set #CheckFilename "BBS:Libs/ZConnect.library") (CheckFile) (set #CheckFilename "BBS:Libs/ambosgui.library") (CheckFile) (set #CheckFilename "BBS:Libs/AutoPoint.library") (CheckFile) (set #CheckFilename "Libs:BBS.library") (CheckFile) (set #CheckFilename "Libs:asyncio.library") (CheckFile) (set #CheckFilename "Libs:ambosdata.library") (CheckFile) (set #CheckFilename "Fonts:ambos.font") (CheckFile) (set #CheckFilename "BBS:Texte/SystemNachrichten.txt") (CheckFile) (set #CheckFilename "BBS:Externe/FL2Guide/FL2Guide") (CheckFile) (complete 95) (set #CheckFilename "C:Sorter") (set #RightDrawer "BBS:Netz") (WrongFile) (set #CheckFilename "C:ZConnect_Editor") (set #RightDrawer "BBS:") (WrongFile) (set #CheckFilename "Libs:amboscgi.library") (set #RightDrawer "BBS:Libs") (WrongFile) (set #CheckFilename "Libs:AutoPoint.library") (set #RightDrawer "BBS:Libs") (WrongFile) (set #CheckFilename "Libs:ZConnect.library") (set #RightDrawer "BBS:Libs") (WrongFile) (set #CheckFilename "Libs:ambosgui.library") (set #RightDrawer "BBS:Libs") (WrongFile) (set #CheckFilename "Locale:catalogs/deutsch/ZC_Editor_BHelp.catalog") (set #RightDrawer "BBS:catalogs/deutsch") (WrongFile) (set #CheckFilename "Locale:catalogs/english/ZC_Editor_BHelp.catalog") (set #RightDrawer "BBS:catalogs/english") (WrongFile) (set #CheckFilename "Locale:catalogs/english/AmBoS_Online.catalog") (set #RightDrwawer "BBS:catalogs/english") (WrongFile) (set #CheckFilename "Locale:catalogs/english/ZConnect_Editor.catalog") (set #RightDrawer "BBS:catalogs/english") (WrongFile) (set #CheckFilename "Locale:catalogs/français/ZC_Editor_BHelp.catalog") (set #RightDrawer "BBS:catalogs/français") (WrongFile) (set #CheckFilename "Locale:catalogs/français/AmBoS_Online.catalog") (set #RightDrwawer "BBS:catalogs/français") (WrongFile) (set #CheckFilename "Locale:catalogs/français/ZConnect_Editor.catalog") (set #RightDrawer "BBS:catalogs/français") (WrongFile) (complete 100) (message #Reboot) (message #Support)