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) and (GameTicks > Gear^.FlightTime)) then Gear^.State := Gear^.State or gsttmpFlag; |
1933 if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime)) or (Gear^.Hedgehog^.Gear = nil) 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) or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime)) then |
1980 if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime)) or (Gear^.Hedgehog^.Gear = nil) then Gear^.State := Gear^.State or gsttmpFlag; |
1981 Gear^.State := Gear^.State or gsttmpFlag; |
|
1982 end; |
1981 end; |
1983 |
1982 |
1984 //////////////////////////////////////////////////////////////////////////////// |
1983 //////////////////////////////////////////////////////////////////////////////// |
1985 procedure doStepDynamite(Gear: PGear); |
1984 procedure doStepDynamite(Gear: PGear); |
1986 begin |
1985 begin |