changeset 6879 | f44042ba755c |
parent 6783 | 8d9160b85bdb |
child 6888 | 32a54322d262 |
6878:0af34406b83d | 6879:f44042ba755c |
---|---|
639 if (Targ.X) - trunc(x) >= 0 then |
639 if (Targ.X) - trunc(x) >= 0 then |
640 ap.Angle:= cMaxAngle div 4 |
640 ap.Angle:= cMaxAngle div 4 |
641 else |
641 else |
642 ap.Angle:= - cMaxAngle div 4; |
642 ap.Angle:= - cMaxAngle div 4; |
643 |
643 |
644 valueResult:= RateShove(Me, trunc(x) + 10 * hwSign(Targ.X - x), trunc(y), 15, 30, 115, hwSign(Me^.dX)*0.353, -0.353, 1); |
644 valueResult:= RateShove(Me, trunc(x) + 10 * hwSignf(Targ.X - x), trunc(y), 15, 30, 115, hwSign(Me^.dX)*0.353, -0.353, 1); |
645 if valueResult <= 0 then |
645 if valueResult <= 0 then |
646 valueResult:= BadTurn |
646 valueResult:= BadTurn |
647 else |
647 else |
648 inc(valueResult); |
648 inc(valueResult); |
649 TestBaseballBat:= valueResult; |
649 TestBaseballBat:= valueResult; |
721 exit(valueResult) |
721 exit(valueResult) |
722 end; |
722 end; |
723 |
723 |
724 valueResult:= 0; |
724 valueResult:= 0; |
725 for i:= 0 to 4 do |
725 for i:= 0 to 4 do |
726 valueResult:= valueResult + RateShove(Me, trunc(x) + 10 * hwSign(Targ.X - x), |
726 valueResult:= valueResult + RateShove(Me, trunc(x) + 10 * hwSignf(Targ.X - x), |
727 trunc(y) - 20 * i - 5, 10, 30, 40, hwSign(Me^.dX), -0.8, 1); |
727 trunc(y) - 20 * i - 5, 10, 30, 40, hwSign(Me^.dX), -0.8, 1); |
728 if valueResult <= 0 then |
728 if valueResult <= 0 then |
729 valueResult:= BadTurn |
729 valueResult:= BadTurn |
730 else |
730 else |
731 inc(valueResult); |
731 inc(valueResult); |