1186 end;

  1186 end;

  1187 

  1187 

  1188 ////////////////////////////////////////////////////////////////////////////////

  1188 ////////////////////////////////////////////////////////////////////////////////

  1189 procedure doStepSwitcherWork(Gear: PGear);

  1189 procedure doStepSwitcherWork(Gear: PGear);

  1190 var HHGear: PGear;

  1190 var HHGear: PGear;

  1192     Msg, State: Longword;

  1191     Msg, State: Longword;

  1193 begin

  1192 begin

  1194 AllInactive:= false;

  1193 AllInactive:= false;

  1195 

  1194 

  1196 if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then

  1195 if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then

  1216    HHGear^.Active:= false;

  1215    HHGear^.Active:= false;

  1217    HHGear^.Z:= cHHZ;

  1216    HHGear^.Z:= cHHZ;

  1218    RemoveGearFromList(HHGear);

  1217    RemoveGearFromList(HHGear);

  1219    InsertGearToList(HHGear);

  1218    InsertGearToList(HHGear);

  1220 

  1219 

  1222    repeat

  1220    repeat

  1223      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);

  1221      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);

  1224    until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

  1222    until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

  1225 

  1223 

  1226    HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear;

  1224    HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear;