1045     fexit: boolean;

  1045     fexit: boolean;

  1046     i, t, valueResult: LongInt;

  1046     i, t, valueResult: LongInt;

  1047 begin

  1047 begin

  1048 ap.ExplR:= 0;

  1048 ap.ExplR:= 0;

  1049 ap.Time:= 0;

  1049 ap.Time:= 0;

  1051     exit(BadTurn);

  1051     exit(BadTurn);

  1052 

  1052 

  1053 ap.Angle:= 0;

  1053 ap.Angle:= 0;

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

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

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

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