1430     i, t, valueResult, targetY: LongInt;

  1430     i, t, valueResult, targetY: LongInt;

  1431 begin

  1431 begin

  1432 Flags:= Flags; // avoid compiler hint

  1432 Flags:= Flags; // avoid compiler hint

  1433 ap.ExplR:= 0;

  1433 ap.ExplR:= 0;

  1434 ap.Time:= 0;

  1434 ap.Time:= 0;

  1436     exit(BadTurn);

  1436     exit(BadTurn);

  1437 

  1437 

  1438 ap.Angle:= 0;

  1438 ap.Angle:= 0;

  1439 ap.AttackPutX:= Targ.Point.X;

  1439 ap.AttackPutX:= Targ.Point.X;

  1440 ap.AttackPutY:= Targ.Point.Y;

  1440 ap.AttackPutY:= Targ.Point.Y;

  1560     collided, drilling, timerRuns, firstHit: boolean;

  1560     collided, drilling, timerRuns, firstHit: boolean;

  1561     i, t, value, valueResult, attackTime, drillTimer, targetX, targetY: LongInt;

  1561     i, t, value, valueResult, attackTime, drillTimer, targetX, targetY: LongInt;

  1562 begin

  1562 begin

  1563 Flags:= Flags; // avoid compiler hint

  1563 Flags:= Flags; // avoid compiler hint

  1564 ap.ExplR:= 0;

  1564 ap.ExplR:= 0;

  1566     exit(BadTurn);

  1566     exit(BadTurn);

  1567 

  1567 

  1568 ap.Angle:= 0;

  1568 ap.Angle:= 0;

  1569 targetX:= Targ.Point.X;

  1569 targetX:= Targ.Point.X;

  1570 ap.AttackPutY:= Targ.Point.Y;

  1570 ap.AttackPutY:= Targ.Point.Y;

  1721 // predictable.

  1721 // predictable.

  1722 // Other cMinesTime values are risky because of bouncy mines;

  1722 // Other cMinesTime values are risky because of bouncy mines;

  1723 // so they are unsupported.

  1723 // so they are unsupported.

  1724 // TODO: Implement mine strike for other values of MineTime

  1724 // TODO: Implement mine strike for other values of MineTime

  1725 // TODO: Teach AI to avoid hitting their own with mines

  1725 // TODO: Teach AI to avoid hitting their own with mines

  1727     exit(BadTurn);

  1727     exit(BadTurn);

  1728 

  1728 

  1729 ap.Angle:= 0;

  1729 ap.Angle:= 0;

  1730 ap.AttackPutX:= Targ.Point.X;

  1730 ap.AttackPutX:= Targ.Point.X;

  1731 ap.AttackPutY:= Targ.Point.Y;

  1731 ap.AttackPutY:= Targ.Point.Y;