hedgewars/GSHandlers.inc
changeset 6092 fd602b5838ab
parent 6081 537bbd5c1a62
child 6112 7839a2ae90ae
equal deleted inserted replaced
6091:77b826a8f996 6092:fd602b5838ab
  4203 
  4203 
  4204         // This jiggles gears, to ensure a portal connection just placed under a gear takes effect.
  4204         // This jiggles gears, to ensure a portal connection just placed under a gear takes effect.
  4205         iterator:= GearsList;
  4205         iterator:= GearsList;
  4206         while iterator <> nil do
  4206         while iterator <> nil do
  4207             begin
  4207             begin
  4208             if iterator^.Kind <> gtPortal then
  4208             if (iterator^.Kind <> gtPortal) and 
       
  4209                ((iterator^.Hedgehog <> CurrentHedgehog) or ((iterator^.Message and gmAllStoppable) = 0)) then
  4209                 begin
  4210                 begin
  4210                 iterator^.Active:= true;
  4211                 iterator^.Active:= true;
  4211                 if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
  4212                 if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
  4212                 iterator^.State:= iterator^.State or gstMoving;
  4213                 iterator^.State:= iterator^.State or gstMoving;
  4213                 DeleteCI(iterator);
  4214                 DeleteCI(iterator);