hedgewars/uGearsHandlersMess.pas
changeset 14205 1bdce164eb72
parent 14202 3e551b0535fb
child 14206 abf4d12a59b1
equal deleted inserted replaced
14204:3c36a4e66c82 14205:1bdce164eb72
  2088         end;
  2088         end;
  2089     doStepFallingGear(Gear);
  2089     doStepFallingGear(Gear);
  2090     if (TurnTimeLeft = 0) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) > _0_02.QWordValue) then
  2090     if (TurnTimeLeft = 0) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) > _0_02.QWordValue) then
  2091         AllInactive := false;
  2091         AllInactive := false;
  2092 
  2092 
       
  2093     //Disable targeting while the airmine is stunned
       
  2094     if Gear^.Tag <> 0 then
       
  2095         begin
       
  2096         Gear^.Hedgehog:= nil;
       
  2097         dec(Gear^.FlightTime);
       
  2098         if Gear^.FlightTime = 0 then
       
  2099             Gear^.Tag:= 0;
       
  2100         exit
       
  2101         end;
       
  2102 
  2093     if (TurnTimeLeft = 0) or (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then
  2103     if (TurnTimeLeft = 0) or (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then
  2094         begin
  2104         begin
  2095         Gear^.Hedgehog:= nil;
  2105         Gear^.Hedgehog:= nil;
  2096         targ:= nil;
  2106         targ:= nil;
  2097         end
  2107         end