equal
deleted
inserted
replaced
2713 |
2713 |
2714 //////////////////////////////////////////////////////////////////////////////// |
2714 //////////////////////////////////////////////////////////////////////////////// |
2715 procedure doStepSwitcherWork(Gear: PGear); |
2715 procedure doStepSwitcherWork(Gear: PGear); |
2716 var |
2716 var |
2717 HHGear: PGear; |
2717 HHGear: PGear; |
2718 Msg, State: Longword; |
2718 State: Longword; |
2719 begin |
2719 begin |
2720 AllInactive := false; |
2720 AllInactive := false; |
2721 |
2721 |
2722 if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then |
2722 if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then |
2723 begin |
2723 begin |