/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / gamesuite / Examples / !BallBnc / Commented

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 04 0d 00 14 22 | f4 20 54 68 69 73 20 69 |......."|. This i|
|00000010| 73 20 61 20 62 6f 75 6e | 63 69 6e 67 20 62 61 6c |s a boun|cing bal|
|00000020| 6c 20 64 65 6d 6f 0d 00 | 1e 31 f4 20 75 73 69 6e |l demo..|.1. usin|
|00000030| 67 20 41 6d 6e 65 73 69 | 61 2e 20 20 46 65 65 6c |g Amnesi|a.  Feel|
|00000040| 20 66 72 65 65 20 74 6f | 20 63 6f 70 79 20 74 68 | free to| copy th|
|00000050| 65 20 63 6f 64 65 2e 0d | 00 28 04 0d 00 32 32 ee |e code..|.(...22.|
|00000060| 20 85 20 c8 99 20 36 2c | 31 31 32 2c 31 3a c8 99 | . .. 6,|112,1:..|
|00000070| 20 36 2c 31 31 33 2c 31 | 3a f1 20 f6 24 3b 22 20 | 6,113,1|:. .$;" |
|00000080| 61 74 20 6c 69 6e 65 20 | 22 3b 9e 3a e0 0d 00 3c |at line |";.:...<|
|00000090| 25 2a 46 61 73 74 53 70 | 72 4c 6f 61 64 20 31 20 |%*FastSp|rLoad 1 |
|000000a0| 42 61 6c 6c 42 6e 63 3a | 46 53 50 53 70 72 69 74 |BallBnc:|FSPSprit|
|000000b0| 65 73 0d 00 46 04 0d 00 | 50 11 61 72 65 61 6c 65 |es..F...|P.areale|
|000000c0| 6e 3d 26 31 30 30 30 0d | 00 5a 29 de 20 61 72 65 |n=&1000.|.Z). are|
|000000d0| 61 20 61 72 65 61 6c 65 | 6e 3a f4 20 67 72 61 70 |a areale|n:. grap|
|000000e0| 20 61 6e 20 61 6d 6e 65 | 73 69 61 20 61 72 65 61 | an amne|sia area|
|000000f0| 0d 00 64 40 c8 99 20 22 | 41 6d 6e 65 73 69 61 5f |..d@.. "|Amnesia_|
|00000100| 49 6e 69 74 22 2c 61 72 | 65 61 2c 61 72 65 61 6c |Init",ar|ea,areal|
|00000110| 65 6e 2c 30 3a f4 20 74 | 65 6c 6c 20 69 74 20 77 |en,0:. t|ell it w|
|00000120| 68 65 72 65 20 74 68 65 | 20 61 72 65 61 20 69 73 |here the| area is|
|00000130| 0d 00 6e 2e c8 99 20 22 | 41 6d 6e 65 73 69 61 5f |..n... "|Amnesia_|
|00000140| 43 6c 61 69 6d 54 61 62 | 6c 65 22 2c 31 2c 31 2c |ClaimTab|le",1,1,|
|00000150| 22 4d 79 54 65 78 74 22 | 2c 36 34 2c 33 32 0d 00 |"MyText"|,64,32..|
|00000160| 78 39 f4 20 53 65 74 20 | 75 70 20 74 61 62 6c 65 |x9. Set |up table|
|00000170| 20 31 20 77 69 74 68 20 | 74 68 65 20 6e 61 6d 65 | 1 with |the name|
|00000180| 20 4d 79 54 65 78 74 20 | 77 69 74 68 20 36 34 20 | MyText |with 64 |
|00000190| 6f 62 6a 65 63 74 73 0d | 00 82 3f f4 20 33 32 20 |objects.|..?. 32 |
|000001a0| 62 79 74 65 73 20 6c 6f | 6e 67 2e 20 20 54 68 65 |bytes lo|ng.  The|
|000001b0| 20 73 65 63 6f 6e 64 20 | 31 20 69 73 20 74 68 65 | second |1 is the|
|000001c0| 20 66 6c 61 67 73 20 2d | 20 68 65 72 65 20 69 74 | flags -| here it|
|000001d0| 20 6d 65 61 6e 73 0d 00 | 8c 21 f4 20 77 65 20 6e | means..|.!. we n|
|000001e0| 65 65 64 20 63 6f 6c 6c | 69 73 69 6f 6e 20 63 68 |eed coll|ision ch|
|000001f0| 65 63 6b 69 6e 67 2e 0d | 00 96 04 0d 00 a0 37 f4 |ecking..|......7.|
|00000200| 20 4e 6f 77 20 73 65 74 | 20 75 70 20 74 68 65 20 | Now set| up the |
|00000210| 67 61 6d 65 20 77 69 6e | 64 6f 77 20 74 6f 20 62 |game win|dow to b|
|00000220| 65 20 74 68 65 20 77 68 | 6f 6c 65 20 73 63 72 65 |e the wh|ole scre|
|00000230| 65 6e 0d 00 aa 30 c8 99 | 20 22 41 6d 6e 65 73 69 |en...0..| "Amnesi|
|00000240| 61 5f 53 65 74 57 69 6e | 64 6f 77 22 2c 30 2c 30 |a_SetWin|dow",0,0|
|00000250| 2c 30 2c 33 32 30 3c 3c | 31 32 2c 32 35 36 3c 3c |,0,320<<|12,256<<|
|00000260| 31 32 0d 00 b4 08 eb 20 | 31 35 0d 00 be 08 eb 20 |12..... |15..... |
|00000270| 31 33 0d 00 bf 05 87 0d | 00 c8 0a 62 61 6e 6b 3d |13......|...bank=|
|00000280| 31 0d 00 dc 04 0d 00 e6 | 1a f4 20 48 65 72 65 27 |1.......|.. Here'|
|00000290| 73 20 74 68 65 20 6d 61 | 69 6e 20 6c 6f 6f 70 0d |s the ma|in loop.|
|000002a0| 00 f0 05 f5 0d 00 fa 06 | c8 96 0d 01 04 39 c8 99 |........|.....9..|
|000002b0| 20 22 46 61 73 74 53 70 | 72 5f 53 63 72 65 65 6e | "FastSp|r_Screen|
|000002c0| 42 61 6e 6b 22 2c 62 61 | 6e 6b 20 3a f4 20 64 6f |Bank",ba|nk :. do|
|000002d0| 20 74 68 65 20 62 61 6e | 6b 20 73 77 69 74 63 68 | the ban|k switch|
|000002e0| 69 6e 67 0d 01 0e 19 c8 | 99 20 22 4f 53 5f 42 79 |ing.....|. "OS_By|
|000002f0| 74 65 22 2c 31 31 33 2c | 62 61 6e 6b 0d 01 18 1c |te",113,|bank....|
|00000300| c8 99 20 22 46 61 73 74 | 53 70 72 5f 43 6c 65 61 |.. "Fast|Spr_Clea|
|00000310| 72 57 69 6e 64 6f 77 22 | 0d 01 22 0f 62 61 6e 6b |rWindow"|..".bank|
|00000320| 3d 33 2d 62 61 6e 6b 0d | 01 2c 2e 20 c8 99 20 22 |=3-bank.|.,. .. "|
|00000330| 41 6d 6e 65 73 69 61 5f | 53 65 6c 65 63 74 54 61 |Amnesia_|SelectTa|
|00000340| 62 6c 65 22 2c 31 2c 30 | 2c 30 20 b8 20 52 30 2c |ble",1,0|,0 . R0,|
|00000350| 52 31 2c 52 32 0d 01 36 | 06 20 f5 0d 01 40 33 20 |R1,R2..6|. ...@3 |
|00000360| 20 c8 99 20 22 41 6d 6e | 65 73 69 61 5f 50 72 6f | .. "Amn|esia_Pro|
|00000370| 63 65 73 73 54 61 62 6c | 65 22 2c 52 30 2c 52 31 |cessTabl|e",R0,R1|
|00000380| 2c 52 32 20 b8 20 52 30 | 2c 52 31 2c 52 32 0d 01 |,R2 . R0|,R1,R2..|
|00000390| 4a 25 20 e7 20 28 52 32 | 20 80 20 28 31 3c 3c 31 |J% . (R2| . (1<<1|
|000003a0| 33 29 29 20 8c 20 f2 68 | 6f 72 69 7a 72 65 66 6c |3)) . .h|orizrefl|
|000003b0| 65 63 74 0d 01 54 24 20 | e7 20 28 52 32 20 80 20 |ect..T$ |. (R2 . |
|000003c0| 28 31 3c 3c 31 34 29 29 | 20 8c 20 f2 76 65 72 74 |(1<<14))| . .vert|
|000003d0| 72 65 66 6c 65 63 74 0d | 01 5e 0b 20 fd 20 52 32 |reflect.|.^. . R2|
|000003e0| 3d 30 0d 01 68 2e 20 f4 | 20 4e 6f 77 20 63 6f 6c |=0..h. .| Now col|
|000003f0| 6c 69 73 69 6f 6e 20 63 | 68 65 63 6b 20 74 61 62 |lision c|heck tab|
|00000400| 6c 65 20 31 20 77 69 74 | 68 20 69 74 73 65 6c 66 |le 1 wit|h itself|
|00000410| 0d 01 72 09 20 52 30 3d | 31 0d 01 7c 09 20 52 31 |..r. R0=|1..|. R1|
|00000420| 3d 31 0d 01 86 06 20 f5 | 0d 01 90 2f 20 20 c8 99 |=1.... .|.../  ..|
|00000430| 20 22 41 6d 6e 65 73 69 | 61 5f 43 6f 6c 6c 69 73 | "Amnesi|a_Collis|
|00000440| 69 6f 6e 43 68 65 63 6b | 22 2c 52 30 2c 52 31 20 |ionCheck|",R0,R1 |
|00000450| b8 20 52 30 2c 52 31 0d | 01 9a 14 20 20 e7 20 52 |. R0,R1.|...  . R|
|00000460| 30 3c 3e 30 20 8c 20 f2 | 68 69 74 0d 01 a4 0b 20 |0<>0 . .|hit.... |
|00000470| fd 20 52 30 3d 30 0d 01 | ae 18 20 e7 20 b3 28 32 |. R0=0..|.. . .(2|
|00000480| 30 29 3d 31 20 8c 20 f2 | 63 72 65 61 74 65 0d 01 |0)=1 . .|create..|
|00000490| b8 07 fd 20 a3 0d 01 c2 | 04 0d 01 cc 04 0d 01 d6 |... ....|........|
|000004a0| 0c dd f2 63 72 65 61 74 | 65 0d 01 e0 1e 6f 62 6a |...creat|e....obj|
|000004b0| 5f 66 6c 61 67 73 3d 25 | 31 31 30 30 30 30 30 31 |_flags=%|11000001|
|000004c0| 31 30 30 30 31 30 31 0d | 01 ea 65 c8 99 20 22 41 |1000101.|..e.. "A|
|000004d0| 6d 6e 65 73 69 61 5f 4d | 61 6b 65 4f 62 6a 65 63 |mnesia_M|akeObjec|
|000004e0| 74 22 2c 31 2c 28 31 3c | 3c 32 34 29 2c 6f 62 6a |t",1,(1<|<24),obj|
|000004f0| 5f 66 6c 61 67 73 2c b3 | 28 33 32 30 29 3c 3c 31 |_flags,.|(320)<<1|
|00000500| 32 2c b3 28 32 35 36 29 | 3c 3c 31 32 2c 28 b3 28 |2,.(256)|<<12,(.(|
|00000510| 31 30 29 2d 35 29 3c 3c | 31 32 2c 28 b3 28 31 30 |10)-5)<<|12,(.(10|
|00000520| 29 2d 35 29 3c 3c 31 32 | 2c 30 2c 30 0d 01 f4 05 |)-5)<<12|,0,0....|
|00000530| e1 0d 01 fe 04 0d 02 08 | 3b f4 20 49 66 20 74 68 |........|;. If th|
|00000540| 65 20 62 61 6c 6c 20 69 | 73 20 6f 6e 20 74 68 65 |e ball i|s on the|
|00000550| 20 72 69 67 68 74 20 6f | 72 20 74 68 65 20 73 63 | right o|r the sc|
|00000560| 72 65 65 6e 20 77 65 20 | 6d 61 6b 65 20 74 68 65 |reen we |make the|
|00000570| 0d 02 12 3b f4 20 78 20 | 76 65 6c 6f 63 69 74 79 |...;. x |velocity|
|00000580| 20 6e 65 67 61 74 69 76 | 65 2e 20 20 49 66 20 69 | negativ|e.  If i|
|00000590| 74 27 73 20 6f 6e 20 74 | 68 65 20 6c 65 66 74 2c |t's on t|he left,|
|000005a0| 20 77 65 20 6d 61 6b 65 | 20 69 74 0d 02 1c 0e f4 | we make| it.....|
|000005b0| 20 70 6f 73 69 74 69 76 | 65 0d 02 26 12 dd f2 68 | positiv|e..&...h|
|000005c0| 6f 72 69 7a 72 65 66 6c | 65 63 74 0d 02 30 18 e7 |orizrefl|ect..0..|
|000005d0| 20 28 52 31 21 38 29 3e | 28 31 36 30 3c 3c 31 32 | (R1!8)>|(160<<12|
|000005e0| 29 20 8c 0d 02 3a 13 52 | 31 21 31 36 3d 2d 94 28 |) ...:.R|1!16=-.(|
|000005f0| 52 31 21 31 36 29 0d 02 | 44 05 cc 0d 02 4e 12 52 |R1!16)..|D....N.R|
|00000600| 31 21 31 36 3d 94 28 52 | 31 21 31 36 29 0d 02 58 |1!16=.(R|1!16)..X|
|00000610| 05 cd 0d 02 62 05 e1 0d | 02 6c 04 0d 02 76 11 dd |....b...|.l...v..|
|00000620| f2 76 65 72 74 72 65 66 | 6c 65 63 74 0d 02 80 19 |.vertref|lect....|
|00000630| e7 20 28 52 31 21 31 32 | 29 3e 28 31 32 38 3c 3c |. (R1!12|)>(128<<|
|00000640| 31 32 29 20 8c 0d 02 8a | 13 52 31 21 32 30 3d 2d |12) ....|.R1!20=-|
|00000650| 94 28 52 31 21 32 30 29 | 0d 02 94 05 cc 0d 02 9e |.(R1!20)|........|
|00000660| 12 52 31 21 32 30 3d 94 | 28 52 31 21 32 30 29 0d |.R1!20=.|(R1!20).|
|00000670| 02 a8 05 cd 0d 02 b2 05 | e1 0d 02 bc 04 0d 02 c6 |........|........|
|00000680| 3a f4 20 57 68 65 6e 20 | 74 68 65 79 20 68 69 74 |:. When |they hit|
|00000690| 2c 20 74 68 65 20 74 77 | 6f 20 62 61 6c 6c 73 20 |, the tw|o balls |
|000006a0| 6d 65 72 67 65 20 69 6e | 74 6f 20 6f 6e 65 2c 20 |merge in|to one, |
|000006b0| 61 6e 64 20 74 68 65 0d | 02 d0 3e f4 20 61 6e 69 |and the.|..>. ani|
|000006c0| 6d 61 74 69 6f 6e 20 66 | 72 61 6d 65 20 69 73 20 |mation f|rame is |
|000006d0| 61 64 76 61 6e 63 65 64 | 20 28 73 6f 20 74 68 65 |advanced| (so the|
|000006e0| 20 62 61 6c 6c 20 63 68 | 61 6e 67 65 73 20 63 6f | ball ch|anges co|
|000006f0| 6c 6f 75 72 29 0d 02 d1 | 26 f4 20 49 46 20 74 68 |lour)...|&. IF th|
|00000700| 65 20 62 61 6c 6c 73 20 | 61 72 65 20 74 68 65 20 |e balls |are the |
|00000710| 73 61 6d 65 20 63 6f 6c | 6f 75 72 0d 02 da 04 0d |same col|our.....|
|00000720| 02 e4 3f f4 20 57 65 20 | 6b 65 65 70 20 74 68 65 |..?. We |keep the|
|00000730| 20 6f 62 6a 65 63 74 20 | 70 6f 69 6e 74 65 64 20 | object |pointed |
|00000740| 74 6f 20 62 79 20 52 30 | 2c 20 61 6e 64 20 64 65 |to by R0|, and de|
|00000750| 6c 65 74 65 20 74 68 65 | 20 6f 74 68 65 72 0d 02 |lete the| other..|
|00000760| ee 09 dd f2 68 69 74 0d | 02 f8 3f 52 30 21 38 3d |....hit.|..?R0!8=|
|00000770| 28 52 30 21 38 2b 52 31 | 21 38 29 2f 32 3a f4 20 |(R0!8+R1|!8)/2:. |
|00000780| 74 61 6b 65 20 74 68 65 | 20 61 76 65 72 61 67 65 |take the| average|
|00000790| 20 70 6f 73 69 74 69 6f | 6e 20 61 6e 64 20 76 65 | positio|n and ve|
|000007a0| 6c 6f 63 69 74 79 0d 03 | 02 19 52 30 21 31 32 3d |locity..|..R0!12=|
|000007b0| 28 52 30 21 31 32 2b 52 | 31 21 31 32 29 2f 32 0d |(R0!12+R|1!12)/2.|
|000007c0| 03 0c 19 52 30 21 31 36 | 3d 28 52 30 21 31 36 2b |...R0!16|=(R0!16+|
|000007d0| 52 31 21 31 36 29 2f 32 | 0d 03 16 19 52 30 21 32 |R1!16)/2|....R0!2|
|000007e0| 30 3d 28 52 30 21 32 30 | 2b 52 31 21 32 30 29 2f |0=(R0!20|+R1!20)/|
|000007f0| 32 0d 03 17 04 0d 03 20 | 2f 63 6f 6c 6f 75 72 30 |2...... |/colour0|
|00000800| 3d 21 52 30 20 80 20 28 | 26 46 46 3c 3c 31 36 29 |=!R0 . (|&FF<<16)|
|00000810| 3a f4 20 63 68 61 6e 67 | 65 20 74 68 65 20 63 6f |:. chang|e the co|
|00000820| 6c 6f 75 72 0d 03 2a 1b | 63 6f 6c 6f 75 72 31 3d |lour..*.|colour1=|
|00000830| 21 52 31 20 80 20 28 26 | 46 46 3c 3c 31 36 29 0d |!R1 . (&|FF<<16).|
|00000840| 03 34 17 e7 20 63 6f 6c | 6f 75 72 30 3d 63 6f 6c |.4.. col|our0=col|
|00000850| 6f 75 72 31 20 8c 0d 03 | 3e 12 63 6f 6c 6f 75 72 |our1 ...|>.colour|
|00000860| 30 2b 3d 31 3c 3c 31 36 | 0d 03 48 05 cc 0d 03 52 |0+=1<<16|..H....R|
|00000870| 27 e7 20 63 6f 6c 6f 75 | 72 31 3e 63 6f 6c 6f 75 |'. colou|r1>colou|
|00000880| 72 30 20 8c 20 63 6f 6c | 6f 75 72 30 3d 63 6f 6c |r0 . col|our0=col|
|00000890| 6f 75 72 31 0d 03 5c 05 | cd 0d 03 66 25 e7 20 63 |our1..\.|...f%. c|
|000008a0| 6f 6c 6f 75 72 30 3e 26 | 30 34 30 30 30 30 20 63 |olour0>&|040000 c|
|000008b0| 6f 6c 6f 75 72 30 3d 26 | 30 34 30 30 30 30 0d 03 |olour0=&|040000..|
|000008c0| 70 17 21 52 30 3d 28 31 | 3c 3c 32 34 29 2b 63 6f |p.!R0=(1|<<24)+co|
|000008d0| 6c 6f 75 72 30 0d 03 98 | 21 c8 99 20 22 41 6d 6e |lour0...|!.. "Amn|
|000008e0| 65 73 69 61 5f 44 65 6c | 65 74 65 4f 62 6a 65 63 |esia_Del|eteObjec|
|000008f0| 74 22 2c 2c 52 31 0d 03 | a2 05 e1 0d 03 ac 04 0d |t",,R1..|........|
|00000900| 03 b6 04 0d 03 c0 04 0d | 03 ca 04 0d ff          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+