home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / PERSONELPAINT6.1-1.DMS / in.adf / InstallPPaint < prev    next >
Encoding:
Text File  |  1994-11-17  |  23.3 KB  |  708 lines
  1. ; $VER: InstallPPaint 2.71
  2. ; Cloanto ® Personal Paint Installer Script
  3. ; Copyright (C) Cloanto Italia srl 1994
  4. ; PPaint, PWrite, C1-Text, PFM trademarks of Cloanto Italia srl
  5. ; ADPRO, DPaint, DeluxePaintIII, DPaintIV, DPaintV, PPage trademarks of respective owners
  6. ; Installer and Installer project icon Copyright (C) 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  7. ; Reproduced and distributed under license from Commodore
  8.  
  9. (set k8u 0)
  10. (set k8t 1)
  11. (set k8w 3)
  12. (set k8v 4)
  13. (set k8x 5)
  14. (set k8z 6)
  15. (set k8y 2)
  16. (set k8s 0)
  17. (set k8o 1)
  18. (set k8p 2)
  19. (set k8q 3)
  20. (set k8r 4)
  21. (set k8n 5)
  22. (set k7b -1)
  23. (if (OR (= @language "English")(= k7b -1))((set k7b k8u)
  24. (set k9q
  25. "Personal Paint requires at least Kickstart 1.2.")
  26. (set k9r
  27. "Personal Paint requires at least Workbench 1.3.")
  28. (set k9h
  29. (cat "Please specify where Personal Paint should "
  30. "be installed. Before making a new selection, check the path suggested below. "
  31. "Select \"Help\" for instructions."))
  32. (set k9i
  33. (cat "This program installs Personal Paint on a hard-disk. "
  34. "Please specify a drawer on the hard-disk where Personal "
  35. "Paint should be installed. You may find it convenient to "
  36. "install the program and its support files inside a drawer "
  37. "named \"PPaint\". Check the path which appears as \"Selected Drawer\". "
  38. "If you like the path (even if it includes a \"PPaint\" drawer which "
  39. "does not yet exist on your hard disk) leave it as is: "
  40. "the installation program will create the drawer, if necessary. "
  41. "If you do not like the suggested path, you can edit the path string, "
  42. "and create new drawers using \"Make New Drawer\", if you wish to do so."
  43. "\n\nThe installation program will NOT add or create any drawers other than those specified by you, "
  44. "although it will detect whether the last drawer appearing in the path "
  45. "needs to be created or not."
  46. "\n\nThe installation program will then ask you which items "
  47. "you wish to install (PPaint program, pictures, animations, "
  48. "fonts, etc.)"
  49. "\n\nThe selected items and all related files and icons will "
  50. "be copied to the hard-disk."
  51. "\n\nIf the installation program finds another version of "
  52. "Personal Paint to be already installed in the same directory, it will move any "
  53. "existing startup configuration files to the \"OLD\" drawer.\n\n"
  54. @askdir-help))
  55. (set k3l
  56. "Analyzing target environment")
  57. (set k1r
  58. "Creating default directories")
  59. (set k3g
  60. "Installing \"PPaint\" program file")
  61. (set k3h
  62. "Decompressing and installing \"PPaint\" program file")
  63. (set k3d
  64. "Installing \"Personal.font\" in local directory")
  65. (set k3e
  66. "Installing \"Personal.font\" in FONTS:")
  67. (set k1q
  68. "Installing configuration files")
  69. (set k3i
  70. "Installing program default icon files")
  71. (set k3j
  72. "Installing PostScript ® module")
  73. (set k1n
  74. "Installing \"CloantoAudio\" to DEVS:")
  75. (set k1p
  76. "Installing color palettes")
  77. (set k3m
  78. "Installing tools")
  79. (set k3c
  80. "Installing additions to User Guide")
  81. (set k3a
  82. "Arranging icons")
  83. (set k1t
  84. "Installing HP DeskJet drivers")
  85. (set k3b
  86. "Installing JPEG DataType files")
  87. (set k1o
  88. "Installing color fonts in FONTS:")
  89. (set k3f
  90. "Installing pictures")
  91. (set k1m
  92. "Installing animation files")
  93. (set k1s
  94. "Executing FixFonts")
  95. (set k3k
  96. "Updating system startup files")
  97. (set k9j
  98. "Please select the items to be installed:")
  99. (set k9l
  100. (cat "It is possible to install individual items at separate times."
  101. "\n\nPictures and Animations tend to occupy a lot of space, "
  102. "and are not stored on the program disk. If you decide to install any "
  103. "Pictures or Animations, you will be asked to insert additional disks."
  104. "\n\nThe HP DeskJet drivers were jointly developed by Commodore "
  105. "and Cloanto. The JPEG DataType software is included with the "
  106. "kind permission of Steve Goddard. Please refer to the User Guide for more details on the "
  107. "printer drivers and on the JPEG DataType."
  108. "\n\nBy default, all items are selected. Any items "
  109. "displayed in a non-selected mode could mean that the "
  110. "installation program has determined certain conditions that "
  111. "may normally be a reason for not installing a particular object (e.g. "
  112. "little storage space, newer modules already installed, etc.)\n\n"
  113. @askoptions-help))
  114. (set k9a "PPaint Program Files")
  115. (set k3t "Pictures")
  116. (set k3p "Animations")
  117. (set k3q "Color Fonts")
  118. (set k3r "HP DeskJet Drivers")
  119. (set k3s "JPEG DataType")
  120. (set k9o
  121. "Please choose a default language:")
  122. (set k9p
  123. (cat "Personal Paint can be configured for several different languages. "
  124. "This affects all user interface texts (menus, gadgets, etc.)"
  125. "\n\nThe default language will be used to display user interface "
  126. "texts when the program is launched."
  127. "\n\nPlease refer to the User Guide for more details.\n\n"
  128. @askchoice-help))
  129. (set k9c "English")
  130. (set k9b "German")
  131. (set k9d "French")
  132. (set k9e "Italian")
  133. (set k1a
  134. "\nDecompress installed program files?")
  135. (set k1b
  136. (cat "Some program files on the distribution disk have been compressed "
  137. "to save space. Compression can save hundreds of Kbytes "
  138. "on a large file such as \"PPaint\", but may also slow down "
  139. "the program launch process. In practice, you may have "
  140. "to wait longer after double-clicking on the \"PPaint\" icon."
  141. "\n\nThere should be little need to expand the files during installation if your system "
  142. "has at least a 68030 CPU, which is fast enough to decompress "
  143. "programs without a noticeable delay each time they are loaded."
  144. "\n\nOn less powerful systems, you may prefer to decompress all "
  145. "files now, and install them in an uncompressed format (unless "
  146. "it is important to save space on your hard disk)."))
  147. (set k1g
  148. (cat "\nPersonal Paint is already installed in the destination drawer. "
  149. "Would you like to overwrite that program, and move any existing "
  150. "configuration files to the \"OLD\" directory?"))
  151. (set k1h
  152. (cat "The installation program has found that some version of Personal Paint "
  153. "is already installed in the destination drawer. If you proceed "
  154. "with the installation, that version will be deleted and the new "
  155. "version will be installed instead."
  156. "\n\nExisting startup setting files, colors, user interface text files "
  157. "and previously backed-up configuration files will be preserved "
  158. "(you will find those which have changed inside a drawer named \"OLD\")."
  159. "\n\n\"Startup_x.set\" files are "
  160. "compatible across different program versions, although newer "
  161. "versions may make it possible to define additional program settings.\n\n"
  162. "Please refer to the User Guide for more details."))
  163. (set k3o
  164. (cat "The JPEG DataType requires at least a 68020 CPU and version 3.0 of the "
  165. "Amiga operating system. It will not be installed now."))
  166. (set k1e
  167. (cat "\nA newer version of the JPEG DataType is already installed on "
  168. "your system disk. Do you wish to overwrite it?"))
  169. (set k1f
  170. (cat "Normally, there should be no reason to install an older version "
  171. "of the software. The User Guide explains how to manually install "
  172. "an Amiga DataType."))
  173. (set k1c
  174. (cat "\nOne or more HP DeskJet drivers are already installed on "
  175. "your system disk. They have the same name as the drivers "
  176. "included with Personal Paint, but have different contents "
  177. "and a newer file date."
  178. "\n\nDo you wish to overwrite them?"))
  179. (set k1d
  180. (cat "If the printer drivers which are already installed are newer, "
  181. "or work satisfactorily, you may decide not to use those included "
  182. "with Personal Paint, or rename them in order to keep both versions. "
  183. "\n\nThese HP DeskJet drivers were jointly developed by Commodore "
  184. "and Cloanto. Feature enhancements include: improved RLE "
  185. "compression, better color balancing, extended page formats and "
  186. "support of four-ink modes."
  187. "\n\nPlease refer to the User Guide for more details "
  188. "on these printer drivers."))
  189. (set k1k
  190. "\nAdd PPaint: Assign to \"S:user-startup\"?")
  191. (set k1l
  192. (cat "Personal Paint requires the logical name \"PPaint\" to "
  193. "be assigned, so that when you double-click on an icon created "
  194. "with it, Amiga will know where to find the program.\n\n"
  195. @startup-help))
  196. (set k1i
  197. "\nAdd JPEGTMP: Assign to \"S:user-startup\"?")
  198. (set k1j
  199. (cat "The JPEG DataType uses \"JPEGTMP:\" to store large temporary files.\n\n"
  200. @startup-help))
  201. (set k9m
  202. (cat "Please indicate where the JPEG DataType should store "
  203. "its temporary files."))
  204. (set k9n
  205. (cat "The JPEG DataType may need to store large intermediate "
  206. "files. If you have enough RAM, select \"RAM:T\". Otherwise, "
  207. "\"Work:T\" may be a good choice.\n\n"
  208. @askdir-help))
  209. (set k9f
  210. "\nPlease insert the program disk (installation disk) in any drive.")
  211. (set k9f2
  212. "\nPlease insert the disk labelled \"PPaint_2\" in any drive.")
  213. (set k3n
  214. (Cat "An error interrupted the installation procedure. "
  215. "This could be caused by a low memory condition (RAM or disk). "
  216. "You need two disk drives if you are installing Personal Paint "
  217. "on floppy disks."
  218. "\n\nAn alternate installation program can be used by typing the "
  219. "following command from a Shell window:"
  220. "\n\nPPaint:PPaint_Prefs/PP_Locale/InstallPPaint.multi"
  221. "\n\nIf the error source cannot be removed, follow "
  222. "the instructions in the User Guide to install the program "
  223. "manually. Please report any unusual error conditions to Cloanto."
  224. ))))
  225. (onerror ((user 1)
  226. (message k3n)
  227. (exit (quiet))))
  228. (procedure filecomp ((set k8k 2)
  229. (if (<> (exists k7h) 1)(set k8k -1))
  230. (if (<> (exists k7i) 1)(set k8k 1))
  231. (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)))))))))
  232. (if (<> k8k 0)((if (= k8k 2)((if (< (getversion k7h)(getversion k7i))(set k8k -1))
  233. (if (> (getversion k7h)(getversion k7i))(set k8k 1))))
  234. (if (= k8k 2)((if (earlier k7h k7i)(set k8k -1))
  235. (if (earlier k7i k7h)(set k8k 1))))
  236. (if (= k8k 2)(set k8k 1) )))))
  237. (procedure makeppdir ((set k7i (tackon k7e k7i))
  238. (if (<> (exists (cat k7i ".info")) 1)(set k8a 0) )
  239. (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force")))
  240. (makedir k7i (infos))))))
  241. (set k7l (trap 1 ((set k7m (/ (getversion "exec.library" (resident)) 65536))
  242. (set k7n (/ (getversion "icon.library" (resident)) 65536))
  243. (if (< k7m 33)(message k9q))
  244. (if (< k7n 34)(message k9r))
  245. (set k7f (pathonly (pathonly (pathonly @icon))))
  246. (set k7e (getassign "PPaint" "a"))
  247. (if (= (getdevice k7f)(getdevice k7e))(set k7e "") )
  248. (if (= k7e "")((set k7e (getassign "PWrite" "a"))
  249. (if (= k7e "")(set k7e (getassign "C1-Text" "a")))
  250. (if (= k7e "")(set k7e (getassign "PFM" "a")))
  251. (if (= k7e "")(set k7e (getassign "PFM2" "a")))
  252. (if (= k7e "")(set k7e (getassign "DPaint" "a")))
  253. (if (= k7e "")(set k7e (getassign "DeluxePaintIII" "a")))
  254. (if (= k7e "")(set k7e (getassign "DPaintIV" "a")))
  255. (if (= k7e "")(set k7e (getassign "DPaintV" "a")))
  256. (if (= k7e "")(set k7e (getassign "ADPRO" "a")))
  257. (if (= k7e "")(set k7e (getassign "PPage" "a")))
  258. (if (<> k7e "")(set k7e (pathonly k7e)))
  259. (if (= k7e "")(set k7e (getassign "Work" "vda")))
  260. (if (= k7e "")(set k7e (getassign "DH1" "vda")))
  261. (if (= k7e "")(set k7e (getassign "HD1" "vda")))
  262. (if (= k7e "")(set k7e (getassign "QDH1" "vda")))
  263. (if (= k7e "")(set k7e (getassign "DH0" "vda")))
  264. (if (= k7e "")(set k7e (getassign "HD0" "vda")))
  265. (if (= k7e "")(set k7e (getassign "QDH0" "vda")))
  266. (if (<> k7e "")(
  267. set k7e (tackon k7e "PPaint"))((set k7e @default-dest)
  268. (if (= @user-level 0)(user 1))))))
  269. (set k7e (askdir
  270. (prompt k9h)
  271. (help k9i)
  272. (default k7e)
  273. (newpath)))
  274. (if (= (exists k7e) 1)(delete k7e (optional "force")))
  275. (if (< (exists k7e) 2)(makedir k7e (infos)))
  276. (working k3l)
  277. (if (= (getdevice k7e)(getdevice "RAM:"))((set k8h 1)
  278. (set k9u (< (+ (database "total-mem")) 2097152)))((set k8h 0)
  279. (set k9u (< (getdiskspace k7e) 2097152))))
  280. (set k9v (< (getdiskspace "FONTS:") 90624))
  281. (set k9w (< (getdiskspace "SYS:") 98304))
  282. (set k7c -1)
  283. (set k7h (set k7g (tackon k7f "CloantoAudio")))
  284. (set k7i (set k8m "DEVS:CloantoAudio"))
  285. (filecomp)
  286. (set k9s (< k8k 1))
  287. (set k7o 0)
  288. (set k7h (tackon k7f "fonts/KaraCHISELsrf/55.8C"))
  289. (set k7i "FONTS:KaraCHISELsrf/55.8C")
  290. (filecomp)
  291. (set k9t (< k8k 1))
  292. (set k7h (tackon k7f "fonts/KaraGRANITE/55.8C"))
  293. (set k7i "FONTS:KaraGRANITE/55.8C")
  294. (filecomp)
  295. (if (= k8k 1)(set k9t 0))
  296. (set k7h (tackon k7f "fonts/Personal/8"))
  297. (set k7i "FONTS:Personal/8")
  298. (filecomp)
  299. (set k8f (AND (= (exists "FONTS:Personal.font") 1)(< k8k 1)))
  300. (set k9x 0)
  301. (set k7h (tackon k7f "HP_DeskJet/Devs/Printers/HP_DeskJet"))
  302. (set k7i "SYS:Devs/Printers/HP_DeskJet")
  303. (filecomp)
  304. (set k9y (< k8k 1))
  305. (set k9x (= k8k -1))
  306. (set k7h (tackon k7f "HP_DeskJet/Devs/Printers/HP_DeskJet550C"))
  307. (set k7i "SYS:Devs/Printers/HP_DeskJet550C")
  308. (filecomp)
  309. (if (= k8k 1)(set k9y 0))
  310. (if (= k8k -1)(set k9x 1))
  311. (set k7h (tackon k7f "JPEG/Classes/DataTypes/JPEG.datatype"))
  312. (set k7i "SYS:Classes/DataTypes/JPEG.datatype")
  313. (filecomp)
  314. (set k8d (< k8k 1))
  315. (set k8c (= k8k -1))
  316. (set k7h (tackon k7f "JPEG/Devs/DataTypes/JPEG"))
  317. (set k7i "SYS:Devs/DataTypes/JPEG")
  318. (filecomp)
  319. (if (= k8k 1)(set k8d 0))
  320. (if (= k8k -1)(set k8c 1))
  321. (if (<> (exists "SYS:Classes") 2)(set k8d 1))
  322. (set k8e (OR (< k7n 39)(< (+ (database "cpu")) 68020)))
  323. (if k9u ((set k7c (BITXOR (shiftleft 1 k8r) k7c))
  324. (set k7c (BITXOR (shiftleft 1 k8n) k7c))))
  325. (if (OR k9v k9t)(set k7c (BITXOR (shiftleft 1 k8o) k7c)))
  326. (if (OR k9w (OR k9y k9x))(set k7c (BITXOR (shiftleft 1 k8p) k7c)))
  327. (if (OR (OR k9w (OR k8d k8c)) k8e)(set k7c (BITXOR (shiftleft 1 k8q) k7c)))
  328. (set k7c (askoptions
  329. (prompt k9j)
  330. (help k9l)
  331. (choices k9a k3q k3r k3s k3t k3p)
  332. (default k7c)))
  333. (set k7i (tackon k7e "PPaint"))
  334. (if (= (exists k7i) 2)(set k7e k7i))
  335. (set @default-dest k7e)
  336. (if (IN k7c k8s)((if (exists (tackon k7e "PPaint"))(
  337. if (NOT (askbool
  338. (prompt k1g)
  339. (help k1h)
  340. (default 1)))(set k7c (BITXOR (shiftleft 1 k8s) k7c))))))
  341. (if (IN k7c k8s)((set k7a (askchoice
  342. (prompt k9o)
  343. (help k9p)
  344. (choices k9c k9b k9e k9d)
  345. (default k7b)))
  346. (set k8b (askbool
  347. (prompt k1a)
  348. (help k1b)
  349. (default (AND (< (+ (database "cpu")) 68030)(NOT k9u)))))))
  350. (if (IN k7c k8s)((if k8h (set k8j 0)(
  351. set k8j (askbool
  352. (prompt k1k)
  353. (help k1l)
  354. (default (<> (expandpath (getassign "PPaint" "a"))(expandpath k7e))))))))
  355. (if (AND (AND (IN k7c k8p) k9x)(= (exists (tackon k7f "HP_DeskJet")) 2))(
  356. if (NOT (askbool
  357. (prompt k1c)
  358. (help k1d)
  359. (default 0)))(set k7c (BITXOR (shiftleft 1 k8p) k7c))))
  360. (if (AND (IN k7c k8q)(<> (exists (tackon k7f "JPEG")) 2))(set k7c (BITXOR (shiftleft 1 k8q) k7c)))
  361. (if (AND (IN k7c k8q) k8e)((message k3o)
  362. (set k7c (BITXOR (shiftleft 1 k8q) k7c))))
  363. (if (AND (IN k7c k8q) k8c)(
  364. if (NOT (askbool
  365. (prompt k1e)
  366. (help k1f)
  367. (default 0)))(set k7c (BITXOR (shiftleft 1 k8q) k7c))))
  368. (if (IN k7c k8q)(
  369. set k8i (askbool
  370. (prompt k1i)
  371. (help k1j)
  372. (default (= (getassign "JPEGTMP" "a") "")))))
  373. (if (AND (IN k7c k8q) k8i)((set k7d (getassign "JPEGTMP" "a"))
  374. (if (= k7d "")(set k7d "RAM:t"))
  375. (set k7d (askdir
  376. (prompt k9m)
  377. (help k9n)
  378. (default k7d)
  379. (newpath)))))
  380. (if (IN k7c k8s)((working k1r)
  381. (set k7i (tackon k7e "PPaint_Icons_1.info"))
  382. (if (= (exists k7i) 1)(delete k7i (optional "force")))
  383. (set k7i (tackon k7e "PPaint_Icons_2"))
  384. (set k7j (tackon k7e "PPaint_Icons"))
  385. (if (= (exists k7i) 2)((if (= (exists k7j) 2)(delete k7i (optional "force"))(rename k7i k7j) )))
  386. (set k7i (cat k7i ".info"))
  387. (set k7j (cat k7j ".info"))
  388. (if (= (exists k7i) 1)((if (= (exists k7j) 1)(delete k7i (optional "force"))(rename k7i k7j) )))
  389. (set k8a 1)
  390. (set k7i (tackon k7e "fonts"))
  391. (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force")))
  392. (makedir k7i)))
  393. (set k7i "PPaint_Prefs")
  394. (makeppdir)
  395. (set k7i "PPaint_Icons")
  396. (makeppdir)
  397. (set k7i "PPaint_Tools")
  398. (makeppdir)
  399. (set k7i "Pictures")
  400. (makeppdir)
  401. (set k7i "Animations")
  402. (makeppdir)
  403. (set k7i "Colors")
  404. (makeppdir)
  405. (set k7i "Brushes")
  406. (makeppdir)
  407. (set k7i "Stencils")
  408. (makeppdir)
  409. (askdisk (prompt k9f)(help @askdisk-help)(dest (substr k7f 0 (- (strlen k7f) 1))))
  410. (if k8b ((working k3h)
  411. (run (cat (tackon k7f "c/Deplode") " >NIL: \"" (tackon k7f "PPaint") "\" \"" (tackon k7e "PPaint") "\"")))((working k3g)
  412. (copyfiles
  413. (source (tackon k7f "PPaint"))
  414. (dest k7e)
  415. (optional "nofail" "force"))))
  416. (if (= (exists (tackon k7e "PPaint.info")) 0)((copyfiles
  417. (source (tackon k7f "PPaint.info"))
  418. (dest k7e)
  419. (optional "nofail" "force")
  420. (nogauge))
  421. (tooltype
  422. (dest (tackon k7e "PPaint"))
  423. (swapcolors)
  424. (noposition))))
  425. (working k3i)
  426. (set n 0)
  427. (while (set k8l (select n
  428. "def_AppIcon.info"
  429. "def_Brush.info"
  430. "def_Stencil.info"
  431. "def_Picture.info"
  432. "def_Animation.info"
  433. "def_Palette.info"
  434. "def_Settings.info"
  435. "def_Drawer.info"
  436. ""
  437. ))((set n (+ n 1))
  438. (copyfiles
  439. (source (tackon k7f (cat "PPaint_Icons/" k8l)))
  440. (dest (tackon k7e "PPaint_Icons"))
  441. (optional "nofail" "force")
  442. (nogauge))))
  443. (working k3j)
  444. (copyfiles
  445. (source (tackon k7f "PPaint_PS"))
  446. (dest k7e)
  447. (optional "nofail" "force")
  448. (nogauge))
  449. (if (= (exists (tackon k7e "PPaint_PS.info")) 0)((copyfiles
  450. (source (tackon k7f "PPaint_PS.info"))
  451. (dest k7e)
  452. (optional "nofail" "force")
  453. (nogauge))
  454. (tooltype
  455. (dest (tackon k7e "PPaint_PS"))
  456. (swapcolors)
  457. (noposition))))
  458. (if (NOT k9s)((working k1n)
  459. (copyfiles
  460. (source k7g)
  461. (dest "DEVS:")
  462. (optional "nofail" "force")
  463. (nogauge))))
  464. (working k1p)
  465. (foreach (tackon k7f "Colors") "~(#?.info)" ((copyfiles
  466. (source (tackon k7f (cat "Colors/" @each-name)))
  467. (dest (tackon k7e "Colors"))
  468. (infos)
  469. (optional "nofail" "force")
  470. (nogauge))
  471. (set k7j (tackon k7e (cat "Colors/" @each-name)))
  472. (if (= (exists (cat k7j ".info")) 1)((tooltype
  473. (dest k7j)
  474. (swapcolors))))))
  475. (working k3m)
  476. (foreach (tackon k7f "PPaint_Tools") "~(#?.info)" ((copyfiles
  477. (source (tackon k7f (cat "PPaint_Tools/" @each-name)))
  478. (dest (tackon k7e "PPaint_Tools"))
  479. (infos)
  480. (optional "nofail" "force")
  481. (nogauge))
  482. (set k7j (tackon k7e (cat "PPaint_Tools/" @each-name)))
  483. (if (= (exists (cat k7j ".info")) 1)((tooltype
  484. (dest k7j)
  485. (swapcolors))))))
  486. (working k3c)
  487. (copyfiles
  488. (source (tackon k7f "PPaint.man"))
  489. (dest k7e)
  490. (optional "nofail" "force")
  491. (nogauge))
  492. (if (= (exists (tackon k7e "PPaint.man.info")) 0)((copyfiles
  493. (source (tackon k7f "PPaint.man.info"))
  494. (dest k7e)
  495. (optional "nofail" "force")
  496. (nogauge))
  497. (tooltype
  498. (dest (tackon k7e "PPaint.man"))
  499. (setdefaulttool "SYS:Utilities/More")
  500. (swapcolors)
  501. (noposition))))
  502. (if (NOT k8a)((working k3a)
  503. (foreach (set k7h (tackon k7f "PPaint_Prefs/II/PPaint")) "#?.info" ((copyfiles
  504. (source (tackon k7h @each-name))
  505. (dest k7e)
  506. (optional "nofail" "force")
  507. (nogauge))
  508. (tooltype
  509. (dest (tackon k7e (substr @each-name 0 (- (strlen @each-name) 5))))
  510. (swapcolors))))
  511. (if (<> (expandpath k7e)(expandpath (cat (getdevice k7e) ":")))((if (OR (= (exists (cat k7e ".info")) 0)(= (exists (tackon k7e "fonts/Personal.font")) 0))((copyfiles
  512. (source (tackon k7f "PPaint_Prefs/II/PPaint.info"))
  513. (dest (pathonly k7e))
  514. (newname (cat (fileonly k7e) ".info"))
  515. (optional "nofail" "force")
  516. (nogauge))
  517. (tooltype
  518. (dest k7e)
  519. (swapcolors))))))))
  520. (working k1q)
  521. (set k8a 1)
  522. (set n 0)
  523. (while (set k8l (select n
  524. "Startup_1.set"
  525. "Startup_2.set"
  526. "@"
  527. "UIGraphics.pic"
  528. "UIColors.6"
  529. "UIColors.12"
  530. "UIText.eng"
  531. "UIText.deu"
  532. "UIText.fra"
  533. "UIText.ita"
  534. ""
  535. ))((set n (+ n 1))
  536. (if (= k8l "@")((set k8l "Startup_A.set")
  537. (set k7h (cat "T:" k8l))
  538. (if (= (getassign "T" "a") "")((if (<> (exists "RAM:T") 2)(makedir "RAM:T"))
  539. (makeassign "T" "RAM:T")))
  540. (if (= (exists k7h) 1)(delete k7h (optional "force")))
  541. (textfile
  542. (dest k7h)
  543. (append (cat
  544. "PPAINT SETTINGS\n"
  545. "; Country and Language Settings\n\n"
  546. ("LANG = %ld\n" k7a)))))((set k7h (tackon k7f (cat "PPaint_Prefs/" k8l)))))
  547. (set k7i (tackon k7e (cat "PPaint_Prefs/" k8l)))
  548. (filecomp)
  549. (if (<> k8k 0)((set k8a 0)
  550. (if (= (exists k7i) 1)((if (<> (exists (tackon k7e "PPaint_Prefs/OLD")) 2)((makedir (tackon k7e "PPaint_Prefs/OLD"))))
  551. (set k7j (tackon k7e (cat "PPaint_Prefs/OLD/" k8l)))
  552. (run (cat (tackon k7f "c/Preserve") " >NIL: \"" k7j "\""))
  553. (rename k7i k7j)))
  554. (if (= (exists k7h) 1)((copyfiles
  555. (source k7h)
  556. (dest (tackon k7e "PPaint_Prefs"))
  557. (infos)
  558. (optional "nofail" "force")
  559. (nogauge))
  560. (if (= (exists (cat k7i ".info")) 1)((tooltype
  561. (dest k7i)
  562. (swapcolors))))))))))
  563. (delete "T:Startup_A.set" (optional "force"))
  564. (if (NOT k8a)((working k3a)
  565. (foreach (set k7h (tackon k7f "PPaint_Prefs")) "#?.info" ((copyfiles
  566. (source (tackon k7h @each-name))
  567. (dest (tackon k7e "PPaint_Prefs"))
  568. (optional "nofail" "force")
  569. (nogauge))
  570. (tooltype
  571. (dest (tackon k7e (cat "PPaint_Prefs" (substr @each-name 0 (- (strlen @each-name) 5)))))
  572. (swapcolors))))))
  573. (working k3d)
  574. (copyfiles
  575. (source (tackon k7f "fonts/Personal"))
  576. (dest (tackon k7e "fonts/Personal"))
  577. (all)
  578. (optional "nofail" "force")
  579. (nogauge))
  580. (copyfiles
  581. (source (tackon k7f "fonts/Personal.font"))
  582. (dest (tackon k7e "fonts"))
  583. (optional "nofail" "force")
  584. (nogauge))
  585. (if (AND (NOT k8f)(<> (getassign "FONTS" "a") ""))((working k3e)
  586. (copyfiles
  587. (source (tackon k7f "fonts/Personal"))
  588. (dest "FONTS:Personal")
  589. (all)
  590. (optional "nofail" "force")
  591. (nogauge))
  592. (copyfiles
  593. (source (tackon k7f "fonts/Personal.font"))
  594. (dest "FONTS:")
  595. (optional "nofail" "force")
  596. (nogauge))))
  597. (if k8j ((working k3k)
  598. (startup "Personal Paint"
  599. (prompt k1k)
  600. (help k1l)
  601. (command ("Assign >NIL: PPaint: %s\n" k7e)))
  602. (makeassign "PPaint" k7e)))))
  603. (if (AND (IN k7c k8o)(<> (getassign "FONTS" "a") ""))((askdisk (prompt k9f)(help @askdisk-help)(dest (substr k7f 0 (- (strlen k7f) 1))))
  604. (working k1o)
  605. (set n 0)
  606. (while (set k8l (select n
  607. "KaraCHISELsrf/55.8C"
  608. "KaraCHISELsrf.font"
  609. "KaraGRANITE/55.8C"
  610. "KaraGRANITE.font"
  611. ""
  612. ))((set n (+ n 1))
  613. (set k7h (tackon k7f (cat "fonts/" k8l)))
  614. (if (= (exists k7h) 1)((copyfiles
  615. (source k7h)
  616. (dest (pathonly (tackon "FONTS:" k8l)))
  617. (optional "nofail" "force")
  618. (nogauge)))(set k7o 1) )))))
  619. (if (IN k7c k8p)((askdisk (prompt k9f)(help @askdisk-help)(dest (substr k7f 0 (- (strlen k7f) 1))))
  620. (working k1t)
  621. (set n 0)
  622. (while (set k8l (select n
  623. "HP_DeskJet"
  624. "HP_DeskJet550C"
  625. ""
  626. ))((set n (+ n 1))
  627. (set k7h (tackon k7f (cat "HP_DeskJet/Devs/Printers/" k8l)))
  628. (if (= (exists k7h) 1)((copyfiles
  629. (source k7h)
  630. (dest "SYS:Devs/Printers")
  631. (infos)
  632. (optional "nofail" "force")
  633. (nogauge))))))))
  634. (if (IN k7c k8q)((askdisk (prompt k9f)(help @askdisk-help)(dest (substr k7f 0 (- (strlen k7f) 1))))
  635. (working k3b)
  636. (if (<> (exists "SYS:Classes") 2)(makedir "SYS:Classes" (infos)) )
  637. (set n 0)
  638. (while (set k8l (select n
  639. "Classes/DataTypes/JPEG.datatype"
  640. "Devs/DataTypes/JPEG"
  641. ""
  642. ))((set n (+ n 1))
  643. (set k7h (tackon k7f (cat "JPEG/" k8l)))
  644. (if (= (exists k7h) 1)((copyfiles
  645. (source k7h)
  646. (dest (pathonly (tackon "SYS:" k8l)))
  647. (infos)
  648. (optional "nofail" "force")
  649. (nogauge)))(set k8i 0))))
  650. (if k8i ((working k3k)
  651. (startup "JPEG DataType"
  652. (prompt k1i)
  653. (help k1j)
  654. (command ("Assign >NIL: JPEGTMP: %s\n" k7d)))
  655. (makeassign "JPEGTMP" k7d)))))
  656. (if (IN k7c k8r)((set k7h "PPaint_2:Pictures")
  657. (set k7i "Pictures")
  658. (askdisk (prompt k9f2)(help @askdisk-help)(dest "PPaint_2"))
  659. (if (= (exists k7h) 2)((working k3f)
  660. (makeppdir)
  661. (foreach k7h "~(#?.info)" ((copyfiles
  662. (source (tackon k7h @each-name))
  663. (dest k7i)
  664. (infos)
  665. (optional "nofail" "force")
  666. (nogauge))
  667. (set k7j (tackon k7i @each-name))
  668. (if (= (exists (cat k7j ".info")) 1)((tooltype
  669. (dest k7j)
  670. (swapcolors))))))))))
  671. (if (IN k7c k8n)((set k7h "PPaint_2:Animations")
  672. (set k7i "Animations")
  673. (askdisk (prompt k9f2)(help @askdisk-help)(dest "PPaint_2"))
  674. (if (= (exists k7h) 2)((working k1m)
  675. (makeppdir)
  676. (foreach k7h "#?.anim" ((copyfiles
  677. (source (tackon k7h @each-name))
  678. (dest k7i)
  679. (infos)
  680. (optional "nofail" "force")
  681. (nogauge))
  682. (set k7j (tackon k7i @each-name))
  683. (if (= (exists (cat k7j ".info")) 1)((tooltype
  684. (dest k7j)
  685. (swapcolors))))))
  686. (foreach k7h "#?.lzh" ((if (= (exists "PPaint_2:c/Lharc") 1)((run (cat "PPaint_2:c/Lharc >NIL: -a -m -n e \"" (tackon k7h @each-name) "\" \"" k7i "/\""))))))))))
  687. (if k7o ((askdisk (prompt k9f2)(help @askdisk-help)(dest "PPaint_2"))
  688. (working k1o)
  689. (set n 0)
  690. (while (set k8l (select n
  691. "KaraCHISELsrf/55.8C"
  692. "KaraCHISELsrf.font"
  693. "KaraGRANITE/55.8C"
  694. "KaraGRANITE.font"
  695. ""
  696. ))((set n (+ n 1))
  697. (set k7h (cat "PPaint_2:fonts/" k8l))
  698. (if (= (exists k7h) 1)((copyfiles
  699. (source k7h)
  700. (dest (pathonly (tackon "FONTS:" k8l)))
  701. (optional "nofail" "force")
  702. (nogauge))))))))
  703. (if (AND (= (exists "SYS:System/FixFonts") 1)(OR (AND (IN k7c k8s)(NOT k8f))(IN k7c k8o)))((working k1s)
  704. (run "SYS:System/FixFonts >NIL:")))
  705. (exit))))
  706. (if (> k7l 1)(abort))
  707. (exit (quiet))
  708.