home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / wb_tools / mcp / install_mcp < prev    next >
Text File  |  1996-01-28  |  24KB  |  1,123 lines
  1. ;============================================================================;
  2. ;=               MCP Installscript V3.1 bY fOX/ALiENDESiGN!                 =;
  3. ;============================================================================;
  4.  
  5. ;================================= ENGLISH ==================================;
  6.  
  7. (set languages-default 1)
  8.  
  9. (set #bad-kick "You must be using Kickstart 2.04+ to install MCP")
  10.  
  11. (set #copy-mcp "Copying MCP...")
  12.  
  13. (set #copy-mcpicon "Copying MCP-Icon...")
  14.  
  15. (set #copy-mcpprefs "Copying MCP preferences editor...")
  16.  
  17. (set #copy-catalog "Copying preferences translation...")
  18.  
  19. (set #copy-democonfig "Copying Democonfiguration...")
  20.  
  21. (set #copy-pointer "Copying Demo 16 color pointer...")
  22.  
  23. (set #copy-gurudat "Copying Guru informations...")
  24.  
  25. (set #copy-doc "Copying Documentations...")
  26.  
  27. (set #copy-patchcontrol "Copying PatchControl...")
  28.  
  29. (set #copy-showpatches "Copying ShowPatches...")
  30.  
  31. (set #copy-fixjump "Copying FixJump...")
  32.  
  33. (set #copy-mcpsupport-library "Copying mcpsupport.library to Libs: ...")
  34.  
  35. (set #copy-mcpgfx-library "Copying mcpgfx.library to Libs: ...")
  36.  
  37. (set #copy-_asl-library "Copying _asl.library to Libs: ...")
  38.  
  39. (set #copy-reqtools-library "Copying reqtools.library to Libs: ...")
  40.  
  41. (set #copy-_asl-library "Copying _asl.library to Libs: ...")
  42.  
  43. (set #copy-envarc-env "Copying ENV:MCP to ENVARC:MCP ...")
  44.  
  45. (set #install-select
  46.     (cat
  47.         "Please select the different parts of MCP that you"
  48.         " would like to install:"
  49.     )
  50. )
  51.  
  52. (set #install-select-help
  53.     (cat
  54.         "MCP: The Master Control Program...\n"
  55.         "\n"
  56.         "MCP-Icon: The icon from MCP... It's worth using this,"
  57.         " if MCP should be installed to C:.\n"
  58.         "\n"
  59.         "MCP Preferences: The MCP preferences editor.\n"
  60.         "\n"
  61.         "Translations for MCPPrefs: The MCP-Preferences Cata-\n"
  62.         "log-files.\n"
  63.         "\n"
  64.         "Demo Configuration: A demo-configuration for MCP.\n"
  65.         "16 Color Pointer: Some 16-Color mousepointers.\n"
  66.         "\n"
  67.         "Guru Infos: MCP.gurudat. Needed for MCPs NoGuru and\n"
  68.         "AlertHistory.\n"
  69.         "\n"
  70.         "Documentation: The documentations for all programs.\n"
  71.         "\n"
  72.         "PatchControl: A program for better systempatch hand-\n"
  73.         "ling. Needed for MCPPrefs USE and TEST.\n"
  74.         "\n"
  75.         "ShowPatches: A tool to show all systempatches, if Pa-"
  76.         "tchControl was started.\n"
  77.         "\n"
  78.         "FixJump: To solve all problems with jumping BootPics.\n"
  79.         "\n"
  80.         "reqtools.library: Needed for MCP.\n"
  81.         "\n"
  82.         "_asl.library: A new asl.library for more memory.\n"
  83.         " Needed for MCPs OneReq."
  84.     )
  85. )
  86.  
  87. (set #doc-select
  88.     (cat
  89.         "Please select your favourite Documentation that you would"
  90.         " like to install:"
  91.     )
  92. )
  93.  
  94. (set #doc-select-help
  95.     (cat
  96.         "Make sure that you must have an AmigaGuide® viewer to"
  97.         " enjoy the Guide documentation!"
  98.     )
  99. )
  100.  
  101. (set #languages-select "\nWhich languages should be installed?")
  102.  
  103. (set #languages-select-help
  104.     (cat
  105.         "Please select your favourite language that should be"
  106.         " copied to you Locale: directory?"
  107.     )
  108. )
  109.  
  110. (set #pointer-select "Which 16-Color pointer should be installed? ")
  111.  
  112. (set #pointer-select-help
  113.     (cat
  114.         "There are Some REALLY NICE pointers available please check:"
  115.         "\n\nDescription of the pointers:\n\n"
  116.         "Blue + Joshi.: Blue pointer with a gold medal of Joshi\n"
  117.         "ColorMagic...: Really nice pointer with a cream-tone and a"
  118.         " zZz-busy pointer\n"
  119.         "DragonHand...: Nice hand as pointer and a cool dragon as"
  120.         " busy pointer"
  121.     )
  122. )
  123.  
  124. (set #pointer1 "Blue + Joshi by fOX!")
  125. (set #pointer2 "Colormagic   by Fli7e")
  126. (set #pointer3 "Dragonhand   by Trevor Moris")
  127.  
  128. (set #startup-mcp "Do you want to insert MCP into your S:Startup-Sequence ?")
  129.  
  130. (set #startup-mcp-help
  131.     (cat
  132.         "If you select 'Yes', MCP will be inserted to your Startup-"
  133.         "Sequence after your last assign of ENV: \n"
  134.         "So it's automaticly installed on each bootup!"
  135.     )
  136. )
  137.  
  138. (set #startup-patchcontrol
  139.     (cat
  140.         "Do you want to insert PatchControl into your"
  141.         " S:Startup-Sequence ?"
  142.     )
  143. )
  144.  
  145. (set #startup-patchcontrol-help
  146.     (cat
  147.         "If you select 'Yes', Patchcontrol will be inserted right"
  148.         " after the SetPatch in your Startup-Sequence."
  149.     )
  150. )
  151.  
  152. (set #item-mcp "MCP")
  153.  
  154. (set #item-mcpicon "MCP-Icon")
  155.  
  156. (set #item-mcpprefs "MCP Preferences")
  157.  
  158. (set #item-translations "Translations for MCPPrefs")
  159.  
  160. (set #item-democonfig "Demo Configuration")
  161.  
  162. (set #item-demopointer "16 Color Pointer")
  163.  
  164. (set #item-gurudat "Guru Infos")
  165.  
  166. (set #item-doc "Documentations")
  167.  
  168. (set #item-patchcontrol "PatchControl")
  169.  
  170. (set #item-showpatches "ShowPatches")
  171.  
  172. (set #item-fixjump "FixJump")
  173.  
  174. (set #item-mcpsupport-library "mcpsupport.library")
  175.  
  176. (set #item-mcpgfx-library "mcpgfx.library")
  177.  
  178. (set #item-reqtools-library "reqtools.library")
  179.  
  180. (set #item-asl-library "_asl.library")
  181.  
  182. (set #where-mcp "Where would you like to install MCP?")
  183.  
  184. (set #where-mcp-help
  185.     (cat
  186.         "This is the destination directory of MCP"
  187.     )
  188. )
  189.  
  190. (set #where-mcpprefs "Where would you like to install MCP Preferences editor?")
  191.  
  192. (set #where-mcpprefs-help
  193.     (cat
  194.         "This is the destination directory of MCP preferences editor!"
  195.         " Normaly ALL preferences editors are in SYS:Prefs !"
  196.     )
  197. )
  198.  
  199. (set #where-gurudat "Where would you like to install the Guru-Information?")
  200.  
  201. (set #where-gurudat-help 
  202.     (cat
  203.         "The guru information is a file called MCP.gurudat"
  204.         " and it's normally placed in your S: directory.\n"
  205.         "If you installed the democonfig you have to use S:."
  206.     )
  207. )
  208.  
  209. (set #where-doc "Where would you like to install the Documentations?")
  210.  
  211. (set #where-patchcontrol "Where would you like to install PatchControl?")
  212.  
  213. (set #where-patchcontrol-help
  214.     (cat
  215.         "PatchControl is normally placed in you C: directory!"
  216.     )
  217. )
  218.  
  219. (set #where-showpatches "Where would you like to install ShowPatches?")
  220.  
  221. (set #where-showpatches-help
  222.     (cat
  223.         "ShowPatches is normally placed in you C: directory!"
  224.     )
  225. )
  226.  
  227. (set #where-fixjump "Where would you like to install FixJump?")
  228.  
  229. (set #where-fixjump-help
  230.     (cat
  231.         "FixJump is normally placed in you C: directory!"
  232.     )
  233. )
  234.  
  235. (set #which-startup "Select your startup with ENV: assign!")
  236.  
  237. (set #which-startup-help
  238.     (cat
  239.         "Please select your startup-sequence with your first"
  240.         " ENV: assign, because MCP is added right after it."
  241.         " If you doesn't select the right startup you have insert"
  242.         " it by yourself...\n"
  243.         "ATTENTION: If there is already a MCP installed into this"
  244.         " startup the installer wouldn't add anything"
  245.     )
  246. )
  247.  
  248. (set #run-conv "Please Wait... Converting In Progress")
  249.  
  250. (set #conv-ap "Do you want to convert AssignPrefs to MCP.config ?")
  251.  
  252. (set #conv-am "Do you want to convert AssignManager.prefs to MCP.config ?")
  253.  
  254. (set #conv-help
  255.     (cat
  256.         "If you convert your AssignPrefs / AssignManager, you"
  257.         " can drop this program if you select 'AssignPrefs = ON'"
  258.         " in the MCPPrefs program!"
  259.     )
  260. )
  261.  
  262. (set #install-exit
  263.     (cat
  264.         "Thank you for installing MCP ..."
  265.     )
  266. )
  267.  
  268. (set #install-start
  269.     (cat
  270.         "\nWelcome to MCP installation utility!\n\n"
  271.         ".######.     .####  \n"
  272.         "###  ###     #####  \n"
  273.         "     ###      ####  \n"
  274.         "  #####       ####  \n"
  275.         "    .###      ####  \n"
  276.         "### ####      ####  \n"
  277.         "### #### ##   ####  \n"
  278.         "`######' ## ########\n\n"
  279.         "fOR MCP 1.10\n\n
  280.         "Written and performed by fOX/aLiENDESiGN!\n"
  281.     )
  282. )
  283.  
  284. (set #run-prefs "Running MCPPrefs ! Configurate your MCP!")
  285.  
  286. (set #run-prefs-help
  287.     (cat
  288.         "If You Already run a older version of MCP you have to"
  289.         " save your config again!\n\n"
  290.         "New users have to configurate the whole MCP !"
  291.     )
  292. )
  293.  
  294.  
  295. ;===[ German Documentation ]=================================================
  296.  
  297. (if (= @language "deutsch")
  298.  (
  299. (set languages-default 2)
  300.  
  301. (set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um MCP benutzen zu können!")
  302.  
  303. (set #copy-mcp "Kopiere MCP...")
  304.  
  305. (set #copy-mcpicon "Kopiere MCP-Icon...")
  306.  
  307. (set #copy-mcpprefs "Kopiere MCP Voreinsteller...")
  308.  
  309. (set #copy-catalog "Kopiere Voreinsteller-Übersetzungen...")
  310.  
  311. (set #copy-democonfig "Kopiere Demo Einstellung...")
  312.  
  313. (set #copy-pointer "Kopiere Demo 16 Farben Mauszeiger...")
  314.  
  315. (set #copy-gurudat "Kopiere Guru Informationen...")
  316.  
  317. (set #copy-doc "Kopiere Dokumentationen...")
  318.  
  319. (set #copy-patchcontrol "Kopiere PatchControl...")
  320.  
  321. (set #copy-showpatches "Kopiere ShowPatches...")
  322.  
  323. (set #copy-fixjump "Kopiere FixJump...")
  324.  
  325. (set #copy-mcpsupport-library "Kopiere mcpsupport.library ins Libs: ...")
  326.  
  327. (set #copy-mcpgfx-library "Kopiere mcpgfx.library ins Libs: ...")
  328.  
  329. (set #copy-reqtools-library "Kopiere reqtools.library ins Libs: ...")
  330.  
  331. (set #copy-_asl-library "Kopiere _asl.library ins Libs: ...")
  332.  
  333. (set #copy-envarc-env "Kopiere ENV:MCP ins ENVARC:MCP ...")
  334.  
  335. (set #install-select
  336.     (cat
  337.         "Bitte wähle die einzelnen Teile des MCP aus, die"
  338.         " Du installieren möchtest:"
  339.     )
  340. )
  341.  
  342. (set #install-select-help
  343.     (cat
  344.         "MCP: Das Master Control Program...\n"
  345.         "\n"
  346.         "MCP-Icon: Das Icon für MCP... Es ist nur nützlich wenn Du"
  347.         " MCP in das C: Verzeichnis installierst.\n"
  348.         "\n"
  349.         "MCP Preferences: Der MCP Voreinsteller (benötigt MUI).\n"
  350.         "\n"
  351.         "Übersetzungen für MCPPrefs: Die MCP-Voreinsteller Cata-\n"
  352.         "log-Dateien.\n"
  353.         "\n"
  354.         "Demo Einstellung: Eine Beispiel-Einstellung für MCP.\n"
  355.         "16 Farben Zeiger: Einige 16-Farben Mauszeiger.\n"
  356.         "\n"
  357.         "Guru Infos: MCP.gurudat. Wird von der MCP-NoGuru und\n"
  358.         "AlertHistory benutzt.\n"
  359.         "\n"
  360.         "Dokumentationen: Die Dokumentationen für alle Programme.\n"
  361.         "\n"
  362.         "PatchControl: Ist ein Programm das ein besseres SystemPatching\n"
  363.         "ermöglicht. Wird gebraucht, um bei MCPPrefs \"Benutzen\" und\n"
  364.         "\"Testen\" benutzen zu können\n"
  365.         "\n"
  366.         "ShowPatches: Zeigt die geänderten SystemFunktionen an.\n"
  367.         "\n"
  368.         "FixJump: Entfernt das Problem mit springenden BootBildern\n.\n"
  369.         "\n"
  370.         "reqtools.library: Wird vom MCP benötigt.\n"
  371.         "\n"
  372.         "_asl.library: Eine neue asl.library die weniger Speicher braucht.\n"
  373.         " Wird von der OneReq Funktion des MCP benutzt."
  374.     )
  375. )
  376.  
  377. (set #doc-select
  378.     (cat
  379.         "Bitte wähle die Dokumentationen aus, die Du installieren möchtest:"
  380.     )
  381. )
  382.  
  383. (set #doc-select-help
  384.     (cat
  385.         "Du brauchst einen AmigaGuide® Anzeiger, um die Guide Files anzuzeigen."
  386.     )
  387. )
  388.  
  389. (set #languages-select "\nWelche Sprachen sollen installiert werden?")
  390.  
  391. (set #languages-select-help
  392.     (cat
  393.         "Bitte suche die Sprache für MCPPrefs aus, die "
  394.         " in Dein Locale: Verzeichnis kopiert werden soll!"
  395.     )
  396. )
  397.  
  398. (set #pointer-select "Welcher 16-Farben Mauszeiger soll installiert werden?")
  399.  
  400. (set #pointer-select-help
  401.     (cat
  402.         "Erläuterung der MausZeiger:\n\n"
  403.         "Blue + Joshi.: Blauer Pfeil mit einer Gold Medaille von Joshi\n"
  404.         "ColorMagic...: Sehr schöner Cremefarbener Zeiger mit einem\n"
  405.         " zZz-Warte Zeiger\n"
  406.         "DrachenHand..: Eine Hand als Zeiger und ein toller Drachen"
  407.         " als Warte Zeiger."
  408.     )
  409. )
  410.  
  411. (set #pointer1 "Blue + Joshi von fOX!")
  412. (set #pointer2 "Colormagic   von Fli7e")
  413. (set #pointer3 "Drachenhand  von Trevor Moris")
  414.  
  415. (set #startup-mcp "Möchtest Du MCP in Deine S:Startup-Sequence einfügen lassen?")
  416.  
  417. (set #startup-mcp-help
  418.     (cat
  419.         "Wenn Du 'Ja' auswählst, wird MCP in Deiner Startup-"
  420.         "Sequence nach dem letzten ENV: assign eingefügt.\n"
  421.         "Damit wird es automatisch beim Systemstart gestartet."
  422.     )
  423. )
  424.  
  425. (set #startup-patchcontrol
  426.     (cat
  427.         "Möchtest Du PatchControl in Deine S:Startup-Sequence einfügen lassen?"
  428.     )
  429. )
  430.  
  431. (set #startup-patchcontrol-help
  432.     (cat
  433.         "Wenn Du 'Ja' auswählst, wird PatchControl in Deiner Startup-Sequence nach dem SetPatch eingefügt."
  434.     )
  435. )
  436.  
  437. (set #item-mcpprefs "MCP Voreinsteller")
  438.  
  439. (set #item-translations "Übersetzungen für MCPPrefs")
  440.  
  441. (set #item-democonfig "Demo Einstellung")
  442.  
  443. (set #item-demopointer "16 Farben Mauspfeil")
  444.  
  445. (set #item-doc "Dokumentationen")
  446.  
  447. (set #where-mcp "Wohin möchtest Du MCP installieren?")
  448.  
  449. (set #where-mcp-help
  450.     (cat
  451.         "Dies ist das Zielverzeichnis von MCP."
  452.     )
  453. )
  454.  
  455. (set #where-mcpprefs "Wohin möchtest Du den MCP Voreinsteller installieren?")
  456.  
  457. (set #where-mcpprefs-help
  458.     (cat
  459.         "Dies ist das Zielverzeichnis vom MCP Voreinsteller!"
  460.         "Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs !"
  461.     )
  462. )
  463.  
  464. (set #where-gurudat "Wohin möchtest Du die Guru-Informationen installieren?")
  465.  
  466. (set #where-gurudat-help 
  467.     (cat
  468.         "Die Guru-Information heißt 'MCP.gurudat' und wird"
  469.         " normalerweise ins S: Verzeichnis installiert.\n"
  470.         "Wenn Du die Demo Einstellung installiert hast, wähle"
  471.         " das S: Verzeichnis"
  472.     )
  473. )
  474.  
  475. (set #where-doc "Wohin möchtest Du die Dokumentationen installieren?")
  476.  
  477. (set #where-patchcontrol "Wohin möchtest Du PatchControl installieren?")
  478.  
  479. (set #where-patchcontrol-help
  480.     (cat
  481.         "PatchControl wird normalerweise ins C: Verzeichnis"
  482.         " installiert!"
  483.     )
  484. )
  485.  
  486. (set #where-showpatches "Wohin möchtest Du ShowPatches installieren?")
  487.  
  488. (set #where-showpatches-help
  489.     (cat
  490.         "ShowPatches wird normalerweise ins C: Verzeichnis"
  491.         " installiert!"
  492.     )
  493. )
  494.  
  495. (set #where-fixjump "Wohin möchtest Du FixJump installieren?")
  496.  
  497. (set #where-fixjump-help
  498.     (cat
  499.         "FixJump wird normalerweise ins C: Verzeichnis"
  500.         " installiert!"
  501.     )
  502. )
  503.  
  504. (set #which-startup "Bitte wähle dein Startup mit dem ENV: assign!")
  505.  
  506. (set #which-startup-help
  507.     (cat
  508.         "Wähle hier die Startup-Sequence die dein erstes ENV:"
  509.         " assign enthält, dieses ist deshalt notwendig weil der"
  510.         " Installer nach dem ENV: sucht und danach dann das MCP"
  511.         " direkt danach einfügt. Solltest Du dieses nicht richtig"
  512.         " machen, so musst Du nachher selber das MCP einfügen!\n"
  513.         "ACHTUNG: Sollte bereits ein MCP in dieser Startup enthalten"
  514.         " sein so wird vom Installer nichts hinzugefuegt!"
  515.     )
  516. )
  517.  
  518. (set #run-conv "Bitte warten... Konvertierung läuft!")
  519.  
  520. (set #conv-ap "Möchtest Du Deine AssignPrefs zur MCP.config konvertieren?")
  521.  
  522. (set #conv-am "Möchtest Du Deine AssignManager.prefs zur MCP.config konvertieren?")
  523.  
  524. (set #conv-help
  525.     (cat
  526.         "Wenn Du AssignPrefs / AssignManager Konfigurationen"
  527.         " konvertiert hast, kannst Du diese entfernen."
  528.     )
  529. )
  530.  
  531. (set #install-exit
  532.     (cat
  533.         "Vielen Dank für die Installation von MCP ...\n\n"
  534.         "...Fortsetzung folgt..."
  535.     )
  536. )
  537.  
  538. (set #install-start
  539.     (cat
  540.         "\nWillkommen zur MCP Installation!\n\n"
  541.         ".######.     .####  \n"
  542.         "###  ###     #####  \n"
  543.         "     ###      ####  \n"
  544.         "  #####       ####  \n"
  545.         "    .###      ####  \n"
  546.         "### ####      ####  \n"
  547.         "### #### ##   ####  \n"
  548.         "`######' ## ########\n\n"
  549.         "fÜR MCP 1.10\n\n
  550.         "Geschrieben von fOX/aLiENDESiGN!\n"
  551.     )
  552. )
  553.  
  554. (set #run-prefs "Starte MCPPrefs... Konfiguriere nun den MCP!")
  555.  
  556. (set #run-prefs-help
  557.     (cat
  558.         "Wenn Du bereits eine ältere Version von MCP laufen hast,"
  559.         " speichere Deine Einstellung unbedingt neu!\n\n"
  560.     )
  561. )
  562.  )
  563. )
  564.  
  565. ;============================== PROGRAM-START================================
  566.  
  567. (set @default-dest "")
  568.  
  569. ; Check Kickstart (>= v2.0) Version.
  570.  
  571. (if (< (/ (getversion) 65536) 37)
  572.     (abort #bad-kick)
  573. )
  574.  
  575. (message #install-start)
  576.  
  577. (set install-default 8071)
  578.  
  579. (if (exists "Locale:" (noreq))
  580.     (set install-default (BITOR install-default 8))
  581. )
  582.  
  583. (if (NOT (exists "ENVARC:MCP/MCP.Config" (noreq)))
  584.     (set install-default (BITOR install-default 16))
  585. )
  586.  
  587. (if (NOT (exists "ENVARC:MCP/MCPPointer.prefs" (noreq)))
  588.     (set install-default (BITOR install-default 32))
  589. )
  590.  
  591. (if (NOT (exists "Libs:reqtools.library" (noreq)))
  592.     (set install-default (BITOR install-default 8192))
  593. )
  594.  
  595. (if (NOT (exists "Libs:_asl.library" (noreq)))
  596.     (set install-default (BITOR install-default 16384))
  597. )
  598.  
  599. (welcome)
  600.  
  601. (set install-files
  602.     (askoptions
  603.         (prompt    #install-select)
  604.         (help    #install-select-help "\n\n" @askoptions-help)
  605.         (choices
  606.             #item-mcp
  607.             #item-mcpicon
  608.             #item-mcpprefs
  609.             #item-translations
  610.             #item-democonfig
  611.             #item-demopointer
  612.             #item-gurudat
  613.             #item-doc
  614.             #item-patchcontrol
  615.             #item-showpatches
  616.             #item-fixjump
  617.             #item-mcpsupport-library
  618.             #item-mcpgfx-library
  619.             #item-reqtools-library
  620.             #item-asl-library
  621.         )
  622.         (default install-default)
  623.     )
  624. )
  625.  
  626. (set startup-files 0)
  627.  
  628. (if (BITAND install-files 1)
  629.     (
  630.         (set mcp-dest
  631.             (askdir
  632.                 (prompt    #where-mcp)
  633.                 (help    #where-mcp-help "\n\n" @askdir-help)
  634.                 (default "C:")
  635.             )
  636.         )
  637.         (if (RUN "C/Search S:StartUp-Sequence #?MCP PATTERN QUIET")
  638.             (if    (askbool
  639.                     (prompt #startup-mcp)
  640.                     (help #startup-mcp-help "\n\n" @askbool_help)
  641.                     (default 1)
  642.                 )
  643.                 (set startup-files (BITOR startup-files 1))
  644.             )
  645.         )
  646.     )
  647. )
  648.  
  649. (if (BITAND install-files 4)
  650.     (set mcpprefs-dest
  651.         (askdir
  652.             (prompt    #where-mcpprefs)
  653.             (help    #where-mcpprefs-help "\n\n" @askdir-help)
  654.             (default "SYS:Prefs/")
  655.         )
  656.     )
  657. )
  658.  
  659. (if (BITAND install-files 256)
  660.     (
  661.         (set patchcontrol-dest
  662.             (askdir
  663.                 (prompt    #where-patchcontrol)
  664.                 (help    #where-patchcontrol-help "\n\n" @askdir-help)
  665.                 (default "C:")
  666.             )
  667.         )
  668.         (if (RUN "C/Search S:StartUp-Sequence #?patchcontrol PATTERN QUIET")
  669.             (if    (askbool
  670.                     (prompt #startup-patchcontrol)
  671.                     (help #startup-patchcontrol-help "\n\n" @askbool_help)
  672.                     (default 1)
  673.                 )
  674.                 (set startup-files (BITOR startup-files 2))
  675.             )
  676.         )
  677.     )
  678. )
  679.  
  680. (if (BITAND install-files 512)
  681.     (set showpatches-dest
  682.         (askdir
  683.             (prompt    #where-showpatches)
  684.             (help    #where-showpatches-help "\n\n" @askdir-help)
  685.             (default "C:")
  686.         )
  687.     )
  688. )
  689.  
  690. ;Set FixJump Destination
  691.  
  692. (if (BITAND install-files 1024)
  693.     (set fixjump-dest
  694.         (askdir
  695.             (prompt    #where-fixjump)
  696.             (help    #where-fixjump-help "\n\n" @askdir-help)
  697.             (default "C:")
  698.         )
  699.     )
  700. )
  701.  
  702. ;Set MCP.gurudat Destination
  703.  
  704. (if (BITAND install-files 64)
  705.     (set gurudat-dest
  706.         (askdir
  707.             (prompt    #where-gurudat)
  708.             (help    #where-gurudat-help "\n\n" @askdir-help)
  709.             (default "S:")
  710.         )
  711.     )
  712. )
  713.  
  714. ; Check + DefaultSet + Request Of Documentation(s)
  715.  
  716. (if (BITAND install-files 128)
  717.     (
  718.         (if (= @LANGUAGE "deutsch")
  719.             (set doc-default 2)
  720.             (set doc-default 1)
  721.         )
  722.         (set doc-files
  723.             (askoptions
  724.                 (prompt    #doc-select)
  725.                     (help    #doc-select-help "\n\n" @askoptions-help)
  726.                     (choices
  727.                         "MCP.......... English"
  728.                         "MCP.......... Deutsch"
  729.                         "MCP.......... Français"
  730.                         "MCP.......... Svenska"
  731.                     )
  732.                 (default doc-default)
  733.             )
  734.         )
  735.         (set doc-dest
  736.             (askdir
  737.                 (prompt    #where-doc)
  738.                 (help    @askdir-help)
  739.                 (default "SYS:")
  740.             )
  741.         )
  742.     )
  743. )
  744.  
  745. (if (AND (BITAND install-files 8) (= (exists "Locale:") 2))
  746.     (set    languages
  747.         (askoptions
  748.             (prompt    #languages-select)
  749.             (help    #languages-select-help "\n\n" @askoptions-help)
  750.             (choices
  751.                 "English"
  752.                 "Deutsch"
  753.                 "Français"
  754.                 "Danish"
  755.                 "Italiano"
  756.                 "Norsk"
  757.                 "Svenska"
  758.             )
  759.             (default languages-default)
  760.         )
  761.     )
  762. )
  763.  
  764. (if (BITAND install-files 32)
  765.     (set pointer
  766.         (askchoice
  767.             (prompt #pointer-select)
  768.             (help    #pointer-select-help)
  769.             (choices
  770.                 #pointer1
  771.                 #pointer2
  772.                 #pointer3
  773.             )
  774.             (default 0)
  775.         )
  776.     )
  777. )
  778.  
  779. ;========================== COPY STARTS HERE ===============================
  780.  
  781. ; Copy MCP + Install in Startup
  782.  
  783. (if (BITAND install-files 1)
  784.     (
  785.         (set prozess (database "cpu"))
  786.         (if (< "68010" prozess)
  787.             (set mcp-source "MCP020")
  788.             (set mcp-source "MCP")
  789.         )
  790.         (copyfiles
  791.             (prompt #copy-mcp)
  792.             (source mcp-source)
  793.             (newname "MCP")
  794.             (dest mcp-dest)
  795.             (files)
  796.         )
  797.         (if (BITAND startup-files 1)
  798.             (
  799.                 (if (RUN ("C/InsertText S:Startup-Sequence \"#?Assign#?ENV:#?\" \"%s\" LAST" (tackon mcp-dest "MCP")))
  800.                     (
  801.                         (set newstartup
  802.                             (askfile
  803.                                 (prompt    #which-startup)
  804.                                 (help    #which-startup-help "\n\n" @askfile-help)
  805.                                 (default "S:User-Startup")
  806.                             )
  807.                         )
  808.                         (if (RUN "C/Search %s #?MCP PATTERN QUIET" (newstartup))
  809.                             (RUN ("C/InsertText %s \"#?Assign#?ENV:#?\" \"%s\" LAST" (newstartup) (tackon mcp-dest "MCP")))
  810.                         )
  811.                     )
  812.                 )
  813.             )
  814.         )
  815.     )
  816. )
  817.  
  818. (complete 7)
  819.  
  820. ; Copy MCP-Icon
  821.  
  822. (if (AND (BITAND install-files 2) (BITAND install-files 1))
  823.     (copyfiles
  824.         (prompt #copy-mcp-icon)
  825.         (source "MCP.info")
  826.         (dest mcp-dest)
  827.     )
  828. )
  829.  
  830. (complete 14)
  831.  
  832. ;Copy MCP Preferences
  833.  
  834. (if (BITAND install-files 4)
  835.     (copyfiles
  836.         (prompt #copy-mcpprefs)
  837.         (source "Prefs/MCPPrefs")
  838.         (dest mcpprefs-dest)
  839.         (infos)
  840.     )
  841. )
  842.  
  843. (complete 21)
  844.  
  845. ; Copy catalog files
  846.  
  847. (if (and (BITAND install-files 8) (= (exists "Locale:") 2))
  848.     (
  849.         (set n 0)
  850.         (while
  851.             (set language
  852.                 (select n
  853.                     "English"
  854.                     "Deutsch"
  855.                     "Français"
  856.                     "Danish"
  857.                     "Italiano"
  858.                     "Norsk"
  859.                     "Svenska"
  860.                     ""
  861.                 )
  862.             )
  863.             (
  864.                 (if (IN languages n)
  865.                     (if (<> 0 n)   ; No catalog for english strings...
  866.                         (
  867.                             (set catalogs (tackon "Locale/Catalogs" language))
  868.                             (set destination (tackon "Locale:Catalogs" language))
  869.                             (makedir destination)
  870.                             (if (exists (tackon catalogs "MCPPrefs.catalog"))
  871.                                 (copylib
  872.                                     (prompt #copy-catalog)
  873.                                     (source (tackon catalogs "MCPPrefs.catalog"))
  874.                                     (dest destination)
  875.                                 )
  876.                             )
  877.                         )
  878.                     )
  879.                 )
  880.                 (set n (+ n 1))
  881.             )
  882.         )
  883.     )
  884. )
  885.  
  886. (complete 28)
  887.  
  888. ;Copy Demo Config + Rename Old One !
  889.  
  890. (if (BITAND install-files 16)
  891.     (
  892.         (if (exists "ENVARC:MCP")
  893.             (rename "ENVARC:MCP/MCP.config" "ENVARC:MCP/MCP.Config.old")
  894.         )
  895.         (copyfiles
  896.             (prompt #copy-democonfig)
  897.             (source "ENVARC/MCP/MCP.Config")
  898.             (dest "ENVARC:MCP")
  899.         )
  900.         (if (exists "ENVARC:AssignManager.prefs")
  901.             (if
  902.                 (askbool
  903.                     (prompt #conv-am)
  904.                     (help #conv-help "\n\n" @askbool_help)
  905.                     (default 1)
  906.                 )
  907.                 (RUN "C/ConvAM"
  908.                     (prompt #run-conv)
  909.                 )
  910.             )
  911.         )
  912.         (if (exists "ENVARC:AssignPrefs")
  913.             (if
  914.                 (askbool
  915.                     (prompt #conv-ap)
  916.                     (help #conv-help "\n\n" @askbool_help)
  917.                     (default 1)
  918.                 )
  919.                 (RUN "C/ConvAP"
  920.                     (prompt #run-conv)
  921.                 )
  922.             )
  923.         )
  924.     )
  925. )
  926.  
  927. (complete 35)
  928.  
  929. ;Install 16 Color Pointer + Rename old one
  930.  
  931. (if (BITAND install-files 32)
  932.     (
  933.         (set pointer-source
  934.             (select pointer
  935.                 "mcppointer01.prefs"
  936.                 "mcppointer02.prefs"
  937.                 "mcppointer03.prefs"
  938.             )
  939.         )
  940.         (if (Exists "ENVARC:MCP" )
  941.             (rename "ENVARC:MCP/mcppointer.prefs" "ENVARC:MCP/MCPPointer.prefs.old")
  942.         )
  943.         (set source-file (tackon "ENVARC/MCP" pointer-source))
  944.         (copyfiles
  945.             (prompt #copy-pointer)
  946.             (source source-file)
  947.             (dest "ENVARC:MCP")
  948.             (newname "MCPPointer.prefs")
  949.         )
  950.     )
  951. )
  952.  
  953. (complete 42)
  954.  
  955. (if (BITAND install-files 64)
  956.     (copyfiles
  957.         (prompt #copy-gurudat)
  958.         (source "S/MCP.gurudat")
  959.         (dest gurudat-dest)
  960.     )
  961. )
  962.  
  963. (complete 49)
  964.  
  965. (if (BITAND install-files 128)
  966.     (
  967.         (set n 0)
  968.         (while
  969.             (set doc
  970.                 (select n
  971.                     "docs/MCP_eng.guide"
  972.                     "docs/MCP_ger.guide"
  973.                     "docs/MCP_fr.guide"
  974.                     "docs/PatchControl_eng.doc"
  975.                     "docs/PatchControl_ger.doc"
  976.                     "docs/PatchControl_fr.doc"
  977.                     "docs/FixJump_eng.doc"
  978.                     "docs/FixJump_ger.doc"
  979.                     "docs/FixJump_fr.doc"
  980.                     ""
  981.                 )
  982.             )
  983.             (
  984.                 (if (IN doc-files n)
  985.                     (copyfiles
  986.                         (prompt #copy-doc)
  987.                         (source doc)
  988.                         (dest doc-dest)
  989.                     )
  990.                 )
  991.                 (set n (+ n 1))
  992.             )
  993.         )
  994.     )
  995. )
  996.  
  997. (complete 56)
  998.  
  999. ; Copy PatchControl + Install in Startup
  1000.  
  1001. (if (BITAND install-files 256)
  1002.     (
  1003.         (copyfiles
  1004.             (prompt #copy-patchcontrol)
  1005.             (source "Tools/PatchControl")
  1006.             (dest patchcontrol-dest)
  1007.             (files)
  1008.         )
  1009.         (if (BITAND startup-files 2)
  1010.             (if (exists "C:ARQ")
  1011.                 (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl ARQ")))
  1012.                 (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl")))
  1013.             )
  1014.         )
  1015.     )
  1016. )
  1017.  
  1018. (complete 63)
  1019.  
  1020. ;Copy ShowPatches
  1021.  
  1022. (if (BITAND install-files 512)
  1023.     (copyfiles
  1024.         (prompt #copy-showpatches)
  1025.         (source "Tools/ShowPatches")
  1026.         (dest showpatches-dest)
  1027.     )
  1028. )
  1029.  
  1030. (complete 70)
  1031.  
  1032. ;Copy FixJump
  1033.  
  1034. (if (BITAND install-files 1024)
  1035.     (copyfiles
  1036.         (prompt #copy-fixjump)
  1037.         (source "Tools/FixJump")
  1038.         (dest fixjump-dest)
  1039.     )
  1040. )
  1041.  
  1042. (complete 74)
  1043.  
  1044. ;Copy mcpsupport.library to libs:
  1045.  
  1046. (if (BITAND install-files 2048)
  1047.     (copylib
  1048.         (prompt #copy-mcpsupport-library)
  1049.         (source "Libs/mcpsupport.library")
  1050.         (dest "Libs:")
  1051.     )
  1052. )
  1053.  
  1054. (complete 78)
  1055.  
  1056. ;Copy mcpgfx.library to Libs:
  1057.  
  1058. (if (BITAND install-files 4096)
  1059.     (copylib
  1060.         (prompt #copy-mcpgfx-library)
  1061.         (source "Libs/mcpgfx.library")
  1062.         (dest "Libs:")
  1063.     )
  1064. )
  1065.  
  1066. (complete 82)
  1067.  
  1068. ;Copy reqtools.library to libs:
  1069.  
  1070. (if (BITAND install-files 8192)
  1071.     (copylib
  1072.         (prompt #copy-reqtools-library)
  1073.         (source "Libs/reqtools.library")
  1074.         (dest "Libs:")
  1075.     )
  1076. )
  1077.  
  1078. (complete 86)
  1079.  
  1080. ;Copy _asl.library to Libs:
  1081.  
  1082. (if (BITAND install-files 16384)
  1083.     (copylib
  1084.         (prompt #copy-_asl-library)
  1085.         (source "Libs/_asl.library")
  1086.         (dest "Libs:")
  1087.     )
  1088. )
  1089.  
  1090. (complete 91)
  1091.  
  1092. ;Copy ENVARC:MCP to ENV:MCP if MCP-Democonfig or Pointer is installed!
  1093.  
  1094. (if (OR (BITAND install-files 16) (BITAND install-files 32))
  1095.     (if (askbool
  1096.         (prompt #copy-envarc-env)
  1097.         (help @askbool_help)
  1098.         (default 1)
  1099.     )
  1100.             (copyfiles
  1101.                 (source "ENVARC:MCP")
  1102.                 (dest "ENV:MCP")
  1103.                 (all)
  1104.             )
  1105.     )
  1106. )
  1107.  
  1108. (complete 98)
  1109.  
  1110. ;Run MCPPrefs Before Exiting
  1111.  
  1112. (if (BITAND install-files 4)
  1113.     (RUN (tackon mcpprefs-dest "MCPPrefs")
  1114.         (prompt #run-prefs)
  1115.         (help #run-prefs-help)
  1116.         (confirm 3)
  1117.     )
  1118. )
  1119.  
  1120. (complete 100)
  1121.  
  1122. (EXIT #install-exit)
  1123.