equal
deleted
inserted
replaced
363 ap.Angle:= 0; |
363 ap.Angle:= 0; |
364 if (Abs(hwRound(Me^.X) - Targ.X) > 25) |
364 if (Abs(hwRound(Me^.X) - Targ.X) > 25) |
365 or (Abs(hwRound(Me^.Y) - 50 - Targ.Y) > 50) then |
365 or (Abs(hwRound(Me^.Y) - 50 - Targ.Y) > 50) then |
366 begin |
366 begin |
367 if TestColl(hwRound(Me^.Y), hwRound(Me^.Y) - 16, 6) then |
367 if TestColl(hwRound(Me^.Y), hwRound(Me^.Y) - 16, 6) then |
368 Result:= 1 |
368 Result:= Succ(BadTurn) |
369 else |
369 else |
370 Result:= BadTurn; |
370 Result:= BadTurn; |
371 exit(Result) |
371 exit(Result) |
372 end; |
372 end; |
373 |
373 |