equal
deleted
inserted
replaced
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 |