hedgewars/uAIMisc.pas
changeset 15693 2aedd8ca836c
parent 15690 c4d7eb75fd8a
child 15726 12973ea952c6
equal deleted inserted replaced
15692:e55c4bad720a 15693:2aedd8ca836c
  1134     // hog is falling
  1134     // hog is falling
  1135     if (Gear^.State and gstMoving) <> 0 then
  1135     if (Gear^.State and gstMoving) <> 0 then
  1136         begin
  1136         begin
  1137         inc(GoInfo.Ticks);
  1137         inc(GoInfo.Ticks);
  1138         Gear^.dY:= Gear^.dY + aiGravity;
  1138         Gear^.dY:= Gear^.dY + aiGravity;
  1139         if Gear^.dY > _0_4 then
  1139         // taking fall damage?
       
  1140         if (Gear^.dY > _0_4) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) then
  1140             begin
  1141             begin
  1141             GoInfo.FallPix:= 0;
  1142             GoInfo.FallPix:= 0;
  1142             // try ljump instead of fall with damage
  1143             // try ljump instead of fall with damage
  1143             HHJump(AltGear, jmpLJump, GoInfo);
  1144             HHJump(AltGear, jmpLJump, GoInfo);
  1144             if AltGear^.Hedgehog^.BotLevel < 4 then
  1145             if AltGear^.Hedgehog^.BotLevel < 4 then