home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 120 / af120sub.adf / MUIVideo.lzx / MUIVideo / Install / MUIVideo.install < prev   
Text File  |  1984-02-07  |  49KB  |  1,206 lines
  1. ; #######################################################
  2. ; #
  3. ; #   MUIVideo-Install
  4. ; #   $VER: 2.25 (15.06.98)
  5. ; #   © 1996-98 by Michael Herrmann
  6. ; #   mice@amclust.de
  7. ; #   - AMCLUST -
  8. ; #
  9. ; #######################################################
  10.  
  11. ; #######################################################
  12. ; # setup language-strings
  13. ; #######################################################
  14. ; # german
  15. ; #######################################################
  16.  
  17. (procedure p_deutsch
  18.     (set #true  (cat "Ja"))
  19.     (set #false (cat "Nein"))
  20.     (set #work1 (cat "Update"))
  21.     (set #work2 (cat "Neuinstallation"))
  22.     (set #work3 (cat "Umbenennen"))
  23.     (set #work4 (cat "Löschen"))
  24.  
  25.     (set #falsekick
  26.     (cat "\nMUIVideo, MUINames und MUITapes benoetigen "
  27.          "zwingend OS3.0 oder höher."
  28.     ))
  29.  
  30.     (set #falseinstaller
  31.     (cat "\nDieses Script benötigt einen Installer der "
  32.          "Version V43.2 oder höher. Die Version 43.2 des "
  33.          "Installers ist auf der Aminet-CD 16 zu finden !"
  34.     ))
  35.  
  36.     (set #info1
  37.     (cat "\nDieses Script installiert \"MUIVideo\"  und alle "
  38.          "dazugehörigen Dateien auf Ihre Festplatte oder "
  39.          "fertigt ein Update auf eine bereits existierende "
  40.          "MUIVideo-Installation an. Bevor es aber weitergeht, "
  41.          "wird Ihnen eine Textdatei angezeigt, die Sie über "
  42.          "die wichtigsten Veränderungen und Neuerungen von "
  43.          "\"MUIVideo\"  informiert."
  44.     ))
  45.  
  46.     (set #info2
  47.     (cat "\nBei der Neuinstallation wird ein Verzeichnis mit "
  48.          "Namen \"MUIVideo\"  angelegt in das alle wichtigen "
  49.          "Programmteile kopiert werden. Existiert auf dem "
  50.          "gleichen Pfad bereits eine MUIVideo-Installation, "
  51.          "so wird das alte Verzeichnis nach \"MUIVideo_old\" "
  52.          " umbenannt, so dass keinerlei alte Daten verloren gehen."
  53.          "\n\nSoll ein Update vorgenommen werden, so werden "
  54.          "nur alle neuen Programmteile, Dokumentationen "
  55.          "und Katalogfiles installiert. Auch hier ist sichergestellt, "
  56.          "dass nichts verloren gehen und Ihre Einstellungen "
  57.          "und Daten unverändert bleiben. "
  58.     ))
  59.  
  60.     (set #choice1
  61.     (cat "\nWollen Sie nun ein Update auf eine bereits "
  62.          "vorhandene MUIVideo-Installation oder eine "
  63.          "komplette Neuinstalltion vornehmen ? "
  64.     ))
  65.  
  66.     (set #updateinfo
  67.     (cat "\nBitte wählen Sie nun den Pfad, bzw. das Verzeichnis "
  68.          "aus, in dem sich das MUIVideo-Hauptverzeichnis befindet\n"
  69.     ))
  70.  
  71.     (set #installinfo
  72.     (cat "\nBitte wählen Sie nun das Zielverzeichnis für die "
  73.          "Neuinstallation aus. Ein Verzeichnis \"MUIVideo\" "
  74.          " wird dort angelegt.\n"
  75.     ))
  76.  
  77.     (set #createdirs
  78.     (cat "\nEs werden nun alle benötigten Verzeichnisse auf dem "
  79.          "Zielpfad angelegt....."
  80.     ))
  81.  
  82.     (set #copymain      "\nKopieren von MUIVideo")
  83.     (set #copymuitapes  "\nKopieren von MUITapes")
  84.     (set #copymuinames  "\nKopieren von MUINames")
  85.     (set #copylocal     "\nKopiere Locale-Files")
  86.     (set #copyguides    "\nKopieren von MUIVideo.guide")
  87.     (set #copyinfos     "\nKopieren der Info-Dateien")
  88.     (set #copyarexx     "\nKopieren der ARexx-Scripte")
  89.     (set #copybuttons   "\nKopieren der Buttons")
  90.     (set #copysrexx     "\nKopieren der System-Scripte")
  91.     (set #copyprefs     "\nKopieren der Prefs-Dateien")
  92.     (set #copydata      "\nKopieren der Daten-Files")
  93.  
  94.     (set #copyoldmainprefs      "\nKopieren der alten Prefs-Dateien von MUIVideo")
  95.     (set #copyoldmaindata       "\nKopieren der alten Daten von MUIVideo")
  96.     (set #copyoldmainrexx       "\nKopieren der alten ARexx-Scripts von MUIVideo")
  97.     (set #copyoldmuitapesprefs  "\nKopieren der alten Prefs-Dateien von MUITapes")
  98.     (set #copyoldmuitapesrexx   "\nKopieren der alten ARexx-Scripts von MUITapes")
  99.     (set #copyoldmuinamesprefs  "\nKopieren der alten Prefs-Dateien von MUINames")
  100.     (set #copyoldmuinamesdata   "\nKopieren der alten Daten von MUINames")
  101.     (set #copyoldmuinamesrexx   "\nKopieren der alten ARexx-Scripts von MUINames")
  102.     (set #copykeyfile           "\nKopiere das Keyfile")
  103.  
  104.     (set #askforlanguages
  105.     (cat "\nMöchten Sie noch weitere der unten aufgeführten "
  106.          "Sprachen für \"MUIVideo\"  installieren."
  107.     ))
  108.  
  109.     (set #askformuitapes
  110.     (cat "\nSoll nun das Zusatzprogramm \"MUITapes\"  installiert "
  111.          "werden ? \"MUITapes\"  ergänzt das Filmorientierte \"MUIVideo\""
  112.          "  um die Möglichkeit, Videosammlungen auch Kassettenorientiert "
  113.          "verwalten zu können."
  114.     ))
  115.  
  116.     (set #askformuinames
  117.     (cat "\nSoll nun das Zusatzprogramm \"MUINames\"  installiert "
  118.          "werden ? \"MUINames\"  ergänzt die Eingabemaske von \"MUIVideo\""
  119.          "  um die Möglichkeit, Namenseingaben bequem per Mausklick "
  120.          "zu machen. \"MUINames\"  dient dabei ebenfalls Datenverwaltung "
  121.          "unterschiedlicher Namenslisten z.B. fuer Regisseure usw.."
  122.     ))
  123.  
  124.     (set #askforolddata
  125.     (cat "\nSollen die Daten der alten MUIVideo-Installation "
  126.          "übernommen werden ? Dies betrifft ein evtl. vorhandenes "
  127.          "Keyfile, Ihre Filmdaten von \"MUIVideo\", die Daten von "
  128.          "\"MUITapes\"  und \"MUINames\", die ARexx-Scripts und die "
  129.          "Einstellungen."
  130.     ))
  131.  
  132.     (set #oldmvexists
  133.     (cat "\nAuf dem Zielpfad befindet sich bereits ein Backup "
  134.          "einer MUIVideo-Installation. Um fortfahren zu können "
  135.          "muss dieses umbenannt oder gelöscht werden !"
  136.          "\n\nWas soll mit dem alten Backup geschehen ?"
  137.     ))
  138.  
  139.     (set #oldmv
  140.     (cat "\nAuf dem Zielpfad wurde eine MUIVideo-Installation "
  141.          "gefunden. Dieses wird im folgenden nach \"MUIVideo_old\" "
  142.          " umbenannt, so dass keine vorhandenen Daten verloren gehen."
  143.     ))
  144.  
  145.     (set #askfornewname
  146.     (cat "\nBitte einen neuen Namen eingeben oder "
  147.          "den voreingestellten Namen bestätigen."
  148.     ))
  149.  
  150.     (set #askfordel1 "\nSoll das Verzeichnis\n\n > ")
  151.     (set #askfordel2
  152.     (cat " <\n\njetzt gelöscht werden ?\n"
  153.          "Alle darin enthaltenen Daten gehen unwiderruflich verloren !"
  154.     ))
  155.  
  156.     (set #error1
  157.     (cat "\n Auf dem von Ihnen angegebenen Pfad konnte kein "
  158.          "Verzeichnis namens \"MUIVideo\"  gefunden werden. "
  159.          "Bitte stellen Sie sicher, dass sich das Hauptverzeichnis "
  160.          "von \"MUIVideo\"  auch wirklich in dem von Ihnen gewählten "
  161.          "Pfad befindet. Wählen Sie nicht dass MUIVideo-Verzeichnis "
  162.          "selbst sondern dass übergeordnete Verzeichnis an !"
  163.     ))
  164.  
  165.     (set verinfo1 "\n\nBereits installierte Version %ld.%ld\n")
  166.     (set verinfo2 "Zu installierende Version %ld.%ld")
  167.     (set verinfo3 "\n\nBisher nicht installiert\n")
  168.  
  169.     (set #updatemuimain  "\nUpdate von MUIVideo\n")
  170.     (set #updatemuitapes "\nUpdate von MUITapes\n")
  171.     (set #updatemuinames "\nUpdate von MUINames\n")
  172.  
  173.  
  174.     (set #destination-help
  175.     (cat "\nIn diesem Fenster können Sie das Zielverzeichnis für "
  176.          "die Installation von \"MUIVideo\"  auswählen. Bei der "
  177.          "Neuinstallation wird ein neues Verzeichnis namens "
  178.          "\"MUIVideo\" angelegt. Sollte sich auf dem Pfad bereits "
  179.          "ein Verzeichnis mit diesem Namen befinden, wird es in "
  180.          "\"MUIVideo_old\"  umbenannt. Bei einem Update achten Sie "
  181.          "bitte darauf, dass Sie den Pfad angeben, in dem sich das "
  182.          "Hauptverzeichnis von \"MUIVideo\"  befindet, wählen Sie nicht "
  183.          "das MUIVideo-Verzeichnis selbst an sondern das übergeordnete. "
  184.     ))
  185.  
  186.     (set #newname-help
  187.     (cat "\nBei einer früheren Neuinstallation von \"MUIVideo\"  wurde "
  188.          "ein Backup der alten Installation angelegt. Diese Backups "
  189.          "werden vom Installationsprogramm standardmaessig \"MUIVideo_old\" "
  190.          " genannt. Auf dem Zielpfad befindet sich noch so ein Backup. "
  191.          "Da auch bei dieser Installation wieder ein Backup angelegt "
  192.          "werden soll, ist es unumgänglich, dass alte Backup umzubenennen "
  193.          "oder zu löschen. Sie können nun in dem Texteingabefeld einen neuen "
  194.          "Namen für das Backup angeben oder den vorgeschlagenen übernehmen. "
  195.     ))
  196.  
  197.     (set #deloldbackup-help
  198.     (cat "\nWenn Sie die Frage, ob das Backup gelöscht werden soll "
  199.          "mit \"löschen\"  bestätigen, so gehen alle Daten des Backups "
  200.          "unwiderruflich verloren. Wenn Sie sich nicht sicher sind, "
  201.          "ob das Backup nicht doch noch wichtige Daten enthält, wählen "
  202.          "Sie \"Diesen Teil überspringen\", Sie haben dann erneut die "
  203.          "Möglichkeit, dass alte Backup umzubennen oder zu löschen"
  204.     ))
  205.  
  206.     (set #versions-help
  207.     (cat "\nBei jedem Update von \"MUIVideo\" werden grundsätzlich "
  208.          "die Versionen der einzelnen Programmteile mit denen der "
  209.          "bereits installierten verglichen. Sie können so leichter "
  210.          "entscheiden, ob Sie ein Programmteil installieren möchten "
  211.          "oder nicht. Bitte beachten Sie aber, dass es auch möglich "
  212.          "ist, neuere Programmteile durch ältere zu ersetzen. "
  213.          "Schauen Sie sich die ausgegebenen Versionsnummern also "
  214.          "genau an, bevor Sie einen Kopiervorgang bestätigen."
  215.     ))
  216.  
  217.     (set #endmessage
  218.     (cat "\nWir wünschen Ihnen nun viel Spass und Erfolg mit "
  219.          "\"MUIVideo\". Sollten Sie dieses Programm nutzen und "
  220.          "noch nicht registriert sein, so holen Sie dieses "
  221.          "bitte nach. Sie unterstützen so den Shareware-Gedanken, "
  222.          "und leisten Ihren Beitrag, für gute Amiga-Software"
  223.          "\n\nWenn Sie schon zum 2364. Mal Ihre Daten in \"MUIVideo\"  "
  224.          "eingegeben haben und es noch nicht klappt, mail an: "
  225.          "chriskay@a2.amclust.de"
  226.          "\n\nWenn Sie den Autor des Installer-Scriptes verdeubeln wollen "
  227.          "schreiben Sie an:"
  228.          "\nmice@amclust.de"
  229.          "\n\nFür die Übersetzungen ins Englische kann enthauptet werden:"
  230.          "\nvolker@a2.amclust.de"
  231.     ))
  232. )
  233.  
  234. ; #######################################################
  235. ; # setup language-strings
  236. ; #######################################################
  237. ; # english
  238. ; #######################################################
  239.  
  240. (procedure p_english
  241.     (set #true  (cat "Yes"))
  242.     (set #false (cat "No"))
  243.     (set #work1 (cat "Update"))
  244.     (set #work2 (cat "New installation"))
  245.  
  246.     (set #falsekick
  247.     (cat "\nMUIVideo, MUINames and MUITapes "
  248.          "require OS3.0 or higher."
  249.     ))
  250.  
  251.     (set #falseinstaller
  252.     (cat "\nThis installer-script requires an installer of "
  253.          "version V43.2 or higher. Version 43.2 of "
  254.          "the installer can be found on Aminet-CD 16 !"
  255.     ))
  256.  
  257.     (set #info1
  258.     (cat "\nThis script installs MUIVideo and all "
  259.          "required data on your harddisk or "
  260.          "updates an existing MUIVideo-installation."
  261.          "But at first, let's have a look  at the changes "
  262.          "and news of \"MUIVideo\"."
  263.     ))
  264.  
  265.     (set #info2
  266.     (cat "\nIf you decide for a new installation a directory "
  267.          "called \"MUIVideo\" will be created in which all important"
  268.          "pats of the program will be copied. If there exists "
  269.          "a MUIVideo installationin this path already, "
  270.          "hte old directorywill be renamed to \"MUIVideo_old\", "
  271.          "so that no old data are lost."
  272.          "\n\nIf you decide for an update, only the new "
  273.          "pats of the program, documentations and "
  274.          "catalogfiles will be installed. Your old data and "
  275.          "prefs remain unchanged "
  276.     ))
  277.  
  278.     (set #choice1
  279.     (cat "\nDo you want to update an existing "
  280.          "MUIVideo installation or do you want "
  281.          "a new installation ? "
  282.     ))
  283.  
  284.     (set #updateinfo
  285.     (cat "\nPlease select the path or directory "
  286.          "in which the MUIVideo directory is located.\n"
  287.     ))
  288.  
  289.     (set #installinfo
  290.     (cat "\nPlease select the directory for the "
  291.          "new installation. A directory \"MUIVideo\" "
  292.          "will be created.\n"
  293.     ))
  294.  
  295.     (set #oldmv
  296.     (cat "\nAn old MUIVideo directory has been "
  297.          "found. This will be renamed to \"MUIVideo_old\"."
  298.     ))
  299.  
  300.     (set #createdirs
  301.     (cat "\nCreating required directories... "
  302.     ))
  303.  
  304.     (set #copymain      "\nCopying  MUIVideo")
  305.     (set #copymuitapes  "\nCopying  MUITapes")
  306.     (set #copymuinames  "\nCopying  MUINames")
  307.     (set #copylocal     "\nCopying  locale-Files")
  308.     (set #copyguides    "\nCopying  MUIVideo.guide")
  309.     (set #copyinfos     "\nCopying  info-data")
  310.     (set #copyarexx     "\nCopying  ARexx-scripts")
  311.     (set #copysrexx     "\nCopying  System-scripts")
  312.     (set #copyprefs     "\nCopying  Prefs-data")
  313.     (set #copydata      "\nCopying  Data-files")
  314.  
  315.     (set #askforlanguages
  316.     (cat "\nYou now have the possibility to "
  317.          "install more languages for \"MUIVideo\"."
  318.     ))
  319.  
  320.     (set #askformuitapes
  321.     (cat "\nDo you want to install the plug-in \"MUITapes\""
  322.          "now ? \"MUITapes\" expands the film oriented \"MUIVideo\""
  323.          " to the possibility of a tape oriented database."
  324.     ))
  325.  
  326.     (set #askformuinames
  327.     (cat "\nDo you want to install the plug-in \"MUINames\""
  328.          "now ? \"MUINames\" expands the inputmask of \"MUIVideo\","
  329.          "you can enter names with simple click of your mouse.   "
  330.          "MUINames is also a database for names."
  331.     ))
  332.  
  333.     (set #askforolddata
  334.     (cat "\nDo you want to keep the data of your"
  335.          "old MUIVideo installation ?"
  336.          "This concernes your keyfile, the"
  337.          "filmdata and the prefs."
  338.     ))
  339.  
  340.     (set #error1
  341.     (cat "\nAn old directory called \"MUIVideo\" could "
  342.          "not be found in this path. Please keep in mind "
  343.          "not to select the directory of MUIVideo but "
  344.          "the parent directory."
  345.     ))
  346.  
  347.     (set verinfo1 "\n\nInstalled Version %ld.%ld\n")
  348.     (set verinfo2 "Version to be installed%ld.%ld")
  349.     (set verinfo3 "\n\nNot installed.\n")
  350.  
  351.     (set #destination-help
  352.     (cat "\nPlease select the directory where MUIVideo will "
  353.          "be installed. During a new installation a directory "
  354.          "called \"MUIVideo\" will be created. If a directory with"
  355.          "this name exists in this path, it will be renamed in "
  356.          "\"MUIVideo_old\". If you are updating an existing "
  357.          "installation, please keep in mind not to select the "
  358.          "directory of MUIVideo but the parent directory. "
  359.     ))
  360.  
  361.     (set #newname-help
  362.     (cat "\nBei einer früheren Neuinstallation von \"MUIVideo\"  wurde "
  363.          "ein Backup der alten Installation angelegt. Diese Backups "
  364.          "werden vom Installationsprogramm standardmaessig \"MUIVideo_old\" "
  365.          " genannt. Auf dem Zielpfad befindet sich noch so ein Backup. "
  366.          "Da auch bei dieser Installation wieder ein Backup angelegt "
  367.          "werden soll, ist es unumgänglich, dass alte Backup umzubenennen "
  368.          "oder zu löschen. Sie können nun in dem Texteingabefeld einen neuen "
  369.          "Namen für das Backup angeben oder den vorgeschlagenen übernehmen. "
  370.     ))
  371.  
  372.     (set #deloldbackup-help
  373.     (cat "\nWenn Sie die Frage, ob das Backup gelöscht werden soll "
  374.          "mit \"löschen\"  bestätigen, so gehen alle Daten des Backups "
  375.          "unwiderruflich verloren. Wenn Sie sich nicht sicher sind, "
  376.          "ob das Backup nicht doch noch wichtige Daten enthält, wählen "
  377.          "Sie \"Diesen Teil überspringen\", Sie haben dann erneut die "
  378.          "Möglichkeit, dass alte Backup umzubennen oder zu löschen"
  379.     ))
  380.  
  381.     (set #versions-help
  382.     (cat "\nBei jedem Update von \"MUIVideo\" werden grundsätzlich "
  383.          "die Versionen der einzelnen Programmteile mit denen der "
  384.          "bereits installierten verglichen. Sie können so leichter "
  385.          "entscheiden, ob Sie ein Programmteil installieren möchten "
  386.          "oder nicht. Bitte beachten Sie aber, dass es auch möglich "
  387.          "ist, neuere Programmteile durch ältere zu ersetzen. "
  388.          "Schauen Sie sich die ausgegebenen Versionsnummern also "
  389.          "genau an, bevor Sie einen Kopiervorgang bestätigen."
  390.     ))
  391.  
  392.     (set #endmessage
  393.     (cat "\nWe wish a lot of fun and pleasure with MUIVideo. "
  394.          "If you use this program without registering, please "
  395.          "read the documentation how to become a registered "
  396.          "user. Please support shareware ! "
  397.          "If you entered your films for the 2634. time and nothing "
  398.          "works, please write to: "
  399.          "chriskay@a2.amclust.de"
  400.          "If you want to send the author of the installer-script "
  401.          "to hell, please write to:"
  402.          "\nmice@amclust.de"
  403.          "\n\nFor the english translation, please chop the head of:"
  404.          "\nvolker@a2.amclust.de"
  405.          "Positive reactions are also welcome :) "
  406.     ))
  407. )
  408.  
  409. ; #######################################################
  410. ; # getversions-procedure ( forget the bloody (copylib) )
  411. ; #######################################################
  412.  
  413. ; arg1 = means the name of actual file
  414. ; arg2 = means the name of older file
  415.  
  416. (procedure p_getversions arg1 arg2
  417.     (set aktversion (getversion arg1))
  418.     (set aktver (/ aktversion 65536))
  419.     (set aktrev (- aktversion (* aktver 65536)))
  420.     (set oldversion (getversion (tackon mvdest arg2)))
  421.     (set oldver (/ oldversion 65536))
  422.     (set oldrev (- oldversion (* oldver 65536)))
  423. )
  424.  
  425. ; #######################################################
  426. ; # deloldbackup-procedure
  427. ; #######################################################
  428.  
  429. ; arg1 = path to workon
  430.  
  431. (procedure p_deloldbackup arg1
  432.     (set vote
  433.         (askbool
  434.             (prompt #oldmvexists)
  435.             (choices #work3 #work4)
  436.             (help @askbool-help)
  437.         )
  438.     )
  439.     (if (= 1 vote)
  440.         (
  441.             (set nname
  442.                 (askstring
  443.                     (prompt #askfornewname)
  444.                     (default "MUIVideo_old1")
  445.                     (help #newname-help)
  446.                 )
  447.             )
  448.             (rename arg1 (tackon mvpath nname)
  449.                 (prompt #askforrename)
  450.                 (help #newname-help)
  451.             )
  452.         )
  453.         (
  454.             (delete arg1
  455.                 (prompt #askfordel1 arg1 #askfordel2)
  456.                 (all)
  457.                 (infos)
  458.                 (confirm "average" "expert")
  459.                 (optional "askuser")
  460.                 (help #deloldbackup-help)
  461.             )
  462.         )
  463.     )
  464. )
  465.  
  466.  
  467. ; #######################################################
  468. ; # check language
  469. ; #######################################################
  470.  
  471. (If (= @language "deutsch")
  472.     (
  473.         (p_deutsch)
  474.     )
  475.     (
  476.         (p_english)
  477.     )
  478. )
  479.  
  480. ; #######################################################
  481. ; # test kick- & installer-version
  482. ; #######################################################
  483.  
  484. (if (< (/ (getversion) 65536) 39)
  485.     (abort #falsekick)
  486. )
  487.  
  488. (If (= 0 @installer-version)
  489.     (abort #falseinstaller)
  490. )
  491.  
  492. ; #######################################################
  493. ; # view infos
  494. ; #######################################################
  495.  
  496. (message #info1)
  497. ; (run "run >nil: SYS:Utilities/MultiView" #infotxt (prompt #readme))
  498. (message #info2)
  499.  
  500. ; #######################################################
  501. ; # choose work
  502. ; #######################################################
  503.  
  504. (set work
  505.     (askbool
  506.         (prompt #choice1)
  507.         (choices #work1 #work2)
  508.         (help #info2)
  509.     )
  510. )
  511.  
  512. ; #######################################################
  513. ; # choose destination
  514. ; #######################################################
  515.  
  516. (If (= 1 work)
  517.     (
  518.         (set mvpath
  519.             (askdir
  520.                 (prompt #updateinfo)
  521.                 (help #destination-help)
  522.                 (default "work:")
  523.             )
  524.         )
  525.     )
  526.     (
  527.         (set mvpath
  528.             (askdir
  529.                 (prompt #installinfo)
  530.                 (help #destination-help)
  531.                 (default "work:")
  532.             )
  533.         )
  534.     )
  535. )
  536.  
  537. (set mvdest (tackon mvpath "MUIVideo"))
  538. (set @default-dest mvdest)
  539.  
  540. ; #######################################################
  541. ; # update procedure
  542. ; #######################################################
  543.  
  544. (if (= 1 work)
  545.     ( ; update start
  546.  
  547.         ; #######################################################
  548.         ; # update: MUIVideo main, modules & catalogs
  549.         ; #######################################################
  550.         ; # MUIVideo
  551.         ; #######################################################
  552.  
  553.         (if (exists mvdest)
  554.             (
  555.                 (p_getversions "/MUIVideo" (tackon mvdest "MUIVideo"))
  556.                 (if (= 1 (askbool (prompt (#updatemuimain) (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  557.                     (
  558.                         (copyfiles
  559.                             (prompt #copymain)
  560.                             (source "/MUIVideo")
  561.                             (dest mvdest)
  562.                             (if (<> (exists (tackon mvdest "MUIVideo.info")) (infos)))
  563.                             (help @copyfiles-help)
  564.                         )
  565.                         (if (= @language "english")
  566.                             (
  567.                                 (copyfiles
  568.                                     (prompt "Update MUIVideo Catalogs")
  569.                                     (source "/catalogs/english")
  570.                                     (dest (tackon mvdest "catalogs/english"))
  571.                                     (pattern "(#?.catalogs)")
  572.                                     (help @copyfiles-help)
  573.                                 )
  574.                             )
  575.                             (
  576.                                 (copyfiles
  577.                                     (prompt "Update der MUIVideo Katalog-Files")
  578.                                     (source "/catalogs")
  579.                                     (dest (tackon mvdest "catalogs"))
  580.                                     (pattern "(#?.cd)")
  581.                                     (confirm "expert")
  582.                                     (help @copyfiles-help)
  583.                                 )
  584.                             )
  585.                         )
  586.                     )
  587.                 )
  588.  
  589.                 ; #######################################################
  590.                 ; # MUITapes
  591.                 ; #######################################################
  592.  
  593.                 (if (exists (tackon mvdest "MUITapes"))
  594.                     (
  595.                         (p_getversions "/MUITapes/MUITapes" (tackon mvdest "MUITapes/MUITapes"))
  596.                         (if (= 1 (askbool (prompt ("\nUpdate von MUITapes\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  597.                             (
  598.                                 (copyfiles
  599.                                     (prompt #copymuitapes)
  600.                                     (source "/MUITapes")
  601.                                     (dest (tackon mvdest "MUITapes"))
  602.                                     (pattern "(MUITapes|SRexx|#?.script)")
  603.                                     (infos)
  604.                                     (help @copyfiles-help)
  605.                                 )
  606.                                 (if (= @language "english")
  607.                                     (copyfiles
  608.                                         (prompt "Update MUITapes Catalogs")
  609.                                         (source "/MUITapes/catalogs/english")
  610.                                         (dest (tackon mvdest "MUITapes/catalogs"))
  611.                                         (help @copyfiles-help)
  612.                                     )
  613.                                     (copyfiles
  614.                                         (prompt "Update der MUITapes Kataloge")
  615.                                         (source "/MUITapes/catalogs")
  616.                                         (dest (tackon mvdest "MUITapes/catalogs"))
  617.                                         (pattern "(#?.cd)")
  618.                                         (help @copyfiles-help)
  619.                                     )
  620.                                 )
  621.                             )
  622.                         )
  623.                     )
  624.                 )
  625.  
  626.                 ; #######################################################
  627.                 ; # MUINames
  628.                 ; #######################################################
  629.  
  630.                 (if (exists (tackon mvdest "MUINames"))
  631.                     (
  632.                         (p_getversions "/MUINames/MUINames" (tackon mvdest "MUINames/MUINames"))
  633.                         (if (= 1 (askbool (prompt (#updatemuinames) (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  634.                             (
  635.                                 (copyfiles
  636.                                     (prompt #copymuinames)
  637.                                     (source "/MUINames")
  638.                                     (dest (tackon mvdest "MUINames"))
  639.                                     (pattern "(MUINames|SRexx|#?.script)")
  640.                                     (infos)
  641.                                     (help @copyfiles-help)
  642.                                 )
  643.                                 (if (= @language "english")
  644.                                     (copyfiles
  645.                                         (prompt "Update MUINames Catalogs")
  646.                                         (source "/MUINames/catalogs/english")
  647.                                         (dest (tackon mvdest "MUINames/catalogs"))
  648.                                         (help @copyfiles-help)
  649.                                     )
  650.                                     (copyfiles
  651.                                         (prompt "Update der MUITapes Kataloge")
  652.                                         (source "/MUINames/catalogs")
  653.                                         (dest (tackon mvdest "MUINames/catalogs"))
  654.                                         (pattern "(#?.cd)")
  655.                                         (help @copyfiles-help)
  656.                                     )
  657.                                 )
  658.                             )
  659.                         )
  660.                     )
  661.                 )
  662.  
  663.                 ; #######################################################
  664.                 ; # update documentations: german part
  665.                 ; #######################################################
  666.  
  667.                 (if (= @language "deutsch")
  668.                     (
  669.                         (copyfiles
  670.                             (prompt #copyinfos)
  671.                             (source "/Docs")
  672.                             (dest (tackon mvdest "Dokumentationen"))
  673.                             (pattern "(LIES_MICH#?|Registrierung|WICHTIG#?)")
  674.                             (nogauge)
  675.                             (infos)
  676.                             (help @copyfiles-help)
  677.                         )
  678.                         (p_getversions "/Docs/MUIVideo_ger.guide" (tackon mvdest "Dokumentationen/MUIVideo.guide"))
  679.                         (if (= 1 (askbool (prompt ("\nUpdate von MUIVideo.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  680.                             (
  681.                                 (copyfiles
  682.                                     (prompt #copyguides)
  683.                                     (source "/Docs/MUIVideo_ger.guide")
  684.                                     (dest (tackon mvdest "Dokumentationen"))
  685.                                     (newname "MUIVideo.guide")
  686.                                     (infos)
  687.                                     (help @copyfiles-help)
  688.                                  )
  689.                              )
  690.                          )
  691.                         (p_getversions "/Docs/MUITapes_ger.guide" (tackon mvdest "Dokumentationen/MUITapes.guide"))
  692.                         (if (= 1 (askbool (prompt ("\nUpdate von MUITapes.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  693.                             (
  694.                                 (copyfiles
  695.                                     (prompt #copyguides)
  696.                                     (source "/Docs/MUITapes_ger.guide")
  697.                                     (dest (tackon mvdest "Dokumentationen"))
  698.                                     (newname "MUITapes.guide")
  699.                                     (infos)
  700.                                     (help @copyfiles-help)
  701.                                 )
  702.                             )
  703.                         )
  704.                         (p_getversions "/Docs/MUINames_ger.guide" (tackon mvdest "Dokumentationen/MUINames.guide"))
  705.                         (if (= 1
  706.                                 (askbool
  707.                                     (prompt ("\nUpdate von MUINames.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev))
  708.                                     (help #versions-help)
  709.                                 )
  710.                             )
  711.                             (
  712.                                 (copyfiles
  713.                                     (prompt #copyguides)
  714.                                     (source "/Docs/MUINames_ger.guide")
  715.                                     (dest (tackon mvdest "Dokumentationen"))
  716.                                     (newname "MUINames.guide")
  717.                                     (infos)
  718.                                     (help @copyfiles-help)
  719.                                 )
  720.                             )
  721.                         )
  722.                     )
  723.  
  724.                     ; #######################################################
  725.                     ; # update documentations: english part
  726.                     ; #######################################################
  727.  
  728.                     (
  729.                         (copyfiles
  730.                             (prompt #copyinfos)
  731.                             (source "/Docs")
  732.                             (dest (tackon mvdest "Documentations"))
  733.                             (pattern "(READ_ME#?|Registration|ATTENTION#?)")
  734.                             (nogauge)
  735.                             (infos)
  736.                             (help @copyfiles-help)
  737.                         )
  738.                         (p_getversions "/Docs/MUIVideo_eng.guide" (tackon mvdest "Documentations/MUIVideo.guide"))
  739.                         (if (= 1 (askbool (prompt ("\nUpdate of MUIVideo.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  740.                             (
  741.                                 (copyfiles
  742.                                     (prompt #copyguides)
  743.                                     (source "/Docs/MUIVideo_eng.guide")
  744.                                     (dest (tackon mvdest "Documentations"))
  745.                                     (newname "MUIVideo.guide")
  746.                                     (infos)
  747.                                     (help @copyfiles-help)
  748.                                 )
  749.                             )
  750.                         )
  751.                         (p_getversions "/Docs/MUITapes_eng.guide" (tackon mvdest "Documentations/MUITapes.guide"))
  752.                         (if (= 1 (askbool (prompt ("\nUpdate of MUITapes.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  753.                             (
  754.                                 (copyfiles
  755.                                     (prompt #copyguides)
  756.                                     (source "/Docs/MUITapes_eng.guide")
  757.                                     (dest (tackon mvdest "Documentations"))
  758.                                     (newname "MUITapes.guide")
  759.                                     (infos)
  760.                                     (help @copyfiles-help)
  761.                                 )
  762.                             )
  763.                         )
  764.                         (p_getversions "/Docs/MUINames_eng.guide" (tackon mvdest "Documentations/MUINames.guide"))
  765.                         (if (= 1 (askbool (prompt ("\nUpdate of MUINames.guide\n") (if (= 0 oldversion) ((verinfo3)) ((verinfo1 oldver oldrev))) (verinfo2 aktver aktrev)) (help #versions-help)))
  766.                             (
  767.                                 (copyfiles
  768.                                     (prompt #copyguides)
  769.                                     (source "/Docs/MUINames_eng.guide")
  770.                                     (dest (tackon mvdest "Documentations"))
  771.                                     (newname "MUINames.guide")
  772.                                     (infos)
  773.                                     (help @copyfiles-help)
  774.                                 )
  775.                             )
  776.                         )
  777.                     )
  778.                 )
  779.             )
  780.             (
  781.                 (message #error1)
  782.                 (exit)
  783.             )
  784.         )
  785.     ) ; update end
  786.  
  787.     ; #######################################################
  788.     ; # new installation procedure
  789.     ; #######################################################
  790.  
  791.     (
  792.         (while (exists (tackon mvpath "MUIVideo_old"))
  793.             (p_deloldbackup (tackon mvpath "MUIVideo_old"))
  794.         )
  795.         (if (exists mvdest)
  796.             (
  797.                 (message #oldmv)
  798.                 (set oldmv (cat mvdest "_old"))
  799.                 (rename mvdest oldmv)
  800.                 (rename (cat mvdest ".info") (cat oldmv ".info"))
  801.             )
  802.         )
  803.         (if (= @user-level 2)
  804.             (message #createdirs)
  805.         )
  806.         ; (makedir mvdest (infos) (prompt #createdir))
  807.         (makedir (tackon mvdest "ARexx"))
  808.         (makedir (tackon mvdest "Buttons"))
  809.         (makedir (tackon mvdest "Data"))
  810.         (makedir (tackon mvdest "Prefs"))
  811.         (makedir (tackon mvdest "Catalogs"))
  812.         (makedir (tackon mvdest "SRexx"))
  813.         (makedir (tackon mvdest "Data/Beispiele"))
  814.         (if (= @language "deutsch")
  815.             (
  816.                 (makedir (tackon mvdest "catalogs"))
  817.                 (makedir (tackon mvdest "Dokumentationen"))
  818.                 (copyfiles
  819.                     (prompt #copylocal)
  820.                     (source "/Catalogs")
  821.                     (dest (tackon mvdest "catalogs"))
  822.                     (pattern "(MUIVideo.cd|MUIVideo_help.cd|MUIVideo_messages.cd)")
  823.                     (help @copyfiles-help)
  824.                 )
  825.                 (copyfiles
  826.                     (prompt #copyinfos)
  827.                     (source "/Docs")
  828.                     (dest (tackon mvdest "Dokumentationen"))
  829.                     (pattern "(LIES_MICH#?|Registrierung|WICHTIG#?)")
  830.                     (nogauge)
  831.                     (infos)
  832.                     (help @copyfiles-help)
  833.                 )
  834.                 (copyfiles
  835.                     (prompt #copyguides)
  836.                     (source "/Docs/MUIVideo_ger.guide")
  837.                     (dest (tackon mvdest "Dokumentationen"))
  838.                     (newname "MUIVideo.guide")
  839.                     (infos)
  840.                     (confirm "expert")
  841.                     (help @copyfiles-help)
  842.                 )
  843.                 (copyfiles
  844.                     (prompt #copyprefs)
  845.                     (source "/Prefs")
  846.                     (dest (tackon mvdest "Prefs"))
  847.                     (pattern "(#?Prefs)")
  848.                     (confirm "expert")
  849.                     (help @copyfiles-help)
  850.                 )
  851.             )
  852.             (
  853.                 (makedir (tackon mvdest "catalogs/englisch"))
  854.                 (makedir (tackon mvdest "Documentations"))
  855.                 (copyfiles
  856.                     (prompt #copylocal)
  857.                     (source "/Catalogs/english")
  858.                     (dest (tackon mvdest "catalogs/english"))
  859.                     (pattern "(MUIVideo#?.catalog)")
  860.                     (help @copyfiles-help)
  861.                 )
  862.                 (copyfiles
  863.                     (prompt #copyinfos)
  864.                     (source "/Docs")
  865.                     (dest (tackon mvdest "Documentations"))
  866.                     (pattern "(READ_ME#?|Registration|ATTENTION#?)")
  867.                     (help @copyfiles-help)
  868.                 )
  869.                 (copyfiles
  870.                     (prompt #copyguides)
  871.                     (source "/Docs/MUIVideo_eng.guide")
  872.                     (dest (tackon mvdest "Documentations"))
  873.                     (newname "MUIVideo.guide")
  874.                     (infos)
  875.                     (confirm "expert")
  876.                     (help @copyfiles-help)
  877.                 )
  878.                 (copyfiles
  879.                     (prompt #copyprefs)
  880.                     (source "/Prefs/english")
  881.                     (dest (tackon mvdest "Prefs"))
  882.                     (pattern "(prefs)")
  883.                     (confirm "expert")
  884.                     (help @copyfiles-help)
  885.                 )
  886.             )
  887.         )
  888.         (if (= @user-level 2)
  889.             (
  890.                 (copyfiles
  891.                     (prompt #askforlanguages)
  892.                     (source "/catalogs")
  893.                     (dest (tackon mvdest "catalogs"))
  894.                     (pattern "~(#?.cd)")
  895.                     (confirm)
  896.                     (help copyfiles-help)
  897.                 )
  898.             )
  899.         )
  900.         (copyfiles
  901.             (prompt #copyarexx)
  902.             (source "/ARexx")
  903.             (dest (tackon mvdest "ARexx"))
  904.             (all)
  905.             (infos)
  906.             (confirm "expert")
  907.             (help @copyfiles-help)
  908.         )
  909.         (copyfiles
  910.             (prompt #copybuttons)
  911.             (source "/Buttons")
  912.             (dest (tackon mvdest "Buttons"))
  913.             (all)
  914.             (confirm "expert")
  915.             (help @copyfiles-help)
  916.         )
  917.         (copyfiles
  918.             (prompt #copysrexx)
  919.             (source "/SRexx")
  920.             (dest (tackon mvdest "SRexx"))
  921.             (all)
  922.             ; (infos)
  923.             (help @copyfiles-help)
  924.         )
  925.         (copyfiles
  926.             (prompt #copymain)
  927.             (source "/MUIVideo")
  928.             (dest mvdest)
  929.             (infos)
  930.             (help @copyfiles-help)
  931.         )
  932.         (copyfiles
  933.             (prompt #copymain)
  934.             (source "/Data/Beispiele")
  935.             (dest (tackon mvdest "Data/Beispiele"))
  936.             (all)
  937.             (confirm "2")
  938.             (help @copyfiles-help)
  939.         )
  940.  
  941.         ; #######################################################
  942.         ; #  install MUINames
  943.         ; #######################################################
  944.  
  945.         (set vote
  946.             (askbool
  947.                 (prompt #askformuinames)
  948.                 (choices #true #false)
  949.                 (help @guidehelp)
  950.             )
  951.         )
  952.         (if (= 1 vote)
  953.             (
  954.                 (if (= @language "deutsch")
  955.                     (
  956.                         (makedir (tackon mvdest "MUINames/catalogs"))
  957.                         (copyfiles
  958.                             (prompt "Kopiere MUINames.guide")
  959.                             (source "/Docs/MUINames_ger.guide")
  960.                             (dest (tackon mvdest "Dokumentationen"))
  961.                             (newname "MUINames.guide")
  962.                             (infos)
  963.                             (help @copyfiles-help)
  964.                         )
  965.                         (copyfiles
  966.                             (prompt "Kopiere Katalog-Dateien von MUINames")
  967.                             (source "/MUINames/catalogs")
  968.                             (dest (tackon mvdest "MUINames/catalogs"))
  969.                             (pattern "(#?.cd)")
  970.                             (help @copyfiles-help)
  971.                         )
  972.                     )
  973.                     (
  974.                         (makedir (tackon mvdest "MUINames/catalogs/english"))
  975.                         (copyfiles
  976.                             (prompt "Copy MUINames.guide")
  977.                             (source "/Docs/MUINames_eng.guide")
  978.                             (dest (tackon mvdest "Documentations"))
  979.                             (newname "MUINames.guide")
  980.                             (infos)
  981.                             (help @copyfiles-help)
  982.                         )
  983.                         (copyfiles
  984.                             (prompt "Copy Catalog-Files of MUINames")
  985.                             (source "/MUINames/catalogs/english")
  986.                             (dest (tackon mvdest "MUINames/catalogs/english"))
  987.                             (all)
  988.                             (help @copyfiles-help)
  989.                         )
  990.                     )
  991.                 )
  992.                 (copyfiles
  993.                     (prompt #copymuinames)
  994.                     (source "/MUINames")
  995.                     (dest (tackon mvdest "MUINames"))
  996.                     (pattern "(MUINames|#?script)")
  997.                     (infos)
  998.                     (help copyfiles-help)
  999.                 )
  1000.                 (copyfiles
  1001.                     (prompt #copyarexx)
  1002.                     (source "/MUINames/ARexx")
  1003.                     (dest (tackon mvdest "MUINames/ARexx"))
  1004.                     (all)
  1005.                     (help copyfiles-help)
  1006.                 )
  1007.                 (copyfiles
  1008.                     (prompt #copysrexx)
  1009.                     (source "/MUINames/SRexx")
  1010.                     (dest (tackon mvdest "MUINames/SRexx"))
  1011.                     (all)
  1012.                     (help copyfiles-help)
  1013.                 )
  1014.                 (copyfiles
  1015.                     (prompt #copydata)
  1016.                     (source "/MUINames/Data")
  1017.                     (dest (tackon mvdest "MUINames/Data"))
  1018.                     (all)
  1019.                     (help copyfiles-help)
  1020.                 )
  1021.                 (copyfiles
  1022.                     (prompt #copydata)
  1023.                     (source "/MUINames/Prefs")
  1024.                     (dest (tackon mvdest "MUINames/Prefs"))
  1025.                     (all)
  1026.                     (help copyfiles-help)
  1027.                 )
  1028.             )
  1029.         )
  1030.  
  1031.         ; #######################################################
  1032.         ; # install MUITapes
  1033.         ; #######################################################
  1034.  
  1035.         (set vote
  1036.             (askbool
  1037.                 (prompt #askformuitapes)
  1038.                 (choices #true #false)
  1039.                 (help @guidehelp)
  1040.             )
  1041.         )
  1042.         (if (= 1 vote)
  1043.             (
  1044.                 (makedir (tackon mvdest "MUITapes"))
  1045.                 (if (= @language "deutsch")
  1046.                     (
  1047.                         (copyfiles
  1048.                             (prompt "Kopiere MUITapes.guide")
  1049.                             (source "/Docs/MUITapes_ger.guide")
  1050.                             (dest (tackon mvdest "Dokumentationen"))
  1051.                             (newname "MUITapes.guide")
  1052.                             (infos)
  1053.                             (help @copyfiles-help)
  1054.                         )
  1055.                     )
  1056.                     (
  1057.                         (copyfiles
  1058.                             (prompt "Copy MUITapes.guide")
  1059.                             (source "/Docs/MUITapes_eng.guide")
  1060.                             (dest (tackon mvdest "Documentations"))
  1061.                             (newname "MUITapes.guide")
  1062.                             (infos)
  1063.                             (help @copyfiles-help)
  1064.                         )
  1065.                     )
  1066.                 )
  1067.                 (copyfiles
  1068.                     (prompt #copymuitapes)
  1069.                     (source "/MUITapes")
  1070.                     (dest (tackon mvdest "MUITapes"))
  1071.                     (pattern "(MUITapes|#?script)")
  1072.                     (infos)
  1073.                     (help copyfiles-help)
  1074.                 )
  1075.                 (copyfiles
  1076.                     (prompt #copyarexx)
  1077.                     (source "/MUITapes/ARexx")
  1078.                     (dest (tackon mvdest "MUITapes/ARexx"))
  1079.                     (all)
  1080.                     (help copyfiles-help)
  1081.                 )
  1082.                 (copyfiles
  1083.                     (prompt #copysrexx)
  1084.                     (source "/MUITapes/SRexx")
  1085.                     (dest (tackon mvdest "MUITapes/SRexx"))
  1086.                     (all)
  1087.                     (help copyfiles-help)
  1088.                 )
  1089.                 (copyfiles
  1090.                     (prompt #copyprefs)
  1091.                     (source "/MUITapes/Prefs")
  1092.                     (dest (tackon mvdest "MUITapes/Prefs"))
  1093.                     (all)
  1094.                     (help copyfiles-help)
  1095.                 )
  1096.             )
  1097.         )
  1098.  
  1099.         ; #######################################################
  1100.         ; # save old data and maybe users nerves
  1101.         ; #######################################################
  1102.  
  1103.         (if (exists (cat mvpath "MUIVideo_old"))
  1104.             (
  1105.                 (set vote
  1106.                     (askbool
  1107.                         (prompt #askforolddata)
  1108.                         (choices #true #false)
  1109.                         (help @guidehelp)
  1110.                     )
  1111.                 )
  1112.                 (if (= 1 vote)
  1113.                     (
  1114.                         (copyfiles
  1115.                             (prompt #copyoldmainprefs)
  1116.                             (source (tackon oldmv "Prefs"))
  1117.                             (dest (tackon mvdest "Prefs"))
  1118.                             (all)
  1119.                             (confirm "expert")
  1120.                             (help @copyfiles-help)
  1121.                         )
  1122.                         (copyfiles
  1123.                             (prompt #copyoldmainrexx)
  1124.                             (source (tackon oldmv "ARexx"))
  1125.                             (dest (tackon mvdest "ARexx"))
  1126.                             (all)
  1127.                             (confirm "expert")
  1128.                             (help @copyfiles-help)
  1129.                         )
  1130.                         (copyfiles
  1131.                             (prompt #copyoldmaindata)
  1132.                             (source (tackon oldmv "Data"))
  1133.                             (dest (tackon mvdest "Data"))
  1134.                             (all)
  1135.                             (confirm "expert")
  1136.                             (help @copyfiles-help)
  1137.                         )
  1138.                         (if (exists (tackon oldmv "MUITapes"))
  1139.                             (
  1140.                                 (copyfiles
  1141.                                     (prompt #copyoldmuitapesprefs)
  1142.                                     (source (tackon oldmv "MUITapes/Prefs"))
  1143.                                     (dest (tackon mvdest "MUITapes/Prefs"))
  1144.                                     (all)
  1145.                                     (confirm "expert")
  1146.                                     (help @copyfiles-help)
  1147.                                 )
  1148.                                 (copyfiles
  1149.                                     (prompt #copyoldmuitapesrexx)
  1150.                                     (source (tackon oldmv "MUITapes/ARexx"))
  1151.                                     (dest (tackon mvdest "MUITapes/ARexx"))
  1152.                                     (all)
  1153.                                     (confirm "expert")
  1154.                                     (help @copyfiles-help)
  1155.                                 )
  1156.                             )
  1157.                         )
  1158.                         (if (exists (tackon oldmv "MUINames"))
  1159.                             (
  1160.                                 (copyfiles
  1161.                                     (prompt #copyoldmuinamesprefs)
  1162.                                     (source (tackon oldmv "MUINames/Prefs"))
  1163.                                     (dest (tackon mvdest "MUINames/Prefs"))
  1164.                                     (all)
  1165.                                     ; (confirm "expert")
  1166.                                     (help @copyfiles-help)
  1167.                                 )
  1168.                                 (copyfiles
  1169.                                     (prompt #copyoldmuinamesdata)
  1170.                                     (source (tackon oldmv "MUINames/Data"))
  1171.                                     (dest (tackon mvdest "MUINames/Data"))
  1172.                                     (all)
  1173.                                     (confirm "expert")
  1174.                                     (help @copyfiles-help)
  1175.                                 )
  1176.                                 (copyfiles
  1177.                                     (prompt #copyoldmuinamesrexx)
  1178.                                     (source (tackon oldmv "MUINames/ARexx"))
  1179.                                     (dest (tackon mvdest "MUINames/ARexx"))
  1180.                                     (all)
  1181.                                     (confirm "expert")
  1182.                                     (help @copyfiles-help)
  1183.                                 )
  1184.                             )
  1185.                         )
  1186.                         (if (exists (tackon oldmv "MUIVideo.key"))
  1187.                             (
  1188.                                 (copyfiles
  1189.                                     (prompt #copykeyfile)
  1190.                                     (source (tackon oldmv "MUIVideo.key"))
  1191.                                     (dest mvdest)
  1192.                                     (confirm "expert")
  1193.                                     (help @copyfiles-help)
  1194.                                 )
  1195.                             )
  1196.                         )
  1197.                     )
  1198.                 )
  1199.             )
  1200.         )
  1201.     )
  1202. )
  1203.  
  1204. (message #endmessage) ; and now quit the lisp-like-shit
  1205. (exit)
  1206.