/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / drwimp / DrWimp / Examples / !SprAreas / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 21 52 | 75 6e 49 6d 61 67 65 0d |.....>!R|unImage.|
|00000010| 00 14 1f c8 9b 20 22 3c | 44 72 57 69 6d 70 4c 69 |..... "<|DrWimpLi|
|00000020| 62 24 44 69 72 3e 2e 44 | 72 57 69 6d 70 22 0d 00 |b$Dir>.D|rWimp"..|
|00000030| 1e 05 3a 0d 00 28 17 61 | 70 70 6e 61 6d 65 24 3d |..:..(.a|ppname$=|
|00000040| 22 53 70 72 41 72 65 61 | 73 22 0d 00 32 35 ee 20 |"SprArea|s"..25. |
|00000050| 85 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 61 70 |. .wimp_|error(ap|
|00000060| 70 6e 61 6d 65 24 2c f6 | 24 2b 22 20 61 74 20 6c |pname$,.|$+" at l|
|00000070| 69 6e 65 20 22 2b c3 9e | 2c 31 2c 31 29 3a e0 0d |ine "+..|,1,1):..|
|00000080| 00 3c 04 0d 00 46 1b 20 | 20 f4 20 2a 2a 49 6e 69 |.<...F. | . **Ini|
|00000090| 74 69 61 6c 69 73 65 20 | 74 61 73 6b 2a 2a 0d 00 |tialise |task**..|
|000000a0| 50 32 74 61 73 6b 25 3d | a4 77 69 6d 70 5f 69 6e |P2task%=|.wimp_in|
|000000b0| 69 74 69 61 6c 69 73 65 | 28 61 70 70 6e 61 6d 65 |itialise|(appname|
|000000c0| 24 2c 37 30 30 30 2c 37 | 30 30 30 2c 33 30 30 29 |$,7000,7|000,300)|
|000000d0| 0d 00 5a 04 0d 00 64 50 | 20 20 f4 20 2a 2a 4c 6f |..Z...dP|  . **Lo|
|000000e0| 61 64 20 69 6e 20 73 70 | 72 69 74 65 73 20 69 6e |ad in sp|rites in|
|000000f0| 20 66 69 6c 65 20 27 53 | 70 72 69 74 65 73 27 20 | file 'S|prites' |
|00000100| 69 6e 74 6f 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |into app|lication|
|00000110| 27 73 20 6f 77 6e 20 73 | 70 72 69 74 65 20 61 72 |'s own s|prite ar|
|00000120| 65 61 2a 2a 0d 00 6e 35 | 73 69 7a 65 25 3d a4 77 |ea**..n5|size%=.w|
|00000130| 69 6d 70 5f 6d 65 61 73 | 75 72 65 66 69 6c 65 28 |imp_meas|urefile(|
|00000140| 22 3c 53 70 72 41 72 65 | 61 73 24 44 69 72 3e 2e |"<SprAre|as$Dir>.|
|00000150| 53 70 72 69 74 65 73 22 | 29 0d 00 78 14 de 20 73 |Sprites"|)..x.. s|
|00000160| 70 72 69 74 65 73 25 20 | 73 69 7a 65 25 0d 00 82 |prites% |size%...|
|00000170| 3b 61 25 3d a4 77 69 6d | 70 5f 6c 6f 61 64 73 70 |;a%=.wim|p_loadsp|
|00000180| 72 69 74 65 73 28 22 3c | 53 70 72 41 72 65 61 73 |rites("<|SprAreas|
|00000190| 24 44 69 72 3e 2e 53 70 | 72 69 74 65 73 22 2c 73 |$Dir>.Sp|rites",s|
|000001a0| 70 72 69 74 65 73 25 29 | 0d 00 8c 04 0d 00 96 57 |prites%)|.......W|
|000001b0| 20 20 f4 20 2a 2a 4c 6f | 61 64 20 69 6e 20 77 69 |  . **Lo|ad in wi|
|000001c0| 6e 64 6f 77 2e 20 30 20 | 6d 65 61 6e 73 20 75 73 |ndow. 0 |means us|
|000001d0| 65 20 73 70 72 69 74 65 | 73 20 66 72 6f 6d 20 70 |e sprite|s from p|
|000001e0| 72 69 76 61 74 65 20 73 | 70 72 69 74 65 20 61 72 |rivate s|prite ar|
|000001f0| 65 61 20 69 6e 20 74 68 | 69 73 20 77 69 6e 64 6f |ea in th|is windo|
|00000200| 77 2a 2a 0d 00 a0 46 6d | 61 69 6e 25 3d a4 77 69 |w**...Fm|ain%=.wi|
|00000210| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|00000220| 53 70 72 41 72 65 61 73 | 24 44 69 72 3e 2e 54 65 |SprAreas|$Dir>.Te|
|00000230| 6d 70 6c 61 74 65 73 22 | 2c 22 6d 61 69 6e 22 2c |mplates"|,"main",|
|00000240| 73 70 72 69 74 65 73 25 | 29 0d 00 aa 04 0d 00 b4 |sprites%|).......|
|00000250| 36 20 20 f4 20 2a 2a 4f | 70 65 6e 20 77 69 6e 64 |6  . **O|pen wind|
|00000260| 6f 77 20 69 6e 20 63 65 | 6e 74 72 65 20 6f 66 20 |ow in ce|ntre of |
|00000270| 73 63 72 65 65 6e 20 61 | 6e 64 20 61 74 20 74 6f |screen a|nd at to|
|00000280| 70 2a 2a 0d 00 be 20 f2 | 77 69 6d 70 5f 6f 70 65 |p**... .|wimp_ope|
|00000290| 6e 77 69 6e 64 6f 77 28 | 6d 61 69 6e 25 2c 31 2c |nwindow(|main%,1,|
|000002a0| 2d 31 29 0d 00 c8 04 0d | 00 d2 28 20 20 f4 20 2a |-1).....|..(  . *|
|000002b0| 2a 50 6f 6c 6c 20 74 68 | 65 20 57 49 4d 50 20 75 |*Poll th|e WIMP u|
|000002c0| 6e 74 69 6c 20 66 69 6e | 69 73 68 65 64 2a 2a 0d |ntil fin|ished**.|
|000002d0| 00 dc 0e f2 77 69 6d 70 | 5f 70 6f 6c 6c 0d 00 e6 |....wimp|_poll...|
|000002e0| 05 e0 0d 00 f0 05 3a 0d | 00 fa 43 dd 20 f2 75 73 |......:.|..C. .us|
|000002f0| 65 72 5f 72 65 64 72 61 | 77 28 77 69 6e 64 6f 77 |er_redra|w(window|
|00000300| 25 2c 6d 69 6e 78 25 2c | 6d 69 6e 79 25 2c 6d 61 |%,minx%,|miny%,ma|
|00000310| 78 78 25 2c 6d 61 78 79 | 25 2c 70 72 69 6e 74 69 |xx%,maxy|%,printi|
|00000320| 6e 67 25 2c 70 61 67 65 | 25 29 0d 01 04 05 e1 0d |ng%,page|%)......|
|00000330| 01 0e 05 3a 0d 01 18 3b | dd 20 f2 75 73 65 72 5f |...:...;|. .user_|
|00000340| 6d 6f 75 73 65 63 6c 69 | 63 6b 28 77 69 6e 64 6f |mousecli|ck(windo|
|00000350| 77 25 2c 69 63 6f 6e 25 | 2c 62 75 74 74 6f 6e 25 |w%,icon%|,button%|
|00000360| 2c 77 6f 72 6b 78 25 2c | 77 6f 72 6b 79 25 29 0d |,workx%,|worky%).|
|00000370| 01 22 05 e1 0d 01 2c 05 | 3a 0d 01 36 1f dd 20 a4 |."....,.|:..6.. .|
|00000380| 75 73 65 72 5f 6d 65 6e | 75 28 77 69 6e 64 6f 77 |user_men|u(window|
|00000390| 25 2c 69 63 6f 6e 25 29 | 0d 01 40 06 3d 30 0d 01 |%,icon%)|..@.=0..|
|000003a0| 4a 05 3a 0d 01 54 2c dd | 20 f2 75 73 65 72 5f 6f |J.:..T,.| .user_o|
|000003b0| 70 65 6e 77 69 6e 64 6f | 77 28 77 69 6e 64 6f 77 |penwindo|w(window|
|000003c0| 25 2c 78 25 2c 79 25 2c | 73 74 61 63 6b 25 29 0d |%,x%,y%,|stack%).|
|000003d0| 01 5e 05 e1 0d 01 68 05 | 3a 0d 01 72 20 dd 20 f2 |.^....h.|:..r . .|
|000003e0| 75 73 65 72 5f 63 6c 6f | 73 65 77 69 6e 64 6f 77 |user_clo|sewindow|
|000003f0| 28 77 69 6e 64 6f 77 25 | 29 0d 01 7c 04 0d 01 86 |(window%|)..|....|
|00000400| 5c 20 20 f4 20 2a 2a 49 | 66 20 6d 61 69 6e 20 77 |\  . **I|f main w|
|00000410| 69 6e 64 6f 77 20 63 6c | 6f 73 65 64 20 74 68 65 |indow cl|osed the|
|00000420| 20 73 65 74 20 66 69 6e | 69 73 68 65 64 25 20 74 | set fin|ished% t|
|00000430| 6f 20 54 52 55 45 20 73 | 6f 20 61 70 70 20 71 75 |o TRUE s|o app qu|
|00000440| 69 74 73 20 61 74 20 66 | 69 72 73 74 20 6f 70 70 |its at f|irst opp|
|00000450| 6f 74 75 6e 69 74 79 2a | 2a 0d 01 90 1f e7 20 77 |otunity*|*..... w|
|00000460| 69 6e 64 6f 77 25 3d 6d | 61 69 6e 25 20 66 69 6e |indow%=m|ain% fin|
|00000470| 69 73 68 65 64 25 3d b9 | 0d 01 9a 05 e1 0d 01 a4 |ished%=.|........|
|00000480| 05 3a 0d 01 ae 27 dd 20 | a4 75 73 65 72 5f 6b 65 |.:...'. |.user_ke|
|00000490| 79 70 72 65 73 73 28 77 | 69 6e 64 6f 77 25 2c 69 |ypress(w|indow%,i|
|000004a0| 63 6f 6e 25 2c 6b 65 79 | 29 0d 01 b8 06 3d 30 0d |con%,key|)....=0.|
|000004b0| 01 c2 05 3a 0d 01 cc 26 | dd 20 f2 75 73 65 72 5f |...:...&|. .user_|
|000004c0| 6d 65 6e 75 73 65 6c 65 | 63 74 69 6f 6e 28 6d 65 |menusele|ction(me|
|000004d0| 6e 75 25 2c 69 74 65 6d | 25 29 0d 01 d6 05 e1 0d |nu%,item|%)......|
|000004e0| 01 e0 05 3a 0d 01 ea 21 | dd 20 a4 75 73 65 72 5f |...:...!|. .user_|
|000004f0| 73 61 76 65 66 69 6c 65 | 74 79 70 65 28 77 69 6e |savefile|type(win|
|00000500| 64 6f 77 25 29 0d 01 f4 | 07 3d 22 22 0d 01 fe 05 |dow%)...|.=""....|
|00000510| 3a 0d 02 08 34 dd 20 f2 | 75 73 65 72 5f 73 61 76 |:...4. .|user_sav|
|00000520| 65 69 63 6f 6e 28 77 69 | 6e 64 6f 77 25 2c f8 20 |eicon(wi|ndow%,. |
|00000530| 64 72 61 67 25 2c f8 20 | 77 72 69 74 65 25 2c f8 |drag%,. |write%,.|
|00000540| 20 6f 6b 25 29 0d 02 12 | 05 e1 0d 02 1c 05 3a 0d | ok%)...|......:.|
|00000550| 02 26 23 dd 20 a4 75 73 | 65 72 5f 73 61 76 65 64 |.&#. .us|er_saved|
|00000560| 61 74 61 28 70 61 74 68 | 24 2c 77 69 6e 64 6f 77 |ata(path|$,window|
|00000570| 25 29 0d 02 30 06 3d 31 | 0d 02 3a 05 3a 0d 02 44 |%)..0.=1|..:.:..D|
|00000580| 1f dd 20 a4 75 73 65 72 | 5f 68 65 6c 70 28 77 69 |.. .user|_help(wi|
|00000590| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 29 0d 02 4e 07 |ndow%,ic|on%)..N.|
|000005a0| 3d 22 22 0d 02 58 05 3a | 0d 02 62 3e dd 20 a4 75 |=""..X.:|..b>. .u|
|000005b0| 73 65 72 5f 6c 6f 61 64 | 64 61 74 61 28 70 61 74 |ser_load|data(pat|
|000005c0| 68 24 2c 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |h$,windo|w%,icon%|
|000005d0| 2c 66 74 79 70 65 24 2c | 77 6f 72 6b 78 25 2c 77 |,ftype$,|workx%,w|
|000005e0| 6f 72 6b 79 25 29 0d 02 | 6c 06 3d 30 0d 02 76 05 |orky%)..|l.=0..v.|
|000005f0| 3a 0d 02 80 23 dd 20 f2 | 75 73 65 72 5f 65 6e 74 |:...#. .|user_ent|
|00000600| 65 72 69 6e 67 77 69 6e | 64 6f 77 28 77 69 6e 64 |eringwin|dow(wind|
|00000610| 6f 77 25 29 0d 02 8a 05 | e1 0d 02 94 05 3a 0d 02 |ow%)....|.....:..|
|00000620| 9e 22 dd 20 f2 75 73 65 | 72 5f 6c 65 61 76 69 6e |.". .use|r_leavin|
|00000630| 67 77 69 6e 64 6f 77 28 | 77 69 6e 64 6f 77 25 29 |gwindow(|window%)|
|00000640| 0d 02 a8 05 e1 0d 02 b2 | 05 3a 0d 02 bc 19 dd 20 |........|.:..... |
|00000650| a4 75 73 65 72 5f 70 61 | 6e 65 28 77 69 6e 64 6f |.user_pa|ne(windo|
|00000660| 77 25 29 0d 02 c6 07 3d | 2d 31 0d 02 d0 05 3a 0d |w%)....=|-1....:.|
|00000670| 02 da 10 dd 20 f2 75 73 | 65 72 5f 6e 75 6c 6c 0d |.... .us|er_null.|
|00000680| 02 e4 05 e1 0d 02 ee 05 | 3a 0d 02 f8 21 dd 20 f2 |........|:...!. .|
|00000690| 75 73 65 72 5f 6d 65 6e | 75 6f 70 65 6e 28 6d 65 |user_men|uopen(me|
|000006a0| 6e 75 25 2c 69 63 6f 6e | 25 29 0d 03 02 05 e1 0d |nu%,icon|%)......|
|000006b0| 03 0c 05 3a 0d 03 16 25 | dd 20 a4 75 73 65 72 5f |...:...%|. .user_|
|000006c0| 73 6c 69 64 65 72 62 61 | 63 6b 28 77 69 6e 64 6f |sliderba|ck(windo|
|000006d0| 77 25 2c 69 63 6f 6e 25 | 29 0d 03 20 07 3d 2d 31 |w%,icon%|).. .=-1|
|000006e0| 0d 03 2a 05 3a 0d 03 34 | 21 dd 20 a4 75 73 65 72 |..*.:..4|!. .user|
|000006f0| 5f 73 6c 69 64 65 72 28 | 77 69 6e 64 6f 77 25 2c |_slider(|window%,|
|00000700| 69 63 6f 6e 25 29 0d 03 | 3e 07 3d 2d 31 0d 03 48 |icon%)..|>.=-1..H|
|00000710| 05 3a 0d 03 52 2d dd 20 | f2 75 73 65 72 5f 73 6c |.:..R-. |.user_sl|
|00000720| 69 64 65 72 76 61 6c 75 | 65 28 77 69 6e 64 6f 77 |idervalu|e(window|
|00000730| 25 2c 69 63 6f 6e 25 2c | 70 63 65 6e 74 25 29 0d |%,icon%,|pcent%).|
|00000740| 03 5c 05 e1 0d 03 66 05 | 3a 0d 03 70 16 dd 20 f2 |.\....f.|:..p.. .|
|00000750| 75 73 65 72 5f 6d 6f 64 | 65 63 68 61 6e 67 65 0d |user_mod|echange.|
|00000760| 03 7a 05 e1 0d 03 84 05 | 3a 0d 03 8e 21 dd 20 a4 |.z......|:...!. .|
|00000770| 75 73 65 72 5f 6d 65 6e | 75 68 65 6c 70 28 6d 65 |user_men|uhelp(me|
|00000780| 6e 75 25 2c 69 74 65 6d | 25 29 0d 03 98 07 3d 22 |nu%,item|%)....="|
|00000790| 22 0d 03 a2 05 3a 0d 03 | ac 18 dd 20 f2 75 73 65 |"....:..|... .use|
|000007a0| 72 5f 64 65 63 6c 61 72 | 65 66 6f 6e 74 73 0d 03 |r_declar|efonts..|
|000007b0| b6 05 e1 0d 03 c0 05 3a | 0d 03 ca 30 dd 20 f2 75 |.......:|...0. .u|
|000007c0| 73 65 72 5f 70 72 69 6e | 74 28 6d 69 6e 78 25 2c |ser_prin|t(minx%,|
|000007d0| 6d 69 6e 79 25 2c 6d 61 | 78 78 25 2c 6d 61 78 79 |miny%,ma|xx%,maxy|
|000007e0| 25 2c 70 61 67 65 25 29 | 0d 03 d4 05 e1 0d 03 de |%,page%)|........|
|000007f0| 05 3a 0d 03 e8 34 dd 20 | a4 75 73 65 72 5f 70 72 |.:...4. |.user_pr|
|00000800| 69 6e 74 69 6e 67 28 63 | 6f 70 79 25 2c 70 61 67 |inting(c|opy%,pag|
|00000810| 65 25 2c 74 6f 74 70 61 | 67 65 73 25 2c 70 61 67 |e%,totpa|ges%,pag|
|00000820| 65 70 6f 73 25 29 0d 03 | f2 06 3d 30 0d 03 fc 05 |epos%)..|..=0....|
|00000830| 3a 0d 04 06 19 dd 20 f2 | 75 73 65 72 5f 70 72 69 |:..... .|user_pri|
|00000840| 6e 74 65 72 63 68 61 6e | 67 65 0d 04 10 05 e1 0d |nterchan|ge......|
|00000850| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+