home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Workbench / Misc / ORS_MI21.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1995-10-03  |  10.9 KB  |  358 lines
  1. ;MULTIICONS 2.1 INSTALLATION SCRIPT © COPYRIGHT TEC DESIGN CORPORATION
  2. ;Ver: $1.10 03.10.1995
  3.  
  4. (set @app-name "MultiIcons V2.1") 
  5. (set @language "deutsch")
  6. (set @abort-button "Installation abbrechen")
  7. (set @error-msg "Fehler!")
  8. (set @pretend 0)
  9. (set @special-msg "Schwerer Fehler")
  10. (set @user-level 2)
  11.  
  12. (welcome "Willkommen zum Installationsprogramm des\nWorkbench-Enhacers Multi Icons V2.1!")
  13. (set Ok 0)
  14. (complete 0)
  15.  
  16. ;Sicherstellen dass mind. Kickstart2.0 läuft
  17. (transcript "MultiIcons V2.0 Pro")
  18. (if
  19.     (NOT (>= (/ (getversion) 65536) 37))
  20.     (abort "MultiIcons benötigen AmigaDOS version 2.04 oder höher! Wenn Sie mit 1.3 arbeiten, wird es Zeit zum Updaten!")
  21. )
  22. ; Installation der DockIcons
  23.  
  24. (set updatename1 "Update Laufwerkssymbole")
  25. (set dockdir ("SYS:Prefs"))
  26. (set pattdir ("SYS:Prefs"))
  27.  
  28. (set dock_dir (getassign "docks" "a")) 
  29.   (
  30.      (set dock_dir
  31.         (askdir
  32.            (prompt
  33.               "Willkommen zu MultiIcons V2.1!\n"
  34.               "----------------------------------------\n"
  35.                "Wählen Sie den Pfad, wo die Toolmanager-\n "
  36.               "docks kopiert werden sollen. Ein Verzeichnis\n"
  37.               "namens Docks wird dort erzeugt und benutzt.\n"
  38.            (help
  39.               "Dorthinein werden alle Dock-Brushes kopiert\n"
  40.               "und geupdatet.")
  41.            (default dockdir))
  42.         )
  43.      )
  44.      (set dock_dir (tackon dockdir "docks"))
  45.  
  46.      ;CREATE DOCK DRAWER
  47.      (if (<> (exists dock_dir) 2) (makedir dock_dir (infos)))
  48.  
  49.   )
  50.  
  51. (copyfiles
  52.    (prompt "Kopiere DockIcons")
  53.    (help "Die 16-Farb-Dock-Brushes werden nun installiert")
  54.    (source "MultiIcons:docks")
  55.    (dest dock_dir)
  56.    (pattern "#?")
  57.    (safe)
  58.    (infos)
  59.    (confirm)
  60.    (optional nofail askuser)
  61. )
  62. (complete 2)
  63. (set patt_dir (getassign "Patterns" "a")) 
  64.   (
  65.      (set patt_dir
  66.        (askdir
  67.           (prompt
  68.              "Wählen Sie den Pfad, wo die Hintergrundbilder\n "
  69.              "installiert werden sollen.\n"
  70.              "Eine Schublade namens 'Patterns' wird erzeugt"
  71.           (help
  72.              "Dorthinein werden alle Bilder kopiert\n"
  73.              "und geupdatet.")
  74.           (default pattdir))
  75.        )
  76.      )
  77.      (set patt_dir (tackon pattdir "patterns"))
  78.      ;CREATE Pattern DRAWER
  79.      (if (<> (exists patt_dir) 2) (makedir patt_dir (infos)))
  80.    )
  81. (copyfiles
  82.    (prompt "Kopiere Hintergrundbilder")
  83.    (help "Die Hintergrundbilder werden nun installiert")
  84.    (source "MultiIcons:patterns")
  85.    (dest patt_dir)
  86.    (pattern "#?")
  87.    (safe)
  88.    (infos)
  89.    (confirm)
  90.    (optional nofail askuser)
  91. )
  92. (complete 10)
  93. ; Kopieren der ENVARC-Icons
  94. (copyfiles
  95.    (prompt "Installation der Default-Icons nach ENVARC:")
  96.    (help "Kopier neue Standart-Systemicons.")
  97.    (source "MultiIcons:Prefs/env-archive/sys")
  98.    (dest "envarc:sys")
  99.    (pattern "#?")
  100.    (infos)
  101.    (confirm)
  102.    (optional nofail askuser)
  103. )
  104. (complete 15)
  105. ; Kopieren der neuen Fonts
  106. (copyfiles
  107.    (prompt "Installation der Fonts für dieses Paket")
  108.    (help "Einige ansehnliche Fonts für die WB-Icons")
  109.    (source "MultiIcons:Fonts")
  110.    (dest "fonts:")
  111.    (pattern "#?")
  112.    (infos)
  113.    (confirm)
  114.    (optional nofail askuser)
  115. )
  116. (complete 20)
  117. ; Kopieren von LockColors und der Farbreferenz
  118. (set vernum (getversion "SYS:WBStartup/LockColors"))
  119. (set ver (/ vernum 65536))
  120. (set rev (- vernum (* ver 65536) ) )
  121. (copyfiles
  122.    (prompt "Farb-Patchprogramm wird in WBStartup kopiert\n"
  123.            "Installierte Version " ver"." rev"\n"
  124.            " Zu installieren:    1.14\n")
  125.    (help "kopiere LockColors nach WBStartup Dieses Programm\n"
  126.          "bewirkt die Stabilhaltung Ihrer Workbench-\n"
  127.          "farben. Für detailliertere Fragen lesen Sie\n"
  128.          "bitte die Anleitung im Docs-Verzeichnis...")
  129.    (source "MultiIcons:LockColors")
  130.    (dest "SYS:WBStartup")
  131.    (pattern "LockColors")
  132.    (safe)
  133.    (infos)
  134.    (confirm)
  135.    (optional nofail askuser)
  136. )
  137. (complete 25)
  138. ; Farbtabelle nach s:
  139. (copyfiles
  140.    (prompt "Farbtabelle kommt nach s:")
  141.    (help "kopiere die Standartfarbpalette nach s:")
  142.    (source "MultiIcons:s")
  143.    (dest "s:")
  144.    (pattern "LockColors.cfg")
  145.    (safe)
  146.    (infos)
  147.    (optional nofail askuser)
  148.    (confirm)
  149. )
  150. (complete 26)
  151. ; Updaten der ILBM Datatype
  152. (set vernum (getversion "SYS:Classes/datatypes/ilbm.datatype"))
  153. (set ver (/ vernum 65536))
  154. (set rev (- vernum (* ver 65536) ) )
  155. (copyfiles
  156.    (prompt "Wollen Sie die ILBM Datatype auf V40.3 updaten?\n"
  157.            "Die Kickstart V3.0/V3.1 Datatype enthält einige\n"
  158.            "Bugs, die Commodore mit diesem Update behebt.\n"
  159.            "(Nur sinnvoll bei Kickstart 3.0 oder 3.1!)\n"
  160.            "Installierte Version " ver"." rev"\n"
  161.            " Zu installieren:    40.3\n")
  162.    (help   "Diese Datatype bewirkt bessere Palettenberechnungen"\
  163.            "bei IFF-Bilddarstellungen, vor allem auf der WB\n")
  164.    (source "multiIcons:ILBMDataUpdate")
  165.    (dest "SYS:Classes/datatypes")
  166.    (pattern "ilbm.datatype")
  167.    (safe)
  168.    (infos)
  169.    (optional nofail askuser)
  170.    (confirm)
  171. )
  172. (complete 30)
  173. ; updaten von IPrefs
  174. (set vernum (getversion "C:IPrefs"))
  175. (set ver (/ vernum 65536))
  176. (set rev (- vernum (* ver 65536) ) )
  177. (copyfiles
  178.    (prompt "Wollen Sie das IPrefs der Workbench V3.1 von\n"
  179.            "zwei kleinen Fehlern bereinigen?\n"
  180.            "(Nur sinnvoll bei installierter WB 3.1!)\n"
  181.            "Installierte Version " ver"." rev"\n"
  182.            " Zu installieren:    40.8\n")
  183.    (help   "Dieses IPrefs nutzt eine korrekte Reihenfolge\n"
  184.            "bei der Allozierungsreihenfolge der Farben.\n")
  185.  (source "multiicons:IPrefsUpdate")
  186.  (dest "SYS:c")
  187.  (pattern "IPrefs")
  188.  (safe)
  189.  (infos)
  190.  (confirm)
  191.  (optional nofail askuser)
  192. )
  193. (complete 35)
  194. ; updaten der deutschen WB3.1-Locales
  195. (copyfiles
  196.    (prompt "Besitzen Sie Workbench 3.1 und nutzen die\n"
  197.            "deutsche Lokalisierung, dann können Sie diese\n"
  198.            "bei dieser Gelegenheit gleich von mehreren\n"
  199.            "Fehlern bereinigen lassen und erweitern.\n")
  200.    (help   "Beseitigt Darstellungsprobleme mit Installer\n"
  201.            "und WB.Catalog und erweitert die Workbench\n"
  202.            "um diverse Tastaturkürzel...\n")
  203.   (source "multiicons:localeupdate")
  204.   (dest "LOCALE:catalogs/deutsch/sys")
  205.   (pattern "#?")
  206.   (safe)
  207.   (confirm)
  208.   (optional nofail askuser)
  209. )
  210. (complete 40)
  211. ; Hinzufügen des Patches in die User-Startup
  212. (startup "Multi Icons Package"
  213.  (prompt "Nun wird eine Zeile zum korrekten Kopieren des RAM-Disk Symbols\n"
  214.          "In die user-startup eingefügt.")
  215.  (help   "Dies ist notwendig, da die Workbench ein eigenkreiertes"
  216.          "RAM-Disk Symbol nicht standartmäßig vorsieht.")
  217.  (command "copy s:disk.info to ram: >NIL:\n")
  218. )
  219. (complete 42)
  220. ; Jetzt werden erst einmal die aktuellen Bildschirmwerte eingestellt
  221. (run "SYS:Prefs/SCreenmode"
  222.    (prompt "Jetzt wird der Bildschirm den neuen\n"
  223.            "Bildschirmwerten angepaßt. Bitte\n"
  224.            "stellen Sie jetzt die Workbenchtiefe\n"
  225.            "auf einen Wert von mindestens 16 Farben\n"
  226.            "und speichern Sie dies ab.")
  227.    (help   "Das Screenmode-Programm der HD wird gestartet\n"
  228.            "Dies ist nützlich, weil jetzt Icons geupdatet\n"
  229.            "werden und Sie schon einen optischen Eindruck\n"
  230.            "bekommen können.")
  231.    (confirm)
  232. )
  233. (complete 45)
  234. ; Nun wird der Bildschirm farbwertkorrigiert
  235. (run "MultiIcons:c/SetPens MultiIcons:s/Palette.MICONS"
  236.    (prompt "Zur korrekten Farbdarstellung wird die\n"
  237.            "Bildschirmdarstellung jetzt temporär\n"
  238.            "korrigiert...")
  239.    (help   "Programm SetPens wird gestartet, damit\n"
  240.            "der optische Eindruck schon jetzt stimmt :-)\n")
  241.    (confirm)
  242. )
  243. (complete 46)
  244. ; Updaten der Laufwerkssymbole
  245.  
  246. (run "MultiIcons:c/IconUpDate tdcwn MultiIcons:Icons/DiskIcons/DH0.info SYS:Disk.info"
  247.   (prompt "Updaten Laufwerkssymbol SYS:\n Das Festplattensymbol wird erneuert.\n")
  248.   (help "SYS: Diskicon wird geupdatet")
  249.   (confirm)
  250.  
  251. )
  252. (complete 47)
  253. (copyfiles
  254.     (prompt "kopiere ...")
  255.     (help "no help aviable")
  256.     (source "multiicons:icons/diskicons")
  257.     (dest "ram:")
  258.     (pattern "disk.info")
  259. )
  260. (complete 48)
  261. (run "MultiIcons:c/IconUpDate tdcwn MultiIcons:Icons/DiskIcons/RAM1.info RAM:Disk.info"
  262.   (prompt "Updaten Laufwerkssymbol RAM:\n Das Icon der RAM-Disk wird erneuert.\n")
  263.   (help "SYS: RAM Icon  wird geupdatet")
  264.   (confirm)
  265. )
  266. (complete 49)
  267. ; RAM-Icon sichern
  268. (copyfiles
  269.     (prompt "Resetfestes Speichern des RAM Symboles...")
  270.     (help "Nötig, damit nach Reset das RAM-Icon wieder gefunden\n"
  271.           "wird. Es sei denn, sie benutzen einen Icon-Patch.")
  272.     (source "RAM:")
  273.     (dest "S:")
  274.     (pattern "disk.info")
  275.     (infos)
  276. )
  277. (complete 50)
  278. ; Ersetzen der Prefs-Icons selektiv
  279. (set patt_dir (getassign "Patterns" "a")) 
  280.    (
  281.      (set patt_dir
  282.        (askdir
  283.           (prompt
  284.              "Wählen Sie den Pfad, wo sich ihre Prefs-Enstell-\n "
  285.              "programme befinden. Dort werden bei Bedarf die\n"
  286.              "Standart-Icons ausgetauscht (Abfrage folgt.)"
  287.           (help "Ersetzen der Prefs-Icons selektiv")
  288.           (default pattdir))
  289.        )
  290.      )
  291.      (set patt_dir (tackon pattdir ""))
  292.    )
  293. (copyfiles
  294.    (prompt "Tausche alte Icons in Prefs")
  295.    (help "Standarticons in Prefs tauschen")
  296.    (source "MultiIcons:icons/prefs")
  297.    (dest patt_dir)
  298.    (pattern "#?")
  299.    (safe)
  300.    (infos)
  301.    (confirm)
  302.    (optional nofail askuser)
  303. )
  304. (complete 51)
  305. ; Ersetzen der System-Icons selektiv
  306.  
  307. (copyfiles
  308.    (prompt "Tausche alte Icons in SYS:System")
  309.    (help "Standarticons in System tauschen")
  310.    (source "MultiIcons:icons/System")
  311.    (dest "SYS:System")
  312.    (pattern "#?")
  313.    (safe)
  314.    (infos)
  315.    (confirm)
  316.    (optional nofail askuser)
  317. )
  318. (complete 55)
  319. ; Ersetzen der Utilities-Icons selektiv
  320.  
  321. (copyfiles
  322.    (prompt "Tausche alte Icons in SYS:Utilities")
  323.    (help "Standarticons in Utilities tauschen")
  324.    (source "MultiIcons:icons/utilities")
  325.    (dest "SYS:Utilities")
  326.    (pattern "#?")
  327.    (safe)
  328.    (infos)
  329.    (confirm)
  330.    (optional nofail askuser)
  331. )
  332. (complete 60)
  333.  
  334. ; Fixfonts aufrufen um Fonttabellen zu korrigieren
  335.  
  336. (run "SYS:System/FixFonts"
  337.    (prompt "Um eine korrekte Einbindung der neuen\n"
  338.            "Fonts im Betriebssystem zu gewährleisten\n"
  339.            "wird nun Fixfonts aufgerufen ...")
  340.    (help   "Fixfonts dient der korrekten Einbindung\n"
  341.            "und Korrigierung der Fonttabellen.\n")
  342.    (confirm)
  343. )
  344. (complete 65)
  345. ; Nun werden alle alten Drawer-Symbole auf SYS: ausgetauscht
  346.  
  347. (execute "multiicons:Installscripts/completeupdatedrawer"
  348.   (prompt "Nun werden alle Schubladensymbole in SYS: geupdatet.\n"
  349.           "Dies kann eine geraume Zeit je nach Größe der Fest- \n"
  350.           "platte dauern. Werden Sie deshalb nicht ungeduldig!\n"
  351.           "Es werden nur die reinen Bildinformationen getauscht,\n"
  352.           "Tooltype-Einträge, Positionen etc. bleiben erhalten.")
  353.   (help "Es werden nur die reinen Bildinformationen getauscht!")
  354.   (confirm)
  355. )
  356. (complete 100)
  357. (exit "Installation der MultiIcons komplett. Sollten Sie\nvon einer früheren Version geupdatet haben, ent-\nfernen Sie vor einem Reboot bitte folgende Zeilen\naus der Datei User-startup im s:Verzeichnis:\nPatchpens >NIL:\nrun >NIL: shovecolors ....\nSie können dies auch in der Anleitung `NewIcons`\nauf der Diskette noch einmal nachlesen. Viel Spaß!")
  358.