; $VER: InstallPPaint 4.00 ; Cloanto Personal Paint Installer Script ; Copyright (C) Cloanto Italia srl 1994, 1995 ; Cloanto is a registered trademark of Cloanto Italia srl ; PPaint, PWrite, C1-Text, PFM are trademarks of Cloanto Italia srl ; ADPRO, DeluxePaint, DPaint, Photogenics, PPage trademarks of respective owners ; "Installer and Installer project icon Copyright (C) 1991-1993 Commodore-Amiga, Inc. All Rights Reserved ; Reproduced and distributed under license from Commodore" ; New installer icon design Copyright © 1994 Cloanto Italia srl (set k8u 0)(set k8t 1)(set k8w 3)(set k8v 4)(set k8x 5)(set k8z 6)(set k2i 7)(set k8y 2) (set k8s 0)(set k8o 1)(set k8p 2)(set k8q 3)(set k8r 4)(set k8n 5)(set k7b -1) (if (= @language "Dansk")(set k7b k2i)) (if (= k7b k2i)((set k9q "Personal Paint kræver mindst Kickstart 1.2.") (set k9r "Personal Paint kræver mindst Workbench 1.3.") (set k9h (cat "Vær venlig at vælge hvor Personal Paint skal " "installeres. Før dit valg, check stien forslået nedenunder. " "Vælg \"Help\" for instruktioner.")) (set k9i (cat "\nDette program installere Personal Paint tegne- programmet på din hard-disk. " "Først skal du vælge en skuffe på hard-disken hvor Personal " "Paint skal installeres. Du vil finde det nemmest at " "installere programmet og dets hjælpe-filer i een bestemt skuffe " "kaldet \"PPaint\".\n\nCheck stien som fremgår i \"Selected Drawer\" " "og hvis du synes om stien (også selvom den indeholder en \"PPaint\" skuffe som " "ikke endnu eksisterer på din hard-disk) efterlad det alligevel, og " "installations programmet vil oprette skuffen, hvis nødvendigt. " "Hvis du IKKE synes om den foreslået sti, kan du selv indtaste din sti, " "og oprette nye skuffer vha. \"Make New Drawer\", hvis du ønsker det." "\n\nInstallations programmet vil IKKE tilføje eller oprette nogen skuffer andre end dem du har valgt, " "dog vil den opdage om den sidste skuffe valgt i stien " "behøver at blive oprettet eller ikke.." "\n\nInstallations programmet vil derefter spørge dig hvilke programdele " "du ønsker at installere (PPaint program, billeder, animationer, " "fonte, osv.)" "\n\nDe valgte programdele og alle relateret filer og ikoner vil " "blive kopieret til din hard-disk." "\n\nHvis installations programmet finder en anden version af " "Personal Paint allerede installeret i den samme skuffe, vil den flytte alle eventuelle " "eksisterende startup konfigurations filer til en skuffe der hedder \"OLD\".\n\n" @askdir-help)) (set k3l "Analysere valgte miljø") (set k1r "Opretter standard skuffer") (set k3g "Installere \"PPaint\" program filen") (set k3h "Udpakker og installerer \"PPaint\" program filen") (set k3d "Installerer \"Personal.font\" i den lokale skuffe") (set k3e "Installerer \"Personal.font\" i FONTS:") (set k1q "Installerer konfiguration filer") (set k3i "Installerer programmets standard ikon filer") (set k3j "Installerer PostScript ® modulet") (set k1n "Installerer \"CloantoAudio\" i DEVS:") (set k1p "Installerer farve paletter") (set k3m "Installerer tools-skuffen") (set k3c "Installerer tilføjelser til Bruger Guiden") (set k3a "Arrangerer ikoner") (set k1t "Installerer HP DeskJet printer drivere") (set k3b "Installerer JPEG DataType filer") (set k1o "Installerer color fonts i FONTS:") (set k3f "Installerer billedeksempler") (set k1m "Installerer animation filer") (set k1s "Starter FixFonts") (set k3k "Updaterer systemmets startop filer") (set k9j "Vær venlig at vælge programdele som skal installeres:") (set k9l (cat "\nDet er muligt at installerer nogle individuelle programdele på et andet tidspunkt." "\n\nBilleder og Animationer har det med at fylde godt op, " "og er normalt ikke gemt på program disketten. Hvis du vælger at installerer " "Billeder og Animationer, du kan risikere at blive spurgt efter at indsætte yderligere disketter." "\n\nHP DeskJet driverne var produceret i et samarbejde mellem Commodore " "og Cloanto. JPEG DataType softwaren er inkluderet med venlig " "tilladelse fra Steve Goddard. Vær venlig at se i din Bruger Guide for mere detaljeret oplysninger " "om printer drivere og JPEG DataTypen." "\n\nSom standard er alle programdele valgt. Programdele " "som er vist som ikke værende valgt, kunne det være at " "installations programmet har fundet grunde til ikke at inkludere programdelen. " "Dette kunne være pga. meget normale grunde som f.eks. for lidt disk-plads, " "eller en nyere version af program-delene er allerede installeret osv.\n\n" @askoptions-help)) (set k9a "PPaint Program Filer") (set k3t "Billede ekspempler") (set k3p "Animation eksempler") (set k3q "Color Fonts (Farve skrifttyper)") (set k3r "HP DeskJet Drivere") (set k3s "JPEG DataTypen") (set k9o "Vær venlig at vælge opstarts-sproget i PPaint:") (set k9p (cat "\nPersonal Paint kan konfigureres til forskellige sprog. " "Dette har inflydelse på alle interface teksterne. (menuer, knapper, osv.)" "\n\nVær venlig at se i din Bruger Guide for flere detajler.\n\n" @askchoice-help)) (set k9c "Engelsk") (set k9b "Tysk") (set k9d "French") (set k2j "Dansk") (set k9e "Italiensk") (set #k2y "\nVil du installere en speciel version af PPaint for en %s CPU?") (set #k2y-help (cat "\nSpecielle versioner af Personal Paint er blevet udviklet for at udnytte " "visse muligheder af Amiga CPUs som ikke er \"almindelig\" kendt." "\n\nDenne mulighed i installations programmettillader dig at installere " "en version af PPaints program specielt skrevet til " "din microprocessor (CPU). Den version du så installerer vil være til mere kraftfuld " "CPUs, men vil ikke kunne afvikles på tidligere CPUs. Hvis du svarer No, vil en universal " "version af PPaint bliver installeret istedet.")) (set k1a "\nUdpakke installeret program filer?") (set k1b (cat "\nVisse program filer på distribution disketten er blevet pakket " "for at spare plads. Pakning af filer kan spare hundredevis af Kbytes " "på store filer som \"PPaint\", men sløver indkodings processen. " "I praktisk skal du vente længere tid efter du har dobbelt-klikket " "på \"PPaint\" ikonet." "\n\nDer skulle ikke være grund til at udpakke filerne, hvis systemet " "har mindst en 68030 CPU, som er hurtig nok til at udpakke " "programmer uden bemærkelsesværdige tids-forsinkelser hver gang de er indlæses." "\n\nPå mindre systemmer, skal du foretrække at udpakke alle " "filer nu, og installere dem i et udpakket format (Med mindre " "det er meget vigtigt at spare plads på din harddisk).")) (set k1g (cat "\nPersonal Paint er allerede installeret i valgt skuffe. " "Vil du overskrive programmet og flytte alle eksisterende " "konfigurations filer til en \"OLD\" skuffe?")) (set k1h (cat "\nInstallations programmet har fundet ud af at en version af Personal Paint " "allerede er installeret i valgte skuffe. Hvis du forsætter " "med installationen, den version vil blive slettet og den nye " "version vil blive installeret istedet." "\n\nEksisterende konfigurations filer, farver, brugerr interface tekst files " "og tidligere backed-up konfiguration filer vil blive bevaret " "(Du vil finde filerne i en skuffe ved navn \"OLD\")." "\n\n\"Startup_x.set\" filerne er " "kompatible igennem de forskelige program versioner, dog vil nyere " "versioner gøre det muligt at definere de ekstra muligheder.\n\n" "Vær venlig at se i den Bruger Guide for at få mere detajeleret oplysninger.")) (set k3o (cat "JPEG DataTypen kræver mindst en 68020 CPU og version 3.0 af " "Amiga operating systemmet. Den vil ikke blive installeret nu.")) (set k1e (cat "\nEn nyerer version af JPEG DataTypen er allerede installeret på " "din system disk. Ønsker du at overskrive den?")) (set k1f (cat "\nNormalt vil der ikke være grund til at installere en ældre version " "af softwaren. Dine Bruger Guide forklarer hvordan man kan installere " "en Amiga DataType manuelt.")) (set k1c (cat "\nEn eller flere HP DeskJet drivere er allerede installeret på " "din system diskette. De har det samme navn som driverne " "inkluderet med Personal Paint, men de har andet indhold og " "en nyere fil-dato." "\n\nSkal de overskrives?")) (set k1d (cat "\nIf the printer drivers which are already installed are newer, " "or work satisfactorily, you may decide not to use those included " "with Personal Paint, or rename them in order to keep both versions. " "\n\nThese HP DeskJet drivers were jointly developed by Commodore " "and Cloanto. Feature enhancements include: improved RLE " "compression, better color balancing, extended page formats and " "support of four-ink modes." "\n\nVær venlig refer to the User Guide for more details " "on these printer drivers.")) (set k1k "\nTilføj PPaint: Assign til \"S:user-startup\"?") (set k1l (cat "\nPersonal Paint kræver det logiske navn \"PPaint\" " "\"assigned\" til en skuffe, så når du dobbelt-klikker på ikonet, " "ved Amigaen hvor den skal findes programmet.\n\n" @startup-help)) (set k1i "\nTilføj JPEGTMP: Assign til \"S:user-startup\"?") (set k1j (cat "\nJPEG DataTypen bruger \"JPEGTMP:\" til at lagre midlertidige filer.\n\n" @startup-help)) (set k9m (cat "Vær venlig at vælge hvor JPEG DataTypen skal lagre de midlertidige filer. ")) (set k9n (cat "\nJPEG DataTypen skal måske lagre store midlertidige " "filer. Hvis du har nok ram (>=5 Mb), vælg da \"RAM:T\". Ellers vil, " "\"Work:T\" være et godt valg.\n\n" @askdir-help)) (set k9f "\nVær venlig at isætte program disketten (installations disketten) i et vilkårligt drev.") (set k9f2 "\nVær venlig at isætte disketten kaldet \"PPaint_2\" i et vilkårligt drev.") (set k3n (Cat "\nEn fejl har afbrudt installations proceduren. " "Dette kan skyldes for lidt hukommelse (Ram eller disk). " "Andre grunde for fejlen kunne være: manglende filer fra installations disketten " "; Valget af \"Make New Drawer\" hvor en fil har samme navn som skuffens navn. " "Du skal have 2 diskettedrev, hvis du installere Personal Paint til " "floppy disketter" "\n\nHvis fejlen ikke kan rettes, følg " "instruktionerne i din Bruger Guide til at installere programmet " "manuelt. Vær venlig at kontakte alle former for ualmindelig fejl til Cloanto/EPIC Data " "(E-mail: info@cloanto.it)." )) (set @abort-button "Afbryd Installering"))) (if (= @language "English")(set k7b k8u)) (if (= k7b -1)(set k7b k8u)) (if (= k7b k8u)((set k9q "Personal Paint requires at least Kickstart 1.2.") (set k9r "Personal Paint requires at least Workbench 1.3.") (set k9h (cat "Please specify where Personal Paint should " "be installed. Before making a new selection, check the path suggested below. " "Select \"Help\" for instructions.")) (set k9i (cat "\nThis program installs Personal Paint on a hard-disk. " "Please specify a drawer on the hard-disk where Personal " "Paint should be installed. You may find it convenient to " "install the program and its support files inside a drawer " "named \"PPaint\".\n\nCheck the path which appears as \"Selected Drawer\". " "If you like the path (even if it includes a \"PPaint\" drawer which " "does not yet exist on your hard disk) leave it as is: " "the installation program will create the drawer, if necessary. " "If you do not like the suggested path, you can edit the path string, " "and create new drawers using \"Make New Drawer\", if you wish to do so." "\n\nThe installation program will NOT add or create any drawers other than those specified by you, " "although it will detect whether the last drawer appearing in the path " "needs to be created or not." "\n\nThe installation program will then ask you which items " "you wish to install (PPaint program, pictures, animations, " "fonts, etc.)" "\n\nThe selected items and all related files and icons will " "be copied to the hard-disk." "\n\nIf the installation program finds another version of " "Personal Paint to be already installed in the same directory, it will move any " "existing startup configuration files to the \"OLD\" drawer.\n\n" @askdir-help)) (set k3l "Analyzing target environment") (set k1r "Creating default directories") (set k3g "Installing \"PPaint\" program file") (set k3h "Decompressing and installing \"PPaint\" program file") (set k3d "Installing \"Personal.font\" in local directory") (set k3e "Installing \"Personal.font\" in FONTS:") (set k1q "Installing configuration files") (set k2h "Installing I/O libraries") (set k3i "Installing program default icon files") (set k3j "Installing PostScript ® module") (set k1n "Installing \"CloantoAudio\" to DEVS:") (set k1p "Installing color palettes") (set k2g "Installing Rexx programs") (set k3m "Installing tools") (set k3c "Installing additions to User Guide") (set k3a "Arranging icons") (set k1t "Installing HP DeskJet drivers") (set k3b "Installing JPEG DataType files") (set k1o "Installing color fonts in FONTS:") (set k3f "Installing pictures") (set k1m "Installing animation files") (set k1s "Executing FixFonts") (set k3k "Updating system startup files") (set k9j "Please select the items to be installed:") (set k9l (cat "\nIt is possible to install individual items at separate times." "\n\nPictures and Animations tend to occupy a lot of space, " "and are normally not stored on the program disk. If you decide to install any " "Pictures or Animations, you may be asked to insert additional disks." "\n\nThe HP DeskJet drivers were jointly developed by Commodore " "and Cloanto. The JPEG DataType software is included with the " "kind permission of Steve Goddard. Please refer to the User Guide for more details on the " "printer drivers and on the JPEG DataType." "\n\nBy default, all items are selected. Any items " "displayed in a non-selected mode could mean that the " "installation program has determined certain conditions that " "may normally be a reason for not installing a particular object (e.g. " "little storage space, newer modules already installed, etc.)\n\n" @askoptions-help)) (set k9a "PPaint Program Files") (set k3t "Pictures") (set k3p "Animations") (set k3q "Color Fonts") (set k3r "HP DeskJet Drivers") (set k3s "JPEG DataType") (set k9o "Please choose a default language:") (set k9p (cat "\nPersonal Paint can be configured for several different languages. " "This affects all user interface texts (menus, gadgets, etc.)" "\n\nThe default language will be used to display user interface " "texts when the program is launched." "\n\nPlease refer to the User Guide for more details.\n\n" @askchoice-help)) (set k9c "English") (set k9b "German") (set k9d "French") (set k2j "Danish") (set k9e "Italian") (set #k2y "\nInstall special version of PPaint for %s CPU?") (set #k2y-help (cat "\nSpecial versions of Personal Paint have been developed to exploit " "certain features of the Amiga CPUs which are not common to all systems." "\n\nThis option of the installation program allows you to install " "a version of the PPaint program file specially compiled for " "your microprocessor. This version is compatible with more powerful " "CPUs, but will not run on earlier CPUs. If you answer No, a universal " "version of PPaint will be installed instead.")) (set k1a "\nDecompress installed program files?") (set k1b (cat "\nSome program files on the distribution disk have been compressed " "to save space. Compression can save hundreds of Kbytes " "on a large file such as \"PPaint\", but may also slow down " "the program launch process. In practice, you may have " "to wait longer after double-clicking on the \"PPaint\" icon." "\n\nThere should be little need to expand the files during installation if your system " "has at least a 68030 CPU, which is fast enough to decompress " "programs without a noticeable delay each time they are loaded." "\n\nOn less powerful systems, you may prefer to decompress all " "files now, and install them in an uncompressed format (unless " "it is important to save space on your hard disk).")) (set k1g (cat "\nPersonal Paint is already installed in the destination drawer. " "Would you like to overwrite that program, and move any existing " "configuration files to the \"OLD\" directory?")) (set k1h (cat "\nThe installation program has found that some version of Personal Paint " "is already installed in the destination drawer. If you proceed " "with the installation, that version will be deleted and the new " "version will be installed instead." "\n\nExisting startup setting files, colors, user interface text files " "and previously backed-up configuration files will be preserved " "(you will find those which have changed inside a drawer named \"OLD\")." "\n\n\"Startup_x.set\" files are " "compatible across different program versions, although newer " "versions may make it possible to define additional program settings.\n\n" "Please refer to the User Guide for more details.")) (set k3o (cat "The JPEG DataType requires at least a 68020 CPU and version 3.0 of the " "Amiga operating system. It will not be installed now.")) (set k1e (cat "\nA newer version of the JPEG DataType is already installed on " "your system disk. Do you wish to overwrite it?")) (set k1f (cat "\nNormally, there should be no reason to install an older version " "of the software. The User Guide explains how to manually install " "an Amiga DataType.")) (set k1c (cat "\nOne or more HP DeskJet drivers are already installed on " "your system disk. They have the same name as the drivers " "included with Personal Paint, but have different contents " "and a newer file date." "\n\nDo you wish to overwrite them?")) (set k1d (cat "\nIf the printer drivers which are already installed are newer, " "or work satisfactorily, you may decide not to use those included " "with Personal Paint, or rename them in order to keep both versions. " "\n\nThese HP DeskJet drivers were jointly developed by Commodore " "and Cloanto. Feature enhancements include: improved RLE " "compression, better color balancing, extended page formats and " "support of four-ink modes." "\n\nPlease refer to the User Guide for more details " "on these printer drivers.")) (set k1k "\nAdd PPaint: Assign to \"S:user-startup\"?") (set k1l (cat "\nPersonal Paint requires the logical name \"PPaint\" to " "be assigned, so that when you double-click on an icon created " "with it, Amiga will know where to find the program.\n\n" @startup-help)) (set k1i "\nAdd JPEGTMP: Assign to \"S:user-startup\"?") (set k1j (cat "\nThe JPEG DataType uses \"JPEGTMP:\" to store large temporary files.\n\n" @startup-help)) (set k9m (cat "Please indicate where the JPEG DataType should store " "its temporary files.")) (set k9n (cat "\nThe JPEG DataType may need to store large intermediate " "files. If you have enough RAM, select \"RAM:T\". Otherwise, " "\"Work:T\" may be a good choice.\n\n" @askdir-help)) (set k9f "\nPlease insert the program disk (installation disk) in any drive.") (set k9f2 "\nPlease insert the disk labelled \"PPaint_2\" in any drive.") (set k3n (Cat "\nAn error interrupted the installation procedure. " "This could be caused by a low memory condition (RAM or disk). " "Other reasons for failure could be: files missing from the installation " "disk; selection of \"Make New Drawer\" where a file having the same name exists. " "You need two disk drives if you are installing Personal Paint " "on floppy disks." "\n\nIf the error source cannot be removed, follow " "the instructions in the User Guide to install the program " "manually. Please report any unusual error conditions to Cloanto " "(E-mail: info@cloanto.it)." )) (set @abort-button "Abort Install"))) (onerror ((user 1) (message k3n) (exit (quiet)))) (procedure k2a ((set k8k 2) (if (<> (exists k7h) 1)(set k8k -1)) (if (<> (exists k7i) 1)(set k8k 1)) (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))))))))) (if (<> k8k 0)((if (= k8k 2)((if (< (getversion k7h)(getversion k7i))(set k8k -1)) (if (> (getversion k7h)(getversion k7i))(set k8k 1)))) (if (= k8k 2)((if (earlier k7h k7i)(set k8k -1)) (if (earlier k7i k7h)(set k8k 1)))) (if (= k8k 2)(set k8k 1) ))))) (procedure k2b ((set k7i (tackon k7e k7i)) (if (<> (exists (cat k7i ".info")) 1)(set k8a 0) ) (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force"))) (makedir k7i (infos)))))) (procedure k2c ((copyfiles (source k7h) (dest k7i) (all) (infos) (optional "nofail" "force") (nogauge))) (if (< verwb 36)(foreach k7i "#?.info" (tooltype (dest (tackon k7i @each-name))(swapcolors) )))) (procedure k2d ((set k7i (tackon k7e k7h)) (set k7h (tackon k7f k7h)) (if (= (exists k7h) 1)((copyfiles (source k7h) (dest k7e) (optional "nofail" "force") (nogauge)) (if (= (exists (tackon k7f "c/FImp")) 1) (run (cat "\"" (tackon k7f "c/FImp") "\" >NIL: (substr k7h (- (strlen k7h) 1) 1) ":")(set k7h (expandpath (cat (getdevice k7h) ":")))) (set k7h (substr k7h 0 (- (strlen k7h) 1))))) (procedure k2f ((set k7i "") (if (< k7m 37)(set k7i (getassign k7h "a"))((if (= (run (cat "Assign >NIL: NIL: NIL: (exists (tackon k7f "PPaint")) 1)(set k7f (pathonly k7f))) (if (<> (exists (tackon k7f "PPaint")) 1)(set k7f (pathonly k7f))) (set bool_cdrom 0) (if (= (exists (tackon k7f ".cd-rom")) 1)(set bool_cdrom 1)) (if bool_cdrom (set k9z k7f)(set k9z "PPaint_2:")) (set k7e (getassign "PPaint" "a")) (if (= (getdevice k7f)(getdevice k7e))(set k7e "") ) (if (= k7e "")((set n 0) (while (set k7h (select n "DPaint" "DeluxePaintIII" "DPaintIV" "DPaintV" "DPaintVI" "ADPRO" "PHOTOGENICS" "PWrite" "C1-Text" "PFM2" "PFM" "PPage" "" ))((set n (+ n 1)) (if (= k7e "")((k2f)(set k7e k7i))))) (if (<> k7e "")(set k7e (pathonly k7e))) (if (= k7e "")(set k7e (getassign "Work" "vda"))) (if (= k7e "")(set k7e (getassign "Tools" "vd"))) (if (= k7e "")(set k7e (getassign "DH1" "vd"))) (if (= k7e "")(set k7e (getassign "HD1" "vd"))) (if (= k7e "")(set k7e (getassign "QDH1" "vd"))) (if (= k7e "")(set k7e (getassign "DH0" "vd"))) (if (= k7e "")(set k7e (getassign "HD0" "vd"))) (if (= k7e "")(set k7e (getassign "QDH0" "vd"))) (if (<> k7e "")( set k7e (tackon k7e "PPaint"))((set k7e @default-dest) (if (= @user-level 0)(user 1)))))) (set k7e (askdir (prompt k9h) (help k9i) (default k7e) (newpath))) (if (= (exists k7e) 1)(delete k7e (optional "force"))) (if (< (exists k7e) 2)(makedir k7e (infos))) (working k3l) (if (= (getdevice k7e)(getdevice "RAM:"))((set k8h 1) (set k9u (< (+ (database "total-mem")) 2097152)))((set k8h 0) (set k9u (< (getdiskspace k7e) 2097152)))) (set k9v (< (getdiskspace "FONTS:") 90624)) (set k9w (< (getdiskspace "SYS:") 98304)) (set k7c -1) (set k7h (set k7g (tackon k7f "CloantoAudio"))) (set k7i (set k8m "DEVS:CloantoAudio")) (k2a) (set k9s (< k8k 1)) (set k7o 0) (set k7h (tackon k7f "fonts/KaraCHISELsrf/55.8C")) (set k7i "FONTS:KaraCHISELsrf/55.8C") (k2a) (set k9t (< k8k 1)) (set k7h (tackon k7f "fonts/KaraGRANITE/55.8C")) (set k7i "FONTS:KaraGRANITE/55.8C") (k2a) (if (= k8k 1)(set k9t 0)) (set k7h (tackon k7f "fonts/Personal/8")) (set k7i "FONTS:Personal/8") (k2a) (set k8f (AND (= (exists "FONTS:Personal.font") 1)(< k8k 1))) (set k9x 0) (set k7h (tackon k7f "HP_DeskJet/Devs/Printers/HP_DeskJet")) (set k7i "SYS:Devs/Printers/HP_DeskJet") (k2a) (set k9y (< k8k 1)) (set k9x (= k8k -1)) (set k7h (tackon k7f "HP_DeskJet/Devs/Printers/HP_DeskJet550C")) (set k7i "SYS:Devs/Printers/HP_DeskJet550C") (k2a) (if (= k8k 1)(set k9y 0)) (if (= k8k -1)(set k9x 1)) (set k7h (tackon k7f "JPEG/Classes/DataTypes/JPEG.datatype")) (set k7i "SYS:Classes/DataTypes/JPEG.datatype") (k2a) (set k8d (< k8k 1)) (set k8c (= k8k -1)) (set k7h (tackon k7f "JPEG/Devs/DataTypes/JPEG")) (set k7i "SYS:Devs/DataTypes/JPEG") (k2a) (if (= k8k 1)(set k8d 0)) (if (= k8k -1)(set k8c 1)) (if (<> (exists "SYS:Classes") 2)(set k8d 1)) (set k8e (OR (< verwb 39)(< (+ (database "cpu")) 68020))) (if (OR k9u bool_cdrom)((set k2v k8r)(k2w) (set k2v k8n)(k2w))) (if (OR (OR k9v k9t) bool_cdrom)((set k2v k8o)(k2w))) (if (OR k9w (OR k9y k9x))((set k2v k8p)(k2w))) (if (OR (OR k9w (OR k8d k8c)) k8e)((set k2v k8q)(k2w))) (set k7c (askoptions (prompt k9j) (help k9l) (choices k9a k3q k3r k3s k3t k3p) (default k7c))) (set k7i (tackon k7e "PPaint")) (if (= (exists k7i) 2)(set k7e k7i)) (set @default-dest k7e) (if (IN k7c k8s)((if (exists (tackon k7e "PPaint"))( if (NOT (askbool (prompt k1g) (help k1h) (default 1)))((set k2v k8s)(k2w)))))) (if (IN k7c k8s)((set k7a (askchoice (prompt k9o) (help k9p) (choices k9c k9b k9e k9d k2j) (default (- k7b (* 3 (> k7b 4)))))) (if (= k7a 4)(set k7a 7)) (set n 0)(while (set k8l (select n "eng" "deu" "ita" "fra" "esp" "hol" "swe" "dan" "" ))((if (= k7a n)((if (<> (exists (cat (tackon k7f "PPaint_Prefs/UIText.") k8l)) 1)(set k7a 0) ))) (set n (+ n 1)))) (if (OR (= (database "cpu") 68000)(<> (exists (tackon k7f (cat "PPaint." (database "cpu")))) 1))(set k2x 0)( set k2x (askbool (prompt (#k2y (database "cpu"))) (help #k2y-help) (default 0)))) (if k2x (set k8b 0)( set k8b (askbool (prompt k1a) (help k1b) (default (AND (< (+ (database "cpu")) 68030)(NOT k9u)))))) (if k8h (set k8j 0)( set k8j (askbool (prompt k1k) (help k1l) (default (<> (expandpath (getassign "PPaint" "a"))(expandpath k7e)))))))) (if (AND (AND (IN k7c k8p) k9x)(= (exists (tackon k7f "HP_DeskJet")) 2))( if (NOT (askbool (prompt k1c) (help k1d) (default 0)))((set k2v k8p)(k2w)))) (if (AND (IN k7c k8q)(<> (exists (tackon k7f "JPEG")) 2))((set k2v k8q)(k2w))) (if (AND (IN k7c k8q) k8e)((message k3o) ((set k2v k8q)(k2w)))) (if (AND (IN k7c k8q) k8c)( if (NOT (askbool (prompt k1e) (help k1f) (default 0)))((set k2v k8q)(k2w)))) (if (IN k7c k8q)( set k8i (askbool (prompt k1i) (help k1j) (default (= (getassign "JPEGTMP" "a") ""))))) (if (AND (IN k7c k8q) k8i)((set k7d (getassign "JPEGTMP" "a")) (if (= k7d "")(set k7d "RAM:t")) (set k7d (askdir (prompt k9m) (help k9n) (default k7d) (newpath))))) (if (IN k7c k8s)((working k1r) (set k7i (tackon k7e "PPaint_Icons_1.info")) (if (= (exists k7i) 1)(delete k7i (optional "force"))) (set k7i (tackon k7e "PPaint_Icons_2.info")) (if (= (exists k7i) 1)(delete k7i (optional "force"))) (set k7i (tackon k7e "PPaint_Icons.info")) (if (= (exists k7i) 1)(delete k7i (optional "force"))) (set k7i (tackon k7e "PPaint_Icons_2")) (set k7j (tackon k7e "PPaint_Icons")) (if (= (exists k7i) 2)((if (= (exists k7j) 2)(delete k7i (optional "force"))(rename k7i k7j) ))) (set k8a 1) (set k7i (tackon k7e "PPaint_Icons")) (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force"))) (makedir k7i))) (set k7i (tackon k7e "fonts")) (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force"))) (makedir k7i))) (set k7i (tackon k7e "libs")) (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force"))) (makedir k7i))) (set k7i (tackon k7e "t")) (if (<> (exists k7i) 2)((if (= (exists k7i) 1)(delete k7i (optional "force"))) (makedir k7i))) (set k7i "Pictures") (k2b) (set k7i "Animations") (k2b) (set k7i "Colors") (k2b) (set k7i "Brushes") (k2b) (set k7i "Stencils") (k2b) (set k7i "Rexx") (k2b) (set k7i "PPaint_Prefs") (k2b) (set k7i "PPaint_Tools") (k2b) (set k7h k7f) (k2e) (askdisk (prompt k9f)(help @askdisk-help)(dest k7h)) (set k7i (tackon k7e ".cd-rom")) (if (= (exists k7i) 1)(delete k7i (optional "force"))) (if k8b ((working k3h) (run (cat "\""(tackon k7f "c/Deplode") "\" >NIL: (getassign "ENVARC" "a") "")((if (= (exists "ENVARC:Sys/def_Drawer.info") 1)((copyfiles (source "ENVARC:sys/def_Drawer.info") (dest (tackon k7e "PPaint_Icons")) (optional "nofail" "force") (nogauge)))))) (working k3j) (copyfiles (source (tackon k7f "PPaint_PS")) (dest k7e) (optional "nofail" "force") (nogauge)) (if (NOT k9s)((working k1n) (copyfiles (source k7g) (dest "DEVS:") (optional "nofail" "force") (nogauge)))) (set k7h (tackon k7f "Colors")) (set k7i "Colors") (if (= (exists k7h) 2)((working k1p) (k2b) (k2c))) (set k7h (tackon k7f "Rexx")) (set k7i "Rexx") (if (= (exists k7h) 2)((working k2g) (k2b) (k2c))) (set k7h (tackon k7f "PPaint_Tools")) (set k7i "PPaint_Tools") (if (= (exists k7h) 2)((working k3m) (k2b) (k2c))) (if (NOT k8a)((working k3a) (foreach (set k7h (tackon k7f "PPaint_Prefs/II/PPaint")) "#?.info" ((copyfiles (source (tackon k7h @each-name)) (dest k7e) (optional "nofail" "force") (nogauge)) (tooltype (dest (tackon k7e (substr @each-name 0 (- (strlen @each-name) 5)))) (swapcolors)))) (if (<> (expandpath k7e)(expandpath (cat (getdevice k7e) ":")))((if (OR (= (exists (cat k7e ".info")) 0)(= (exists (tackon k7e "fonts/Personal.font")) 0))((copyfiles (source (tackon k7f "PPaint_Prefs/II/PPaint.info")) (dest (pathonly k7e)) (newname (cat (fileonly k7e) ".info")) (optional "nofail" "force") (nogauge)) (tooltype (dest k7e) (swapcolors)))))))) (working k3c) (set k7h "PPaint.man") (k2d) (set k7h "PPaint.man.eng") (k2d) (set k7h "PPaint.man.deu") (k2d) (set k7h "PPaint.man.fra") (k2d) (set k7h "PPaint.man.dan") (k2d) (set k7h "PPaint.man.ita") (k2d) (working k1q) (set k8a 1) (set n 0) (while (set k8l (select n "Startup_1.set" "Startup_2.set" "@" "UIGraphics.pic" "UIColors.6" "UIColors.12" "UIText.eng" "UIText.deu" "UIText.fra" "UIText.dan" "UIText.ita" "" ))((set n (+ n 1)) (if (= k8l "@")((set k8l "Startup_A.set") (set k7h (cat "T:" k8l)) (if (= (getassign "T" "a") "")((if (<> (exists "RAM:T") 2)(makedir "RAM:T")) (makeassign "T" "RAM:T"))) (if (= (exists k7h) 1)(delete k7h (optional "force"))) (textfile (dest k7h) (append (cat "PPAINT SETTINGS\n" "; Country and Language Settings\n\n" ("LANG = %ld\n" k7a)))))((set k7h (tackon k7f (cat "PPaint_Prefs/" k8l))))) (set k7i (tackon k7e (cat "PPaint_Prefs/" k8l))) (k2a) (if (<> k8k 0)((set k8a 0) (if (= (exists k7i) 1)((if (<> (exists (tackon k7e "PPaint_Prefs/OLD")) 2)((makedir (tackon k7e "PPaint_Prefs/OLD")))) (set k7j (tackon k7e (cat "PPaint_Prefs/OLD/" k8l))) (run (cat "\"" (tackon k7f "c/Preserve") "\" >NIL: (getassign "FONTS" "a") ""))((working k3e) (copyfiles (source (tackon k7f "fonts/Personal")) (dest "FONTS:Personal") (all) (optional "nofail" "force") (nogauge)) (copyfiles (source (tackon k7f "fonts/Personal.font")) (dest "FONTS:") (optional "nofail" "force") (nogauge)))) (if k8j ((working k3k) (startup "Personal Paint" (prompt k1k) (help k1l) (command ("Assign >NIL: PPaint: %s\n" k7e))) (makeassign "PPaint" k7e))))) (if (AND (IN k7c k8o)(<> (getassign "FONTS" "a") ""))((set k7h k7f) (k2e) (askdisk (prompt k9f)(help @askdisk-help)(dest k7h)) (working k1o) (set n 0) (while (set k8l (select n "KaraCHISELsrf/55.8C" "KaraCHISELsrf.font" "KaraGRANITE/55.8C" "KaraGRANITE.font" "" ))((set n (+ n 1)) (set k7h (tackon k7f (cat "fonts/" k8l))) (if (= (exists k7h) 1)((copyfiles (source k7h) (dest (pathonly (tackon "FONTS:" k8l))) (optional "nofail" "force") (nogauge)))(set k7o 1) ))))) (if (IN k7c k8p)((set k7h k7f) (k2e) (askdisk (prompt k9f)(help @askdisk-help)(dest k7h)) (working k1t) (set n 0) (while (set k8l (select n "HP_DeskJet" "HP_DeskJet550C" "" ))((set n (+ n 1)) (set k7h (tackon k7f (cat "HP_DeskJet/Devs/Printers/" k8l))) (if (= (exists k7h) 1)((copyfiles (source k7h) (dest "SYS:Devs/Printers") (infos) (optional "nofail" "force") (nogauge)))))))) (if (IN k7c k8q)((set k7h k7f) (k2e) (askdisk (prompt k9f)(help @askdisk-help)(dest k7h)) (working k3b) (if (<> (exists "SYS:Classes") 2)(makedir "SYS:Classes" (infos)) ) (set n 0) (while (set k8l (select n "Classes/DataTypes/JPEG.datatype" "Devs/DataTypes/JPEG" "" ))((set n (+ n 1)) (set k7h (tackon k7f (cat "JPEG/" k8l))) (if (= (exists k7h) 1)((copyfiles (source k7h) (dest (pathonly (tackon "SYS:" k8l))) (infos) (optional "nofail" "force") (nogauge)))(set k8i 0)))) (if k8i ((working k3k) (startup "JPEG DataType" (prompt k1i) (help k1j) (command ("Assign >NIL: JPEGTMP: %s\n" k7d))) (makeassign "JPEGTMP" k7d))))) (if (IN k7c k8r)((set k7h k9z) (k2e) (askdisk (prompt k9f2)(help @askdisk-help)(dest k7h)) (set k7h (tackon k9z "Pictures")) (set k7i "Pictures") (k2b) (if (= (exists k7h) 2)((working k3f) (k2c))) (set k7h (tackon k9z "Stereograms")) (set k7i "Pictures/Stereograms") (if (= (exists k7h) 2)((working k3f) (k2b) (k2c))) (set k7h (tackon k9z "Patterns")) (set k7i "Brushes") (if (= (exists k7h) 2)((working k3f) (k2b) (set k7i "Brushes/Patterns") (k2b) (k2c))))) (if (IN k7c k8n)((set k7h k9z) (k2e) (askdisk (prompt k9f2)(help @askdisk-help)(dest k7h)) (set k7h (tackon k9z "Animations")) (set k7i "Animations") (if (= (exists k7h) 2)((working k1m) (k2b) (k2c) (foreach k7i "#?.lzh" ((if (= (exists (tackon k9z "c/Lharc")) 1)((run (cat "\"" (tackon k9z "c/Lharc") "\" >NIL: NIL: k7l 1)(abort)) (exit (quiet))