home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 105 / ac105b.adf / mcp121.lzx / MCP / Install_MCP < prev    next >
Text File  |  1996-08-13  |  26KB  |  1,214 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 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 your 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 command 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.         " Normally 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 have 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 your 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 your 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 your 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.21\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 an older version of MCP you have to"
  289.         " save your config again!\n\n"
  290.         "New users have to configure the whole MCP !"
  291.     )
  292. )
  293.  
  294. (set #checksum-calc "Calculating Checksum of %s")
  295.  
  296. (set #checksum-error
  297.     (cat
  298.         "Checksum error in file %s\n\n"
  299.         "Do you want to abort ?\n"
  300.     )
  301. )
  302.  
  303. (set #checksum-help
  304.     (cat
  305.         "The checksum of the shown file is not ok!\n"
  306.         "That's possible an error which caused from a virus"
  307.         " so if you are not sure if the file is ok, then get"
  308.         " the whole package again, to make sure that all is ok!"
  309.     )
  310. )
  311.  
  312.  
  313. ;===[ German Documentation ]=================================================
  314.  
  315. (if (= @language "deutsch")
  316.  (
  317. (set languages-default 2)
  318.  
  319. (set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um MCP benutzen zu können!")
  320.  
  321. (set #copy-mcp "Kopiere MCP...")
  322.  
  323. (set #copy-mcpicon "Kopiere MCP-Icon...")
  324.  
  325. (set #copy-mcpprefs "Kopiere MCP Voreinsteller...")
  326.  
  327. (set #copy-catalog "Kopiere Voreinsteller-Übersetzungen...")
  328.  
  329. (set #copy-democonfig "Kopiere Demo Einstellung...")
  330.  
  331. (set #copy-pointer "Kopiere Demo 16 Farben Mauszeiger...")
  332.  
  333. (set #copy-gurudat "Kopiere Guru Informationen...")
  334.  
  335. (set #copy-doc "Kopiere Dokumentationen...")
  336.  
  337. (set #copy-patchcontrol "Kopiere PatchControl...")
  338.  
  339. (set #copy-showpatches "Kopiere ShowPatches...")
  340.  
  341. (set #copy-fixjump "Kopiere FixJump...")
  342.  
  343. (set #copy-mcpsupport-library "Kopiere mcpsupport.library ins Libs: ...")
  344.  
  345. (set #copy-mcpgfx-library "Kopiere mcpgfx.library ins Libs: ...")
  346.  
  347. (set #copy-reqtools-library "Kopiere reqtools.library ins Libs: ...")
  348.  
  349. (set #copy-_asl-library "Kopiere _asl.library ins Libs: ...")
  350.  
  351. (set #copy-envarc-env "Kopiere ENV:MCP ins ENVARC:MCP ...")
  352.  
  353. (set #install-select
  354.     (cat
  355.         "Bitte wähle die einzelnen Teile des MCP aus, die"
  356.         " Du installieren möchtest:"
  357.     )
  358. )
  359.  
  360. (set #install-select-help
  361.     (cat
  362.         "MCP: Das Master Control Program...\n"
  363.         "\n"
  364.         "MCP-Icon: Das Icon für MCP... Es ist nur nützlich wenn Du"
  365.         " MCP in das C: Verzeichnis installierst.\n"
  366.         "\n"
  367.         "MCP Preferences: Der MCP Voreinsteller (benötigt MUI).\n"
  368.         "\n"
  369.         "Übersetzungen für MCPPrefs: Die MCP-Voreinsteller Cata-\n"
  370.         "log-Dateien.\n"
  371.         "\n"
  372.         "Demo Einstellung: Eine Beispiel-Einstellung für MCP.\n"
  373.         "16 Farben Zeiger: Einige 16-Farben Mauszeiger.\n"
  374.         "\n"
  375.         "Guru Infos: MCP.gurudat. Wird von der MCP-NoGuru und\n"
  376.         "AlertHistory benutzt.\n"
  377.         "\n"
  378.         "Dokumentationen: Die Dokumentationen für alle Programme.\n"
  379.         "\n"
  380.         "PatchControl: Ist ein Programm das ein besseres SystemPatching\n"
  381.         "ermöglicht. Wird gebraucht, um bei MCPPrefs \"Benutzen\" und\n"
  382.         "\"Testen\" benutzen zu können\n"
  383.         "\n"
  384.         "ShowPatches: Zeigt die geänderten SystemFunktionen an.\n"
  385.         "\n"
  386.         "FixJump: Entfernt das Problem mit springenden BootBildern\n.\n"
  387.         "\n"
  388.         "reqtools.library: Wird vom MCP benötigt.\n"
  389.         "\n"
  390.         "_asl.library: Eine neue asl.library die weniger Speicher braucht.\n"
  391.         " Wird von der OneReq Funktion des MCP benutzt."
  392.     )
  393. )
  394.  
  395. (set #doc-select
  396.     (cat
  397.         "Bitte wähle die Dokumentationen aus, die Du installieren möchtest:"
  398.     )
  399. )
  400.  
  401. (set #doc-select-help
  402.     (cat
  403.         "Du brauchst einen AmigaGuide® Anzeiger, um die Guide Dateien anzuzeigen."
  404.     )
  405. )
  406.  
  407. (set #languages-select "\nWelche Sprachen sollen installiert werden?")
  408.  
  409. (set #languages-select-help
  410.     (cat
  411.         "Bitte suche die Sprache für MCPPrefs aus, die "
  412.         " in Dein Locale: Verzeichnis kopiert werden soll!"
  413.     )
  414. )
  415.  
  416. (set #pointer-select "Welcher 16-Farben Mauszeiger soll installiert werden?")
  417.  
  418. (set #pointer-select-help
  419.     (cat
  420.         "Erläuterung der MausZeiger:\n\n"
  421.         "Blue + Joshi.: Blauer Pfeil mit einer Gold Medaille von Joshi\n"
  422.         "ColorMagic...: Sehr schöner Cremefarbener Zeiger mit einem\n"
  423.         " zZz-Warte Zeiger\n"
  424.         "DrachenHand..: Eine Hand als Zeiger und ein toller Drachen"
  425.         " als Warte Zeiger."
  426.     )
  427. )
  428.  
  429. (set #pointer1 "Blue + Joshi von fOX!")
  430. (set #pointer2 "Colormagic   von Fli7e")
  431. (set #pointer3 "Drachenhand  von Trevor Moris")
  432.  
  433. (set #startup-mcp "Möchtest Du MCP in Deine S:Startup-Sequence einfügen lassen?")
  434.  
  435. (set #startup-mcp-help
  436.     (cat
  437.         "Wenn Du 'Ja' auswählst, wird MCP in Deiner Startup-"
  438.         "Sequence nach dem letzten ENV: assign eingefügt.\n"
  439.         "Damit wird es automatisch beim Systemstart gestartet."
  440.     )
  441. )
  442.  
  443. (set #startup-patchcontrol
  444.     (cat
  445.         "Möchtest Du PatchControl in Deine S:Startup-Sequence einfügen lassen?"
  446.     )
  447. )
  448.  
  449. (set #startup-patchcontrol-help
  450.     (cat
  451.         "Wenn Du 'Ja' auswählst, wird PatchControl in Deiner Startup-Sequence nach dem SetPatch eingefügt."
  452.     )
  453. )
  454.  
  455. (set #item-mcpprefs "MCP Voreinsteller")
  456.  
  457. (set #item-translations "Übersetzungen für MCPPrefs")
  458.  
  459. (set #item-democonfig "Demo Einstellung")
  460.  
  461. (set #item-demopointer "16 Farben Mauspfeil")
  462.  
  463. (set #item-doc "Dokumentationen")
  464.  
  465. (set #where-mcp "Wohin möchtest Du MCP installieren?")
  466.  
  467. (set #where-mcp-help
  468.     (cat
  469.         "Dies ist das Zielverzeichnis von MCP."
  470.     )
  471. )
  472.  
  473. (set #where-mcpprefs "Wohin möchtest Du den MCP Voreinsteller installieren?")
  474.  
  475. (set #where-mcpprefs-help
  476.     (cat
  477.         "Dies ist das Zielverzeichnis vom MCP Voreinsteller!"
  478.         "Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs !"
  479.     )
  480. )
  481.  
  482. (set #where-gurudat "Wohin möchtest Du die Guru-Informationen installieren?")
  483.  
  484. (set #where-gurudat-help 
  485.     (cat
  486.         "Die Guru-Information heißt 'MCP.gurudat' und wird"
  487.         " normalerweise ins S: Verzeichnis installiert.\n"
  488.         "Wenn Du die Demo Einstellung installiert hast, wähle"
  489.         " das S: Verzeichnis"
  490.     )
  491. )
  492.  
  493. (set #where-doc "Wohin möchtest Du die Dokumentationen installieren?")
  494.  
  495. (set #where-patchcontrol "Wohin möchtest Du PatchControl installieren?")
  496.  
  497. (set #where-patchcontrol-help
  498.     (cat
  499.         "PatchControl wird normalerweise ins C: Verzeichnis"
  500.         " installiert!"
  501.     )
  502. )
  503.  
  504. (set #where-showpatches "Wohin möchtest Du ShowPatches installieren?")
  505.  
  506. (set #where-showpatches-help
  507.     (cat
  508.         "ShowPatches wird normalerweise ins C: Verzeichnis"
  509.         " installiert!"
  510.     )
  511. )
  512.  
  513. (set #where-fixjump "Wohin möchtest Du FixJump installieren?")
  514.  
  515. (set #where-fixjump-help
  516.     (cat
  517.         "FixJump wird normalerweise ins C: Verzeichnis"
  518.         " installiert!"
  519.     )
  520. )
  521.  
  522. (set #which-startup "Bitte wähle dein Startup mit dem ENV: assign!")
  523.  
  524. (set #which-startup-help
  525.     (cat
  526.         "Wähle hier die Startup-Sequence die dein erstes ENV:"
  527.         " assign enthält, dieses ist deshalt notwendig weil der"
  528.         " Installer nach dem ENV: sucht und danach dann das MCP"
  529.         " direkt danach einfügt. Solltest Du dieses nicht richtig"
  530.         " machen, so musst Du nachher selber das MCP einfügen!\n"
  531.         "ACHTUNG: Sollte bereits ein MCP in dieser Startup enthalten"
  532.         " sein so wird vom Installer nichts hinzugefuegt!"
  533.     )
  534. )
  535.  
  536. (set #run-conv "Bitte warten... Konvertierung läuft!")
  537.  
  538. (set #conv-ap "Möchtest Du Deine AssignPrefs zur MCP.config konvertieren?")
  539.  
  540. (set #conv-am "Möchtest Du Deine AssignManager.prefs zur MCP.config konvertieren?")
  541.  
  542. (set #conv-help
  543.     (cat
  544.         "Wenn Du AssignPrefs / AssignManager Konfigurationen"
  545.         " konvertiert hast, kannst Du diese entfernen."
  546.     )
  547. )
  548.  
  549. (set #install-exit
  550.     (cat
  551.         "Vielen Dank für die Installation von MCP ...\n\n"
  552.         "...Fortsetzung folgt..."
  553.     )
  554. )
  555.  
  556. (set #install-start
  557.     (cat
  558.         "\nWillkommen zur MCP Installation!\n\n"
  559.         ".######.     .####  \n"
  560.         "###  ###     #####  \n"
  561.         "     ###      ####  \n"
  562.         "  #####       ####  \n"
  563.         "    .###      ####  \n"
  564.         "### ####      ####  \n"
  565.         "### #### ##   ####  \n"
  566.         "`######' ## ########\n\n"
  567.         "fÜR MCP 1.21\n"
  568.         "Geschrieben von fOX/aLiENDESiGN!\n"
  569.     )
  570. )
  571.  
  572. (set #run-prefs "Starte MCPPrefs... Konfiguriere nun den MCP!")
  573.  
  574. (set #run-prefs-help
  575.     (cat
  576.         "Wenn Du bereits eine ältere Version von MCP laufen hast,"
  577.         " speichere Deine Einstellung unbedingt neu!\n\n"
  578.     )
  579. )
  580.  
  581. (set #checksum-calc "Berechne Prüfsumme von %s")
  582.  
  583. (set #checksum-error
  584.     (cat
  585.         "Prüfsummenfehler im File %s\n\n"
  586.         "Abbrechen ?\n"
  587.     )
  588. )
  589.  
  590. (set #checksum-help
  591.     (cat
  592.         "Die Prüfsumme von dem angezeigen File stimmt nicht"
  593.         " mit dem Standartwert überein...\n"
  594.         "Das kann heissen das z.b. das File durch einen Virus"
  595.         " verseucht worden ist... Solltest du nicht ganz sicher sein"
  596.         " ob diese File wirklich in Ordnung ist dann, besorge Dir"
  597.         " das komplette Paket nocheinmal!"
  598.     )
  599. )
  600.  
  601.  )
  602. )
  603.  
  604. ;============================== PROGRAM-START================================
  605.  
  606. (set @default-dest "")
  607.  
  608. ; Check Kickstart (>= v2.0) Version.
  609.  
  610. (if (< (/ (getversion) 65536) 37)
  611.     (abort #bad-kick)
  612. )
  613.  
  614. (message #install-start)
  615.  
  616.  
  617. ;============================= CHECKSUM CHECK ===============================
  618.  
  619. (set n 0)
  620. (while
  621.     (set filename
  622.         (select n    "MCP"
  623.                 "MCP020"
  624.                 "C/ConvAM"
  625.                 "C/ConvAP"
  626.                 "C/InsertText"
  627.                 "Tools/FixJump"
  628.                 "Tools/PatchControl"
  629.                 "Tools/ShowPatches"
  630.                 "Libs/mcpgfx.library"
  631.                 "Libs/mcpsupport.library"
  632.                 "Libs/reqtools.library"
  633.                 "Libs/_asl.library"
  634.                 "Prefs/MCPPrefs"
  635.                 ""
  636.         )
  637.     )
  638.     (
  639.         (set checksum
  640.             (select n
  641.                     -1376864252
  642.                     403775287
  643.                     -737894449
  644.                     1639404188
  645.                     -1899019767
  646.                     669885097
  647.                     464964872
  648.                     70719919
  649.                     -1509225736
  650.                     -1718793139
  651.                     153003975
  652.                     1945318084
  653.                     -84546091
  654.             )
  655.         )
  656.         (working (#checksum-calc filename))
  657.         (set check (getsum (filename)))
  658.         (if (<> checksum check)
  659.             (if    (askbool
  660.                     (prompt (#checksum-error filename))
  661.                     (help #checksum-help "\n\n" @askbool_help)
  662.                     (default 1)
  663.                 )
  664.                 (exit)
  665.             )
  666.         )
  667.         (set n (+ n 1))
  668.     )
  669. )
  670.  
  671. ;============================ REAL INSTALLATION =============================
  672.  
  673. (set install-default 8071)
  674.  
  675. (if (exists "Locale:" (noreq))
  676.     (set install-default (BITOR install-default 8))
  677. )
  678.  
  679. (if (NOT (exists "ENVARC:MCP/MCP.Config" (noreq)))
  680.     (set install-default (BITOR install-default 16))
  681. )
  682.  
  683. (if (NOT (exists "ENVARC:MCP/MCPPointer.prefs" (noreq)))
  684.     (set install-default (BITOR install-default 32))
  685. )
  686.  
  687. (if (NOT (exists "Libs:reqtools.library" (noreq)))
  688.     (set install-default (BITOR install-default 8192))
  689. )
  690.  
  691. (if (NOT (exists "Libs:_asl.library" (noreq)))
  692.     (set install-default (BITOR install-default 16384))
  693. )
  694.  
  695. (welcome)
  696.  
  697. (set install-files
  698.     (askoptions
  699.         (prompt    #install-select)
  700.         (help    #install-select-help "\n\n" @askoptions-help)
  701.         (choices
  702.             #item-mcp
  703.             #item-mcpicon
  704.             #item-mcpprefs
  705.             #item-translations
  706.             #item-democonfig
  707.             #item-demopointer
  708.             #item-gurudat
  709.             #item-doc
  710.             #item-patchcontrol
  711.             #item-showpatches
  712.             #item-fixjump
  713.             #item-mcpsupport-library
  714.             #item-mcpgfx-library
  715.             #item-reqtools-library
  716.             #item-asl-library
  717.         )
  718.         (default install-default)
  719.     )
  720. )
  721.  
  722. (set startup-files 0)
  723.  
  724. (if (BITAND install-files 1)
  725.     (
  726.         (set mcp-dest
  727.             (askdir
  728.                 (prompt    #where-mcp)
  729.                 (help    #where-mcp-help "\n\n" @askdir-help)
  730.                 (default "C:")
  731.             )
  732.         )
  733.         (if (RUN "C/Search S:StartUp-Sequence #?MCP PATTERN QUIET")
  734.             (if    (askbool
  735.                     (prompt #startup-mcp)
  736.                     (help #startup-mcp-help "\n\n" @askbool_help)
  737.                     (default 1)
  738.                 )
  739.                 (set startup-files (BITOR startup-files 1))
  740.             )
  741.         )
  742.     )
  743. )
  744.  
  745. (if (BITAND install-files 4)
  746.     (set mcpprefs-dest
  747.         (askdir
  748.             (prompt    #where-mcpprefs)
  749.             (help    #where-mcpprefs-help "\n\n" @askdir-help)
  750.             (default "SYS:Prefs/")
  751.         )
  752.     )
  753. )
  754.  
  755. (if (BITAND install-files 256)
  756.     (
  757.         (set patchcontrol-dest
  758.             (askdir
  759.                 (prompt    #where-patchcontrol)
  760.                 (help    #where-patchcontrol-help "\n\n" @askdir-help)
  761.                 (default "C:")
  762.             )
  763.         )
  764.         (if (RUN "C/Search S:StartUp-Sequence #?patchcontrol PATTERN QUIET")
  765.             (if    (askbool
  766.                     (prompt #startup-patchcontrol)
  767.                     (help #startup-patchcontrol-help "\n\n" @askbool_help)
  768.                     (default 1)
  769.                 )
  770.                 (set startup-files (BITOR startup-files 2))
  771.             )
  772.         )
  773.     )
  774. )
  775.  
  776. (if (BITAND install-files 512)
  777.     (set showpatches-dest
  778.         (askdir
  779.             (prompt    #where-showpatches)
  780.             (help    #where-showpatches-help "\n\n" @askdir-help)
  781.             (default "C:")
  782.         )
  783.     )
  784. )
  785.  
  786. ;Set FixJump Destination
  787.  
  788. (if (BITAND install-files 1024)
  789.     (set fixjump-dest
  790.         (askdir
  791.             (prompt    #where-fixjump)
  792.             (help    #where-fixjump-help "\n\n" @askdir-help)
  793.             (default "C:")
  794.         )
  795.     )
  796. )
  797.  
  798. ;Set MCP.gurudat Destination
  799.  
  800. (if (BITAND install-files 64)
  801.     (set gurudat-dest
  802.         (askdir
  803.             (prompt    #where-gurudat)
  804.             (help    #where-gurudat-help "\n\n" @askdir-help)
  805.             (default "S:")
  806.         )
  807.     )
  808. )
  809.  
  810. ; Check + DefaultSet + Request Of Documentation(s)
  811.  
  812. (if (BITAND install-files 128)
  813.     (
  814.         (if (= @LANGUAGE "deutsch")
  815.             (set doc-default 2)
  816.             (set doc-default 1)
  817.         )
  818.         (set doc-files
  819.             (askoptions
  820.                 (prompt    #doc-select)
  821.                     (help    #doc-select-help "\n\n" @askoptions-help)
  822.                     (choices
  823.                         "MCP.......... English"
  824.                         "MCP.......... Deutsch"
  825.                         "MCP.......... Français"
  826.                         "MCP.......... Svenska"
  827.                     )
  828.                 (default doc-default)
  829.             )
  830.         )
  831.         (set doc-dest
  832.             (askdir
  833.                 (prompt    #where-doc)
  834.                 (help    @askdir-help)
  835.                 (default "SYS:")
  836.             )
  837.         )
  838.     )
  839. )
  840.  
  841. (if (AND (BITAND install-files 8) (= (exists "Locale:") 2))
  842.     (set    languages
  843.         (askoptions
  844.             (prompt    #languages-select)
  845.             (help    #languages-select-help "\n\n" @askoptions-help)
  846.             (choices
  847.                 "English"
  848.                 "Deutsch"
  849.                 "Français"
  850.                 "Danish"
  851.                 "Italiano"
  852.                 "Norsk"
  853.                 "Svenska"
  854.             )
  855.             (default languages-default)
  856.         )
  857.     )
  858. )
  859.  
  860. (if (BITAND install-files 32)
  861.     (set pointer
  862.         (askchoice
  863.             (prompt #pointer-select)
  864.             (help    #pointer-select-help)
  865.             (choices
  866.                 #pointer1
  867.                 #pointer2
  868.                 #pointer3
  869.             )
  870.             (default 0)
  871.         )
  872.     )
  873. )
  874.  
  875. ;========================== COPY STARTS HERE ===============================
  876.  
  877. ; Copy MCP + Install in Startup
  878.  
  879. (if (BITAND install-files 1)
  880.     (
  881.         (set prozess (database "cpu"))
  882.         (if (< "68010" prozess)
  883.             (set mcp-source "MCP020")
  884.             (set mcp-source "MCP")
  885.         )
  886.         (copyfiles
  887.             (prompt #copy-mcp)
  888.             (source mcp-source)
  889.             (newname "MCP")
  890.             (dest mcp-dest)
  891.             (files)
  892.         )
  893.         (if (BITAND startup-files 1)
  894.             (
  895.                 (if (RUN ("C/InsertText S:Startup-Sequence \"#?Assign#?ENV:#?\" \"%s\" LAST" (tackon mcp-dest "MCP")))
  896.                     (
  897.                         (set newstartup
  898.                             (askfile
  899.                                 (prompt    #which-startup)
  900.                                 (help    #which-startup-help "\n\n" @askfile-help)
  901.                                 (default "S:User-Startup")
  902.                             )
  903.                         )
  904.                         (if (RUN "C/Search %s #?MCP PATTERN QUIET" (newstartup))
  905.                             (RUN ("C/InsertText %s \"#?Assign#?ENV:#?\" \"%s\" LAST" (newstartup) (tackon mcp-dest "MCP")))
  906.                         )
  907.                     )
  908.                 )
  909.             )
  910.         )
  911.     )
  912. )
  913.  
  914. (complete 7)
  915.  
  916. ; Copy MCP-Icon
  917.  
  918. (if (AND (BITAND install-files 2) (BITAND install-files 1))
  919.     (copyfiles
  920.         (prompt #copy-mcp-icon)
  921.         (source "MCP.info")
  922.         (dest mcp-dest)
  923.     )
  924. )
  925.  
  926. (complete 14)
  927.  
  928. ;Copy MCP Preferences
  929.  
  930. (if (BITAND install-files 4)
  931.     (copyfiles
  932.         (prompt #copy-mcpprefs)
  933.         (source "Prefs/MCPPrefs")
  934.         (dest mcpprefs-dest)
  935.         (infos)
  936.     )
  937. )
  938.  
  939. (complete 21)
  940.  
  941. ; Copy catalog files
  942.  
  943. (if (and (BITAND install-files 8) (= (exists "Locale:") 2))
  944.     (
  945.         (set n 0)
  946.         (while
  947.             (set language
  948.                 (select n
  949.                     "English"
  950.                     "Deutsch"
  951.                     "Français"
  952.                     "Danish"
  953.                     "Italiano"
  954.                     "Norsk"
  955.                     "Svenska"
  956.                     ""
  957.                 )
  958.             )
  959.             (
  960.                 (if (IN languages n)
  961.                     (if (<> 0 n)   ; No catalog for english strings...
  962.                         (
  963.                             (set catalogs (tackon "Locale/Catalogs" language))
  964.                             (set destination (tackon "Locale:Catalogs" language))
  965.                             (makedir destination)
  966.                             (if (exists (tackon catalogs "MCPPrefs.catalog"))
  967.                                 (copylib
  968.                                     (prompt #copy-catalog)
  969.                                     (source (tackon catalogs "MCPPrefs.catalog"))
  970.                                     (dest destination)
  971.                                 )
  972.                             )
  973.                         )
  974.                     )
  975.                 )
  976.                 (set n (+ n 1))
  977.             )
  978.         )
  979.     )
  980. )
  981.  
  982. (complete 28)
  983.  
  984. ;Copy Demo Config + Rename Old One !
  985.  
  986. (if (BITAND install-files 16)
  987.     (
  988.         (if (exists "ENVARC:MCP")
  989.             (rename "ENVARC:MCP/MCP.config" "ENVARC:MCP/MCP.Config.old")
  990.         )
  991.         (copyfiles
  992.             (prompt #copy-democonfig)
  993.             (source "ENVARC/MCP/MCP.Config")
  994.             (dest "ENVARC:MCP")
  995.         )
  996.         (if (exists "ENVARC:AssignManager.prefs")
  997.             (if
  998.                 (askbool
  999.                     (prompt #conv-am)
  1000.                     (help #conv-help "\n\n" @askbool_help)
  1001.                     (default 1)
  1002.                 )
  1003.                 (RUN "C/ConvAM"
  1004.                     (prompt #run-conv)
  1005.                 )
  1006.             )
  1007.         )
  1008.         (if (exists "ENVARC:AssignPrefs")
  1009.             (if
  1010.                 (askbool
  1011.                     (prompt #conv-ap)
  1012.                     (help #conv-help "\n\n" @askbool_help)
  1013.                     (default 1)
  1014.                 )
  1015.                 (RUN "C/ConvAP"
  1016.                     (prompt #run-conv)
  1017.                 )
  1018.             )
  1019.         )
  1020.     )
  1021. )
  1022.  
  1023. (complete 35)
  1024.  
  1025. ;Install 16 Color Pointer + Rename old one
  1026.  
  1027. (if (BITAND install-files 32)
  1028.     (
  1029.         (set pointer-source
  1030.             (select pointer
  1031.                 "mcppointer01.prefs"
  1032.                 "mcppointer02.prefs"
  1033.                 "mcppointer03.prefs"
  1034.             )
  1035.         )
  1036.         (if (Exists "ENVARC:MCP" )
  1037.             (rename "ENVARC:MCP/mcppointer.prefs" "ENVARC:MCP/MCPPointer.prefs.old")
  1038.         )
  1039.         (set source-file (tackon "ENVARC/MCP" pointer-source))
  1040.         (copyfiles
  1041.             (prompt #copy-pointer)
  1042.             (source source-file)
  1043.             (dest "ENVARC:MCP")
  1044.             (newname "MCPPointer.prefs")
  1045.         )
  1046.     )
  1047. )
  1048.  
  1049. (complete 42)
  1050.  
  1051. (if (BITAND install-files 64)
  1052.     (copyfiles
  1053.         (prompt #copy-gurudat)
  1054.         (source "S/MCP.gurudat")
  1055.         (dest gurudat-dest)
  1056.     )
  1057. )
  1058.  
  1059. (complete 49)
  1060.  
  1061. (if (BITAND install-files 128)
  1062.     (
  1063.         (set n 0)
  1064.         (while
  1065.             (set doc
  1066.                 (select n
  1067.                     "docs/MCP_eng.guide"
  1068.                     "docs/MCP_ger.guide"
  1069.                     "docs/MCP_fr.guide"
  1070.                     "docs/MCP_swe.guide"
  1071.                     ""
  1072.                 )
  1073.             )
  1074.             (
  1075.                 (if (IN doc-files n)
  1076.                     (copyfiles
  1077.                         (prompt #copy-doc)
  1078.                         (source doc)
  1079.                         (dest doc-dest)
  1080.                     )
  1081.                 )
  1082.                 (set n (+ n 1))
  1083.             )
  1084.         )
  1085.     )
  1086. )
  1087.  
  1088. (complete 56)
  1089.  
  1090. ; Copy PatchControl + Install in Startup
  1091.  
  1092. (if (BITAND install-files 256)
  1093.     (
  1094.         (copyfiles
  1095.             (prompt #copy-patchcontrol)
  1096.             (source "Tools/PatchControl")
  1097.             (dest patchcontrol-dest)
  1098.             (files)
  1099.         )
  1100.         (if (BITAND startup-files 2)
  1101.             (if (exists "C:ARQ")
  1102.                 (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl ARQ")))
  1103.                 (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl")))
  1104.             )
  1105.         )
  1106.     )
  1107. )
  1108.  
  1109. (complete 63)
  1110.  
  1111. ;Copy ShowPatches
  1112.  
  1113. (if (BITAND install-files 512)
  1114.     (copyfiles
  1115.         (prompt #copy-showpatches)
  1116.         (source "Tools/ShowPatches")
  1117.         (dest showpatches-dest)
  1118.     )
  1119. )
  1120.  
  1121. (complete 70)
  1122.  
  1123. ;Copy FixJump
  1124.  
  1125. (if (BITAND install-files 1024)
  1126.     (copyfiles
  1127.         (prompt #copy-fixjump)
  1128.         (source "Tools/FixJump")
  1129.         (dest fixjump-dest)
  1130.     )
  1131. )
  1132.  
  1133. (complete 74)
  1134.  
  1135. ;Copy mcpsupport.library to libs:
  1136.  
  1137. (if (BITAND install-files 2048)
  1138.     (copylib
  1139.         (prompt #copy-mcpsupport-library)
  1140.         (source "Libs/mcpsupport.library")
  1141.         (dest "Libs:")
  1142.     )
  1143. )
  1144.  
  1145. (complete 78)
  1146.  
  1147. ;Copy mcpgfx.library to Libs:
  1148.  
  1149. (if (BITAND install-files 4096)
  1150.     (copylib
  1151.         (prompt #copy-mcpgfx-library)
  1152.         (source "Libs/mcpgfx.library")
  1153.         (dest "Libs:")
  1154.     )
  1155. )
  1156.  
  1157. (complete 82)
  1158.  
  1159. ;Copy reqtools.library to libs:
  1160.  
  1161. (if (BITAND install-files 8192)
  1162.     (copylib
  1163.         (prompt #copy-reqtools-library)
  1164.         (source "Libs/reqtools.library")
  1165.         (dest "Libs:")
  1166.     )
  1167. )
  1168.  
  1169. (complete 86)
  1170.  
  1171. ;Copy _asl.library to Libs:
  1172.  
  1173. (if (BITAND install-files 16384)
  1174.     (copylib
  1175.         (prompt #copy-_asl-library)
  1176.         (source "Libs/_asl.library")
  1177.         (dest "Libs:")
  1178.     )
  1179. )
  1180.  
  1181. (complete 91)
  1182.  
  1183. ;Copy ENVARC:MCP to ENV:MCP if MCP-Democonfig or Pointer is installed!
  1184.  
  1185. (if (OR (BITAND install-files 16) (BITAND install-files 32))
  1186.     (if (askbool
  1187.         (prompt #copy-envarc-env)
  1188.         (help @askbool_help)
  1189.         (default 1)
  1190.     )
  1191.             (copyfiles
  1192.                 (source "ENVARC:MCP")
  1193.                 (dest "ENV:MCP")
  1194.                 (all)
  1195.             )
  1196.     )
  1197. )
  1198.  
  1199. (complete 98)
  1200.  
  1201. ;Run MCPPrefs Before Exiting
  1202.  
  1203. (if (BITAND install-files 4)
  1204.     (RUN (tackon mcpprefs-dest "MCPPrefs")
  1205.         (prompt #run-prefs)
  1206.         (help #run-prefs-help)
  1207.         (confirm 3)
  1208.     )
  1209. )
  1210.  
  1211. (complete 100)
  1212.  
  1213. (EXIT #install-exit)
  1214.