� >Collide
:
	r1=32
(m1=r1*r1
2x1=0:y1=500-r1
<vx1=12:vy1=0
F	r2=48
Pm2=r2*r2
Zx2=580:y2=530-r2
dvx2=0:vy2=0
ne=1
x:
�a1=(m1-m2*e)/(m1+m2)
�a2=(m2-m1*e)/(m1+m2)
�b1=m1*(1+e)/(m1+m2)
�b2=m2*(1+e)/(m1+m2)
�:
��readmonitortype
�	� mo%
��
� Ȗ
� �
� ȏ x1+r1,y1+r1,r1
� ȏ x2+r2,y2+r2,r2
� x1+=vx1:y1+=vy1

 x2+=vx2:y2+=vy2

" tx=x2-x1+r2-r1:ty=y2-y1+r2-r1

( � �(tx)<=(r1+r2) � �(ty)<=(r1+r2) �

"  txs=tx*tx:tys=ty*ty

,  ds=txs+tys

6  � ds<=(r1+r2)*(r1+r2) �

@   x1-=vx1:y1-=vy1

J   x2-=vx2:y2-=vy2

T   txy=tx*ty

^   txs=txs/ds

h   tys=tys/ds

r   txy=txy/ds

|   dy=txy*(vy2-vy1)

�   dx=txy*(vx2-vx1)

�/   wx1 = (a1*txs+tys)*vx1 + b2*(txs*vx2+dy)

�/   wy1 = (a1*tys+txs)*vy1 + b2*(tys*vy2+dx)

�/   wx2 = (a2*txs+tys)*vx2 + b1*(txs*vx1-dy)

�/   wy2 = (a2*tys+txs)*vy2 + b1*(tys*vy1-dx)

�   vx1 = wx1

�   vy1 = wy1

�   vx2 = wx2

�   vy2 = wy2

�  �

� �

�� �

��
:
� �readmonitortype
"ș "OS_Byte",161,133 � ,,type%
&type%=(type% � 12) � 4
0� type%=1 mo%=18 � mo%=0
:�
�

00000000  0d 00 0a 0e f4 20 3e 43  6f 6c 6c 69 64 65 0d 00  |..... >Collide..|
00000010  14 05 3a 0d 00 1e 09 72  31 3d 33 32 0d 00 28 0c  |..:....r1=32..(.|
00000020  6d 31 3d 72 31 2a 72 31  0d 00 32 12 78 31 3d 30  |m1=r1*r1..2.x1=0|
00000030  3a 79 31 3d 35 30 30 2d  72 31 0d 00 3c 10 76 78  |:y1=500-r1..<.vx|
00000040  31 3d 31 32 3a 76 79 31  3d 30 0d 00 46 09 72 32  |1=12:vy1=0..F.r2|
00000050  3d 34 38 0d 00 50 0c 6d  32 3d 72 32 2a 72 32 0d  |=48..P.m2=r2*r2.|
00000060  00 5a 14 78 32 3d 35 38  30 3a 79 32 3d 35 33 30  |.Z.x2=580:y2=530|
00000070  2d 72 32 0d 00 64 0f 76  78 32 3d 30 3a 76 79 32  |-r2..d.vx2=0:vy2|
00000080  3d 30 0d 00 6e 07 65 3d  31 0d 00 78 05 3a 0d 00  |=0..n.e=1..x.:..|
00000090  82 18 61 31 3d 28 6d 31  2d 6d 32 2a 65 29 2f 28  |..a1=(m1-m2*e)/(|
000000a0  6d 31 2b 6d 32 29 0d 00  8c 18 61 32 3d 28 6d 32  |m1+m2)....a2=(m2|
000000b0  2d 6d 31 2a 65 29 2f 28  6d 31 2b 6d 32 29 0d 00  |-m1*e)/(m1+m2)..|
000000c0  96 17 62 31 3d 6d 31 2a  28 31 2b 65 29 2f 28 6d  |..b1=m1*(1+e)/(m|
000000d0  31 2b 6d 32 29 0d 00 a0  17 62 32 3d 6d 32 2a 28  |1+m2)....b2=m2*(|
000000e0  31 2b 65 29 2f 28 6d 31  2b 6d 32 29 0d 00 aa 05  |1+e)/(m1+m2)....|
000000f0  3a 0d 00 b4 14 f2 72 65  61 64 6d 6f 6e 69 74 6f  |:.....readmonito|
00000100  72 74 79 70 65 0d 00 be  09 eb 20 6d 6f 25 0d 00  |rtype..... mo%..|
00000110  c8 05 f5 0d 00 d2 07 20  c8 96 0d 00 dc 06 20 db  |....... ...... .|
00000120  0d 00 e6 16 20 c8 8f 20  78 31 2b 72 31 2c 79 31  |.... .. x1+r1,y1|
00000130  2b 72 31 2c 72 31 0d 00  f0 16 20 c8 8f 20 78 32  |+r1,r1.... .. x2|
00000140  2b 72 32 2c 79 32 2b 72  32 2c 72 32 0d 00 fa 14  |+r2,y2+r2,r2....|
00000150  20 78 31 2b 3d 76 78 31  3a 79 31 2b 3d 76 79 31  | x1+=vx1:y1+=vy1|
00000160  0d 01 04 14 20 78 32 2b  3d 76 78 32 3a 79 32 2b  |.... x2+=vx2:y2+|
00000170  3d 76 79 32 0d 01 0e 22  20 74 78 3d 78 32 2d 78  |=vy2..." tx=x2-x|
00000180  31 2b 72 32 2d 72 31 3a  74 79 3d 79 32 2d 79 31  |1+r2-r1:ty=y2-y1|
00000190  2b 72 32 2d 72 31 0d 01  18 28 20 e7 20 94 28 74  |+r2-r1...( . .(t|
000001a0  78 29 3c 3d 28 72 31 2b  72 32 29 20 80 20 94 28  |x)<=(r1+r2) . .(|
000001b0  74 79 29 3c 3d 28 72 31  2b 72 32 29 20 8c 0d 01  |ty)<=(r1+r2) ...|
000001c0  22 19 20 20 74 78 73 3d  74 78 2a 74 78 3a 74 79  |".  txs=tx*tx:ty|
000001d0  73 3d 74 79 2a 74 79 0d  01 2c 10 20 20 64 73 3d  |s=ty*ty..,.  ds=|
000001e0  74 78 73 2b 74 79 73 0d  01 36 1d 20 20 e7 20 64  |txs+tys..6.  . d|
000001f0  73 3c 3d 28 72 31 2b 72  32 29 2a 28 72 31 2b 72  |s<=(r1+r2)*(r1+r|
00000200  32 29 20 8c 0d 01 40 16  20 20 20 78 31 2d 3d 76  |2) ...@.   x1-=v|
00000210  78 31 3a 79 31 2d 3d 76  79 31 0d 01 4a 16 20 20  |x1:y1-=vy1..J.  |
00000220  20 78 32 2d 3d 76 78 32  3a 79 32 2d 3d 76 79 32  | x2-=vx2:y2-=vy2|
00000230  0d 01 54 10 20 20 20 74  78 79 3d 74 78 2a 74 79  |..T.   txy=tx*ty|
00000240  0d 01 5e 11 20 20 20 74  78 73 3d 74 78 73 2f 64  |..^.   txs=txs/d|
00000250  73 0d 01 68 11 20 20 20  74 79 73 3d 74 79 73 2f  |s..h.   tys=tys/|
00000260  64 73 0d 01 72 11 20 20  20 74 78 79 3d 74 78 79  |ds..r.   txy=txy|
00000270  2f 64 73 0d 01 7c 17 20  20 20 64 79 3d 74 78 79  |/ds..|.   dy=txy|
00000280  2a 28 76 79 32 2d 76 79  31 29 0d 01 86 17 20 20  |*(vy2-vy1)....  |
00000290  20 64 78 3d 74 78 79 2a  28 76 78 32 2d 76 78 31  | dx=txy*(vx2-vx1|
000002a0  29 0d 01 90 2f 20 20 20  77 78 31 20 3d 20 28 61  |).../   wx1 = (a|
000002b0  31 2a 74 78 73 2b 74 79  73 29 2a 76 78 31 20 2b  |1*txs+tys)*vx1 +|
000002c0  20 62 32 2a 28 74 78 73  2a 76 78 32 2b 64 79 29  | b2*(txs*vx2+dy)|
000002d0  0d 01 9a 2f 20 20 20 77  79 31 20 3d 20 28 61 31  |.../   wy1 = (a1|
000002e0  2a 74 79 73 2b 74 78 73  29 2a 76 79 31 20 2b 20  |*tys+txs)*vy1 + |
000002f0  62 32 2a 28 74 79 73 2a  76 79 32 2b 64 78 29 0d  |b2*(tys*vy2+dx).|
00000300  01 a4 2f 20 20 20 77 78  32 20 3d 20 28 61 32 2a  |../   wx2 = (a2*|
00000310  74 78 73 2b 74 79 73 29  2a 76 78 32 20 2b 20 62  |txs+tys)*vx2 + b|
00000320  31 2a 28 74 78 73 2a 76  78 31 2d 64 79 29 0d 01  |1*(txs*vx1-dy)..|
00000330  ae 2f 20 20 20 77 79 32  20 3d 20 28 61 32 2a 74  |./   wy2 = (a2*t|
00000340  79 73 2b 74 78 73 29 2a  76 79 32 20 2b 20 62 31  |ys+txs)*vy2 + b1|
00000350  2a 28 74 79 73 2a 76 79  31 2d 64 78 29 0d 01 b8  |*(tys*vy1-dx)...|
00000360  10 20 20 20 76 78 31 20  3d 20 77 78 31 0d 01 c2  |.   vx1 = wx1...|
00000370  10 20 20 20 76 79 31 20  3d 20 77 79 31 0d 01 cc  |.   vy1 = wy1...|
00000380  10 20 20 20 76 78 32 20  3d 20 77 78 32 0d 01 d6  |.   vx2 = wx2...|
00000390  10 20 20 20 76 79 32 20  3d 20 77 79 32 0d 01 e0  |.   vy2 = wy2...|
000003a0  07 20 20 cd 0d 01 ea 06  20 cd 0d 01 f4 07 fd 20  |.  ..... ...... |
000003b0  a3 0d 01 fe 05 e0 0d 02  08 05 3a 0d 02 12 16 dd  |..........:.....|
000003c0  20 f2 72 65 61 64 6d 6f  6e 69 74 6f 72 74 79 70  | .readmonitortyp|
000003d0  65 0d 02 1c 22 c8 99 20  22 4f 53 5f 42 79 74 65  |e...".. "OS_Byte|
000003e0  22 2c 31 36 31 2c 31 33  33 20 b8 20 2c 2c 74 79  |",161,133 . ,,ty|
000003f0  70 65 25 0d 02 26 1a 74  79 70 65 25 3d 28 74 79  |pe%..&.type%=(ty|
00000400  70 65 25 20 80 20 31 32  29 20 81 20 34 0d 02 30  |pe% . 12) . 4..0|
00000410  1c e7 20 74 79 70 65 25  3d 31 20 6d 6f 25 3d 31  |.. type%=1 mo%=1|
00000420  38 20 8b 20 6d 6f 25 3d  30 0d 02 3a 05 e1 0d ff  |8 . mo%=0..:....|
00000430