home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 119 / af119sub.adf / JinxChoice.lzx / JinxChoice0.8 / Install_JC < prev    next >
Text File  |  1998-09-16  |  31KB  |  709 lines
  1. ;/* Installer-script v.1.9.5 by Flavour / Symphony in 1998 (08.08.98)*/
  2.  
  3. ;-----------------------------------English-------------------------------------
  4. (IF (= @Language "english")
  5. (
  6. (set #inst-script-info      "Icons/Config-JinxChoice.info")
  7. (set #dest_docu             "docs/JC-English.guide")
  8. (set #dest_docu_info        "docs/JC-English.guide.info")
  9. (set #doc_copy-help         "copies the documentation to the drawer you choosed.")
  10. (set #binchoice             "Main-Program")
  11. (set #docchoice             "Documentation")
  12. (set #inst_text             "Installer for\nJ I N X C H O I C E\nfrom\n -=> SSE`98 <=-\n·symphony·software·entertainment·\n\n\n\n\n\n...done by Flavour/SSE")
  13. (set #dest_dir_prompt       "Where do you want to install JinxChoice ?\n (C: recommended).\n No drawer will be created.")
  14. (set #dest_dir_docu_prompt  "Where do you want to install JinxChoice documentation ?")
  15. (set #copy_docu_promp       "Copying documentation.......")
  16. (set #copy_mainfile_prompt  "Copying Main-Program.......")
  17. (set #inst_part_prompt      "Which contents you want to install?")
  18. (set #kickver_prompt        "Sorry, but you need at least Kick2.04.")
  19. (set #bad_cpu               "Sorry, but you need at least MC68010.")
  20. (set #inst_screen           "Now choose a screenmode on which JinxChoice should open its screen.\nA requester will be opened, where you can choose your favourite screenmode.\n\n Note for graphicboard-users: \nOnly use  modes with resolution `640*XXX`(e.g.640*480), because this program is optimised for this resolution !!!\n8bit color-depth is sufficient\n(Only 8 colors will be used).\nOnly take 15,16 or 24 bit for psychedelic colors :-)")
  21. (set #Thanx                 "Thank you for installing JinxChoice .")
  22. (set #Button_txt            "")
  23. (set #get_emul_prompt       "Which type of Emulator do you own ??")
  24. (set #mac-file_prompt       "Please select your Mac-Emulator startprogram (for CLI) ??")
  25. (set #pc-file_prompt        "Please select your PC-Emulator startprogram (for CLI) ??")
  26. (set #prepemul_prompt       "Which programm do you own/use to make your RAM ready for MAC??\nSee help for more Informations.")
  27. (set #prepemul-help         "Please select a program like \n\n`prepareEmul` : (comes with Shapshifter)\n`rsrvcold` : (comes with Fusion).\n\n(Please see your MacEmulator Manual for right program.)\n\n\n")
  28. (set #mac-part_prompt       "Now specific questions about your Mac-Emulation coming up...")
  29. (set #mac-ed                "Now you have the possibility to edit your Mac-Startup-sequence.\nSo you can add needed assigns and other patches or just look if everything is allright.")
  30. (set #chg_mac_prompt        "In this stunning program you have the possibility to define your own path and name of your Mac-Startup-sequence.\n\nDefault is `s:Mac-Sequence` .")
  31. (set #mac-dest-prompt       "Please select drawer, in which your Mac-startup should be placed.")
  32. (set #mac-name-prompt       "Please enter name of your Mac-Startup-sequence.")
  33. (set #pc-part_prompt        "Now specific questions about your PC-Emulation coming up...")
  34. (set #pc-ed                 "Now you have the possibility to edit your Pc-Startup-sequence.\nSo you can add needed assigns and other patches or just look if everything is allright.")
  35. (set #chg_pc_prompt         "In this stunning program you have the possibility to define your own path and name of your Pc-Startup-sequence.\n\nDefault is `s:Pc-Sequence` .")
  36. (set #pc-dest-prompt        "Please select drawer, in which your Pc-startup should be placed.")
  37. (set #pc-name-prompt        "Please enter name of your Pc-Startup-sequence.")
  38. (set #mac-startup_note1     "\n;put needed assigns and other patches used with your MacEmulator here !\n")
  39. (set #mac-startup_note2     ";or complete the assign-lines .\n")
  40. (set #mac-startup_note3     ";Monitors & ENV already mounted/assigned\n\n\n")
  41. (set #mac-startup_note4     ";Assigns for emulator `Fusion`:\n;assign Fusion: `path of Fusion-drawer`\n;assign MSHF: `path of filedisks`\n\n;Assigns for emulator `Shapeshifter`:\n;assign Shapeshifter: `path of Shapeshifter-drawer`\n\n")
  42. (set #pc-startup_note1      "\n;put needed assigns and other patches used with your PcEmulator here !\n")
  43. (set #pc-startup_note3      ";Monitors & ENV already mounted/assigned\n\n\n")
  44. (set #pc-startup_note4      ";Assigns for emulator `PCX`:\n;assign PCX: `path of PCX-drawer`\n;assign MSHF: `path of filedisks`\n\n;Assigns for emulator `PCTask`:\n;assign PCTask: `path of PCTask-drawer`\n\n")
  45. (set #ask_screen_prompt     "On which Screen `JinxChoice` should open?\nPlease press helpbutton for more informations!!!\n")
  46. (set #askbool_keep          "Keep it")
  47. (set #askbool_own           "Make my own...")
  48. (set #button_Thanx          "No matter.....")
  49. (set #button_guide_yes      "Sure, why not...")
  50. (set #button_guide_no       "No, maybe later...")
  51. (set #read_guide            "Do you want to read the documentation now ???")
  52. (set #mac-ask_already_one   "Do you already own a Mac-sequence from former progys or is this software your first bootchoice-program, in which seperate startup-sequences for each emulator are needed ??")
  53. (set #already_one_yes       "Yes, I already own one....")
  54. (set #already_one_no        "No, that`s the first...")
  55. (set #mac-sequence_prompt   "Where is your `Mac-Sequence` available?")
  56. (set #already_one_info1     "Now, the commandline `c:break 1 ALL` will be inserted to the first line of `")
  57. (set #already_one_info2     "`. This line is really important for the use of `JinxChoice`. It avoids the executing of 2 startup-sequences simultaneous by canceling the task (#1) of the normal `startup-sequence`.")
  58. (set #pc-ask_already_one    "Do you already own a pc-sequence from former progys or is this software your first bootchoice-program, in which seperate startup-sequences for each emulator are needed ??")
  59. (set #pc-sequence_prompt    "Where is your `pc-Sequence` available?")
  60. (set #autostart-prompt      "setting the `AUTO`-switch:\nIf this switch is set and the button `PrepEmul` was chosen the first time the computer was turned on, JinxChoice will automatically execute the `mac-sequence` after the following Reset (the JinxChoice screen won`t appear) . Otherwise(the switch isn`t set) the normal `startup-sequence` will be executed.\n\nNote for AFS-User: This switch doesn`t work, if you bootpartition is AFS-formated. See GUIDE for more information.")
  61. (set #autostart_yes         "set `AUTO`-switch... ")
  62. (set #autostart_no          "let it be...")
  63. (set #edit-break_yes        "insert line...")
  64. (set #edit-break_no         "Skip this part...")
  65. (set #guide                 "JC-English.guide")
  66. (set #copy_monitor_seq      "Now copiing sequences for `JinxChoice` to mount Monitors(make them available).")
  67. (set #insert_ss-lines       "Now inserting needed lines in `s:startup-sequence`. The original `s:startup-sequence` will be renamed to `s:startup-sequence.jc`.")
  68. (set #config_or_inst-Prompt "Do you want to install this program (the first time) or just want to reconfigure it ? ")
  69. (set #c_o_i-inst            "Install... ")
  70. (set #c_o_i-config          "change config...")
  71. (set #config_complete       "The configuration of `JinxChoice` is complete. Have fun !! ")
  72. (set #insert_ss-line-update "Now inserting needed lines in \n`s:startup-sequence`.")
  73. (set #dest_dir_update       "In which drawer the JinxChoice-mainprogram is available ??")
  74. (set #c_o_i-help            "`Install` or `change config` ?\n\nInstall: All required files will be copied, needed lines in `s:startup-sequence` will be inserted and if wanted, sequences for MAC- or PC-Emulation will be created.\n\nchange config: Nothing will be copied. Just the `JinxChoice`-commandline in `s:startup-sequence` will be rewritten/replaced.\n\n\n\n")
  75. (set #Para_prepemul-prompt1 "Do you have to put parameters behind `")
  76. (set #Para_prepemul-prompt2 " ` ?")
  77. (set #Para_prepemul-help    "Here you can enter parameters for your selected `prepemul`-program. Read your MacEmulator manual for further informations.\n\n")
  78. (set #dest_drawer-prompt    "Where shall JinxChoice be created ??")
  79.  )
  80. )
  81. ;----------------------------------End English--------------------------------
  82.  
  83. ;-----------------------------------Deutsch-------------------------------------
  84. (If (= @language "deutsch")
  85.  (
  86. (set #inst-script-info      "Icons/Konfiguriere-JinxChoice.info")
  87. (set #dest_docu             "docs/JC-Deutsch.guide")
  88. (set #dest_docu_info        "docs/JC-Deutsch.guide.info")
  89. (set #doc_copy-help         "Kopiere die Dokumentation zum gewählten Ordner.")
  90. (set #binchoice             "Haupt-Programm")
  91. (set #docchoice             "Dokumentation")
  92. (set #inst_text             "Installer für\nJ I N X C H O I C E\nvon\n -=> SSE`98 <=-\n·symphony·software·entertainment·\n\n\n\n\n\n...geschrieben von Flavour/SSE")
  93. (set #dest_dir_prompt       "Wohin möchten Sie das JinxChoice-Hauptprogramm kopieren?\n (C: empfohlen).\n Es wird kein Ordner angelegt.")
  94. (set #dest_dir_docu_prompt  "Wohin möchten Sie die JinxChoice-Dokumentation kopieren?")
  95. (set #copy_docu_promp       "Kopiere Dokumentation.......")
  96. (set #copy_mainfile_prompt  "Kopiere Haupt-Programm.......")
  97. (set #inst_part_prompt      "Welche Teile möchten sie installieren?")
  98. (set #kickver_prompt        "Tschuldigung, aber Sie benötigen mindestens Kick2.04.")
  99. (set #bad_cpu               "Tschuldigung, aber Sie benötigen mindestens MC68010.")
  100. (set #inst_screen           "Wählen Sie jetzt einen Bildschirmmodus auf dem sich JinxChoice öffnen soll.\nEs wird sich ein Requester öffnen, in dem sie den gewünschten Grafikmodus einstellen können.\n\nHinweis für Grafikkartenbenutzer: \nBitte nur Bildschirmmodis mit der Auflösung 640*xxx benutzen(z.B.640*480), da dieses Programm darauf angepaßt ist \n8bit Farbtiefe ist völlig ausreichend\n(Es werden nur 8 Farben benutzt).\n15, 16 oder 24bit nur für psychedelic-Farben benutzen:-) .")
  101. (set #Thanx                 "Danke, daß sie JinxChoice installiert haben .")
  102. (set #Button_txt            "")
  103. (set #get_emul_prompt       "Welchen Typ von Emulator besitzen Sie ??")
  104. (set #mac-file_prompt       "Bitte wählen Sie das Mac-Emulator Startprogramm aus (für CLI) ??")
  105. (set #pc-file_prompt        "Bitte wählen Sie das Pc-Emulator Startprogramm aus (für CLI) ??")
  106. (set #prepemul_prompt       "Welches Programm besitzen bzw. benutzen Sie, um das RAM für den Mac vorzubereiten??\nDrücken Sie Hilfe für mehr Informationen.")
  107. (set #prepemul-help         "Bitte wählen Sie ein Programm aus wie: \n\n`prepareEmul` : (kommt mit Shapshifter)\n`rsrvcold` : (kommt mit Fusion).\n\n(Bitte schauen Sie in ihre Mac-Emulator-Anleitung für das richtige Programm.)\n\n\n")
  108. (set #mac-part_prompt       "Es folgen spezifische Fragen über ihre Mac-Emulation ...")
  109. (set #mac-ed                "Jetzt haben Sie die Möglichkeit ihre `Mac-Startup-Sequence` zu editieren.\nDadurch können Sie benötigte assigns und andere Patches hinzufügen oder einfach nochmal schauen, ob alles i.O. ist.")
  110. (set #chg_mac_prompt        "In diesem Programm haben sie die Möglichkeit, ihren eigenen Pfad und Namen der `Mac-Startup-sequence` zu definieren.\n\nVoreinstellung ist `s:Mac-Sequence` .")
  111. (set #mac-dest-prompt       "Bitte wählen Sie den Ordner, in dem sich ihre `Mac-sequence` befinden soll.")
  112. (set #mac-name-prompt       "Bitte geben Sie einen neuen Namen für ihre `Mac-sequence` ein.")
  113. (set #pc-part_prompt        "Es folgen spezifische Fragen über ihre PC-Emulation ...")
  114. (set #pc-ed                 "Jetzt haben Sie die Möglichkeit ihre `PC-Startup-Sequence` zu editieren.\nDadurch können Sie benötigte assigns und andere Patches hinzufügen oder einfach nochmal schauen, ob alles i.O. ist.")
  115. (set #chg_pc_prompt         "In diesem Programm haben sie die Möglichkeit, ihren eigenen Pfad und Namen der `Pc-Startup-sequence` zu definieren.\n\nVoreinstellung ist `s:Pc-Sequence` .")
  116. (set #pc-dest-prompt        "Bitte wählen Sie den Ordner, in dem sich ihre `PC-sequence` befinden soll.")
  117. (set #pc-name-prompt        "Bitte geben Sie einen neuen Namen für ihre `PC-sequence` ein.")
  118. (set #mac-startup_note1     "\n;Schreiben sie benötigte assigns und andere Patches,\n;die mit ihrem Mac-Emulator benutzt werden sollen in diese Zeilen \n")
  119. (set #mac-startup_note2     ";oder vervollständigen sie die Assign-Zeilen unten.\n")
  120. (set #mac-startup_note3     ";Monitore sind schon gemountet & ENV-assigns wurden angelegt.\n\n\n")
  121. (set #mac-startup_note4     ";Assigns für Emulator `Fusion`:\n;assign Fusion: `Pfad des Fusion-Ordners`\n;assign MSHF: `Pfad der Filedisks`\n\n;Assigns für Emulator `Shapeshifter`:\n;assign Shapeshifter: `Pfad des Shapeshifter-Ordners`\n\n")
  122. (set #pc-startup_note1      "\n;Schreiben sie benötigte assigns und andere Patches,\n;die mit ihrem Pc-Emulator benutzt werden sollen in diese Zeilen !\n")
  123. (set #pc-startup_note3      ";Monitore sind schon gemountet & ENV-assigns wurden angelegt.\n\n\n")
  124. (set #pc-startup_note4      ";Assigns für Emulator `PCX`:\n;assign PCX: `Pfad des PCX-Ordners`\n;assign MSHF: `Pfad der Filedisks`\n\n;Assigns für Emulator `PCTask`:\n;assign PCTask: `Pfad des PCTask-Ordners`\n\n")
  125. (set #ask_screen_prompt     "In welchem Bildschirmmodus soll JinxChoice geöffnet werden ?\nHelp-Knopf für mehr Informationen!!!\n")
  126. (set #askbool_keep          "Beibehalten")
  127. (set #askbool_own           "Ich will meine eigene.....")
  128. (set #button_Thanx          "keine Ursache.....")
  129. (set #button_guide_yes      "Sicher, warum nicht...")
  130. (set #button_guide_no       "Nee, vielleicht später...")
  131. (set #read_guide            "Möchten Sie jetzt die Dokumentation lesen ???")
  132. (set #mac-ask_already_one   "Haben Sie schon eine Mac-Sequence von früheren Progis oder ist das ihr erstes Boot-Programm, bei welchem auf getrennte startup-sequencen je nach Emulator zugegriffen wird ??")
  133. (set #already_one_yes       "Ja, ich hab schon eine....")
  134. (set #already_one_no        "Nö, das ist mein Erstes...")
  135. (set #mac-sequence_prompt   "Wo befindet Sich ihre schon vorhandene `Mac-Sequence`?")
  136. (set #already_one_info1     "In der Sequence `")
  137. (set #already_one_info2     "` wird nun in die erste Zeile der Befehl `c:break 1 ALL` eingefügt. Diese wird von `Jinxchoice` UNBEDINGT benötigt, weil sie den Task der normalen Startup-Sequence beendet und so das gleichzeitige Ausführen von 2 Startup-sequencen verhindert.")
  138. (set #pc-sequence_prompt    "Wo befindet Sich ihre schon vorhandene `Pc-Sequence`?")
  139. (set #pc-ask_already_one    "Haben Sie schon eine Pc-Sequence von früheren Progis oder ist das ihr erstes Boot-Programm (mit seperaten Sequencen)??")
  140. (set #autostart-prompt      "Das Setzen des `AUTO`-Schalters:\nIst dieser Schalter gesetzt und es wird erstmalig nach dem Anschalten des Computers der Knopf `PrepEmul` angewählt, wird nach dem folgenden Reset sofort die `Mac-Sequence` ausgeführt. Bei nichtgesetztem Schalter wird nach diesem Reset ganz normal die `startup-sequence` durchlaufen.\n\nHinweis für AFS-Benutzer: Dieser Schalter ist bei AFS-formatierter Bootpartition wirkungslos. Näheres siehe GUIDE.")
  141. (set #autostart_yes         "`AUTO`-Schalter setzen...")
  142. (set #autostart_no          "Weglassen...")
  143. (set #edit-break_yes        "Zeile einfügen...")
  144. (set #edit-break_no         "Diesen Teil überspringen...")
  145. (set #guide                 "JC-Deutsch.guide")
  146. (set #copy_monitor_seq      "Kopiere nun die von `JinxChoice` benötigten Sequencen, um die Monitore zu mounten, nach S: ")
  147. (set #insert_ss-lines       "Füge nun die benötigten Zeilen in `s:startup-sequence` ein. Die originale `s:startup-sequence` wird in `s:startup-sequence.jc` umbenannt.")
  148. (set #config_or_inst-Prompt "Möchten Sie das Programm (erstmalig) installieren oder nur neu konfigurieren ? ")
  149. (set #c_o_i-inst            "Installieren")
  150. (set #c_o_i-config          "neu konfigurieren")
  151. (set #config_complete       "Die Konfiguration von `JinxChoice` ist abgeschlossen. Viel Spaß bei der weiteren Benutzung. ")
  152. (set #insert_ss-line-update "Füge nun die benötigten Zeilen in \n`s:startup-sequence`\nein.")
  153. (set #dest_dir_update       "In welchem Ordner befindet sich das JinxChoice-Hauptprogramm ??")
  154. (set #c_o_i-help            "Installieren oder Konfigurieren ?\n\nInstallieren: Es werden alle benötigten Dateien kopiert, notwendige Zeilen in `s:startup-sequence` eingefügt und wenn erwünscht, Sequencen für MAC bzw. PC erstellt.\n\nKonfigurieren: Es wird nichts kopiert. Nur die Parameterzeile von `JinxChoice` in `s:startup-sequence` wird neu geschrieben/ersetzt.\n\n\n\n")
  155. (set #Para_prepemul-prompt1 "Müssen/wollen sie noch Parameter hinter `")
  156. (set #Para_prepemul-prompt2 " `angeben.")
  157. (set #Para_prepemul-help    "Hier können sie die Parameter für ihr bereits ausgewähltes `prepemul`-Programm angeben. Mögliche Parameter siehe Mac-Emulator-Handbuch !!\n\n")
  158. (set #dest_drawer-prompt    "Bitte geben sie an, wo der `JinxChoice`-Ordner angelegt werden soll ??")
  159.  )
  160. )
  161. ;----------------------------------End Deutsch--------------------------------
  162.  
  163. (set #def_config "0")
  164.  
  165. (if (< ( / (getversion) 65536)37)
  166.     (abort #kickver_prompt)
  167. )
  168.  
  169. (set processor (database"cpu"))
  170. (if (< processor "68010")
  171.       (abort #bad_cpu)
  172. )
  173.  
  174. (message #inst_text)
  175. (welcome)
  176.  
  177. (if (= @minuser "expert")
  178.     (set #def_config "1")
  179. )
  180.  
  181. (complete 0)
  182.  
  183. (set #config_or_inst (Askchoice
  184.                        (prompt #config_or_inst-prompt)
  185.                        (help #c_o_i-help @askchoice-Help)
  186.                        (choices #c_o_i-inst #c_o_i-config)
  187.                        (default #def_config)
  188.                      )
  189. )
  190.  
  191. (If (= #config_or_inst 1)
  192.     (set #dest_dir ( askdir
  193.                      (prompt #dest_dir_update)
  194.                      (help @askdir-help)
  195.                      (default "C:")
  196.                    )
  197.     )
  198. )
  199.  
  200.  
  201.  
  202. ;-----------------------set Copy-dest |||  Copy files-------------------
  203.  
  204. (If (= #config_or_inst 0)
  205.  (
  206.  
  207.  (set #dest_drawer (askdir
  208.                      (prompt #dest_drawer-prompt)
  209.                      (help @askdir-help)
  210.                      (default "sys:")
  211.                    )
  212.  )
  213.  
  214.  (set #jc-path (tackon #dest_drawer "JinxChoice"))
  215.  
  216.  (set @default-dest #jc-path)
  217.  (If (NOT(exists #jc-path ))
  218.   (makedir #jc-path
  219.             (prompt "...")
  220.             (help @makedir-help)
  221.  
  222.   )
  223.  )
  224.  
  225.  (copyfiles
  226.         (prompt "")
  227.         (help "")
  228.         (source #inst-script-info)
  229.         (dest #jc-path)
  230.         (NOGAUGE)
  231.  )
  232.  
  233.  (Copyfiles
  234.     (source "install_JC")
  235.     (dest #jc-path)
  236.     (NOGAUGE)
  237.  )
  238.  
  239.  (set #inst_part (askoptions
  240.                   (prompt #inst_part_prompt)
  241.                   (help @askoptions-help)
  242.                   (choices #binchoice #docchoice)
  243.                   (Default 3 )
  244.                  )
  245.  )
  246.  
  247.  (if (in #inst_part 0)
  248.   (  (set #dest_dir ( askdir
  249.                      (prompt #dest_dir_prompt)
  250.                      (help @askdir-help)
  251.                      (default "C:")
  252.                     )
  253.      )
  254.     (copyfiles
  255.      (prompt #copy_mainfile_prompt)
  256.      (help "Copies the mainfile to the path you choosed" @copyfiles-help)
  257.      (source "bin/JinxChoice")
  258.      (dest #dest_dir)
  259.     )
  260.   )
  261.  )
  262.  
  263. (complete 10)
  264.  
  265.  (if (in #inst_part 1)
  266.   ((copyfiles
  267.     (prompt #copy_docu_prompt)
  268.     (help doc_copy-help)
  269.     (source #dest_docu)
  270.     (dest #jc-path)
  271.  
  272.    )
  273.    (copyfiles
  274.     (prompt #copy_docu_prompt)
  275.     (help doc_copy-help)
  276.     (source #dest_docu_info)
  277.     (dest #jc-path)
  278.     (NOGAUGE)
  279.    )
  280.   )
  281.  )
  282.  
  283.  (copyfiles (source "c/mousetest")
  284.             (dest "c:")
  285.             (NOGAUGE)
  286.  
  287.  )
  288.  
  289.  )
  290. );<^-----Ende inst or config-if
  291.  
  292. (complete 20)
  293.  
  294. ;-----------------------END (set Copy-dest |||  Copy files)-------------------
  295.  
  296. (set #get_prepemul "")
  297.  
  298. (set #get_emul (askoptions
  299.                 (prompt #get_emul_prompt)
  300.                 (help @askoptions-help)
  301.                 (choices "MAC-Emulation" "PC-Emulation")
  302.                 (Default 0 )
  303.                )
  304. )
  305.  
  306.                               ; M A C - E M U L
  307. (if  (in #get_emul 0 )
  308.  ((message #MAC-Part_prompt)
  309.  
  310.   (set #prepemul     (askfile
  311.                       (prompt #prepemul_prompt)
  312.                       (help #prepemul-help @askchoice-help)
  313.                       (default "c:prepareEmul")
  314.                      )
  315.   )
  316.   (set #Parameter_prepemul (askstring
  317.                             (prompt #Para_prepemul-prompt1 #prepemul #Para_prepemul-prompt2)
  318.                             (help #Para_prepemul-help @askstring-help)
  319.                            )
  320.   )
  321.   (set #space3 " ")
  322.   (set #afz1 "\"")
  323.   (set #afz2 "\"")
  324.  (If (= #Parameter_prepemul "")
  325.    ((set #space3 "")
  326.     (set #afz1 "")
  327.     (set #afz2 "")
  328.  
  329.    )
  330.  )
  331.  
  332.  (set #prp-startupfile #prepemul)
  333.  
  334.  
  335.  (If (= #config_or_inst 1)
  336.       (set #mac-startupfile    (askfile
  337.                                  (prompt #mac-sequence_prompt)
  338.                                  (help @askfile-help)
  339.                                  (default "S:Mac-Sequence")
  340.                                )
  341.       )
  342.  )
  343.  
  344.  
  345.  
  346. (if (= #config_or_inst 0)
  347.  (
  348.   (If (= @user-level 2)
  349.    (set #already_one (Askbool
  350.                       (prompt #mac-ask_already_one)
  351.                       (help @askbool-Help)
  352.                       (choices #already_one_yes #already_one_no)
  353.                      )
  354.    )
  355.  
  356.   )
  357.  (If (OR(= #already_one 0)(= @user-level 1))
  358.   (set #mac_file     (askfile
  359.                        (prompt #mac-file_prompt)
  360.                        (help @askfile-help)
  361.                        (default "sys:Shapshifter/shapeshifter")
  362.                      )
  363.   )
  364.  )
  365.  
  366. (complete 30)
  367.  
  368.  (set #mac-startupfile "s:Mac-Sequence")
  369.  
  370.  (If (AND (= #already_one 1) (= @user-level 2))
  371.      ((set #mac-startupfile    (askfile
  372.                                 (prompt #mac-sequence_prompt)
  373.                                 (help @askfile-help)                                           (default "S:Mac-Sequence")
  374.                                (Default "s:Mac-sequence")
  375.                                )
  376.       )
  377.  
  378.  
  379.       (set #edit-break (askbool
  380.                         (prompt #already_one_info1 #mac-startupfile #already_one_info2)
  381.                         (help @askbool-help)
  382.                         (choices #edit-break_yes #edit-break_no)
  383.                        )
  384.       )
  385.  
  386.       (If (= #edit-break 1)
  387.        ((textfile
  388.          (dest "ram:Emul-sequence")
  389.          (append "c:break 1 all\n\n")
  390.          (include #mac-startupfile)
  391.         )
  392.         (textfile
  393.          (dest "ram:copy_merged_ss")
  394.          (append "copy ram:Emul-sequence ")
  395.          (append #mac-startupfile)
  396.         )
  397.         (execute "ram:copy_merged_ss")
  398.         (delete "ram:Emul-sequence")
  399.         (delete "ram:copy_merged_ss")
  400.        )
  401.       )
  402.  
  403.      )
  404.  )
  405.  
  406.  (If (OR(= #already_one 0) (= @user-level 1))
  407.   (
  408.    (IF (= @user-level 2)
  409.     ((set #change_mac-startup (askbool
  410.                                (prompt #chg_mac_prompt)
  411.                                (help @askbool-help)
  412.                                (choices #askbool_keep #askbool_own)
  413.                               )
  414.      )
  415.  
  416.      (If (= #change_mac-startup 0)
  417.              ((set #dest_mac-startup (askdir
  418.                                        (prompt #mac-dest-prompt)
  419.                                        (help @askdir-help)
  420.                                        (default "s:")
  421.                                      )
  422.               )
  423.               (set #name_mac-startup (askstring
  424.                                        (prompt #mac-name-prompt)
  425.                                        (help @askstring-help)
  426.                                      )
  427.               )
  428.                (set #mac-startupfile (tackon #dest_mac-startup #name_mac-startup))
  429.              )
  430.      )
  431.     )
  432.    )
  433.  
  434.  
  435.     (If (OR(= #change_mac-startup 1) (= @user-level 1))
  436.            (set #mac-startupfile "s:MAC-sequence")
  437.     )
  438.    
  439.    (textfile
  440.        (dest #mac-startupfile)
  441.        (append "c:break 1 all\n" )
  442.        (append #mac-startup_note1)
  443.        (append #mac-startup_note2)
  444.        (append #mac-startup_note3)
  445.        (append #mac-startup_note4)
  446.        (append #mac_file )
  447.    )
  448.   )
  449.  )<^; Ende der If-schleife
  450.  
  451.     (textfile
  452.        (dest "ram:ed-file")
  453.        (append "ed " )
  454.        (append #mac-startupfile)
  455.     )
  456.     (message #Mac-ed)
  457.     (execute ("ram:ed-file"))
  458.     (delete "ram:ed-file")
  459.  )
  460. );<^-----Ende Inst_or_config-if
  461.  
  462. (set #pre-MAC "M=")
  463.     (set #pre-prp "E=")
  464.     (set #space1 " ");<=========Lücke nach Mac-sequence
  465.     (set #space4 " ");<=========Lücke nach Prepemul
  466.  
  467.     (set #Autostart (askbool
  468.                      (prompt #autostart-prompt)
  469.                      (help @askbool-Help)
  470.                      (Choices #AUTOSTART_yes #Autostart_no)
  471.                     )
  472.     )
  473.     (if (= #autostart 1)
  474.        ((set #autoswitch "AUTO")
  475.         (set #space5 " ")
  476.        )
  477.     )
  478.  )
  479. )
  480.  
  481. (complete 50)
  482.                               ; P C - E M U L
  483.  
  484. (if (in #get_emul 1 )
  485.  ((message #PC-Part_prompt)
  486.  
  487.  (If (= #config_or_inst 1)
  488.       (set #pc-startupfile     (askfile
  489.                                 (prompt #pc-sequence_prompt)
  490.                                 (help @askfile-help)
  491.                                 (default "S:Pc-Sequence")
  492.                                )
  493.       )
  494.  )
  495.  
  496.  
  497.  
  498.  
  499. (If (= #config_or_inst 0)
  500.  ((set #already_one (Askbool
  501.                       (prompt #pc-ask_already_one)
  502.                       (help @askbool-Help)
  503.                       (choices #already_one_yes #already_one_no)
  504.                     )
  505.   )
  506.  
  507.  
  508.  (If (= #already_one 1)
  509.      ((set #pc-startupfile    (askfile
  510.                                 (prompt #pc-sequence_prompt)
  511.                                 (help @askfile-help)
  512.                                 (default "S:PC-sequence")
  513.                                )
  514.       )
  515.       (set #edit-break (askbool
  516.                         (prompt #already_one_info1 #pc-startupfile #already_one_info2)
  517.                         (help @askbool-help)
  518.                         (choices #edit-break_yes #edit-break_no)
  519.                        )
  520.       )
  521.  
  522.      (If (= #edit-break 1)
  523.       ((textfile
  524.         (dest "ram:Emul-sequence")
  525.         (append "c:break 1 all\n\n")
  526.         (include #pc-startupfile)
  527.        )
  528.        (textfile
  529.         (dest "ram:copy_merged_ss")
  530.         (append "copy ram:Emul-sequence ")
  531.         (append #pc-startupfile)
  532.        )
  533.        (execute "ram:copy_merged_ss")
  534.        (delete "ram:Emul-sequence")
  535.        (delete "ram:copy_merged_ss")
  536.       )
  537.      )
  538.  
  539.      )
  540.  )
  541.  
  542.  
  543.  (If (= #already_one 0)
  544.   ((set #pc_file      (askfile
  545.                         (prompt #pc-file_prompt)
  546.                         (help @askfile-help)
  547.                         (default "sys:PCX/PCx")
  548.                      )
  549.    )
  550.    (set #change_pc-startup (askbool
  551.                              (prompt #chg_pc_prompt)
  552.                              (help @askbool-help)
  553.                              (choices #askbool_keep #askbool_own)
  554.                            )
  555.    )
  556.  
  557.     (If (= #change_pc-startup 0)
  558.             ((set #dest_pc-startup (askdir
  559.                                       (prompt #pc-dest-prompt)
  560.                                       (help @askdir-help)
  561.                                       (default "s:")
  562.                                     )
  563.              )
  564.              (set #name_pc-startup (askstring
  565.                                       (prompt #pc-name-prompt)
  566.                                       (help @askstring-help)
  567.                                     )
  568.              )
  569.               (set #pc-startupfile (tackon #dest_pc-startup #name_pc-startup))
  570.             )
  571.     )
  572.  
  573.     (If (= #change_pc-startup 1)
  574.            (set #pc-startupfile "s:PC-sequence")
  575.     )
  576.  
  577.    (textfile
  578.        (dest #pc-startupfile)
  579.        (append "c:break 1 all\n" )
  580.        (append #pc-startup_note1)
  581.        (append #mac-startup_note2)
  582.        (append #pc-startup_note3)
  583.        (append #pc-startup_note4)
  584.        (append #pc_file )
  585.    )
  586.   )
  587.  );<^-----------Ende der If-Schleife
  588.    (textfile
  589.        (dest "ram:ed-file")
  590.        (append "ed " )
  591.        (append #Pc-startupfile)
  592.    )
  593.    (message #Pc-ed)
  594.     (execute ("ram:ed-file"))
  595.     (delete "ram:ed-file")
  596.  )
  597. );<^--------ende inst or config-if
  598.  
  599. (set #pre-PC "P=")
  600. (set #space2 " ")
  601.  
  602.  )
  603. )
  604.  
  605.  
  606.  
  607. ;-------------------------Screenmode& other SS-Stuff-------------------------
  608.  
  609. (complete 80)
  610.  
  611. (If (= #config_or_inst 0)
  612.   (  (message #copy_monitor_seq)
  613.  
  614.      (copyfiles
  615.        (prompt #startup-seq_2)
  616.        (help "copying file")
  617.        (source "s/")
  618.        (dest "s:")
  619.        (all)
  620.      )
  621.       (message #inst_screen)
  622.       (run "c/screenmoderequester") ;<============Requester für Screenmode
  623.  
  624.       (message #insert_ss-lines)
  625.       (Textfile
  626.        (dest "RAM:startup-seq")
  627.        (append ";-------------BEGIN JINXCHOICE----------------------\n")
  628.        (append "execute s:jc-startup\n")
  629.        (append #dest_dir"JinxChoice "#pre-MAC #Mac-startupfile #space1 #pre-PC #PC-startupfile #space2 #pre-prp #afz1 #prp-startupfile #space3 #Parameter_prepemul #afz2 #space4 #autoswitch #space5 "S=")
  630.        (include "ram:T/modeselexion")
  631.        (append "\nexecute s:jc-clearseq\n")
  632.        (append ";-------------END JINXCHOICE------------------------\n\n")
  633.        (include "s:startup-sequence")
  634.       )
  635.       (rename "ram:startup-seq" "ram:startup-sequence")
  636.       (if (exists "S:startup-sequence.jc")
  637.        (delete "s:startup-sequence.jc")
  638.       )
  639.       (rename "s:startup-sequence" "s:startup-sequence.jc")
  640.       (copyfiles
  641.        (help @copyfiles-help)
  642.        (source "ram:startup-sequence")
  643.        (dest "s:")
  644.       )
  645.       (delete "ram:startup-sequence")
  646.  
  647.   )
  648. )
  649.  
  650. (If (= #config_or_inst 1)
  651.   (   (copyfiles
  652.        (prompt #startup-seq_2)
  653.        (help "copying file")
  654.        (source "bin/replaceline")
  655.        (dest "ram:")
  656.        (NOGAUGE)
  657.      )
  658.       (message #inst_screen)
  659.       (run "c/screenmoderequester") ;<============Requester für Screenmode
  660.  
  661.       (message #insert_ss-line-update)
  662.       (Textfile
  663.        (dest "RAM:replaze_line")
  664.        (append "ram:replaceline ")
  665.        (append "|JinxChoice| ")
  666.        (append "|"#dest_dir"JinxChoice "#pre-MAC #Mac-startupfile #space1 #pre-PC #PC-startupfile #space2 #pre-prp #afz1 #prp-startupfile #space3 #Parameter_prepemul #afz2 space4 #autoswitch #space5 "S=")
  667.        (include "ram:T/modeselexion")
  668.        (append "| ")
  669.        (append "|s:startup-sequence|\n")
  670.  
  671.       )
  672.       (execute "ram:replaze_line")
  673.      (delete "ram:replaze_line")
  674.      (delete "ram:replaceline")
  675.     (message #config_complete)
  676.   )
  677. )
  678.  
  679. ;--------------------------End Screenmode& other SS-Stuff--------------------
  680.  
  681. (delete "ram:T/modeselexion")
  682.  
  683. (If (= #config_or_inst 0)
  684.  ((complete 90)
  685.   (set #askguide  (askbool
  686.                      (prompt #read_guide)
  687.                      (Help @askbool-help)
  688.                      (choices #button_guide_yes #button_guide_no)
  689.                   )
  690.   )
  691.  
  692.  
  693.   (if (= #askguide 1)
  694.    ((textfile
  695.       (dest "ram:read-file")
  696.       (append "docs/\n")
  697.       (append "multiview " #guide"\n")
  698.     )
  699.     (execute("ram:read-file"))
  700.     (delete "ram:read-file")
  701.    )
  702.   )
  703.   (complete 100)
  704.  
  705.   (Exit #Thanx)
  706.  
  707.  )
  708. )
  709.