1227 function TestDynamite(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;

  1227 function TestDynamite(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;

  1228 var valueResult: LongInt;

  1228 var valueResult: LongInt;

  1229     x, y, dx, dy: real;

  1229     x, y, dx, dy: real;

  1230     EX, EY, t: LongInt;

  1230     EX, EY, t: LongInt;

  1231 begin

  1231 begin

  1232 x:= hwFloat2Float(Me^.X) + hwSign(Me^.dX) * 7;

  1234 x:= hwFloat2Float(Me^.X) + hwSign(Me^.dX) * 7;

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

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

  1234 dx:= hwSign(Me^.dX) * 0.03;

  1236 dx:= hwSign(Me^.dX) * 0.03;

  1235 dy:= 0;

  1237 dy:= 0;

  1236 t:= 5000;

  1238 t:= 5000;