home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / System / BoingBag2 / BoingBag_Install next >
Text File  |  2001-01-09  |  22KB  |  759 lines
  1. ;$VER: Install 44.5 (8.1.2001)
  2.  
  3. (effect "center" "radial" $FF0077 $AA8800)
  4.  
  5. (set #language (getenv "Language"))
  6.  
  7. (set #wbversion 0)
  8. (set #wbversion (getversion "libs:version.library"))
  9. (set #wbversion (/ #wbversion 65536) )
  10.  
  11. (set #iconversion 0)
  12. (set #iconversion (getversion "icon.library" (resident)))
  13. (set #iconversion (/ #iconversion 65536) )
  14.  
  15. (complete 0)
  16.  
  17. ;=============================================================================
  18. ; English strings
  19.  
  20. (set default_lang 4)
  21. (set default_country 1)
  22. (set #languages 1)
  23.  
  24. (set #askcatlang "Which locale files would you like to have installed?")
  25. (set #no-cat "None")
  26.  
  27. (set #pretendabort "Pretend mode cannot be used with this installation script.")
  28.  
  29. (set #mainwelcome "Welcome to the AmigaOS 3.5 2nd Update installation.\n")
  30.  
  31. (set #bad-3.5
  32. (cat "\n\n\nThis Boing Bag needs AmigaOS 3.5. Please install it first!\n\n"
  33.      "This update is not intended for AmigaOS 3.9!\n"
  34. ))
  35.  
  36. (set #bad-kick
  37. (cat "\n\nYou have to install Kickstart 3.1 ROMs and Workbench before installing Workbench 3.5."
  38. ))
  39.  
  40. (set #notenoughmemory
  41. (cat "\n\nApproximately 20MByte of disk space is needed on your target volume."
  42.                         "\n\nYou only have \"%s\"KByte free.\n\n"
  43.                         "Delete or move some files from the target volume and try again."
  44. ))
  45.  
  46. (set #introduction
  47. (cat "\n\nThis program lets you install the Update Package of the Amiga Operating "
  48.      "System on your hard drive.\n\nIt can only be used to upgrade an 3.5 release."
  49. ))
  50.  
  51. (set #ask-install-help
  52. (cat "\nYou have to choose which operation you would like to "
  53.      "perform.\n\n"
  54.      "Selecting the \"Install Release 3.5\" gadget lets you perform a update "
  55.      "installation of the Release 3.5 Workbench software. This option should "
  56.      "be chosen when upgrading a system from prior releases, or after "
  57.      "installing Release 3.1 on a new hard drive unit.\n\n"
  58.      "Selecting the \"Install CD-ROM driver\" gadget lets you perform "
  59.      "the installation of CachCDFS CD-ROM driver. "
  60.      "This option should only be chosen when Release 3.1 has already "
  61.      "been installed.\n\n"
  62. ))
  63.  
  64.  
  65. (set #confirm-target
  66. (cat "\n\nVERY IMPORTANT!!!\n\nThis program installs the update 3.5 on your hard disk. "
  67.      "Older files will be overwritten."
  68.      "\n\n"
  69.      "Do you want to install the Boing Bag 2 on partition \"%s\"? "
  70. ))
  71.  
  72. (set #confirm-target-help
  73. (cat "\nThe installation program guesses, that version 3.5 "
  74.      "should probably be installed on partition \"%s\" "
  75.      "In the further installation process "
  76.      "most of the files on this partition will be replaced with newer "
  77.      "files.\n\n"
  78. ))
  79.  
  80. (set #which-disk
  81. (cat "On which partition should version 3.5 be installed?"
  82. ))
  83.  
  84. (set #which-disk-help
  85. (cat "\nThis section lets you choose on which hard drive partition the "
  86.      "Release 3.5 files will be installed. These should normally go "
  87.      "to the same directory you installed AmigaOS 3.1 to."
  88.      @askdir-help
  89. ))
  90.  
  91. (set #old-name
  92. (cat "OLD"
  93. ))
  94.  
  95. (set #deleting-obsolete
  96. (cat "\n\nDeleting obsolete files..."
  97. ))
  98.  
  99. (set #confirm-delete
  100. (cat "\n\nShould the file \"%s\" be deleted?"
  101. ))
  102.  
  103. (set #confirm-delete-help
  104. (cat "\nThe file \"%s\" is no longer "
  105.      "useful under Release 3.5. You can delete the file by selecting "
  106.      "the \"Yes\" gadget, or preserve the file by selecting the \"No\" "
  107.      "gadget."
  108. ))
  109.  
  110. (set #confirm-delete-reason-2
  111. (cat "The functionality of this program has been integrated into other "
  112.      "Workbench programs."
  113. ))
  114.  
  115. (set #confirm-delete-reason-3
  116. (cat "This program was moved to a different location and will be updated "
  117.      "there."
  118. ))
  119.  
  120. (set #confirm-delete-reason-4
  121. (cat "This program is obsolete and should not be used with Release 3.5"
  122. ))
  123.  
  124. (set #confirm-delete-1
  125. (cat "Yes"
  126. ))
  127.  
  128. (set #confirm-delete-2
  129. (cat "No"
  130. ))
  131.  
  132. (set #which-printer
  133. (cat "Which printer drivers should be installed?"
  134. ))
  135.  
  136. (set #which-printer-help
  137. (cat "\nThe Amiga can control many different printers. "
  138.      "Printer drivers are files that let the Amiga adapt to a given "
  139.      "printer. There must be a printer driver copied to your "
  140.      "hard drive for each printer supported.\n\n"
  141.      "To reduce the amount of space consumed by the "
  142.      "printer driver files, you can select only the "
  143.      "drivers that are useful to you.\n\n"
  144.      "Check the boxes of the printers you wish "
  145.      "to have available on your system.\n\n"
  146.      @askoptions-help
  147. ))
  148.  
  149. (set #preparing-icons
  150. (cat "\n\nPreparing icons..."
  151. ))
  152.  
  153. (set #positioning-icons
  154. (cat "\n\nPositioning icons..."
  155. ))
  156.  
  157. (set #installing
  158. (cat "\n\nWorking on installation..."
  159. ))
  160.  
  161. (set #reboot
  162. (cat "\nThe installation of Boing Bag 2 is now complete.\n\n"
  163.      "To enable the updated files, you must reboot your Amiga.\n\n"
  164.      "Remove all the disks from the floppy drive, and "
  165.      "Select the \"Proceed\" gadget to reboot your Amiga."
  166. ))
  167.  
  168. ;=============================================================================
  169. ; German strings
  170.  
  171. (if (= #language "deutsch")
  172. (
  173. (set default_lang 2)
  174. (set default_country 16)
  175. (set #languages 16)
  176.  
  177. (set def-cat 5)
  178.  
  179. (set #askcatlang "Welche Sprachkataloge sollen installiert werden?")
  180. (set #no-cat "Keine")
  181.  
  182. (set #pretendabort "Dieses Installationsprogramm unterstützt den Simulationsmodus (Scheinbar installieren) nicht.")
  183.  
  184. (set #mainwelcome "Willkommen zur Installation des 2. AmigaOS 3.5 Update Paketes.\n")
  185.  
  186. (set #bad-3.5
  187. (cat "\n\n\nDieses Boing Bag benötigt AmigaOS 3.5. Bitte installieren Sie es zuerst!\n\n"
  188.      "Dieses BoingBag ist nicht für AmigaOS 3.9 gedacht!\n"
  189. ))
  190.  
  191. (set #bad-kick
  192. (cat "\n\nSie müssen Kickstart 3.1 und die Workbench 3.1 zur Nutzung von Workbench 3.5 vorinstallieren."
  193. ))
  194.  
  195. (set #notenoughmemory
  196. (cat "\n\nSie benötigen mindestens 10MByte freien Speicher auf Ihrer Bootpartition!"
  197.                         "\n\nLeider haben Sie nur noch \"%s\" KByte frei.\n\n"
  198.                         "Löschen oder verschieben Sie einige unnötige Dateien oder vergrößern Sie Ihre Partition."
  199. ))
  200.  
  201. (set #introduction
  202. (cat "\n\nHiermit können Sie das OS3.5 Update Paket auf Ihrer "
  203.      "Festplatte installieren.\n\nSie können damit die Version 3.5 von AmigaOS "
  204.      "aktualisieren."
  205. ))
  206.  
  207. (set #confirm-target
  208. (cat "\n\nBITTE BEACHTEN!!!\n\nDieses Programm installiert das 3.5 Update Paket auf Ihrer Festplatte. "
  209.      "Bisherige Dateien werden überschrieben.\n\n"
  210.      "Wollen Sie das Boing Bag 2 auf der Partition \"%s\" installiert "
  211.      "bekommen?"
  212. ))
  213.  
  214. (set #confirm-target-help
  215. (cat "\nDas Installationsprogramm hat herausgefunden, daß die Version 3.5 "
  216.      "wahrscheinlich auf der Partition namens \"%s\" installiert "
  217.      "werden soll. Bei der weiteren Installation "
  218.      "werden die meisten Dateien in dieser Partition durch neuere Dateien "
  219.      "ersetzt.\n\n"
  220. ))
  221.  
  222. (set #which-disk
  223. (cat "Auf welcher Partition soll Version 3.5 installiert werden?"
  224. ))
  225.  
  226. (set #which-disk-help
  227. (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  228.      "die Dateien von Version 3.5 installiert werden sollen. "
  229.      "Sie sollten normalerweise an dieselbe Stelle installiert werden "
  230.      "wie die bisherigen Dateien von Version 1.3, 2, 2.1 oder 3.1.\n\n"
  231.      @askdir-help
  232. ))
  233.  
  234. (set #old-name
  235. (cat "ALT"
  236. ))
  237.  
  238. (set #checking-target
  239. (cat "\n\nÜberprüfen von \"%s\" auf überholte Dateien ..."
  240. ))
  241.  
  242. (set #delete-old
  243. (cat "\n\nViele System-Dateien, die unter früheren Versionen "
  244.      "benötigt wurden, werden unter Version 3.5 nicht länger gebraucht. "
  245.      "Diese Dateien sollen nun aus Ihrem System gelöscht werden.\n\n"
  246.      "Wollen Sie bei jeder Datei einzeln um Bestätigung gebeten werden, "
  247.      "oder können sie alle automatisch gelöscht werden?"
  248. ))
  249.  
  250. (set #delete-old-help
  251. (cat "\nÄltere Systemversionen umfassen mehrere Dateien, die "
  252.      "unter Version 3.5 nutzlos sind. Diese Dateien sollten gelöscht "
  253.      "werden, um Unordnung zu vermeiden und Platz auf Ihrer Festplatte "
  254.      "zu sparen.\n\n"
  255.      "Nach Anklicken von \"Automatisch löschen\" werden alle überholten "
  256.      "Systemdateien ohne weitere Nachfrage gelöscht.\n"
  257.      "Nach Anklicken von \"Löschen bestätigen\" bittet das Installationsprogramm "
  258.      "bei jeder Datei vor dem Löschen um Bestätigung. Somit können Sie "
  259.      "bestimmte Dateien erhalten, die Sie nicht löschen wollen.\n\n"
  260. ))
  261.  
  262. (set #delete-old-1
  263. (cat "Automatisch löschen"
  264. ))
  265.  
  266. (set #delete-old-2
  267. (cat "Löschen bestätigen"
  268. ))
  269.  
  270. (set #deleting-obsolete
  271. (cat "\n\nLöschen überholter Dateien"
  272. ))
  273.  
  274. (set #confirm-delete
  275. (cat "\n\nKann die Datei \"%s\" gelöscht werden?"
  276. ))
  277.  
  278. (set #confirm-delete-help
  279. (cat "\nDie Datei "
  280.      "\"%s\" ist unter Version 3.5 überholt. Sie können die Datei "
  281.      "durch Anklicken von \"Ja\" löschen oder durch Anklicken von \"Nein\" "
  282.      "erhalten."
  283. ))
  284.  
  285. (set #confirm-delete-reason-1
  286. (cat "Diese Datei ist in Version 3.5 jetzt in das ROM integriert."
  287. ))
  288.  
  289. (set #confirm-delete-reason-2
  290. (cat "Die Aufgaben dieses Programms werden jetzt von anderen "
  291.      "Workbench-Programmen übernommen."
  292. ))
  293.  
  294. (set #confirm-delete-reason-3
  295. (cat "Dieses Programm wurde auf einen anderen Pfad verlegt und wird "
  296.      "dort aktualisiert."
  297. ))
  298.  
  299. (set #confirm-delete-reason-4
  300. (cat "Dieses Programm ist überholt und sollte nicht unter Version 3.5 "
  301.      "benutzt werden."
  302. ))
  303.  
  304. (set #confirm-delete-1
  305. (cat "Ja"
  306. ))
  307.  
  308. (set #confirm-delete-2
  309. (cat "Nein"
  310. ))
  311.  
  312. (set #which-printer
  313. (cat "Welche Druckertreiber sollen installiert werden?"
  314. ))
  315.  
  316. (set #which-printer-help
  317. (cat "\nDer Amiga kann viele verschiedene Drucker ansteuern. "
  318.      "Druckertreiber sind Dateien, mit denen sich der Amiga an den "
  319.      "jeweiligen Drucker anpassen kann. Für jeden verwendeten Drucker "
  320.      "muß eine Druckertreiberdatei auf die Festplatte kopiert werden.\n\n"
  321.      "Um den Platz in Grenzen zu halten, den die Treiberdateien einnehmen, "
  322.      "können Sie wählen, nur diejenigen Treiber zu installieren, die Sie "
  323.      "überhaupt verwenden können.\n\n"
  324.      "Klicken Sie einfach die Felder derjenigen Drucker an, die Sie in "
  325.      "Ihrem System verfügbar haben wollen, so daß diese Drucker mit "
  326.      "einem Häkchen markiert sind.\n\n"
  327.      @askoptions-help
  328. ))
  329.  
  330. (set #which-keymap
  331. (cat "Welche Tastaturbelegung (Keymap) soll installiert werden?"
  332. ))
  333.  
  334. (set #which-keymap-help
  335. (cat "\nDer Amiga kann mit vielen verschiedenen Tastaturen betrieben "
  336.      "werden. "
  337.      "Eine \"Keymap\"-Datei (Tastaturbelegung) beschreibt dem Amiga "
  338.      "eine Tastatur, so daß sie korrekt benutzt werden kann. Wählen "
  339.      "Sie aus der Liste die Tastatur aus, die Sie haben.\n\n"
  340.      "Klicken Sie einfach die Felder derjenigen Tastaturbelegungen an, "
  341.      "die Sie in Ihrem System verfügbar haben wollen, so daß diese mit "
  342.      "einem Häkchen markiert sind.\n\n"
  343.      @askoptions-help
  344. ))
  345.  
  346. (set #boardsoptstxt "Bitte Boardtyp auswaehlen")
  347. (set #noboards "Kein PPC-Board vorhanden")
  348. (set #cyberstorm "CyberStormPPC A3000/A4000")
  349. (set #developerboard "CyberStorm Developerboard")
  350. (set #blizzard "Blizzard PPC A1200")
  351.  
  352. (set #boardopts_help (cat "\n"
  353.     "Wählen Sie bitte das entsprechende, in Ihrem Amiga eingebaute PowerPC-Board aus. "
  354.     "Wenn Sie noch ueber kein Board verfuegen, wählen Sie einfach \"Kein PPC-Board vorhanden\". "
  355.     "Sie könenn dann dennoch die beigefuegten Demos ablaufen lassen.\n\n"
  356.     "Die 'warpHW.library' ist der Hardware-Treiber fuer den WarpUp-HAL. Im "
  357.     "Verzeichnis 'hwdrivers' befindet sich eine ausfuehrliche Dokumentation und "
  358.     "Beispiel-Sourcen, welche es jedermann erlauben, WarpUp-Treiber fuer neue "
  359.     "PPC-Hardware zu entwickeln. Fuer jede Hardware gibt es eine warpHW.library. "
  360.     "Es muss natuerlich die korrekte Version installiert sein. Dies kann man "
  361.     "ueberpruefen, indem man das Programm 'GetDriverInfo' (im 'tools'-Verzeichnis) "
  362.     "laufen laesst, welches in der Shell ausgibt, welche Hardware der Treiber "
  363.     "repraesentiert."
  364.     ))
  365.  
  366.  
  367. (set #envoptstxt "Bitte wählen Sie Ihre Einstellung!")
  368.  
  369. (set #envdebug "Debug-Modus")
  370. (set #envmemprot "PPC-Speicherschutz")
  371. (set #envearlyterm "WShell-Kompatibel")
  372. (set #envnoppc "PPC-Board ausgebaut")
  373. (set #envhidewarning "Warnungen ignorieren")
  374. (set #envterminator "PPC.lib Autoterminator")
  375.  
  376. (set #envopts_help ( cat "\n"
  377.       "Voreinstellungen\n\n"
  378.       "WarpOS kennt einige Env-Variablen, womit gewisse Voreinstellungen gemacht "
  379.       "werden können. Zur Zeit können folgende Variablen über den "
  380.       "Installer konfiguriert werden:\n\n"
  381.  
  382.       "WShell-Kompatibilität - env:powerpc/earlyterm\n\n"
  383.  
  384.       "Wenn diese Variable nicht gesetzt ist, kann es im Zusammenhang mit Programmen "
  385.       "wie der WShell zu grossen Problemen kommen, in diesem Fall sollte diese "
  386.       "Variable gesetzt werden. Dann können aber die Tool-Programme 'stackppc' und "
  387.       "'changemmu' nicht mehr benützt werden. Der PPC-Stack kann dann aber mit dem "
  388.       "Stack-Befehl gesetzt werden (Der PPC-Stack ist etwa doppelt so gross wie der "
  389.      "68K-Stack der Shell).\n\n"
  390.  
  391.       ))
  392.  
  393. (set #install_powerpclib "Kopiere die Bibliotheken nach Libs:")
  394. (set #install_powerpclib_help "Die Bibliothek wird zwangsläufig zum Betrieb benoetigt.")
  395.  
  396. (set #gfxoptstxt "Haben Sie eine der beiden Grafikkarten CVisonPPC oder BVisonPPC in Ihrem Amiga installiert?")
  397. (set #cvppctxt "CyberVisionPPC")
  398. (set #bvppctxt "BlizzardVisionPPC")
  399. (set #othergfx "Andere Grafikkarte")
  400. (set #nogfx "Keine Grafikkarte")
  401.  
  402. (set #old-name
  403. (cat "ALT"
  404. ))
  405.  
  406. (set #preparing-icons
  407. (cat "\n\nVorbereiten der Piktogramme ..."
  408. ))
  409.  
  410. (set #positioning-icons
  411. (cat "\n\nPositioniere Ikons..."
  412. ))
  413.  
  414. (set #installing
  415. (cat "\n\nInstalliere das Update..."
  416. ))
  417.  
  418. (set #reboot
  419. (cat "Die Installation des Update Paketes ist nun abgeschlossen.\n\n"
  420.      "Um die Version 3.5 zu aktivieren, müssen Sie Ihren Amiga neu "
  421.      "starten. "
  422.      "Nehmen Sie die eventuell vorhandene Disketten aus Ihren Diskettenlaufwerken "
  423.      "und klicken Sie dann auf \"Weiter\", um Ihren Amiga neu zu starten.\n\n"
  424. ))
  425.  
  426. ))
  427.  
  428. ;=============================================================================
  429. ; Portugues strings
  430.  
  431. (if (= #language "português")
  432. (
  433. (set default_lang 256)
  434. (set default_country 1024)
  435. (set #languages 4096)
  436. (set def-cat 11)
  437.  
  438. ))
  439.  
  440. ;=============================================================================
  441. ; Spanish strings
  442.  
  443. (if (= #language "español")
  444. (
  445. (set default_lang 8)
  446. (set default_country 64)
  447. (set #languages 32)
  448. (set def-cat 6)
  449. ))
  450.  
  451. ;=============================================================================
  452. ; French strings
  453.  
  454. (if (= #language "français")
  455. (
  456. (set default_lang 16)
  457. (set default_country 128)
  458. (set #languages 64)
  459. (set def-cat 7)
  460.  
  461. ))
  462.  
  463. ;=============================================================================
  464. ; Dutch strings
  465.  
  466. (if (= #language "nederlands")
  467. (
  468. (set default_lang 64)
  469. (set default_country 2)
  470. (set #languages 512)
  471. (set def-cat 9)
  472. ))
  473.  
  474. ;=============================================================================
  475. ; Italian strings
  476.  
  477. (if (= #language "italiano")
  478. (
  479. (set default_lang 32)
  480. (set default_country 256)
  481. (set #languages 256)
  482. (set def-cat 8)
  483. ))
  484.  
  485.  
  486. ;=============================================================================
  487. ; Danish strings
  488.  
  489. (if (= #language "dansk")
  490. (
  491. (set default_lang 1)
  492. (set default_country 8)
  493. (set #languages 8)
  494. (set def-cat 4)
  495. ))
  496.  
  497. ;=============================================================================
  498. ; Swedish strings
  499.  
  500. (if (= #language "svenska")
  501. (
  502. (set default_lang 512)
  503. (set default_country 8192)
  504. (set #languages 131072)
  505. (set def-cat 18)
  506. ))
  507.  
  508. ;=============================================================================
  509. ; Norwegian strings
  510.  
  511. (if (= #language "norsk")
  512. (
  513. (set default_lang 128)
  514. (set default_country 512)
  515. (set #languages 65536)
  516. (set def-cat 10)
  517. ))
  518.  
  519. (if (= #language "bosanski")
  520.   (set def-cat 1)
  521. )
  522.  
  523. (if (= #language "català")
  524.   (set def-cat 2)
  525. )
  526.  
  527. (if (= #language "czech")
  528.   (set def-cat 3)
  529. )
  530.  
  531. (if (= #language "português-brasil")
  532.   (set def-cat 12)
  533. )
  534. (if (= #language "russian")
  535.   (set def-cat 13)
  536. )
  537. (if (= #language "slovak")
  538.   (set def-cat 14)
  539. )
  540. (if (= #language "slovensko")
  541.   (set def-cat 15)
  542. )
  543. (if (= #language "srpski")
  544.   (set def-cat 16)
  545. )
  546. (if (= #language "suomi")
  547.   (set def-cat 17)
  548. )
  549.  
  550. ;=============================================================================
  551. ; procedure to call on exit...
  552.  
  553. (procedure TERMINATE
  554.         (makeassign "CacheCDFSInst" (safe))
  555.         (makeassign "CacheCDFS" (safe))
  556. )
  557.  
  558. ;=============================================================================
  559. ; termination stuff
  560.  
  561. (onerror (TERMINATE))
  562.  
  563. ;=============================================================================
  564. ; do a bit of set up...
  565.  
  566. (set sourcePath (expandpath (pathonly @icon)))
  567.  
  568. (set workbenchPath (tackon sourcePath "Workbench"))
  569. (set printerPath (tackon sourcePath "Printers"))
  570. (set romupdatePath (tackon sourcePath "ROM-Update"))
  571. (set internetPath (tackon sourcePath "Internet"))
  572.  
  573. (run (cat "Resident \"" (tackon sourcePath "Install-Tools/IconPos\" PURE")) (safe))
  574. (run (cat "Resident \"" (tackon sourcePath "Install-Tools/Delete\" PURE")) (safe))
  575.  
  576. (set #old_wb "SYS:")
  577. (set #old_wb (expandpath #old_wb))
  578.  
  579. (user 2)
  580. (set #theirlevel @user-level)
  581.  
  582. ;=============================================================================
  583. ; what do you want to do?
  584.  
  585. (if (<> #wbversion 44)
  586.     (
  587.         (message #bad-3.5) ; No OS3.5 installed
  588.         (exit (quiet))
  589.     )
  590.    (
  591.    ;******************************************************************
  592.    ;***************** Boing BAG Installation *************************
  593.    ;******************************************************************
  594.    (complete 1)
  595.  
  596.    (message #introduction)
  597.  
  598.  
  599.       (complete 5)
  600.  
  601.       (user 0)
  602.       (welcome #mainwelcome)
  603.       (set #theirlevel @user-level)
  604.  
  605.       (if @pretend
  606.         (abort #pretendabort)
  607.       )
  608.  
  609.       (trace) ;hierhin zurueck
  610.  
  611.       (complete 10)
  612.  
  613.       (message (#confirm-target #old_wb))
  614.       (set target #old_wb)
  615.  
  616.       (set @default-dest target)
  617.       (set stash_old (tackon target #old-name))
  618.  
  619.       (complete 15)
  620.  
  621.       ;=============================================================================
  622.       ; which printer drivers should be installed?
  623. ;      (trace)
  624.  
  625. ;      (user 2)
  626. ;      (set prt (askoptions (prompt #which-printer)
  627. ;                           (help #which-printer-help)
  628. ;                           (choices "HP LaserJet (all Models)"
  629. ;                                    "HP DeskJet (all Models)"
  630. ;
  631. ;                           )
  632. ;                           (default 0)
  633. ;                           (back (retrace))
  634. ;                )
  635. ;      )
  636. ;      (user #theirlevel)
  637. ;      (complete 20)
  638.  
  639.       ;=============================================================================
  640.       ; get the version of what is currently installed
  641.  
  642.       (set old_version 0)
  643.       (if (exists (tackon target "Libs/version.library"))
  644.       (
  645.           (set old_version (/ (getversion (tackon target "Libs/version.library")) 65536))
  646.       ))
  647.  
  648.       (complete 30)
  649.  
  650.       ;=============================================================================
  651.       ; now copy the Workbench disk
  652.  
  653.       (working #installing)
  654.  
  655.       (copyfiles (source workbenchPath)
  656.                  (dest target)
  657.                  (all)
  658.                  (optional "nofail" "force" "askuser")
  659.       )
  660.  
  661.       (complete 50)
  662.  
  663.  
  664.       ;=============================================================================
  665.       ; catalogs
  666.  
  667.       (set locale_path (tackon "Locales"
  668.           (select (askchoice
  669.                     (help @askchoice-help) (prompt #askcatlang) (default def-cat)
  670.                     (choices #no-cat "Bosanski" "Català" "Czech" "Dansk" "Deutsch" "Español" "Français" "Italiano" "Nederlands" "Norsk" "Português" "Português (Brasil)" "Ðóññêèé (Russian)" "Slovak" "Slovensko" "Srpksi" "Suomi" "Svenska")
  671.                   )
  672.                              "" "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "italiano" "nederlands" "norsk" "português" "português-brasil"   "russian"           "slovak" "slovensko" "srpksi" "suomi" "svenska"
  673.           )
  674.         )
  675.       )
  676.       (if (<> locale_path "")
  677.         (execute (tackon locale_path "Locale_Installation"))
  678.       )
  679.  
  680.       (complete 60)
  681.  
  682.       ;=============================================================================
  683.       ; do the printer driver schtick
  684.  
  685. ;      (set n 0)
  686. ;      (set printerpat "(%")
  687. ;      (while (set printer (select n "HP_Laser#?"
  688. ;                                    "HP_Desk#?"
  689. ;                                    ""
  690. ;                           )
  691. ;             )
  692. ;      (
  693. ;          (if (IN prt n)
  694. ;          (
  695. ;              (set printerpat (cat printerpat "|" printer))
  696. ;          ))
  697. ;          (set n (+ n 1))
  698. ;      ))
  699.  
  700. ;      (copyfiles (source printerPath)
  701. ;                 (dest (tackon target "Devs/Printers"))
  702. ;                 (pattern (cat printerpat ")"))
  703. ;                 (optional "nofail" "force" "askuser")
  704. ;      )
  705.  
  706.       (complete 70)
  707.  
  708.       ;=============================================================================
  709.       ; ROM Update!
  710.       ;
  711.       (if (exists (tackon target "Devs/AmigaOS ROM Update"))
  712.           (
  713.               (copyfiles (source romupdatePath)
  714.                          (dest (tackon target "Devs"))
  715.                          (all)
  716.                          (optional "nofail" "force" "askuser")
  717.               )
  718.  
  719.           )
  720.       )
  721.  
  722.       (complete 80)
  723.  
  724.       ;=============================================================================
  725.       ; Internet!
  726.       ;
  727.       (if (exists (tackon target "Internet"))
  728.           (
  729.               (copyfiles (source internetPath)
  730.                          (dest (tackon target "Internet"))
  731.                          (all)
  732.                          (optional "nofail" "force" "askuser")
  733.               )
  734.  
  735.           )
  736.       )
  737.  
  738.       (complete 90)
  739.  
  740.       ;=============================================================================
  741.       ; Clean up!
  742.       ;
  743.       (working #positioning-icons)
  744.  
  745.       (complete 95)
  746.  
  747. ;      (run (cat "IconPos >NIL: \"" target "Christmas-Look\" 160 150\n"))
  748.  
  749.       (complete 100)
  750.  
  751.       ;=============================================================================
  752.       ; "Say goodnight Gracy."
  753.  
  754.       (user 2)
  755.       (message #reboot)
  756.       (reboot)
  757.    )
  758. )
  759.