33 

    33 

    34 var aiWindSpeed: real;

    34 var aiWindSpeed: real;

    35     aiGravity: hwFloat;

    35     aiGravity: hwFloat;

    36     aiGravityf: real;

    36     aiGravityf: real;

    37     aiLaserSighting: boolean;

    37     aiLaserSighting: boolean;

    38 

    39 

    39 type TAttackParams = record

    40 type TAttackParams = record

    40         Time, Bounce, AttacksNum: Longword;

    41         Time, Bounce, AttacksNum: Longword;

    41         Angle, Power: LongInt;

    42         Angle, Power: LongInt;

    42         ExplX, ExplY, ExplR: LongInt;

    43         ExplX, ExplY, ExplR: LongInt;

  1335     else if Level = 2 then

  1336     else if Level = 2 then

  1336         trackFall:= 0

  1337         trackFall:= 0

  1337     else

  1338     else

  1338         exit(BadTurn);

  1339         exit(BadTurn);

  1339 

  1340 

  1340     valueResult:= 0;

  1345     valueResult:= 0;

  1341     v:= 0;

  1346     v:= 0;

  1342 

  1347 

  1343     x:= hwFloat2Float(Me^.X);

  1348     x:= hwFloat2Float(Me^.X);

  1344     y:= hwFloat2Float(Me^.Y);

  1349     y:= hwFloat2Float(Me^.Y);

  1970     exit(BadTurn);

  1975     exit(BadTurn);

  1971 

  1976 

  1972 if (Level > 2) then

  1977 if (Level > 2) then

  1973     exit(BadTurn);

  1978     exit(BadTurn);

  1974 

  1979 

  1975 ap.Angle:= 0;

  1984 ap.Angle:= 0;

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

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

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

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

  1978 

  1987 

  1979 X:= Targ.Point.X;

  1988 X:= Targ.Point.X;