home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / SCDPLAY.LHA / SCDPlayer / Install < prev    next >
Encoding:
Text File  |  1996-09-07  |  26.6 KB  |  614 lines
  1. ;Install script for SCDPlayer 1.5.1
  2. ;©1996 Juan Jesús García de Soria Lucena
  3. ;
  4. ;ENGLISH
  5. (
  6.     (set #making_drawer "Making SCDPlayer's drawer...")
  7.     (set #copying_icons "Copying icons...")
  8.     (set #copying_program "Copying SCDPlayer's binary...")
  9.     (set #copying_lyrics "Copying SCDPLyrics ARexx module...")
  10.     (set #copying_support "Copying support executable...")
  11.     (set #making_arexx "Making drawer for ARexx scripts...")
  12.     (set #copying_arexx "Copying ARexx scripts...")
  13.     (set #copying_docs "Copying AmigaGuide® docs...")
  14.     (set #making_disks "Making Disks drawer...")
  15.     (set #making_images "Making Images drawer...")
  16.     (set #catalogs "Installing catalog files...")
  17.     (set #enter_device "Enter the device driver name for your CD-Rom drive (for example 'scsi.device').")
  18.     (set #dev_help (cat
  19.         "Enter the device driver name for your CD-Rom drive here. This should be the same as found in"
  20.         " 'DEVICE=' line in the mountlist for your CD-Rom.\nIf you are not sure, check"
  21.         " 'devs:dosdrivers/CD0' if you are running Workbench 2.1 or up, or 'devs:mountlist' otherwise."
  22.     ))
  23.     (set #ask_dir "Select in which directory the drawer 'SCDPlayer' will be created.")
  24.     (set #dir_help (cat
  25.         "You must select now in which directory install SCDPlayer. A new drawer named 'SCDPlayer'"
  26.         " will be created there.\n"
  27.         @askdir-help
  28.     ))
  29.     (set #enter_unit "Enter the device driver unit number for your CD-Rom drive.")
  30.     (set #unit_help (cat
  31.         "Enter the device driver unit number for your CD-Rom drive here. This should be the same as found in"
  32.         " 'UNIT=' line in the mountlist for your CD-Rom.\nIf you are not sure, check"
  33.         " 'devs:dosdrivers/CD0' if you are running Workbench 2.1 or up, or 'devs:mountlist' otherwise."
  34.     ))
  35.     (set #ok_vals "The following values for your CD-Rom drive have been obtained from a previous installation:\n")
  36.     (set #ok_vals2 "Are they ok?")
  37.     (set #ask_choices "Which elements do you wish to install?")
  38.     (set #choice1 "SCDPlayer")
  39.     (set #choice2 "SCDPlayer docs")
  40.     (set #choice3 "SCDPlayer catalogs")
  41.     (set #choice4 "Example ARexx scripts")
  42.     (set #choice5 "SCDPlayer sources")
  43.     (set #choice6 "SCDPlayer button images")
  44.     (set #choice7 "SCDPLyrics ARexx module")
  45.     (set #choice8 "'Delay' support executable")
  46.     (set #parts_help (cat "Select which parts do you want to install." @askoptions-help))
  47.     (set #msg_scdpdir "About to make 'SCDPlayer' drawer.")
  48.     (set #msg_scdpprogram "SCDPlayer program will get copied now.")
  49.     (set #msg_scdpdocs "Proceeding to copy documentation.")
  50.     (set #diskdrwhelp "If you will use ID-files in another directory, skip this.")
  51.     (set #copying_images "Copying images for buttons.")
  52.     (set #imagesnormal "Standard SCDPlayer images")
  53.     (set #images3d "3D images")
  54.     (set #selectimages "Select which style of images for the buttons do you wish to install:")
  55.     (set #imageshelp (cat
  56.         "Standard images are solid black symbols on default background colour,"
  57.         "3D ones are embossed, but a little less readable.\n"
  58.         @askchoice-help
  59.     ))
  60.     (set #selecticons "Select which style of icons to install:")
  61.     (set #newicons "NewIcons style")
  62.     (set #magicwb1 "MagicWB style 1")
  63.     (set #magicwb2 "MagicWB style 2")
  64.     (set #iconshelp (cat
  65.         "MagicWB 1 & 2 styles differ in SCDPlayer's executable icon."
  66.         " Type 1 has a CD and a musical score, while type 2"
  67.         " has a CD and MUI symbol.\n"
  68.         @askchoice-help
  69.     ))
  70.     (set #catselect "Select which catalogs to install:")
  71.     (set #catdeutsch "Deutsch")
  72.     (set #catespañol "Español")
  73.     (set #catnorsk "Norsk")
  74.     (set #catsvenska "Svenska")
  75.     (set #catfrançais "Français")
  76.     (set #cathelp (cat
  77.         "Select which catalog files you wish to install. SCDPlayer will be automatically"
  78.         " translated to your preferred language if it's selected in your Locale Preferences.\n"
  79.         @askoptions-help
  80.     ))
  81.     (set #copying_sources "Copying SCDPlayer's sources...")
  82.     
  83.     (set #catbits 0)
  84.  
  85.     (set #docselect "Select which AmigaGuide® docs to install:")
  86.     (set #docdeutsch "Deutsch")
  87.     (set #docenglish "English")
  88.     (set #dochelp (cat
  89.         "Select which documentation files you wish to install. Select your preferred language(s).\n"
  90.         @askoptions-help
  91.     ))
  92.     (set #supporthelp (cat
  93.         "The Delay executable is needed by the ARexx scripts and SCDPLyrics. It should be installed somewhere in your default path.\n"
  94.         @copyfiles-help
  95.     ))
  96.     (set #askautolyrics "Do you want SCDPLyrics to be started whenever SCDPlayer is run?")
  97.     (set #helpautolyrics "Select 'yes' if you want SCDPLyrics window to open automatically when you start SCDPlayer. Select 'no' otherwise.")
  98.  
  99.     (set #askres "Do you want Delay to be made resident?")
  100.     (set #promptres "Adding a line to your User-Startup...")
  101.     (set #helpres "This will add a line to your User-Startup for making Delay resident. This will take 2kB of memory at startup, but ARexx functions and SCDPLyrics won't access disk for waiting.")
  102.     
  103.     (set #docbits 2)
  104. )
  105. ;DEUTSCH
  106. (if (= @language "deutsch")
  107.     (
  108.         (set #catbits 1)
  109.         (set #docbits 1)
  110.     )
  111. )
  112. ;NORSK
  113. (if (= @language "norsk")
  114.     (set #catbits 4)
  115. )
  116. ;SVENSKA
  117. (if (= @language "svenska")
  118.     (set #catbits 8)
  119. )
  120. ;FRANÇAIS
  121. (if (= @language "français")
  122.     (set #catbits 16)
  123. )
  124. ;ESPAÑOL
  125. (if (= @language "español")
  126.     (
  127.         (set #catbits 2)
  128.     
  129.         (set #making_drawer "Haciendo el cajón de SCDPlayer...")
  130.         (set #copying_icons "Copiando iconos...")
  131.         (set #copying_program "Copiando el ejecutable de SCDPlayer...")
  132.         (set #copying_lyrics "Copiando el módulo ARexx SCDPLyrics...")
  133.         (set #copying_support "Copiando el executable de soporte...")
  134.         (set #making_arexx "Haciendo el cajón para los programas ARexx...")
  135.         (set #copying_arexx "Copiando programas ARexx...")
  136.         (set #copying_docs "Copiando documentación AmigaGuide®...")
  137.         (set #making_images "Haciendo el cajón para las imágenes...")
  138.         (set #making_disks "Haciendo el cajón 'Disks'...")
  139.         (set #catalogs "Instalando los ficheros de traducción...")
  140.         (set #enter_device "Teclee el nombre del controlador de dispositivo para su unidad CD-Rom (por ejemplo 'scsi.device').")
  141.         (set #dev_help (cat
  142.             "Teclee aquí el nombre del controlador de dispositivo de su unidad CD-Rom. Éste debería ser"
  143.             " el mismo que haya en la línea 'DEVICE=' del mountlist de su CD-Rom.\nSi no está seguro,"
  144.             " compruebe 'devs:dosdrivers/CD0' si está corriendo el Workbench 2.1 o superior, o"
  145.             " 'devs:mountlist' en otro caso."
  146.         ))
  147.         (set #ask_dir "Elija en qué directorio se creará el cajón 'SCDPlayer'.")
  148.         (set #dir_help (cat
  149.             "Debe usted seleccionar ahora un directorio en qué instalar SCDPlayer."
  150.             " Un nuevo cajón llamado 'SCDPlayer' será creado allí.\n"
  151.             @askdir-help
  152.         ))
  153.         (set #enter_unit "Teclee el número de unidad del controlador de dispositivo para su unidad CD-Rom (por ejemplo 'scsi.device').")
  154.         (set #unit_help (cat
  155.             "Teclee aquí el número de unidad del controlador de dispositivo de su unidad CD-Rom. Éste debería ser"
  156.             " el mismo que haya en la línea 'UNIT=' del mountlist de su CD-Rom.\nSi no está seguro,"
  157.             " compruebe 'devs:dosdrivers/CD0' si está corriendo el Workbench 2.1 o superior, o"
  158.             " 'devs:mountlist' en otro caso."
  159.         ))
  160.         (set #ok_vals "Los siguientes valores de su unidad de CD-Rom han sido obtenidos de una instalación previa:\n")
  161.         (set #ok_vals2 "¿Son correctos?")
  162.         (set #ask_choices "¿Qué elementos desea instalar?")
  163.         (set #choice1 "SCDPlayer")
  164.         (set #choice2 "Documentación de SCDPlayer")
  165.         (set #choice3 "Ficheros de traducción de SCDPlayer")
  166.         (set #choice4 "Programas ARexx de ejemplo")
  167.         (set #choice5 "Ficheros fuente de SCDPlayer")
  168.         (set #choice6 "Imágenes para los botones de SCDPlayer")
  169.         (set #choice7 "Módulo ARexx SCDPLyrics")
  170.         (set #choice8 "Ejecutable de soporte 'Delay'")
  171.         (set #parts_help (cat "Elija qué partes de SCDPlayer desea instalar." @askoptions-help))
  172.         (set #msg_scdpdir "Se creará el cajón 'SCDPlayer'.")
  173.         (set #msg_scdpprogram "Ahora se copiará el programa SCDPlayer.")
  174.         (set #msg_scdpdocs "Procediendo a la copia de la documentación.")
  175.         (set #diskdrwhelp "Si va usted a usar los ficheros ID en otro directorio, salte esta parte.")
  176.         (set #copying_images "Copiando las imágenes de los botones.")
  177.         (set #imagesnormal "Imágenes estándar de SCDPlayer")
  178.         (set #images3d "Imágenes 3D")
  179.         (set #selectimages "Elija qué tipo de imágenes para los botones desea instalar:")
  180.         (set #imageshelp (cat
  181.             "Las imágenes estándar son símbolos sólidos negros sobre el color de fondo por defecto,"
  182.             "Las 3D tienen efecto de bajorrelieve, pero son algo menos legibles.\n"
  183.             @askchoice-help
  184.         ))
  185.         (set #selecticons "Elija qué estilo de iconos instalar:")
  186.         (set #newicons "Estilo NewIcons")
  187.         (set #magicwb1 "Estilo MagicWB 1")
  188.         (set #magicwb2 "Estilo MagicWB 2")
  189.         (set #iconshelp (cat
  190.             "Los estilos MagicWB 1 y 2 se diferencian en el icono del ejecutable de"
  191.             " SCDPlayer. El de tipo 1 tiene un CD y una partitura musical, mientras el"
  192.             " tipo 2 tiene un CD y el símbolo de MUI.\n"
  193.             @askchoice-help
  194.         ))
  195.         (set #catselect "Elija qué ficheros de traducción instalar:")
  196.         (set #catdeutsch "Deutsch")
  197.         (set #catespañol "Español")
  198.         (set #catnorsk "Norsk")
  199.         (set #catsvenska "Svenska")
  200.         (set #cathelp (cat
  201.             "Elija qué ficheros de traducción instalar. SCDPlayer será traducido de forma automática"
  202.             " a su idioma preferido si está seleccionado en sus Preferencias de Locale.\n"
  203.             @askoptions-help
  204.         ))
  205.         (set #copying_sources "Copiando el código fuente de SCDPlayer...")
  206.         
  207.         (set #docselect "Seleccione qué documentos AmigaGuide® instalar:")
  208.         (set #docdeutsch "Deutsch")
  209.         (set #docenglish "English")
  210.         (set #dochelp (cat
  211.             "Seleccione qué ficheros de documentación desea instalar. Elija su(s) idioma(s) preferido(s).\n"
  212.             @askoptions-help
  213.         ))
  214.         (set #supporthelp (cat
  215.             "El ejecutable Delay hace falta para los programas ARexx y SCDPLyrics. Debería instalarse en alguna parte de su ruta por defecto.\n"
  216.             @copyfiles-help
  217.         ))
  218.         (set #askautolyrics "¿Quiere arrancar SCDPLyrics cada vez que se cargue SCDPlayer?")
  219.         (set #helpautolyrics "Seleccione 'sí' si desea que la ventana de SCDPLyrics se abra automáticamente al arrancar SCDPlayer. Seleccione 'no' en otro caso.")
  220.     
  221.         (set #askres "¿Quiere que Delay sea hecho residente?")
  222.         (set #promptres "Añadiendo una línea a su User-Startup...")
  223.         (set #helpres "Esto añadirá una línea a su User-Startup para hacer Delay residente, lo que tomará 2kB de memoria al arrancar, pero las funciones ARexx functions y SCDPLyrics no accederán a disco para esperar.")
  224.  
  225.         (set #docbits 2)
  226.  
  227.     )
  228. )
  229.  
  230. (welcome)
  231.  
  232. (if (<= @user-level 1)
  233.     (
  234.         (complete 0)
  235.         (set #pre-default-dest (askdir (prompt #ask_dir) (default @default-dest) (help #dir_help)))
  236.         (set @default-dest #pre-default-dest)
  237.  
  238.         (set #total_dir (tackon @default-dest "SCDPlayer"))
  239.         
  240.         (set #icon (tackon #total_dir "SCDP"))
  241.         
  242.         (set #dev '')
  243.         (set #unit '')
  244.         (set #def_dev "scsi.device")
  245.         (set #def_unit "4")
  246.         (set #flag 0)
  247.  
  248.         (if (exists (tackon #total_dir "SCDP.info"))
  249.             (
  250.                 (iconinfo (dest #icon) (gettooltype "DEVICE" "#dev") (gettooltype "UNIT" "#unit"))
  251.                 (set #def_dev #dev)
  252.                 (set #def_unit #unit)
  253.                 (set #flag (not (askbool (prompt (cat #ok_vals "DEVICE=" #dev "\nUNIT=" #unit "\n" #ok_vals2)) (help "adiós") (default 1))))
  254.             )
  255.         )       
  256.         
  257.         (if (OR (= #dev '') (= #unit '') #flag)
  258.             (
  259.                 (set #dev (askstring (prompt #enter_device) (help #dev_help) (default #def_dev)))
  260.                 (set #unit (cat (asknumber (prompt #enter_unit) (help #unit_help) (default (+ #def_unit)) (range 0 1023))))
  261.             )
  262.         )
  263.  
  264.         (makedir #total_dir (prompt #making_drawer))
  265.         (if (not (exists (tackon @default-dest "SCDPlayer.info")))
  266.             (
  267.                 (copyfiles (source "/SCDPlayer.info") (dest @default-dest) (prompt #copying_icons))
  268.                 (tooltype (dest (tackon @default-dest "SCDPlayer")) (noposition))
  269.             )
  270.         )
  271.         
  272.         (complete 10)
  273.                 
  274.         (copyfiles (source "SCDP") (dest #total_dir) (infos) (prompt #copying_program))
  275.         (tooltype (dest #icon) (settooltype "DEVICE" #dev) (settooltype "UNIT" #unit))
  276.         (copyfiles (source "SCDPLyrics.rexx") (dest #toal_dir) (prompt #copying_lyrics))
  277.         (copyfiles (source "c/Delay") (dest "C:") (prompt #copying_support))
  278.         
  279.         (complete 20)
  280.         
  281.         (copyfiles (source "SCDP_English.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  282.         (copyfiles (source "SCDP_Deutsch.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  283.         
  284.         (complete 30)
  285.         
  286.         (makedir (tackon #total_dir "Disks") (prompt #making_disks))
  287.         
  288.         (complete 40)
  289.         
  290.         (makedir (tackon #total_dir "Images") (prompt #making_images))
  291.         (if (not (exists (tackon #total_dir "Images.info")))
  292.             (copyfiles (source "Images.info") (dest #total_dir) (prompt #copying_icons))
  293.         )
  294.         
  295.         (set #images_dir (tackon #total_dir "Images"))
  296.         
  297.         (complete 50)
  298.         
  299.         (foreach "Images" "#?"
  300.             (if (not (exists (tackon #images_dir @each-name)))
  301.                 (copyfiles (source (tackon "Images" @each-name)) (dest #images_dir))
  302.             )
  303.         )
  304.         
  305.         (complete 60)
  306.         
  307.         (set #arexx_dir (tackon #total_dir "Rexx"))
  308.         (makedir #arexx_dir (prompt #making_arexx))
  309.         (copyfiles (source "Rexx.info") (dest #total_dir) (prompt #copying_icons))
  310.         
  311.         (complete 70)
  312.         
  313.         (copyfiles (source "Rexx/") (pattern "#?.scdp") (dest #arexx_dir) (infos) (prompt #copying_arexx))
  314.  
  315.         (complete 80)
  316.  
  317.         (makedir (tackon #total_dir "Catalogs") (prompt #catalogs))
  318.         (if (not (exists (tackon #total_dir "Catalogs.info")))
  319.             (copyfiles (source "Catalogs.info") (dest #total_dir) (prompt #copying_icons))
  320.         )
  321.         
  322.         (complete 90)
  323.         
  324.         (copyfiles (source "Catalogs") (dest (tackon #total_dir "Catalogs")) (all) (infos) (prompt #catalogs))
  325.         
  326.         (complete 100)
  327.     )
  328. )
  329.  
  330. (if (= @user-level 2)
  331.     (
  332.         (set #pre-default-dest (askdir (prompt #ask_dir) (default @default-dest) (help #dir_help)))
  333.         (set @default-dest #pre-default-dest)
  334.  
  335.         (set #total_dir (tackon @default-dest "SCDPlayer"))
  336.         (set #icon (tackon #total_dir "SCDP"))
  337.         
  338.         (set #parts (askoptions (choices #choice1 #choice2 #choice3 #choice4 #choice5 #choice6 #choice7 #choice8) (default 239) (prompt #ask_choices) (help #parts_help)))
  339.         
  340.         (if (BITAND #parts 32)
  341.             (
  342.                 (set #imagetype (askchoice (choices #imagesnormal #images3d) (prompt #selectimages) (help #imageshelp)))
  343.         
  344.                 (if (= #imagetype 0)
  345.                     (set #imagessrc "Images")
  346.                     (set #imagessrc "Alternative/Images")
  347.                 )
  348.             )
  349.         )
  350.         
  351.         (set #icontype (askchoice (choices #newicons #magicwb1 #magicwb2) (prompt #selecticons) (help #iconshelp)))
  352.  
  353.         (if (BITAND #parts 4)
  354.             (
  355.                 (set #catbits (askoptions (choices #catdeutsch #catespañol #catnorsk #catsvenska #catfrançais) (default #catbits) (prompt #catselect) (help #cathelp)))
  356.             )
  357.         )
  358.  
  359.         (if (BITAND #parts 2)
  360.             (
  361.                 (set #docbits (askoptions (choices #docdeutsch #docenglish) (default #docbits) (prompt #docselect) (help #dochelp)))
  362.             )
  363.         )
  364.         
  365.         (if (BITAND #parts 64)
  366.             (set #autolyrics (askbool (prompt #askautolyrics) (help #helpautolyrics) (default 0)))
  367.         )
  368.  
  369.         (if (BITAND #parts 128)
  370.             (set #res (askbool (prompt #askres) (help #helpres) (default 1)))
  371.         )
  372.  
  373.         (set #dev '')
  374.         (set #unit '')
  375.         (set #def_dev "scsi.device")
  376.         (set #def_unit "4")
  377.         (set #flag 0)
  378.  
  379.         (if (BITAND #parts 1)
  380.             (
  381.                 (if (exists (tackon #total_dir "SCDP.info"))
  382.                     (
  383.                         (iconinfo (dest #icon) (gettooltype "DEVICE" "#dev") (gettooltype "UNIT" "#unit"))
  384.                         (set #def_dev #dev)
  385.                         (set #def_unit #unit)
  386.                         (set #flag (not (askbool (prompt (cat #ok_vals "DEVICE=" #dev "\nUNIT=" #unit "\n" #ok_vals2)) (help "adiós") (default 1))))
  387.                     )
  388.                 )       
  389.             
  390.                 (if (OR (= #dev '') (= #unit '') #flag)
  391.                     (
  392.                         (set #dev (askstring (prompt #enter_device) (help #dev_help) (default #def_dev)))
  393.                         (set #unit (cat (asknumber (prompt #enter_unit) (help #unit_help) (default (+ #def_unit)) (range 0 1023))))
  394.                     )
  395.                 )
  396.             )
  397.         )
  398.         
  399.         (message #msg_scdpdir)
  400.         
  401.         (makedir #total_dir (prompt #making_drawer))
  402.         (if (not (exists (tackon @default-dest "SCDPlayer.info")))
  403.             (
  404.                 (copyfiles (newname "SCDPlayer.info") (source (select #icontype "/SCDPlayer.info" "alternative/mwb_icons/SCDPlayer_drawer.info" "alternative/mwb_icons/SCDPlayer_drawer.info")) (dest @default-dest) (prompt #copying_icons))
  405.                 (tooltype (dest (tackon @default-dest "SCDPlayer")) (noposition))
  406.             )
  407.         )
  408.         
  409.         (if (BITAND #parts 1)
  410.             (       
  411.                 (message #msg_scdpprogram)
  412.                 (copyfiles (source "SCDP") (dest #total_dir) (infos) (prompt #copying_program))
  413.                 (if (> #icontype 0)
  414.                     (copyfiles (dest #total_dir) (newname "SCDP.info") (source (select (- #icontype 1) "alternative/mwb_icons/SCDP.info" "alternative/mwb_icons/SCDPnew.info")) (prompt #copying_icons))
  415.                 )
  416.                 (tooltype (dest #icon) (settooltype "DEVICE" #dev) (settooltype "UNIT" #unit))
  417.                 
  418.                 (if (not (BITAND #parts 8))
  419.                     (
  420.                         (tooltype (dest #icon) (settooltype "SCRIPTONINSERT") (settooltype "SCRIPTONSTART") (settooltype "SCRIPTONINSERT") (settooltype "SCRIPTONQUIT") (settooltype "MENUSCRIPT") (settooltype "MENUSCRIPT") (settooltype "BUTTONSCRIPT") (settooltype "BUTTONSCRIPT"))
  421.                     )
  422.                 )
  423.                 
  424.                 (makedir (tackon #total_dir "Disks") (prompt #making_disks) (confirm) (help #diskdrwhelp))
  425.             )
  426.         )
  427.  
  428.         (if (BITAND #parts 64)
  429.             (       
  430.                 (message #copying_lyrics)
  431.                 (copyfiles (source "SCDPLyrics.rexx") (dest #total_dir) (prompt #copying_lyrics))
  432.                 
  433.                 (if (BITAND #parts 1)
  434.                     (
  435.                         (tooltype (dest #icon) (settooltype "SCRIPTONQUIT" "Rexx/QuitLyrics.scdp"))
  436.                         (if #autolyrics
  437.                             (tooltype (dest #icon) (settooltype "SCRIPTONSTART" "Rexx/StartLyrics.scdp"))
  438.                         )
  439.                     )
  440.                 )
  441.             )
  442.         )
  443.  
  444.         (if (BITAND #parts 128)
  445.             (       
  446.                 (message #copying_support)
  447.                 (copyfiles (source "c/Delay") (dest "C:") (prompt #copying_support) (confirm) (help #supporthelp))
  448.                 
  449.                 (if #res
  450.                     (startup "SCDPlayer" (command "resident C:Delay pure") (prompt #promptres) (help #helpres))
  451.                 )
  452.             )
  453.         )
  454.  
  455.         (if (BITAND #parts 2)
  456.             (
  457.                 (if (BITAND #docbits 2)
  458.                     (
  459.                         (message #msg_scdpdocs)
  460.                         (copyfiles (source "SCDP_English.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  461.                         (if (> #icontype 0)
  462.                             (copyfiles (dest #total_dir) (newname "SCDP_English.guide.info") (source "alternative/mwb_icons/SCDP_English.guide.info") (prompt #copying_icons))
  463.                         )
  464.                     )
  465.                 )
  466.                 (if (BITAND #docbits 1)
  467.                     (
  468.                         (message #msg_scdpdocs)
  469.                         (copyfiles (source "SCDP_Deutsch.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  470.                         (if (> #icontype 0)
  471.                             (copyfiles (dest #total_dir) (newname "SCDP_Deutsch.guide.info") (source "alternative/mwb_icons/SCDP_English.guide.info") (prompt #copying_icons))
  472.                         )
  473.                     )
  474.                 )
  475.             )
  476.         )
  477.         
  478.         (if (BITAND #parts 32)
  479.             (
  480.         
  481.                 (message #copying_images)
  482.         
  483.                 (makedir (tackon #total_dir "Images") (prompt #making_images))
  484.                 (if (not (exists (tackon #total_dir "Images.info")))
  485.                     (copyfiles (newname "Images.info") (source (select #icontype "Images.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  486.                 )
  487.         
  488.                 (set #images_dir (tackon #total_dir "Images"))
  489.         
  490.                 (foreach #imagessrc "#?"
  491.                     (if (not (exists (tackon #images_dir @each-name)))
  492.                         (copyfiles (source (tackon #imagessrc @each-name)) (dest #images_dir))
  493.                     )
  494.                 )
  495.             )
  496.         )
  497.         
  498.         (if (BITAND #parts 8)
  499.             (
  500.                 (message #copying_arexx)
  501.                 (set #arexx_dir (tackon #total_dir "Rexx"))
  502.                 (makedir #arexx_dir (prompt #making_arexx))
  503.                 (copyfiles (newname "Rexx.info") (source (select #icontype "Rexx.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  504.                 (copyfiles (source "Rexx/") (pattern "#?.scdp") (dest #arexx_dir) (infos) (prompt #copying_arexx))
  505.                 (if #icontype
  506.                     (delete (tackon #arexx_dir "#?.info"))
  507.                 )
  508.             )
  509.         )
  510.         (if (BITAND #parts 4)
  511.             (
  512.                 (message #catalogs)
  513.                 (makedir (tackon #total_dir "Catalogs") (prompt #catalogs))
  514.                 (if (not (exists (tackon #total_dir "Catalogs.info")))
  515.                     (copyfiles (newname "Catalogs.info") (source (select #icontype "Catalogs.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  516.                 )
  517.                 (copyfiles (source "Catalogs") (dest (tackon #total_dir "Catalogs")) (all) (infos) (prompt #catalogs))
  518.                 (set #catdir (tackon #total_dir "Catalogs"))
  519.                 (if (BITAND 1 #catbits)
  520.                     (
  521.                         (if #icontype
  522.                             (
  523.                                 (delete (tackon #catdir "deutsch.info"))
  524.                                 (delete (tackon #catdir "deutsch/scdp.catalog.info"))
  525.                             )
  526.                         )
  527.                     )
  528.                     (
  529.                         (delete (tackon #catdir "deutsch.info"))
  530.                         (delete (tackon #catdir "deutsch") (all))
  531.                     )
  532.                 )
  533.                 (if (BITAND 2 #catbits)
  534.                     (
  535.                         (if #icontype
  536.                             (
  537.                                 (delete (tackon #catdir "español.info"))
  538.                                 (delete (tackon #catdir "español/scdp.catalog.info"))
  539.                             )
  540.                         )
  541.                     )
  542.                     (
  543.                         (delete (tackon #catdir "español.info"))
  544.                         (delete (tackon #catdir "español") (all))
  545.                     )
  546.                 )
  547.                 (if (BITAND 4 #catbits)
  548.                     (
  549.                         (if #icontype
  550.                             (
  551.                                 (delete (tackon #catdir "norsk.info"))
  552.                                 (delete (tackon #catdir "norsk/scdp.catalog.info"))
  553.                             )
  554.                         )
  555.                     )
  556.                     (
  557.                         (delete (tackon #catdir "norsk.info"))
  558.                         (delete (tackon #catdir "norsk") (all))
  559.                     )
  560.                 )
  561.                 (if (BITAND 8 #catbits)
  562.                     (
  563.                         (if #icontype
  564.                             (
  565.                                 (delete (tackon #catdir "svenska.info"))
  566.                                 (delete (tackon #catdir "svenska/scdp.catalog.info"))
  567.                             )
  568.                         )
  569.                     )
  570.                     (
  571.                         (delete (tackon #catdir "svenska.info"))
  572.                         (delete (tackon #catdir "svenska") (all))
  573.                     )
  574.                 )
  575.                 (if (BITAND 16 #catbits)
  576.                     (
  577.                         (if #icontype
  578.                             (
  579.                                 (delete (tackon #catdir "français.info"))
  580.                                 (delete (tackon #catdir "français/scdp.catalog.info"))
  581.                             )
  582.                         )
  583.                     )
  584.                     (
  585.                         (delete (tackon #catdir "français.info"))
  586.                         (delete (tackon #catdir "français") (all))
  587.                     )
  588.                 )
  589.             )
  590.         )
  591.         
  592.         (if (BITAND #parts 16)
  593.             (
  594.         
  595.                 (message #copying_sources)
  596.         
  597.                 (makedir (tackon #total_dir "Sources") (prompt #copying_sources))
  598.                 (if (not (exists (tackon #total_dir "Sources.info")))
  599.                     (copyfiles (newname "Sources.info") (source (select #icontype "Sources.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  600.                 )
  601.         
  602.                 (set #sources_dir (tackon #total_dir "Sources"))
  603.         
  604.                 (copyfiles (dest #sources_dir) (source "Sources") (all))
  605.                 
  606.                 (if #icontype
  607.                     (delete (tackon #sources_dir "#?.info"))
  608.                 )
  609.             )
  610.         )
  611.         
  612.     )
  613. )
  614.