hedgewars/uAIMisc.pas
changeset 5422 0daf3d8e4b70
parent 5244 1b408b965c01
child 5425 862c194a1a1c
equal deleted inserted replaced
5419:2fed5e26ff7d 5422:0daf3d8e4b70
   300 var bX, bY: LongInt;
   300 var bX, bY: LongInt;
   301     bRes: boolean;
   301     bRes: boolean;
   302 begin
   302 begin
   303 bRes:= false;
   303 bRes:= false;
   304 GoInfo.Ticks:= 0;
   304 GoInfo.Ticks:= 0;
   305 GoInfo.FallPix:= 0;
       
   306 GoInfo.JumpType:= jmpNone;
   305 GoInfo.JumpType:= jmpNone;
   307 bX:= hwRound(Gear^.X);
   306 bX:= hwRound(Gear^.X);
   308 bY:= hwRound(Gear^.Y);
   307 bY:= hwRound(Gear^.Y);
   309 case JumpType of
   308 case JumpType of
   310      jmpNone: exit(bRes);
   309      jmpNone: exit(bRes);