home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / PersonalPaint6.4_2.DMS / PersonalPaint6.4_2.adf / PP_Locale / InstallPPaint < prev    next >
Encoding:
Text File  |  1995-08-28  |  36.5 KB  |  1,076 lines
  1. ; $VER: InstallPPaint 4.01
  2. ; Cloanto Personal Paint Installer Script
  3. ; Copyright © Cloanto Italia srl 1994, 1995
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; PPaint, PWrite, C1-Text, PFM are trademarks of Cloanto Italia srl
  6. ; ADPRO, DeluxePaint, DPaint, Photogenics, PPage trademarks of respective owners
  7. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  8. ;  Reproduced and distributed under license from Commodore"
  9. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  10.  
  11. (set k8u 0)(set k8t 1)(set k8w 3)
  12. (set k8v 4)(set k8x 5)(set k8z 6)
  13. (set k2i 7)(set k8y 2)(set k8s 0)
  14. (set k8o 1)(set k8p 2)(set k8q 3)
  15. (set k8r 4)(set k8n 5)(set k7b -1)
  16. (if (= @language "Deutsch")(set k7b k8t))
  17. (if (= k7b k8t)((set k9q
  18. "Personal Paint benötigt mindestestens Kickstart 1.2.")
  19. (set k9r
  20. "Personal Paint benötigt mindestens Workbench 1.3.")
  21. (set k9h
  22. (cat "Bitte geben Sie an, wo die \"PPaint\" Schublade "
  23. "installiert werden soll. "
  24. "Klicken Sie auf \"Help\" (Hilfe) für weitere Informationen."))
  25. (set k9i
  26. (cat "\nDieses Programm dient zur Installation von "
  27. "Personal Paint auf einer Festplatte. "
  28. "Bitte geben Sie ein Verzeichnis auf dieser Festplatte "
  29. "an, in dem das \"PPaint\" Verzeichnis installiert werden soll. "
  30. "Das Programm und die dazugehörigen "
  31. "Hilfsdateien verden in einem Verzeichnis mit dem Namen \"PPaint\" "
  32. "gespeichert.\n\nPrüfen Sie den Pfad, der unter \"Selected Drawer\" "
  33. "(Ausgewählte Schublade) erscheint: Wenn Sie die \"PPaint\" "
  34. "Schublade dort installieren möchten, sollten Sie den Eintrag "
  35. "unverändert lassen."
  36. "\n\nWenn Sie keine Installation im vorgeschlagenen Verzeichnis "
  37. "wünschen, können Sie den Dateipfad ändern und ggf. neue "
  38. "Verzeichnisse mit der Funktion \"Make New Drawer\" "
  39. "(Neue Schublade anlegen) erzeugen."
  40. "\n\nDanach können Sie auswählen, welche Elemente installiert "
  41. "werden sollen (PPaint-Hauptprogramm, Bilder, Animationen, Fonts, usw.). "
  42. "\n\nDie ausgewählten Elemente und alle dazugehörigen Dateien "
  43. "und Piktogramme werden auf die Festplatte kopiert. "
  44. "\n\nFalls bei der Installation im Zielverzeichnis eine andere "
  45. "Version von Personal Paint gefunden wird, werden alle "
  46. "dazugehörigen Startdateien in ein Verzeichnis mit dem Namen "
  47. "\"OLD\" kopiert.\n\n"
  48. @askdir-help))
  49. (set k3l
  50. "Zielumgebung wird analysiert")
  51. (set k1r
  52. "Benötigte Verzeichnisse werden erstellt")
  53. (set k3g
  54. "\"PPaint\"-Programmdatei wird erstellt")
  55. (set k3h
  56. "\"PPaint\"-Programmdatei wird entpackt und installiert")
  57. (set k3d
  58. "\"Personal.font\" wird im lokalen Verzeichnis installiert")
  59. (set k3e
  60. "\"Personal.font\" wird in FONTS: installiert")
  61. (set k2h
  62. "I/O-Libraries werden installiert")
  63. (set k1q
  64. "Konfigurationsdateien werden installiert")
  65. (set k3i
  66. "Voreingestellte Programmpiktogramme werden installiert")
  67. (set k3j
  68. "PostScript®-Modul wird installiert")
  69. (set k1n
  70. "\"CloantoAudio\"-Modul wird in DEVS: installiert")
  71. (set k1p
  72. "Farbpaletten werden installiert")
  73. (set k2g
  74. "Rexx-Programme werden installiert")
  75. (set k3m
  76. "Tools werden installiert")
  77. (set k3c
  78. "Handbuchergänzung wird installiert")
  79. (set k3a
  80. "Piktogramme werden angeordnet")
  81. (set k1t
  82. "HP DeskJet-Druckertreiber werden installiert")
  83. (set k3b
  84. "JPEG-Datentyp wird installiert")
  85. (set k1o
  86. "Color Fonts werden in FONTS: installiert")
  87. (set k3f
  88. "Bilder werden installiert")
  89. (set k1m
  90. "Animationen werden installiert")
  91. (set k1s
  92. "Programm \"FixFonts\" wird ausgeführt")
  93. (set k3k
  94. "System-Startdateien werden aktualisiert")
  95. (set k9j
  96. (cat "Bitte wählen Sie aus, welche Programmelemente "
  97. "installiert werden sollen:"))
  98. (set k9l
  99. (cat "\nEs besteht die Möglichkeit, individuelle Elemente "
  100. "unabhängig voneinander zu installieren. "
  101. "\n\nDa Bilder und Animationen meist recht viel "
  102. "Speicherplatz benötigen, befinden Sie sich nicht auf "
  103. "der Programmdiskette. Sie werden daher zum Einlegen "
  104. "einer separaten Diskette aufgefordert, falls Sie auch "
  105. "Bilder und/oder Animationen installieren möchten. "
  106. "\n\nDie HP Deskjet-Druckertreiber wurden von Cloanto in "
  107. "Zusammenarbeit mit Commodore entwickelt."
  108. "Der JPEG-Datentyp liegt bei mit freundlicher Genehmigung "
  109. "von Herrn Steve Goddard. Weitere Informationen zu den "
  110. "Druckertreibern und dem JPEG-Datentyp entnehmen Sie "
  111. "bitte dem Benutzerhandbuch zu Personal Paint. "
  112. "\n\nNormalerweise sind alle Elemente bereits ausgewählt. "
  113. "Nicht ausgewählte Elemente weisen darauf hin, daß "
  114. "das Installationsprogramm gewisse Umstände ermittelt "
  115. "hat (z.B. Speichermangel, schon installierte aktuellere "
  116. "Module, usw.), die dazu führen, daß bestimmte Objekte "
  117. "nicht installiert werden.\n\n"
  118. @askoptions-help))
  119. (set k9a "PPaint-Programmdateien")
  120. (set k3t "Bilder")
  121. (set k3p "Animationen")
  122. (set k3q "Color Fonts")
  123. (set k3r "HP DeskJet-Treiber")
  124. (set k3s "JPEG-Datentyp")
  125. (set k9o
  126. "Bitte wählen Sie die gewünschte Sprache aus:")
  127. (set k9p
  128. (cat "\nPersonal Paint läßt sich für verschiedene Sprachen "
  129. "konfigurieren. Diese Auswahl betrifft alle Texte der "
  130. "Benutzeroberfläche (Menüs, Symbole, usw.). "
  131. "\n\nDie voreingestellte Sprache wird dann bei jedem "
  132. "Programmstart zur Anzeige der benutzeroberflächentexte "
  133. "verwendet."
  134. "\n\nWeitere Informationen entnehmen Sie bitte dem "
  135. "Benutzerhandbuch zu Personal Paint.\n\n"
  136. @askchoice-help))
  137. (set k9c "Englisch")
  138. (set k9b "Deutsch")
  139. (set k9d "Französisch")
  140. (set k2j "Dänisch")
  141. (set k9e "Italienisch")
  142. (set #k2y
  143. "\nSpezielle Version von PPaint für %s CPU Installieren?")
  144. (set #k2y-help
  145. (cat "\nSpecial versions of Personal Paint have been developed to exploit "
  146. "certain features of the Amiga CPUs which are not common to all systems."
  147. "\n\nThis option of the installation program allows you to install "
  148. "a version of the PPaint program file specially compiled for "
  149. "your microprocessor. This version is compatible with more powerful "
  150. "CPUs, but will not run on earlier CPUs. If you answer No, a universal "
  151. "version of PPaint will be installed instead."))
  152. (set k1a
  153. "\nInstallierte Programmdateien entpacken?")
  154. (set k1b
  155. (cat "\nUm Platz zu sparen, liegen einige Programmdateien auf "
  156. "den Programmdisketten in gepackter Form vor. Dadurch lassen "
  157. "sich bei großen Dateien wie \"PPaint\" einige Hundert KByte "
  158. "einsparen, allerdings auf Kosten eines länger dauernden "
  159. "Programmstarts. Dieser macht sich dadurch bemerkbar, daß "
  160. "Sie nach einem Doppeklick auf das \"PPaint\"-Piktogramm "
  161. "länger warten müssen als gewöhnlich. "
  162. "\n\nWenn Ihr Computer mit einem Prozessor vom Typ 68030 "
  163. "oder besser ausgestattet ist, brauchen Sie die Dateien "
  164. "während der Installation gewöhnlich nicht zu entpacken, "
  165. "da dies bei jedem späteren Startvorgang praktisch ohne "
  166. "merkliche Verzögerung geschieht. "
  167. "\n\nBei weniger leistungsfähigen Systemen kann es jedoch "
  168. "sinnvoll sein, die Dateien nun zu entpacken und sie in "
  169. "einem unkomprimierten Format zu installieren (sofern "
  170. "der Platz auf Ihrer Festplatte nicht allzu knapp bemessen "
  171. "ist)."))
  172. (set k1g
  173. (cat "\nIm Zielverzeichnis ist Personal Paint bereits installiert. "
  174. "Möchten Sie diese Version überschreiben und alle bereits "
  175. "existierenden Konfigurationsdateien im Verzeichnis \"OLD\" "
  176. "speichern?"))
  177. (set k1h
  178. (cat "\nDas Installationsprogramm hat festgestellt, daß sich in dem "
  179. "von Ihnen angegebenen Zielverzeichnis bereits eine Version von "
  180. "Personal Paint befindet. Wenn Sie die Installation an dieser "
  181. "Stelle mit \"Proceed\" (Weiter) fortsetzen, wird die bereits "
  182. "vorhandene Version gelöscht und mit der neuen Version "
  183. "überschrieben."
  184. "\n\nBereits vorhandene Starteinstellungen, Farben, "
  185. "Benutzeroberflächentexte und zuvor gespeicherte Konfigurationsdateien "
  186. "werden in einem Verzeichnis mit dem Namen \"OLD\" gesichert. "
  187. "\n\n\"Startup_x.set\"-Dateien sind zwar zu unterschiedlichen Versionen "
  188. "von Personal Paint kompatibel, allerdings erlauben neuere Versionen "
  189. "möglicherweise die Festlegung zusätzlicher Programmeinstellungen.\n\n"
  190. "Weitere Informationen entnehmen Sie bitte dem Benutzerhandbuch. "))
  191. (set k3o
  192. (cat "Für die Verwendung des JPEG-Datentyps sind mindestens eine "
  193. "CPU vom Typ 68020 und die Version 3.0 der Amiga-Systemsoftware "
  194. "erforderlich. Der Datentyp wird daher jetzt nicht installiert."))
  195. (set k1e
  196. (cat "\nAuf Ihrer Systemdisk ist bereits eine neuere Version des "
  197. "JPEG-Datentyps installiert. Soll diese überschrieben werden?"))
  198. (set k1f
  199. (cat "\nNormalerweise besteht kein Grund, eine ältere Version "
  200. "des Programms zu installieren. Wie ein Amiga-Datentyp manuell "
  201. "installiert wird, können Sie dem Benutzerhandbuch entnehmen. "))
  202. (set k1c
  203. (cat "\nAuf Ihrer Systemdisk sind bereits einer oder mehrere "
  204. "Druckertreiber für den HP Deskjet installiert. Diese besitzen "
  205. "zwar den gleichen Namen wie die Treiber von Personal Paint, "
  206. "verfügen aber über einen anderen Inhalt und ein aktuelleres "
  207. "Dateidatum."
  208. "\n\nSollen Sie überschrieben werden?"))
  209. (set k1d
  210. (cat "\nWenn die bereits installierten Druckertreiber neuer sind "
  211. "oder zufriedenstellend funktionieren, werden Sie evtl. die im "
  212. "Lieferumfang von Personal Paint enthaltenen Treiber nicht "
  213. "verwenden wollen. Alternativ dazu können Sie sie auch umbenennen, "
  214. "um beide Druckertreiber zur Verfügung zu haben. "
  215. "\n\nDiese Druckertreiber wurden von Cloanto in Zusammenarbeit "
  216. "mit Commodore entwickelt. Verbessert wurden u.a. "
  217. "RLE-Komprimierung und Farbgewichtung, außerdem werden nun "
  218. "größere Seitenformate und die Ausgabe mit vier Tintenpatronen "
  219. "unterstützt. "
  220. "\n\nWeitere Informationen zu diesen Druckertreibern "
  221. "entnehmen Sie bitte dem Benutzerhandbuch. "))
  222. (set k1k
  223. "\nPPaint:-Zuweisung der Datei \"S:user-startup\" hinzufügen?")
  224. (set k1l
  225. (cat "\nPersonal Paint erfordert die Zuweisung des logischen "
  226. "Laufwerksnamens \"PPaint\", damit beim Anklicken einer mit "
  227. "PPaint erstellten Datei das Betriebssystem des Amiga "
  228. "weiß, wo sich das Hauptprogramm befindet.\n\n"
  229. @startup-help))
  230. (set k1i
  231. "\nJPEGTMP:-Zuweisung der Datei \"S:user-startup\" hinzufügen?")
  232. (set k1j
  233. (cat "\nDer JPEG-Datentyp benötigt \"JPEGTEMP:\" zum Zwischenspeichern "
  234. "großer Dateien.\n\n"
  235. @startup-help))
  236. (set k9m
  237. (cat "Bitte geben Sie an, wo der JPEG-Datentyp seine "
  238. "temporären Dateien zwischenspeichern soll."))
  239. (set k9n
  240. (cat "\nDie Benutzung des JPEG-Datentyps macht evtl. das "
  241. "Zwischenspeichern großer Dateien notwendig. Wenn Sie über "
  242. "viel RAM verfügen, sollten Sie \"RAM:T\" wählen, andernfalls "
  243. "ist möglicherweise \"Work:T\" besser geeignet.\n\n"
  244. @askdir-help))
  245. (set k9f
  246. (cat "\nBitte Programmdiskette in ein "
  247. "beliebiges Diskettenlaufwerk einlegen."))
  248. (set k9f2
  249. (cat "\nBitte die Diskette mit dem Namen \"PPaint_2\" in ein "
  250. "beliebiges Diskettenlaufwerk einlegen."))
  251. (set k3n
  252. (cat "\nDer Installationsvorgang wurde durch einen Fehler "
  253. "unterbrochen. Die Ursache liegt möglicherweise in zu "
  254. "wenig Speicher (RAM oder Disk). Beachten Sie auch, daß "
  255. "zur Installation von Personal Paint auf Disketten "
  256. "zwei Diskettenlaufwerke benötigt werden. "
  257. "\n\nSollte eine korrekte Installation "
  258. "nicht möglich sein, folgen Sie bitte den Anweisungen "
  259. "zu einer manuellen Programminstallation im Benutzerhandbuch. "
  260. "Darüber hinaus bitten wir Sie beim Auftreten unerklärlicher "
  261. "Fehler, uns diese mitzuteilen."
  262. "\n\nE-mail: info@cloanto.it"))
  263. (set @abort-button "Installation abbrechen")))
  264. (if (= @language "English")(set k7b k8u))
  265. (if (= k7b -1)(set k7b k8u))
  266. (if (= k7b k8u)((set k9q
  267. "Personal Paint requires at least Kickstart 1.2.")
  268. (set k9r
  269. "Personal Paint requires at least Workbench 1.3.")
  270. (set k9h
  271. (cat "Please specify where the \"PPaint\" drawer should "
  272. "be installed. Before making a new selection, check the path suggested below. "
  273. "Select \"Help\" for instructions."))
  274. (set k9i
  275. (cat "\nThis program installs Personal Paint on a hard-disk. "
  276. "Please specify a location on the hard-disk where the drawer "
  277. "named \"PPaint\" should be installed. \"PPaint\" will be added "
  278. "automatically to the path. To install the program into an existing "
  279. "drawer named \"PPaint\", specify a path so that the existing \"PPaint\" "
  280. "drawer appears in the list box. If necessary, the installation "
  281. "program will automatically create a new \"PPaint\" drawer. "
  282. "If you do not like the suggested path, you can edit the path string."
  283. "\n\nThe installation program will then ask you which items "
  284. "you wish to install (PPaint program, pictures, animations, "
  285. "fonts, etc.)"
  286. "\n\nThe selected items and all related files and icons will "
  287. "be copied to the hard-disk."
  288. "\n\nIf the installation program finds another version of "
  289. "Personal Paint to be already installed in the same directory, it will move any "
  290. "existing startup configuration files to the \"OLD\" drawer.\n\n"
  291. @askdir-help))
  292. (set k3l
  293. "Analyzing target environment")
  294. (set k1r
  295. "Creating default directories")
  296. (set k3g
  297. "Installing \"PPaint\" program file")
  298. (set k3h
  299. "Decompressing and installing \"PPaint\" program file")
  300. (set k3d
  301. "Installing \"Personal.font\" in local directory")
  302. (set k3e
  303. "Installing \"Personal.font\" in FONTS:")
  304. (set k1q
  305. "Installing configuration files")
  306. (set k2h
  307. "Installing I/O libraries")
  308. (set k3i
  309. "Installing program default icon files")
  310. (set k3j
  311. "Installing PostScript ® module")
  312. (set k1n
  313. "Installing \"CloantoAudio\" to DEVS:")
  314. (set k1p
  315. "Installing color palettes")
  316. (set k2g
  317. "Installing Rexx programs")
  318. (set k3m
  319. "Installing tools")
  320. (set k3c
  321. "Installing additions to User Guide")
  322. (set k3a
  323. "Arranging icons")
  324. (set k1t
  325. "Installing HP DeskJet drivers")
  326. (set k3b
  327. "Installing JPEG DataType files")
  328. (set k1o
  329. "Installing color fonts in FONTS:")
  330. (set k3f
  331. "Installing pictures")
  332. (set k1m
  333. "Installing animation files")
  334. (set k1s
  335. "Executing FixFonts")
  336. (set k3k
  337. "Updating system startup files")
  338. (set k9j
  339. "Please select the items to be installed:")
  340. (set k9l
  341. (cat "\nIt is possible to install individual items at separate times."
  342. "\n\nPictures and Animations tend to occupy a lot of space, "
  343. "and are normally not stored on the program disk. If you decide to install any "
  344. "Pictures or Animations, you may be asked to insert additional disks."
  345. "\n\nThe HP DeskJet drivers were jointly developed by Commodore "
  346. "and Cloanto. The JPEG DataType software is included with the "
  347. "kind permission of Steve Goddard. Please refer to the User Guide for more details on the "
  348. "printer drivers and on the JPEG DataType."
  349. "\n\nBy default, all items are selected. Any items "
  350. "displayed in a non-selected mode could mean that the "
  351. "installation program has determined certain conditions that "
  352. "may normally be a reason for not installing a particular object (e.g. "
  353. "little storage space, newer modules already installed, etc.)\n\n"
  354. @askoptions-help))
  355. (set k9a "PPaint Program Files")
  356. (set k3t "Pictures")
  357. (set k3p "Animations")
  358. (set k3q "Color Fonts")
  359. (set k3r "HP DeskJet Drivers")
  360. (set k3s "JPEG DataType")
  361. (set k9o
  362. "Please choose a default language:")
  363. (set k9p
  364. (cat "\nPersonal Paint can be configured for several different languages. "
  365. "This affects all user interface texts (menus, gadgets, etc.)"
  366. "\n\nThe default language will be used to display user interface "
  367. "texts when the program is launched."
  368. "\n\nPlease refer to the User Guide for more details.\n\n"
  369. @askchoice-help))
  370. (set k9c "English")
  371. (set k9b "German")
  372. (set k9d "French")
  373. (set k2j "Danish")
  374. (set k9e "Italian")
  375. (set #k2y
  376. "\nInstall special version of PPaint for %s CPU?")
  377. (set #k2y-help
  378. (cat "\nSpecial versions of Personal Paint have been developed to exploit "
  379. "certain features of the Amiga CPUs which are not common to all systems."
  380. "\n\nThis option of the installation program allows you to install "
  381. "a version of the PPaint program file specially compiled for "
  382. "your microprocessor. This version is compatible with more powerful "
  383. "CPUs, but will not run on earlier CPUs. If you answer No, a universal "
  384. "version of PPaint will be installed instead."))
  385. (set k1a
  386. "\nDecompress installed program files?")
  387. (set k1b
  388. (cat "\nSome program files on the distribution disk have been compressed "
  389. "to save space. Compression can save hundreds of Kbytes "
  390. "on a large file such as \"PPaint\", but may also slow down "
  391. "the program launch process. In practice, you may have "
  392. "to wait longer after double-clicking on the \"PPaint\" icon."
  393. "\n\nThere should be little need to expand the files during installation if your system "
  394. "has at least a 68030 CPU, which is fast enough to decompress "
  395. "programs without a noticeable delay each time they are loaded."
  396. "\n\nOn less powerful systems, you may prefer to decompress all "
  397. "files now, and install them in an uncompressed format (unless "
  398. "it is important to save space on your hard disk)."))
  399. (set k1g
  400. (cat "\nPersonal Paint is already installed in the destination drawer. "
  401. "Would you like to overwrite that program, and move any existing "
  402. "configuration files to the \"OLD\" directory?"))
  403. (set k1h
  404. (cat "\nThe installation program has found that some version of Personal Paint "
  405. "is already installed in the destination drawer. If you proceed "
  406. "with the installation, that version will be deleted and the new "
  407. "version will be installed instead."
  408. "\n\nExisting startup setting files, colors, user interface text files "
  409. "and previously backed-up configuration files will be preserved "
  410. "(you will find those which have changed inside a drawer named \"OLD\")."
  411. "\n\n\"Startup_x.set\" files are "
  412. "compatible across different program versions, although newer "
  413. "versions may make it possible to define additional program settings.\n\n"
  414. "Please refer to the User Guide for more details."))
  415. (set k3o
  416. (cat "The JPEG DataType requires at least a 68020 CPU and version 3.0 of the "
  417. "Amiga operating system. It will not be installed now."))
  418. (set k1e
  419. (cat "\nA newer version of the JPEG DataType is already installed on "
  420. "your system disk. Do you wish to overwrite it?"))
  421. (set k1f
  422. (cat "\nNormally, there should be no reason to install an older version "
  423. "of the software. The User Guide explains how to manually install "
  424. "an Amiga DataType."))
  425. (set k1c
  426. (cat "\nOne or more HP DeskJet drivers are already installed on "
  427. "your system disk. They have the same name as the drivers "
  428. "included with Personal Paint, but have different contents "
  429. "and a newer file date."
  430. "\n\nDo you wish to overwrite them?"))
  431. (set k1d
  432. (cat "\nIf the printer drivers which are already installed are newer, "
  433. "or work satisfactorily, you may decide not to use those included "
  434. "with Personal Paint, or rename them in order to keep both versions. "
  435. "\n\nThese HP DeskJet drivers were jointly developed by Commodore "
  436. "and Cloanto. Feature enhancements include: improved RLE "
  437. "compression, better color balancing, extended page formats and "
  438. "support of four-ink modes."
  439. "\n\nPlease refer to the User Guide for more details "
  440. "on these printer drivers."))
  441. (set k1k
  442. "\nAdd PPaint: Assign to \"S:user-startup\"?")
  443. (set k1l
  444. (cat "\nPersonal Paint requires the logical name \"PPaint\" to "
  445. "be assigned, so that when you double-click on an icon created "
  446. "with it, Amiga will know where to find the program.\n\n"
  447. @startup-help))
  448. (set k1i
  449. "\nAdd JPEGTMP: Assign to \"S:user-startup\"?")
  450. (set k1j
  451. (cat "\nThe JPEG DataType uses \"JPEGTMP:\" to store large temporary files.\n\n"
  452. @startup-help))
  453. (set k9m
  454. (cat "Please indicate where the JPEG DataType should store "
  455. "its temporary files."))
  456. (set k9n
  457. (cat "\nThe JPEG DataType may need to store large intermediate "
  458. "files. If you have enough RAM, select \"RAM:T\". Otherwise, "
  459. "\"Work:T\" may be a good choice.\n\n"
  460. @askdir-help))
  461. (set k9f
  462. "\nPlease insert the program disk in any drive.")
  463. (set k9f2
  464. "\nPlease insert the disk labelled \"PPaint_2\" in any drive.")
  465. (set k3n
  466. (Cat "\nAn error interrupted the installation procedure. "
  467. "This could be caused by a low memory condition (RAM or disk). "
  468. "Other reasons for failure could be: files missing from the installation "
  469. "disk; selection of \"Make New Drawer\" where a file having the same name exists. "
  470. "You need two disk drives if you are installing Personal Paint "
  471. "on floppy disks."
  472. "\n\nIf the error source cannot be removed, follow "
  473. "the instructions in the User Guide to install the program "
  474. "manually. Please report any unusual error conditions to Cloanto "
  475. "(E-mail: info@cloanto.it)."
  476. ))
  477. (set @abort-button "Abort Install")))
  478. (onerror((user 1)
  479. (message k3n)
  480. (exit(quiet))))
  481. (procedure k2a((set k8k 2)
  482. (if(<>(exists k7h)1)(set k8k -1))
  483. (if(<>(exists k7i)1)(set k8k 1))
  484. (if(= k8k 2)((if(=(getsize k7h)(getsize k7i))((if(NOT(OR(earlier k7h k7i)(earlier k7i k7h)))(set k8k 0)((if(=(getsum k7h)(getsum k7i))((set k8k 0)))))))))
  485. (if(<> k8k 0)((if(= k8k 2)((if(<(getversion k7h)(getversion k7i))(set k8k -1))
  486. (if(>(getversion k7h)(getversion k7i))(set k8k 1))))
  487. (if(= k8k 2)((if(earlier k7h k7i)(set k8k -1))
  488. (if(earlier k7i k7h)(set k8k 1))))
  489. (if(= k8k 2)(set k8k 1))))))
  490. (procedure k2b((set k7i(tackon k7e k7i))
  491. (if(<>(exists(cat k7i ".info"))1)(set k8a 0))
  492. (if(<>(exists k7i)2)((if(=(exists k7i)1)(delete k7i(optional "force")))
  493. (makedir k7i(infos))))))
  494. (procedure k2c((copyfiles
  495. (source k7h)
  496. (dest k7i)
  497. (all)
  498. (infos)
  499. (optional "nofail" "force")
  500. (nogauge))
  501. (if(< verwb 36)(foreach k7h "#?.info"((tooltype
  502. (dest(tackon k7i(substr @each-name 0(-(strlen @each-name)5))))
  503. (swapcolors)))))))
  504. (procedure k2d((set k7i(tackon k7e k7h))
  505. (set k7h(tackon k7f k7h))
  506. (if(=(exists k7h)1)((copyfiles
  507. (source k7h)
  508. (dest k7e)
  509. (optional "nofail" "force")
  510. (nogauge))
  511. (if(=(exists(tackon k7f "c/FImp"))1)
  512. (run(cat "\""(tackon k7f "c/FImp")"\" >NIL: <NIL: \""(k7h)"\" \""(k7i)"\" -XO")))
  513. (if(AND(=(exists(cat k7i ".info"))0)(=(exists(cat k7h ".info"))1))((copyfiles
  514. (source(cat k7h ".info"))
  515. (dest k7e)
  516. (optional "nofail" "force")
  517. (nogauge))
  518. (tooltype(dest k7i)(swapcolors)(noposition))))
  519. (if(=(exists "SYS:Utilities/MultiView")1)
  520. (tooltype(dest k7i)(setdefaulttool "SYS:Utilities/MultiView"))
  521. (tooltype(dest k7i)(setdefaulttool "SYS:Utilities/More")))))))
  522. (procedure k2w((if(IN k7c k2v)(set k7c(- k7c(shiftleft 1 k2v))))))
  523. (procedure k2e((if(<>(substr k7h(-(strlen k7h)1)1)":")(set k7h(expandpath(cat(getdevice k7h)":"))))
  524. (set k7h(substr k7h 0(-(strlen k7h)1)))))
  525. (procedure k2f((set k7i "")
  526. (if(< k7m 37)(set k7i(getassign k7h "a"))((if(=(run(cat "Assign >NIL: <NIL: \"" k7h ":\" EXISTS")(safe))0)((run(cat "Assign >NIL: <NIL: CPPIAT: \"" k7h ":\"")(safe))
  527. (set k7i(getassign "CPPIAT" "a"))
  528. (run "Assign >NIL: <NIL: CPPIAT:"(safe))))))))
  529. (set k7l(trap 1((set k7m(/(getversion "exec.library"(resident))65536))
  530. (set verwb(/(getversion "icon.library"(resident))65536))
  531. (if(< k7m 33)(message k9q))
  532. (if(< verwb 34)(message k9r))
  533. (set k9z(pathonly @icon))
  534. (if(<>(exists(tackon k9z "PPaint"))1)(set k9z(pathonly k9z)))
  535. (if(<>(exists(tackon k9z "PPaint"))1)(set k9z(pathonly k9z)))
  536. (set bool_cdrom 0)
  537. (if(=(exists(tackon k9z ".cd-rom"))1)(set bool_cdrom 1))
  538. (if bool_cdrom(set k7f k9z)(set k7f "PPaint:"))
  539. (if(<>(getassign "PSUITEROOT" "a")"")(set k7e "")(set k7e(getassign "PPaint" "a")))
  540. (if(=(getdevice k9z)(getdevice k7e))(set k7e ""))
  541. (if(<>(getassign "PPaint" "v")"")(if(=(getdevice k7f)(getdevice k7e))(set k7e "")))
  542. (if(<> k7e "")(set k7e(pathonly(expandpath k7e))))
  543. (if(= k7e "")((set n 0)
  544. (while(set k7h(select n
  545. "DPaint"
  546. "DeluxePaintIII"
  547. "DPaintIV"
  548. "DPaintV"
  549. "DPaintVI"
  550. "ADPRO"
  551. "PHOTOGENICS"
  552. "@3"
  553. "PWrite"
  554. "PFM2"
  555. "PFM"
  556. "C1-Text"
  557. "PPage"
  558. ""
  559. ))((set n(+ n 1))
  560. (if(= k7h "@3")((if(<>(getassign "PSUITEROOT" "a")"")(set n(+ n 3))))((if(= k7e "")((k2f)(set k7e k7i)))))))
  561. (if(<> k7e "")(set k7e(pathonly k7e)))
  562. (if(= k7e "")(set k7e(getassign "Work" "vda")))
  563. (if(= k7e "")(set k7e(getassign "Tools" "vd")))
  564. (if(= k7e "")(set k7e(getassign "DH1" "vd")))
  565. (if(= k7e "")(set k7e(getassign "HD1" "vd")))
  566. (if(= k7e "")(set k7e(getassign "QDH1" "vd")))
  567. (if(= k7e "")(set k7e(getassign "DH0" "vd")))
  568. (if(= k7e "")(set k7e(getassign "HD0" "vd")))
  569. (if(= k7e "")(set k7e(getassign "QDH0" "vd")))
  570. (if(= k7e "")((set k7e @default-dest)
  571. (if(= @user-level 0)(user 1))))))
  572. (set k7e(askdir
  573. (prompt k9h)
  574. (help k9i)
  575. (default k7e)
  576. (newpath)))
  577. (set k7e(tackon k7e "PPaint"))
  578. (if(=(exists k7e)1)(delete k7e(optional "force")))
  579. (if(=(exists k7e)0)(makedir k7e(infos)))
  580. (working k3l)
  581. (if(=(getdevice k7e)(getdevice "RAM:"))((set k8h 1)
  582. (set k9u(<(+(database "total-mem"))2097152)))((set k8h 0)
  583. (set k9u(<(getdiskspace k7e)2097152))))
  584. (set k9v(<(getdiskspace "FONTS:")90624))
  585. (set k9w(<(getdiskspace "SYS:")98304))
  586. (set k7c -1)
  587. (set k7h(set k7g(tackon k9z "CloantoAudio")))
  588. (set k7i(set k8m "DEVS:CloantoAudio"))
  589. (k2a)
  590. (set k9s(< k8k 1))
  591. (set k7h(tackon k9z "fonts/KaraCHISELsrf/55.8C"))
  592. (set k7i "FONTS:KaraCHISELsrf/55.8C")
  593. (k2a)
  594. (set k9t(< k8k 1))
  595. (set k7h(tackon k9z "fonts/KaraGRANITE/55.8C"))
  596. (set k7i "FONTS:KaraGRANITE/55.8C")
  597. (k2a)
  598. (if(= k8k 1)(set k9t 0))
  599. (set k8f 1)
  600. (set k9x 0)
  601. (set k7h(tackon k9z "HP_DeskJet/Devs/Printers/HP_DeskJet"))
  602. (set k7i "SYS:Devs/Printers/HP_DeskJet")
  603. (k2a)
  604. (set k9y(< k8k 1))
  605. (set k9x(= k8k -1))
  606. (set k7h(tackon k9z "HP_DeskJet/Devs/Printers/HP_DeskJet550C"))
  607. (set k7i "SYS:Devs/Printers/HP_DeskJet550C")
  608. (k2a)
  609. (if(= k8k 1)(set k9y 0))
  610. (if(= k8k -1)(set k9x 1))
  611. (set k7h(tackon k9z "JPEG/Classes/DataTypes/JPEG.datatype"))
  612. (set k7i "SYS:Classes/DataTypes/JPEG.datatype")
  613. (k2a)
  614. (set k8d(< k8k 1))
  615. (set k8c(= k8k -1))
  616. (set k7h(tackon k9z "JPEG/Devs/DataTypes/JPEG"))
  617. (set k7i "SYS:Devs/DataTypes/JPEG")
  618. (k2a)
  619. (if(= k8k 1)(set k8d 0))
  620. (if(= k8k -1)(set k8c 1))
  621. (if(<>(exists "SYS:Classes")2)(set k8d 1))
  622. (set k8e(OR(< verwb 39)(<(+(database "cpu"))68020)))
  623. (if(OR k9u bool_cdrom)((set k2v k8r)(k2w)
  624. (set k2v k8n)(k2w)))
  625. (if(OR(OR k9v k9t)bool_cdrom)((set k2v k8o)(k2w)))
  626. (if(OR k9w(OR k9y k9x))((set k2v k8p)(k2w)))
  627. (if(OR(OR k9w(OR k8d k8c))k8e)((set k2v k8q)(k2w)))
  628. (set k7c(askoptions
  629. (prompt k9j)
  630. (help k9l)
  631. (choices k9a k3q k3r k3s k3t k3p)
  632. (default k7c)))
  633. (set k7i(tackon k7e "PPaint"))
  634. (if(=(exists k7i)2)(set k7e k7i))
  635. (set @default-dest k7e)
  636. (if(IN k7c k8s)((if(exists(tackon k7e "PPaint"))(
  637. if(NOT(askbool
  638. (prompt k1g)
  639. (help k1h)
  640. (default 1)))((set k2v k8s)(k2w))))))
  641. (if(IN k7c k8s)((set k7a(askchoice
  642. (prompt k9o)
  643. (help k9p)
  644. (choices k9c k9b k9e k9d k2j)
  645. (default(- k7b(* 3(> k7b 4))))))
  646. (if bool_cdrom((if(OR(=(database "cpu")68000)(<>(exists(tackon k7f(cat "PPaint."(database "cpu"))))1))(set k2x 0)(
  647. set k2x(askbool
  648. (prompt(#k2y(database "cpu")))
  649. (help #k2y-help)
  650. (default 0))))))
  651. (if k2x(set k8b 0)(
  652. set k8b(askbool
  653. (prompt k1a)
  654. (help k1b)
  655. (default(AND(<(+(database "cpu"))68030)(NOT k9u))))))
  656. (if k8h(set k8j 0)((if(= @user-level 2)(set k8j 1)(
  657. set k8j(askbool
  658. (prompt k1k)
  659. (help k1l)
  660. (default(<>(expandpath(getassign "PPaint" "a"))(expandpath k7e))))))))))
  661. (if(AND(AND(IN k7c k8p)k9x)(=(exists(tackon k9z "HP_DeskJet"))2))(
  662. if(NOT(askbool
  663. (prompt k1c)
  664. (help k1d)
  665. (default 0)))((set k2v k8p)(k2w))))
  666. (if(AND(IN k7c k8q)(<>(exists(tackon k9z "JPEG"))2))((set k2v k8q)(k2w)))
  667. (if(AND(IN k7c k8q)k8e)((message k3o)
  668. ((set k2v k8q)(k2w))))
  669. (if(AND(IN k7c k8q)k8c)(
  670. if(NOT(askbool
  671. (prompt k1e)
  672. (help k1f)
  673. (default 0)))((set k2v k8q)(k2w))))
  674. (if(IN k7c k8q)((if(= @user-level 2)(set k8i 1)(
  675. set k8i(askbool
  676. (prompt k1i)
  677. (help k1j)
  678. (default(=(getassign "JPEGTMP" "a")"")))))))
  679. (if(AND(IN k7c k8q)k8i)((set k7d(getassign "JPEGTMP" "a"))
  680. (if(= k7d "")(set k7d "RAM:t"))
  681. (set k7d(askdir
  682. (prompt k9m)
  683. (help k9n)
  684. (default k7d)
  685. (newpath)))))
  686. (if(IN k7c k8s)((working k1r)
  687. (set k7i(tackon k7e "PPaint_Icons_1.info"))
  688. (if(=(exists k7i)1)(delete k7i(optional "force")))
  689. (set k7i(tackon k7e "PPaint_Icons_2.info"))
  690. (if(=(exists k7i)1)(delete k7i(optional "force")))
  691. (set k7i(tackon k7e "PPaint_Icons.info"))
  692. (if(=(exists k7i)1)(delete k7i(optional "force")))
  693. (set k7i(tackon k7e "PPaint_Icons_2"))
  694. (set k7j(tackon k7e "PPaint_Icons"))
  695. (if(=(exists k7i)2)((if(=(exists k7j)2)(delete k7i(optional "force"))(rename k7i k7j))))
  696. (set k8a 1)
  697. (set k7i(tackon k7e "PPaint_Icons"))
  698. (if(<>(exists k7i)2)((if(=(exists k7i)1)(delete k7i(optional "force")))
  699. (makedir k7i)))
  700. (set k7i(tackon k7e "fonts"))
  701. (if(<>(exists k7i)2)((if(=(exists k7i)1)(delete k7i(optional "force")))
  702. (makedir k7i)))
  703. (set k7i(tackon k7e "libs"))
  704. (if(<>(exists k7i)2)((if(=(exists k7i)1)(delete k7i(optional "force")))
  705. (makedir k7i)))
  706. (set k7i(tackon k7e "t"))
  707. (if(<>(exists k7i)2)((if(=(exists k7i)1)(delete k7i(optional "force")))
  708. (makedir k7i)))
  709. (set k7i "Pictures")
  710. (k2b)
  711. (set k7i "Animations")
  712. (k2b)
  713. (set k7i "Colors")
  714. (k2b)
  715. (set k7i "Brushes")
  716. (k2b)
  717. (set k7i "Stencils")
  718. (k2b)
  719. (set k7i "Rexx")
  720. (k2b)
  721. (set k7i "PPaint_Prefs")
  722. (k2b)
  723. (set k7i "PPaint_Tools")
  724. (k2b)))
  725. (if(AND(IN k7c k8o)(<>(getassign "FONTS" "a")""))((set k7h k9z)
  726. (k2e)
  727. (askdisk(prompt k9f2)(help @askdisk-help)(dest k7h))
  728. (working k1o)
  729. (set n 0)
  730. (while(set k8l(select n
  731. "KaraCHISELsrf/55.8C"
  732. "KaraCHISELsrf.font"
  733. "KaraGRANITE/55.8C"
  734. "KaraGRANITE.font"
  735. ""
  736. ))((set n(+ n 1))
  737. (set k7h(tackon k9z(cat "fonts/" k8l)))
  738. (if(=(exists k7h)1)((copyfiles
  739. (source k7h)
  740. (dest(pathonly(tackon "FONTS:" k8l)))
  741. (optional "nofail" "force")
  742. (nogauge))))))))
  743. (if(IN k7c k8p)((set k7h k9z)
  744. (k2e)
  745. (askdisk(prompt k9f2)(help @askdisk-help)(dest k7h))
  746. (working k1t)
  747. (set n 0)
  748. (while(set k8l(select n
  749. "HP_DeskJet"
  750. "HP_DeskJet550C"
  751. ""
  752. ))((set n(+ n 1))
  753. (set k7h(tackon k9z(cat "HP_DeskJet/Devs/Printers/" k8l)))
  754. (if(=(exists k7h)1)((copyfiles
  755. (source k7h)
  756. (dest "SYS:Devs/Printers")
  757. (infos)
  758. (optional "nofail" "force")
  759. (nogauge))))))))
  760. (if(IN k7c k8q)((set k7h k9z)
  761. (k2e)
  762. (askdisk(prompt k9f2)(help @askdisk-help)(dest k7h))
  763. (working k3b)
  764. (if(<>(exists "SYS:Classes")2)(makedir "SYS:Classes"(infos)))
  765. (set n 0)
  766. (while(set k8l(select n
  767. "Classes/DataTypes/JPEG.datatype"
  768. "Devs/DataTypes/JPEG"
  769. ""
  770. ))((set n(+ n 1))
  771. (set k7h(tackon k9z(cat "JPEG/" k8l)))
  772. (if(=(exists k7h)1)((copyfiles
  773. (source k7h)
  774. (dest(pathonly(tackon "SYS:" k8l)))
  775. (infos)
  776. (optional "nofail" "force")
  777. (nogauge)))(set k8i 0))))
  778. (if k8i((working k3k)
  779. (startup "JPEG DataType"
  780. (prompt k1i)
  781. (help k1j)
  782. (command("Assign >NIL: JPEGTMP: %s\n" k7d)))
  783. (makeassign "JPEGTMP" k7d)))))
  784. (if(IN k7c k8r)((set k7h k9z)
  785. (k2e)
  786. (askdisk(prompt k9f2)(help @askdisk-help)(dest k7h))
  787. (set k7h(tackon k9z "Pictures"))
  788. (set k7i "Pictures")
  789. (k2b)
  790. (if(=(exists k7h)2)((working k3f)
  791. (k2c)))
  792. (set k7h(tackon k9z "Stereograms"))
  793. (set k7i "Pictures/Stereograms")
  794. (if(=(exists k7h)2)((working k3f)
  795. (k2b)
  796. (k2c)))
  797. (set k7h(tackon k9z "Patterns"))
  798. (set k7i "Brushes")
  799. (if(=(exists k7h)2)((working k3f)
  800. (k2b)
  801. (set k7i "Brushes/Patterns")
  802. (k2b)
  803. (k2c)))))
  804. (if(IN k7c k8n)((set k7h k9z)
  805. (k2e)
  806. (askdisk(prompt k9f2)(help @askdisk-help)(dest k7h))
  807. (set k7h(tackon k9z "Animations"))
  808. (set k7i "Animations")
  809. (if(=(exists k7h)2)((working k1m)
  810. (k2b)
  811. (k2c)
  812. (foreach k7i "#?.lzh"((if(=(exists(tackon k9z "c/Lharc"))1)((run(cat "\""(tackon k9z "c/Lharc")"\" >NIL: <NIL: -a -m -n e \""(tackon k7i @each-name)"\" \"" k7i "/\""))
  813. (delete(tackon k7i @each-name)(optional "force"))))))
  814. (set k7i(tackon k7e "Animations/Anims->RAM"))
  815. (if(=(exists k7i)1)(delete k7i(optional "force")))
  816. (set k7i(cat k7i ".info"))
  817. (if(=(exists k7i)1)(delete k7i(optional "force")))))))
  818. (if(IN k7c k8s)((if(= k7a 4)(set k7a 7))
  819. (set n 0)
  820. (while(set k8l(select n
  821. "eng"
  822. "deu"
  823. "ita"
  824. "fra"
  825. "esp"
  826. "hol"
  827. "swe"
  828. "dan"
  829. ""
  830. ))((if(= k7a n)((if(<>(exists(cat(tackon k7f "PPaint_Prefs/UIText.")k8l))1)(set k7a 0))))
  831. (set n(+ n 1))))
  832. (set k7h k7f)
  833. (k2e)
  834. (askdisk(prompt k9f)(help @askdisk-help)(dest k7h))
  835. (set k7i(tackon k7e ".cd-rom"))
  836. (if(=(exists k7i)1)(delete k7i(optional "force")))
  837. (if k8b((working k3h)
  838. (run(cat "\""(tackon k7f "c/Deplode")"\" >NIL: <NIL: \""(tackon k7f "PPaint")"\" \""(tackon k7e "PPaint")"\"")))((working k3g)
  839. (set k7h(tackon k7f "PPaint"))
  840. (if k2x(set k7h(cat k7h "."(database "cpu"))))
  841. (copyfiles
  842. (source k7h)
  843. (dest k7e)
  844. (newname "PPaint")
  845. (optional "nofail" "force"))))
  846. (if(=(exists(tackon k7e "PPaint.info"))0)((copyfiles
  847. (source(tackon k7f "PPaint.info"))
  848. (dest k7e)
  849. (optional "nofail" "force")
  850. (nogauge))
  851. (tooltype
  852. (dest(tackon k7e "PPaint"))
  853. (swapcolors)
  854. (noposition))))
  855. (copyfiles
  856. (source(tackon k7f "PPView"))
  857. (dest k7e)
  858. (optional "nofail" "force")
  859. (nogauge))
  860. (working k2h)
  861. (set k7h(tackon k7f "libs"))
  862. (foreach k7h "personal_#?_io.library"((copylib
  863. (prompt @each-name)
  864. (help @copylib-help)
  865. (source(tackon k7h @each-name))
  866. (dest(tackon k7e "libs"))
  867. (optional "nofail" "force")
  868. (nogauge))))
  869. (set k7h(tackon k7f "libs/personal_req.library"))
  870. (if(OR(NOT k9w)(=(exists "SYS:libs/personal_req.library")1))(copylib
  871. (prompt "personal_req.library")
  872. (help @copylib-help)
  873. (source k7h)
  874. (dest "SYS:libs")
  875. (optional "nofail" "force")
  876. (nogauge)))
  877. (if(OR k9w(=(exists(tackon k7e "libs/personal_req.library"))1))(copylib
  878. (prompt "personal_req.library")
  879. (help @copylib-help)
  880. (source k7h)
  881. (dest(tackon k7e "libs"))
  882. (optional "nofail" "force")
  883. (nogauge)))
  884. (set k7i(tackon k7e "libs/Personal_GIF24_IO.library"))
  885. (if(AND(=(exists k7i)1)(=(exists(tackon k7e "libs/personal_gif_io.library"))1))(delete k7i(optional "force")))
  886. (working k3i)
  887. (set n 0)
  888. (while(set k8l(select n
  889. "def_AppIcon.info"
  890. "def_Brush.info"
  891. "def_Stencil.info"
  892. "def_Picture.info"
  893. "def_Animation.info"
  894. "def_Palette.info"
  895. "def_Settings.info"
  896. "def_Drawer.info"
  897. ""
  898. ))((set n(+ n 1))
  899. (copyfiles
  900. (source(tackon k7f(cat "PPaint_Icons/" k8l)))
  901. (dest(tackon k7e "PPaint_Icons"))
  902. (optional "nofail" "force")
  903. (nogauge))))
  904. (if(<>(getassign "ENVARC" "a")"")((if(=(exists "ENVARC:Sys/def_Drawer.info")1)((copyfiles
  905. (source "ENVARC:sys/def_Drawer.info")
  906. (dest(tackon k7e "PPaint_Icons"))
  907. (optional "nofail" "force")
  908. (nogauge))))))
  909. (working k3j)
  910. (copyfiles
  911. (source(tackon k7f "PPaint_PS"))
  912. (dest k7e)
  913. (optional "nofail" "force")
  914. (nogauge))
  915. (if(NOT k9s)((working k1n)
  916. (copyfiles
  917. (source k7g)
  918. (dest "DEVS:")
  919. (optional "nofail" "force")
  920. (nogauge))))
  921. (set k7h(tackon k7f "Colors"))
  922. (set k7i "Colors")
  923. (if(=(exists k7h)2)((working k1p)
  924. (k2b)
  925. (k2c)))
  926. (set k7h(tackon k7f "Rexx"))
  927. (set k7i "Rexx")
  928. (if(=(exists k7h)2)((working k2g)
  929. (k2b)
  930. (k2c)))
  931. (set k7h(tackon k7f "PPaint_Tools"))
  932. (set k7i "PPaint_Tools")
  933. (if(=(exists k7h)2)((working k3m)
  934. (k2b)
  935. (k2c)))
  936. (if(NOT k8a)((working k3a)
  937. (foreach(set k7h(tackon k7f "PPaint_Prefs/II/PPaint"))"#?.info"((copyfiles
  938. (source(tackon k7h @each-name))
  939. (dest k7e)
  940. (optional "nofail" "force")
  941. (nogauge))
  942. (tooltype
  943. (dest(tackon k7e(substr @each-name 0(-(strlen @each-name)5))))
  944. (swapcolors))))
  945. (set k7i(tackon k7e "Pictures"))
  946. (foreach(set k7h(tackon k7f "PPaint_Prefs/II/PPaint/Pictures"))"#?.info"((copyfiles
  947. (source(tackon k7h @each-name))
  948. (dest k7i)
  949. (optional "nofail" "force")
  950. (nogauge))
  951. (tooltype
  952. (dest(tackon k7i(substr @each-name 0(-(strlen @each-name)5))))
  953. (swapcolors))))
  954. (set k7i(tackon k7e "Brushes"))
  955. (foreach(set k7h(tackon k7f "PPaint_Prefs/II/PPaint/Brushes"))"#?.info"((copyfiles
  956. (source(tackon k7h @each-name))
  957. (dest k7i)
  958. (optional "nofail" "force")
  959. (nogauge))
  960. (tooltype
  961. (dest(tackon k7i(substr @each-name 0(-(strlen @each-name)5))))
  962. (swapcolors))))
  963. (if(<>(expandpath k7e)(expandpath(cat(getdevice k7e)":")))((if(OR(=(exists(cat k7e ".info"))0)(=(exists(tackon k7e "fonts/Personal.font"))0))((copyfiles
  964. (source(tackon k7f "PPaint_Prefs/II/PPaint.info"))
  965. (dest(pathonly k7e))
  966. (newname(cat(fileonly k7e)".info"))
  967. (optional "nofail" "force")
  968. (nogauge))
  969. (tooltype
  970. (dest k7e)
  971. (swapcolors))))))))
  972. (working k3c)
  973. (set k7h "PPaint.man")
  974. (k2d)
  975. (set k7h "PPaint.man.eng")
  976. (k2d)
  977. (set k7h "PPaint.man.deu")
  978. (k2d)
  979. (set k7h "PPaint.man.fra")
  980. (k2d)
  981. (set k7h "PPaint.man.dan")
  982. (k2d)
  983. (set k7h "PPaint.man.ita")
  984. (k2d)
  985. (working k1q)
  986. (set k8a 1)
  987. (set n 0)
  988. (while(set k8l(select n
  989. "UIGraphics.pic"
  990. "UIText.eng"
  991. "UIText.deu"
  992. "UIText.fra"
  993. "UIText.dan"
  994. "UIText.ita"
  995. "UIColors.6"
  996. "UIColors.12"
  997. "Startup_1.set"
  998. "Startup_2.set"
  999. "@"
  1000. "Startup.pic"
  1001. ""
  1002. ))((set n(+ n 1))
  1003. (if(= k8l "@")((set k8l "Startup_A.set")
  1004. (set k7h(cat "T:" k8l))
  1005. (if(=(getassign "T" "a")"")((if(<>(exists "RAM:T")2)(makedir "RAM:T"))
  1006. (makeassign "T" "RAM:T")))
  1007. (if(=(exists k7h)1)(delete k7h(optional "force")))
  1008. (textfile
  1009. (dest k7h)
  1010. (append(cat
  1011. "PPAINT SETTINGS\n"
  1012. "; Country and Language Settings\n\n"
  1013. ("LANG = %ld\n" k7a)))))((set k7h(tackon k7f(cat "PPaint_Prefs/" k8l)))))
  1014. (set k7i(tackon k7e(cat "PPaint_Prefs/" k8l)))
  1015. (k2a)
  1016. (if(<> k8k 0)((set k8a 0)
  1017. (if(=(exists k7i)1)((if(<>(exists(tackon k7e "PPaint_Prefs/OLD"))2)((makedir(tackon k7e "PPaint_Prefs/OLD"))))
  1018. (set k7j(tackon k7e(cat "PPaint_Prefs/OLD/" k8l)))
  1019. (run(cat "\""(tackon k7f "c/Preserve")"\" >NIL: <NIL: \"" k7j "\""))
  1020. (rename k7i k7j)))
  1021. (if(=(exists k7h)1)((copyfiles
  1022. (source k7h)
  1023. (dest(tackon k7e "PPaint_Prefs"))
  1024. (infos)
  1025. (optional "nofail" "force")
  1026. (nogauge))
  1027. (if(=(exists(cat k7i ".info"))1)((tooltype
  1028. (dest k7i)
  1029. (swapcolors))))))))))
  1030. (delete "T:Startup_A.set"(optional "force"))
  1031. (working k3d)
  1032. (copyfiles
  1033. (source(tackon k7f "fonts/Personal"))
  1034. (dest(tackon k7e "fonts/Personal"))
  1035. (all)
  1036. (optional "nofail" "force")
  1037. (nogauge))
  1038. (copyfiles
  1039. (source(tackon k7f "fonts/Personal.font"))
  1040. (dest(tackon k7e "fonts"))
  1041. (optional "nofail" "force")
  1042. (nogauge))
  1043. (set k7h(tackon k7f "fonts/Personal/8"))
  1044. (set k7i "FONTS:Personal/8")
  1045. (k2a)
  1046. (set k8f(AND(=(exists "FONTS:Personal.font")1)(< k8k 1)))
  1047. (if(AND(NOT k8f)(<>(getassign "FONTS" "a")""))((working k3e)
  1048. (copyfiles
  1049. (source(tackon k7f "fonts/Personal"))
  1050. (dest "FONTS:Personal")
  1051. (all)
  1052. (optional "nofail" "force")
  1053. (nogauge))
  1054. (copyfiles
  1055. (source(tackon k7f "fonts/Personal.font"))
  1056. (dest "FONTS:")
  1057. (optional "nofail" "force")
  1058. (nogauge))))
  1059. (if(IN k7c k8r)((set k7h(tackon k7f "Pictures"))
  1060. (set k7i "Pictures")
  1061. (if(=(exists k7h)2)((working k3f)
  1062. (k2b)
  1063. (k2c)
  1064. (foreach k7i "#?"(if(=(exists(tackon k7i(cat @each-name ".info")))1)(tooltype(dest(tackon k7i @each-name))(noposition))))))))
  1065. (if k8j((working k3k)
  1066. (startup "Personal Paint"
  1067. (prompt k1k)
  1068. (help k1l)
  1069. (command("Assign >NIL: PPaint: %s\n" k7e)))
  1070. (makeassign "PPaint" k7e)))))
  1071. (if(AND(=(exists "SYS:System/FixFonts")1)(OR(AND(IN k7c k8s)(NOT k8f))(IN k7c k8o)))((working k1s)
  1072. (run "SYS:System/FixFonts >NIL: <NIL:")))
  1073. (exit))))
  1074. (if(> k7l 1)(abort))
  1075. (exit(quiet))
  1076.