equal
deleted
inserted
replaced
360 TestTime:= 0; |
360 TestTime:= 0; |
361 ap.ExplR:= 0; |
361 ap.ExplR:= 0; |
362 repeat |
362 repeat |
363 inc(TestTime, 1000); |
363 inc(TestTime, 1000); |
364 Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime + tDelta); |
364 Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime + tDelta); |
365 Vy:= cGravity * ((TestTime + tDelta) div 2) - (int2hwFloat(Targ.Y-125) - Me^.Y) / int2hwFloat(TestTime + tDelta); |
365 Vy:= cGravity * ((TestTime + tDelta) div 2) - (int2hwFloat(Targ.Y-200) - Me^.Y) / int2hwFloat(TestTime + tDelta); |
366 r:= Distance(Vx, Vy); |
366 r:= Distance(Vx, Vy); |
367 if not (r > _1) then |
367 if not (r > _1) then |
368 begin |
368 begin |
369 Score:= CheckTrace; |
369 Score:= CheckTrace; |
370 if valueResult < Score then |
370 if valueResult < Score then |