N@Awesome Kinesis
I@ X1 Y1 Z1 Vx Vy Vz Tar Obj X3 Y3 Z3 Mass Radius
O@ X2 Y2 Z2 Object
schedule(20)
Obj&~Obj->Object=Obj;
Tar->
Z1+=50+Radus
Speed=20
X2=Speed*(X1-X3)-Vx*Mass+V1x*10
Y2=Speed*(Y1-Y3)-Vy*Mass+V1y*10
Z2=Speed*(Z1-Z3)-Vz*Mass+V1z*10
;
!X1&!Y1&!Z1->X2=Y2=Z2=0;