equal
deleted
inserted
replaced
1928 exit |
1928 exit |
1929 end; |
1929 end; |
1930 dec(Gear^.Timer); |
1930 dec(Gear^.Timer); |
1931 end |
1931 end |
1932 else // gsttmpFlag = 0 |
1932 else // gsttmpFlag = 0 |
1933 if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack) <> 0) then Gear^.State := Gear^.State or gsttmpFlag; |
1933 if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime + 1000)) then Gear^.State := Gear^.State or gsttmpFlag; |
1934 end; |
1934 end; |
1935 |
1935 |
1936 //////////////////////////////////////////////////////////////////////////////// |
1936 //////////////////////////////////////////////////////////////////////////////// |
1937 procedure doStepSMine(Gear: PGear); |
1937 procedure doStepSMine(Gear: PGear); |
1938 begin |
1938 begin |
1975 end; |
1975 end; |
1976 dec(Gear^.Timer); |
1976 dec(Gear^.Timer); |
1977 end |
1977 end |
1978 end |
1978 end |
1979 else // gsttmpFlag = 0 |
1979 else // gsttmpFlag = 0 |
1980 if TurnTimeLeft = 0 then Gear^.State := Gear^.State or gsttmpFlag; |
1980 if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime + 1000)) then Gear^.State := Gear^.State or gsttmpFlag; |
1981 end; |
1981 end; |
1982 |
1982 |
1983 //////////////////////////////////////////////////////////////////////////////// |
1983 //////////////////////////////////////////////////////////////////////////////// |
1984 procedure doStepDynamite(Gear: PGear); |
1984 procedure doStepDynamite(Gear: PGear); |
1985 begin |
1985 begin |