Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Tyler/!CloudCult/!Run
info/Tyler/!CloudCult/!Run
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars |
| Filename: | info/Tyler/!CloudCult/!Run |
| Read OK: | ✔ |
| File size: | 0673 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| | > !Run for !CCultivator | If "<CCultivatorRes$Dir>" = "" THEN Set CCultivatorRes$Dir <Obey$Dir>.Resources Run <Obey$Dir>.Library.Utilities.Check | IF "<CCultivatorRunning$Flag>" <> "" THEN Error Cloud Cultivator is already running | Unset CCultivatorRunning$Flag | RMEnsure ColourTrans 1.07 If "<System$Path>" = "" Then Error System resources could not be found (ColourTrans module required). RMEnsure ColourTrans 1.07 If "<System$Path>" <> "" Then RMLoad System:Modules.Colours RMEnsure ColourTrans 1.07 Error Please update your copy of !System to one containing ColourTrans (Colours) 1.07 or later | RMEnsure MessageTrans 0.06 If "<System$Path>" = "" Then Error System resources could not be found (MessageTrans module required). RMEnsure MessageTrans 0.06 If "<System$Path>" <> "" Then RMLoad System:Modules.MsgTrans RMEnsure MessageTrans 0.06 Error Please update your copy of !System to one containing MessageTrans (MsgTrans) 0.06 or later | RMEnsure SpriteExtend 0.46 Error Unable to find SpriteExtension Module 0.46 or later | If "<Wimp$Scrap>" = "" Then Error !Scrap needs to have been seen by the filer for this program to work properly. | IconSprites <Obey$Dir>.!Sprites | Set CCultivator$Dir <Obey$Dir> Set CCultivatorRes$Dir <CCultivator$Dir>.Resources Set CCultivatorPalette$Dir <CCultivator$Dir>.Textures.Palette Set CCultivatorAnimation$Dir <CCultivator$Dir>.Animations Set CCultivatorRMStore$Dir <CCultivator$Dir>.RMStore Set CCultivatorChangeFSI$Mem 320 Set CCultivatorInterGIF$Mem 64 | Set CCultivatorDA$Flag 1 RMEnsure UtilityModule 3.50 SetEval CCultivatorDA$Flag 0 | WimpSlot -min 224k -max 224k | Run <Obey$Dir>.!RunImage %*0
00000000 7c 0a 7c 20 3e 20 21 52 75 6e 20 66 6f 72 20 21 ||.| > !Run for !| 00000010 43 43 75 6c 74 69 76 61 74 6f 72 0a 7c 0a 49 66 |CCultivator.|.If| 00000020 20 22 3c 43 43 75 6c 74 69 76 61 74 6f 72 52 65 | "<CCultivatorRe| 00000030 73 24 44 69 72 3e 22 20 3d 20 22 22 20 54 48 45 |s$Dir>" = "" THE| 00000040 4e 20 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f |N Set CCultivato| 00000050 72 52 65 73 24 44 69 72 20 3c 4f 62 65 79 24 44 |rRes$Dir <Obey$D| 00000060 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 0a 52 75 |ir>.Resources.Ru| 00000070 6e 20 3c 4f 62 65 79 24 44 69 72 3e 2e 4c 69 62 |n <Obey$Dir>.Lib| 00000080 72 61 72 79 2e 55 74 69 6c 69 74 69 65 73 2e 43 |rary.Utilities.C| 00000090 68 65 63 6b 0a 7c 0a 49 46 20 22 3c 43 43 75 6c |heck.|.IF "<CCul| 000000a0 74 69 76 61 74 6f 72 52 75 6e 6e 69 6e 67 24 46 |tivatorRunning$F| 000000b0 6c 61 67 3e 22 20 3c 3e 20 22 22 20 54 48 45 4e |lag>" <> "" THEN| 000000c0 20 45 72 72 6f 72 20 43 6c 6f 75 64 20 43 75 6c | Error Cloud Cul| 000000d0 74 69 76 61 74 6f 72 20 69 73 20 61 6c 72 65 61 |tivator is alrea| 000000e0 64 79 20 72 75 6e 6e 69 6e 67 0a 7c 0a 55 6e 73 |dy running.|.Uns| 000000f0 65 74 20 43 43 75 6c 74 69 76 61 74 6f 72 52 75 |et CCultivatorRu| 00000100 6e 6e 69 6e 67 24 46 6c 61 67 0a 7c 0a 52 4d 45 |nning$Flag.|.RME| 00000110 6e 73 75 72 65 20 43 6f 6c 6f 75 72 54 72 61 6e |nsure ColourTran| 00000120 73 20 31 2e 30 37 20 49 66 20 22 3c 53 79 73 74 |s 1.07 If "<Syst| 00000130 65 6d 24 50 61 74 68 3e 22 20 3d 20 22 22 20 54 |em$Path>" = "" T| 00000140 68 65 6e 20 45 72 72 6f 72 20 53 79 73 74 65 6d |hen Error System| 00000150 20 72 65 73 6f 75 72 63 65 73 20 63 6f 75 6c 64 | resources could| 00000160 20 6e 6f 74 20 62 65 20 66 6f 75 6e 64 20 28 43 | not be found (C| 00000170 6f 6c 6f 75 72 54 72 61 6e 73 20 6d 6f 64 75 6c |olourTrans modul| 00000180 65 20 72 65 71 75 69 72 65 64 29 2e 0a 52 4d 45 |e required)..RME| 00000190 6e 73 75 72 65 20 43 6f 6c 6f 75 72 54 72 61 6e |nsure ColourTran| 000001a0 73 20 31 2e 30 37 20 49 66 20 22 3c 53 79 73 74 |s 1.07 If "<Syst| 000001b0 65 6d 24 50 61 74 68 3e 22 20 3c 3e 20 22 22 20 |em$Path>" <> "" | 000001c0 54 68 65 6e 20 52 4d 4c 6f 61 64 20 53 79 73 74 |Then RMLoad Syst| 000001d0 65 6d 3a 4d 6f 64 75 6c 65 73 2e 43 6f 6c 6f 75 |em:Modules.Colou| 000001e0 72 73 0a 52 4d 45 6e 73 75 72 65 20 43 6f 6c 6f |rs.RMEnsure Colo| 000001f0 75 72 54 72 61 6e 73 20 31 2e 30 37 20 45 72 72 |urTrans 1.07 Err| 00000200 6f 72 20 50 6c 65 61 73 65 20 75 70 64 61 74 65 |or Please update| 00000210 20 79 6f 75 72 20 63 6f 70 79 20 6f 66 20 21 53 | your copy of !S| 00000220 79 73 74 65 6d 20 74 6f 20 6f 6e 65 20 63 6f 6e |ystem to one con| 00000230 74 61 69 6e 69 6e 67 20 43 6f 6c 6f 75 72 54 72 |taining ColourTr| 00000240 61 6e 73 20 28 43 6f 6c 6f 75 72 73 29 20 31 2e |ans (Colours) 1.| 00000250 30 37 20 6f 72 20 6c 61 74 65 72 0a 7c 0a 52 4d |07 or later.|.RM| 00000260 45 6e 73 75 72 65 20 4d 65 73 73 61 67 65 54 72 |Ensure MessageTr| 00000270 61 6e 73 20 30 2e 30 36 20 49 66 20 22 3c 53 79 |ans 0.06 If "<Sy| 00000280 73 74 65 6d 24 50 61 74 68 3e 22 20 3d 20 22 22 |stem$Path>" = ""| 00000290 20 54 68 65 6e 20 45 72 72 6f 72 20 53 79 73 74 | Then Error Syst| 000002a0 65 6d 20 72 65 73 6f 75 72 63 65 73 20 63 6f 75 |em resources cou| 000002b0 6c 64 20 6e 6f 74 20 62 65 20 66 6f 75 6e 64 20 |ld not be found | 000002c0 28 4d 65 73 73 61 67 65 54 72 61 6e 73 20 6d 6f |(MessageTrans mo| 000002d0 64 75 6c 65 20 72 65 71 75 69 72 65 64 29 2e 0a |dule required)..| 000002e0 52 4d 45 6e 73 75 72 65 20 4d 65 73 73 61 67 65 |RMEnsure Message| 000002f0 54 72 61 6e 73 20 30 2e 30 36 20 49 66 20 22 3c |Trans 0.06 If "<| 00000300 53 79 73 74 65 6d 24 50 61 74 68 3e 22 20 3c 3e |System$Path>" <>| 00000310 20 22 22 20 54 68 65 6e 20 52 4d 4c 6f 61 64 20 | "" Then RMLoad | 00000320 53 79 73 74 65 6d 3a 4d 6f 64 75 6c 65 73 2e 4d |System:Modules.M| 00000330 73 67 54 72 61 6e 73 0a 52 4d 45 6e 73 75 72 65 |sgTrans.RMEnsure| 00000340 20 4d 65 73 73 61 67 65 54 72 61 6e 73 20 30 2e | MessageTrans 0.| 00000350 30 36 20 45 72 72 6f 72 20 50 6c 65 61 73 65 20 |06 Error Please | 00000360 75 70 64 61 74 65 20 79 6f 75 72 20 63 6f 70 79 |update your copy| 00000370 20 6f 66 20 21 53 79 73 74 65 6d 20 74 6f 20 6f | of !System to o| 00000380 6e 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 4d 65 |ne containing Me| 00000390 73 73 61 67 65 54 72 61 6e 73 20 28 4d 73 67 54 |ssageTrans (MsgT| 000003a0 72 61 6e 73 29 20 30 2e 30 36 20 6f 72 20 6c 61 |rans) 0.06 or la| 000003b0 74 65 72 0a 7c 0a 52 4d 45 6e 73 75 72 65 20 53 |ter.|.RMEnsure S| 000003c0 70 72 69 74 65 45 78 74 65 6e 64 20 30 2e 34 36 |priteExtend 0.46| 000003d0 20 45 72 72 6f 72 20 55 6e 61 62 6c 65 20 74 6f | Error Unable to| 000003e0 20 66 69 6e 64 20 53 70 72 69 74 65 45 78 74 65 | find SpriteExte| 000003f0 6e 73 69 6f 6e 20 4d 6f 64 75 6c 65 20 30 2e 34 |nsion Module 0.4| 00000400 36 20 6f 72 20 6c 61 74 65 72 0a 7c 0a 49 66 20 |6 or later.|.If | 00000410 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 20 3d |"<Wimp$Scrap>" =| 00000420 20 22 22 20 54 68 65 6e 20 45 72 72 6f 72 20 21 | "" Then Error !| 00000430 53 63 72 61 70 20 6e 65 65 64 73 20 74 6f 20 68 |Scrap needs to h| 00000440 61 76 65 20 62 65 65 6e 20 73 65 65 6e 20 62 79 |ave been seen by| 00000450 20 74 68 65 20 66 69 6c 65 72 20 66 6f 72 20 74 | the filer for t| 00000460 68 69 73 20 70 72 6f 67 72 61 6d 20 74 6f 20 77 |his program to w| 00000470 6f 72 6b 20 70 72 6f 70 65 72 6c 79 2e 0a 7c 0a |ork properly..|.| 00000480 49 63 6f 6e 53 70 72 69 74 65 73 20 3c 4f 62 65 |IconSprites <Obe| 00000490 79 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 0a |y$Dir>.!Sprites.| 000004a0 7c 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f ||.Set CCultivato| 000004b0 72 24 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e |r$Dir <Obey$Dir>| 000004c0 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f 72 |.Set CCultivator| 000004d0 52 65 73 24 44 69 72 20 3c 43 43 75 6c 74 69 76 |Res$Dir <CCultiv| 000004e0 61 74 6f 72 24 44 69 72 3e 2e 52 65 73 6f 75 72 |ator$Dir>.Resour| 000004f0 63 65 73 0a 53 65 74 20 43 43 75 6c 74 69 76 61 |ces.Set CCultiva| 00000500 74 6f 72 50 61 6c 65 74 74 65 24 44 69 72 20 3c |torPalette$Dir <| 00000510 43 43 75 6c 74 69 76 61 74 6f 72 24 44 69 72 3e |CCultivator$Dir>| 00000520 2e 54 65 78 74 75 72 65 73 2e 50 61 6c 65 74 74 |.Textures.Palett| 00000530 65 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f |e.Set CCultivato| 00000540 72 41 6e 69 6d 61 74 69 6f 6e 24 44 69 72 20 3c |rAnimation$Dir <| 00000550 43 43 75 6c 74 69 76 61 74 6f 72 24 44 69 72 3e |CCultivator$Dir>| 00000560 2e 41 6e 69 6d 61 74 69 6f 6e 73 0a 53 65 74 20 |.Animations.Set | 00000570 43 43 75 6c 74 69 76 61 74 6f 72 52 4d 53 74 6f |CCultivatorRMSto| 00000580 72 65 24 44 69 72 20 3c 43 43 75 6c 74 69 76 61 |re$Dir <CCultiva| 00000590 74 6f 72 24 44 69 72 3e 2e 52 4d 53 74 6f 72 65 |tor$Dir>.RMStore| 000005a0 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f 72 |.Set CCultivator| 000005b0 43 68 61 6e 67 65 46 53 49 24 4d 65 6d 20 33 32 |ChangeFSI$Mem 32| 000005c0 30 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 6f |0.Set CCultivato| 000005d0 72 49 6e 74 65 72 47 49 46 24 4d 65 6d 20 36 34 |rInterGIF$Mem 64| 000005e0 0a 7c 0a 53 65 74 20 43 43 75 6c 74 69 76 61 74 |.|.Set CCultivat| 000005f0 6f 72 44 41 24 46 6c 61 67 20 31 0a 52 4d 45 6e |orDA$Flag 1.RMEn| 00000600 73 75 72 65 20 55 74 69 6c 69 74 79 4d 6f 64 75 |sure UtilityModu| 00000610 6c 65 20 33 2e 35 30 20 53 65 74 45 76 61 6c 20 |le 3.50 SetEval | 00000620 43 43 75 6c 74 69 76 61 74 6f 72 44 41 24 46 6c |CCultivatorDA$Fl| 00000630 61 67 20 30 0a 7c 0a 57 69 6d 70 53 6c 6f 74 20 |ag 0.|.WimpSlot | 00000640 2d 6d 69 6e 20 32 32 34 6b 20 2d 6d 61 78 20 32 |-min 224k -max 2| 00000650 32 34 6b 0a 7c 0a 52 75 6e 20 3c 4f 62 65 79 24 |24k.|.Run <Obey$| 00000660 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 20 25 |Dir>.!RunImage %| 00000670 2a 30 0a |*0.| 00000673
.