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