hedgewars/uAIAmmoTests.pas
changeset 15706 f2930fe1b6d0
parent 15702 0436ea41ece5
child 15728 cc8882e46784
equal deleted inserted replaced
15705:7c69b242d971 15706:f2930fe1b6d0
   997 ap.Time:= 0;
   997 ap.Time:= 0;
   998 ap.Power:= 1;
   998 ap.Power:= 1;
   999 x:= hwFloat2Float(Me^.X);
   999 x:= hwFloat2Float(Me^.X);
  1000 y:= hwFloat2Float(Me^.Y);
  1000 y:= hwFloat2Float(Me^.Y);
  1001 range:= Metric(trunc(x), trunc(y), Targ.Point.X, Targ.Point.Y);
  1001 range:= Metric(trunc(x), trunc(y), Targ.Point.X, Targ.Point.Y);
  1002 if ( range < MIN_RANGE ) or ( range > MAX_RANGE ) then
  1002 // Range limits (laser sight can remove upper range limit)
       
  1003 if (range < MIN_RANGE) or ((range > MAX_RANGE) and (not aiLaserSighting) and (Level >= 4))then
  1003     exit(BadTurn);
  1004     exit(BadTurn);
  1004 
  1005 
  1005 Vx:= (Targ.Point.X - x) * 1 / 1024;
  1006 Vx:= (Targ.Point.X - x) * 1 / 1024;
  1006 Vy:= (Targ.Point.Y - y) * 1 / 1024;
  1007 Vy:= (Targ.Point.Y - y) * 1 / 1024;
  1007 ap.Angle:= DxDy2AttackAnglef(Vx, -Vy);
  1008 ap.Angle:= DxDy2AttackAnglef(Vx, -Vy);